Line data Source code
1 : module mo_nln_matrix
2 : use shr_kind_mod, only : r8 => shr_kind_r8
3 : use chem_mods, only: veclen
4 : private
5 : public :: nlnmat
6 : contains
7 3585597 : subroutine nlnmat01( avec_len, mat, y, rxt )
8 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
9 : implicit none
10 : !----------------------------------------------
11 : ! ... dummy arguments
12 : !----------------------------------------------
13 : integer, intent(in) :: avec_len
14 : real(r8), intent(in) :: y(veclen,gas_pcnst)
15 : real(r8), intent(in) :: rxt(veclen,rxntot)
16 : real(r8), intent(inout) :: mat(veclen,nzcnt)
17 : !----------------------------------------------
18 : ! ... local variables
19 : !----------------------------------------------
20 : integer :: k
21 : !----------------------------------------------
22 : ! ... complete matrix entries implicit species
23 : !----------------------------------------------
24 117656469 : do k = 1,avec_len
25 114070872 : mat(k,582) = -(rxt(k,486)*y(k,17) + rxt(k,487)*y(k,101) + rxt(k,488)*y(k,73))
26 114070872 : mat(k,735) = -rxt(k,486)*y(k,3)
27 114070872 : mat(k,895) = -rxt(k,487)*y(k,3)
28 114070872 : mat(k,1909) = -rxt(k,488)*y(k,3)
29 : mat(k,714) = 4.000_r8*rxt(k,489)*y(k,5) + (rxt(k,490)+rxt(k,491))*y(k,28) &
30 : + rxt(k,494)*y(k,62) + rxt(k,497)*y(k,70) + rxt(k,548)*y(k,80) &
31 114070872 : + rxt(k,498)*y(k,133)
32 114070872 : mat(k,57) = rxt(k,476)*y(k,71)
33 114070872 : mat(k,63) = rxt(k,502)*y(k,71)
34 : mat(k,187) = 2.000_r8*rxt(k,513)*y(k,25) + 2.000_r8*rxt(k,525)*y(k,71) &
35 114070872 : + 2.000_r8*rxt(k,514)*y(k,133)
36 114070872 : mat(k,223) = rxt(k,515)*y(k,25) + rxt(k,526)*y(k,71) + rxt(k,516)*y(k,133)
37 : mat(k,162) = 3.000_r8*rxt(k,520)*y(k,25) + 3.000_r8*rxt(k,503)*y(k,71) &
38 114070872 : + 3.000_r8*rxt(k,521)*y(k,133)
39 : mat(k,1466) = 2.000_r8*rxt(k,513)*y(k,16) + rxt(k,515)*y(k,18) &
40 114070872 : + 3.000_r8*rxt(k,520)*y(k,24)
41 114070872 : mat(k,1092) = (rxt(k,490)+rxt(k,491))*y(k,5)
42 114070872 : mat(k,34) = 2.000_r8*rxt(k,504)*y(k,71)
43 114070872 : mat(k,325) = rxt(k,499)*y(k,70) + rxt(k,505)*y(k,71) + rxt(k,500)*y(k,133)
44 114070872 : mat(k,1949) = rxt(k,494)*y(k,5)
45 114070872 : mat(k,1368) = rxt(k,497)*y(k,5) + rxt(k,499)*y(k,45)
46 : mat(k,783) = rxt(k,476)*y(k,9) + rxt(k,502)*y(k,10) + 2.000_r8*rxt(k,525) &
47 : *y(k,16) + rxt(k,526)*y(k,18) + 3.000_r8*rxt(k,503)*y(k,24) &
48 114070872 : + 2.000_r8*rxt(k,504)*y(k,42) + rxt(k,505)*y(k,45)
49 114070872 : mat(k,477) = rxt(k,548)*y(k,5)
50 : mat(k,978) = rxt(k,498)*y(k,5) + 2.000_r8*rxt(k,514)*y(k,16) + rxt(k,516) &
51 114070872 : *y(k,18) + 3.000_r8*rxt(k,521)*y(k,24) + rxt(k,500)*y(k,45)
52 114070872 : mat(k,708) = rxt(k,492)*y(k,28)
53 114070872 : mat(k,1084) = rxt(k,492)*y(k,5)
54 114070872 : mat(k,1987) = (rxt(k,570)+rxt(k,575))*y(k,53)
55 114070872 : mat(k,308) = (rxt(k,570)+rxt(k,575))*y(k,49)
56 : mat(k,715) = -(4._r8*rxt(k,489)*y(k,5) + (rxt(k,490) + rxt(k,491) + rxt(k,492) &
57 : ) * y(k,28) + rxt(k,493)*y(k,101) + rxt(k,494)*y(k,62) + rxt(k,495) &
58 : *y(k,63) + rxt(k,497)*y(k,70) + rxt(k,498)*y(k,133) + rxt(k,548) &
59 114070872 : *y(k,80))
60 114070872 : mat(k,1093) = -(rxt(k,490) + rxt(k,491) + rxt(k,492)) * y(k,5)
61 114070872 : mat(k,897) = -rxt(k,493)*y(k,5)
62 114070872 : mat(k,1953) = -rxt(k,494)*y(k,5)
63 114070872 : mat(k,1801) = -rxt(k,495)*y(k,5)
64 114070872 : mat(k,1371) = -rxt(k,497)*y(k,5)
65 114070872 : mat(k,980) = -rxt(k,498)*y(k,5)
66 114070872 : mat(k,478) = -rxt(k,548)*y(k,5)
67 114070872 : mat(k,583) = rxt(k,488)*y(k,73)
68 114070872 : mat(k,209) = rxt(k,496)*y(k,70)
69 114070872 : mat(k,326) = rxt(k,506)*y(k,71)
70 114070872 : mat(k,311) = rxt(k,501)*y(k,70)
71 114070872 : mat(k,1371) = mat(k,1371) + rxt(k,496)*y(k,6) + rxt(k,501)*y(k,53)
72 114070872 : mat(k,785) = rxt(k,506)*y(k,45)
73 114070872 : mat(k,1911) = rxt(k,488)*y(k,3)
74 114070872 : mat(k,206) = -(rxt(k,496)*y(k,70))
75 114070872 : mat(k,1349) = -rxt(k,496)*y(k,6)
76 114070872 : mat(k,710) = rxt(k,495)*y(k,63)
77 114070872 : mat(k,1788) = rxt(k,495)*y(k,5)
78 114070872 : mat(k,29) = -(rxt(k,475)*y(k,71))
79 114070872 : mat(k,758) = -rxt(k,475)*y(k,8)
80 114070872 : mat(k,55) = -(rxt(k,476)*y(k,71))
81 114070872 : mat(k,763) = -rxt(k,476)*y(k,9)
82 114070872 : mat(k,60) = -(rxt(k,502)*y(k,71))
83 114070872 : mat(k,764) = -rxt(k,502)*y(k,10)
84 114070872 : mat(k,36) = -(rxt(k,477)*y(k,71))
85 114070872 : mat(k,760) = -rxt(k,477)*y(k,11)
86 114070872 : mat(k,65) = -(rxt(k,478)*y(k,71))
87 114070872 : mat(k,765) = -rxt(k,478)*y(k,12)
88 114070872 : mat(k,40) = -(rxt(k,479)*y(k,71))
89 114070872 : mat(k,761) = -rxt(k,479)*y(k,13)
90 114070872 : mat(k,70) = -(rxt(k,480)*y(k,71))
91 114070872 : mat(k,766) = -rxt(k,480)*y(k,14)
92 114070872 : mat(k,44) = -(rxt(k,481)*y(k,71))
93 114070872 : mat(k,762) = -rxt(k,481)*y(k,15)
94 114070872 : mat(k,186) = -(rxt(k,513)*y(k,25) + rxt(k,514)*y(k,133) + rxt(k,525)*y(k,71))
95 114070872 : mat(k,1457) = -rxt(k,513)*y(k,16)
96 114070872 : mat(k,962) = -rxt(k,514)*y(k,16)
97 114070872 : mat(k,775) = -rxt(k,525)*y(k,16)
98 : mat(k,738) = -(rxt(k,450)*y(k,25) + rxt(k,486)*y(k,3) + rxt(k,530)*y(k,64) &
99 114070872 : + rxt(k,531)*y(k,70) + rxt(k,532)*y(k,133))
100 114070872 : mat(k,1469) = -rxt(k,450)*y(k,17)
101 114070872 : mat(k,584) = -rxt(k,486)*y(k,17)
102 114070872 : mat(k,1720) = -rxt(k,530)*y(k,17)
103 114070872 : mat(k,1372) = -rxt(k,531)*y(k,17)
104 114070872 : mat(k,981) = -rxt(k,532)*y(k,17)
105 114070872 : mat(k,433) = rxt(k,457)*y(k,28) + rxt(k,534)*y(k,62)
106 114070872 : mat(k,157) = .300_r8*rxt(k,535)*y(k,133)
107 114070872 : mat(k,419) = (rxt(k,538)+rxt(k,539))*y(k,71)
108 114070872 : mat(k,1094) = rxt(k,457)*y(k,21)
109 114070872 : mat(k,1954) = rxt(k,534)*y(k,21)
110 114070872 : mat(k,786) = (rxt(k,538)+rxt(k,539))*y(k,23)
111 114070872 : mat(k,981) = mat(k,981) + .300_r8*rxt(k,535)*y(k,22)
112 114070872 : mat(k,221) = -(rxt(k,515)*y(k,25) + rxt(k,516)*y(k,133) + rxt(k,526)*y(k,71))
113 114070872 : mat(k,1459) = -rxt(k,515)*y(k,18)
114 114070872 : mat(k,964) = -rxt(k,516)*y(k,18)
115 114070872 : mat(k,776) = -rxt(k,526)*y(k,18)
116 114070872 : mat(k,48) = -(rxt(k,517)*y(k,133))
117 114070872 : mat(k,949) = -rxt(k,517)*y(k,19)
118 114070872 : mat(k,147) = -(rxt(k,518)*y(k,25) + rxt(k,519)*y(k,133))
119 114070872 : mat(k,1455) = -rxt(k,518)*y(k,20)
120 114070872 : mat(k,958) = -rxt(k,519)*y(k,20)
121 114070872 : mat(k,432) = -(rxt(k,457)*y(k,28) + rxt(k,533)*y(k,101) + rxt(k,534)*y(k,62))
122 114070872 : mat(k,1090) = -rxt(k,457)*y(k,21)
123 114070872 : mat(k,894) = -rxt(k,533)*y(k,21)
124 114070872 : mat(k,1946) = -rxt(k,534)*y(k,21)
125 114070872 : mat(k,156) = .700_r8*rxt(k,535)*y(k,133)
126 : mat(k,417) = rxt(k,451)*y(k,25) + rxt(k,507)*y(k,39) + rxt(k,537)*y(k,71) &
127 114070872 : + rxt(k,536)*y(k,133)
128 114070872 : mat(k,1465) = rxt(k,451)*y(k,23)
129 114070872 : mat(k,343) = rxt(k,507)*y(k,23)
130 114070872 : mat(k,781) = rxt(k,537)*y(k,23)
131 114070872 : mat(k,975) = .700_r8*rxt(k,535)*y(k,22) + rxt(k,536)*y(k,23)
132 114070872 : mat(k,155) = -(rxt(k,535)*y(k,133))
133 114070872 : mat(k,959) = -rxt(k,535)*y(k,22)
134 114070872 : mat(k,431) = rxt(k,533)*y(k,101)
135 114070872 : mat(k,887) = rxt(k,533)*y(k,21)
136 : mat(k,416) = -(rxt(k,451)*y(k,25) + rxt(k,507)*y(k,39) + rxt(k,536)*y(k,133) &
137 114070872 : + (rxt(k,537) + rxt(k,538) + rxt(k,539)) * y(k,71))
138 114070872 : mat(k,1464) = -rxt(k,451)*y(k,23)
139 114070872 : mat(k,342) = -rxt(k,507)*y(k,23)
140 114070872 : mat(k,974) = -rxt(k,536)*y(k,23)
141 114070872 : mat(k,780) = -(rxt(k,537) + rxt(k,538) + rxt(k,539)) * y(k,23)
142 114070872 : mat(k,161) = -(rxt(k,503)*y(k,71) + rxt(k,520)*y(k,25) + rxt(k,521)*y(k,133))
143 114070872 : mat(k,774) = -rxt(k,503)*y(k,24)
144 114070872 : mat(k,1456) = -rxt(k,520)*y(k,24)
145 114070872 : mat(k,960) = -rxt(k,521)*y(k,24)
146 : mat(k,1487) = -((rxt(k,114) + rxt(k,115)) * y(k,94) + rxt(k,127)*y(k,97) &
147 : + rxt(k,285)*y(k,111) + rxt(k,314)*y(k,127) + rxt(k,341) &
148 : *y(k,134) + rxt(k,350)*y(k,135) + rxt(k,450)*y(k,17) + rxt(k,451) &
149 : *y(k,23) + rxt(k,452)*y(k,41) + rxt(k,453)*y(k,43) + (rxt(k,454) &
150 : + rxt(k,455)) * y(k,101) + rxt(k,456)*y(k,73) + rxt(k,463) &
151 : *y(k,29) + rxt(k,472)*y(k,54) + rxt(k,513)*y(k,16) + rxt(k,515) &
152 114070872 : *y(k,18) + rxt(k,518)*y(k,20) + rxt(k,520)*y(k,24))
153 114070872 : mat(k,1024) = -(rxt(k,114) + rxt(k,115)) * y(k,25)
154 114070872 : mat(k,848) = -rxt(k,127)*y(k,25)
155 114070872 : mat(k,936) = -rxt(k,285)*y(k,25)
156 114070872 : mat(k,1564) = -rxt(k,314)*y(k,25)
157 114070872 : mat(k,1852) = -rxt(k,341)*y(k,25)
158 114070872 : mat(k,1888) = -rxt(k,350)*y(k,25)
159 114070872 : mat(k,747) = -rxt(k,450)*y(k,25)
160 114070872 : mat(k,425) = -rxt(k,451)*y(k,25)
161 114070872 : mat(k,657) = -rxt(k,452)*y(k,25)
162 114070872 : mat(k,218) = -rxt(k,453)*y(k,25)
163 114070872 : mat(k,909) = -(rxt(k,454) + rxt(k,455)) * y(k,25)
164 114070872 : mat(k,1929) = -rxt(k,456)*y(k,25)
165 114070872 : mat(k,363) = -rxt(k,463)*y(k,25)
166 114070872 : mat(k,337) = -rxt(k,472)*y(k,25)
167 114070872 : mat(k,190) = -rxt(k,513)*y(k,25)
168 114070872 : mat(k,227) = -rxt(k,515)*y(k,25)
169 114070872 : mat(k,152) = -rxt(k,518)*y(k,25)
170 114070872 : mat(k,165) = -rxt(k,520)*y(k,25)
171 114070872 : mat(k,724) = rxt(k,491)*y(k,28)
172 114070872 : mat(k,31) = 4.000_r8*rxt(k,475)*y(k,71)
173 114070872 : mat(k,59) = rxt(k,476)*y(k,71)
174 114070872 : mat(k,39) = 2.000_r8*rxt(k,477)*y(k,71)
175 114070872 : mat(k,69) = 2.000_r8*rxt(k,478)*y(k,71)
176 114070872 : mat(k,43) = 2.000_r8*rxt(k,479)*y(k,71)
177 114070872 : mat(k,74) = rxt(k,480)*y(k,71)
178 114070872 : mat(k,47) = 2.000_r8*rxt(k,481)*y(k,71)
179 114070872 : mat(k,50) = 3.000_r8*rxt(k,517)*y(k,133)
180 114070872 : mat(k,152) = mat(k,152) + rxt(k,519)*y(k,133)
181 114070872 : mat(k,438) = rxt(k,457)*y(k,28)
182 : mat(k,1112) = rxt(k,491)*y(k,5) + rxt(k,457)*y(k,21) + (4.000_r8*rxt(k,458) &
183 : +2.000_r8*rxt(k,460))*y(k,28) + rxt(k,462)*y(k,62) + rxt(k,467) &
184 114070872 : *y(k,70) + rxt(k,549)*y(k,80) + rxt(k,468)*y(k,133)
185 114070872 : mat(k,88) = rxt(k,512)*y(k,71)
186 114070872 : mat(k,84) = rxt(k,527)*y(k,71) + rxt(k,522)*y(k,133)
187 114070872 : mat(k,94) = rxt(k,528)*y(k,71) + rxt(k,523)*y(k,133)
188 114070872 : mat(k,120) = rxt(k,529)*y(k,71) + rxt(k,524)*y(k,133)
189 114070872 : mat(k,2016) = rxt(k,470)*y(k,70) + rxt(k,482)*y(k,71) + rxt(k,471)*y(k,133)
190 114070872 : mat(k,1971) = rxt(k,462)*y(k,28) + rxt(k,111)*y(k,93)
191 114070872 : mat(k,1819) = rxt(k,110)*y(k,90)
192 114070872 : mat(k,1390) = rxt(k,467)*y(k,28) + rxt(k,470)*y(k,49)
193 : mat(k,796) = 4.000_r8*rxt(k,475)*y(k,8) + rxt(k,476)*y(k,9) &
194 : + 2.000_r8*rxt(k,477)*y(k,11) + 2.000_r8*rxt(k,478)*y(k,12) &
195 : + 2.000_r8*rxt(k,479)*y(k,13) + rxt(k,480)*y(k,14) &
196 : + 2.000_r8*rxt(k,481)*y(k,15) + rxt(k,512)*y(k,34) + rxt(k,527) &
197 : *y(k,46) + rxt(k,528)*y(k,47) + rxt(k,529)*y(k,48) + rxt(k,482) &
198 114070872 : *y(k,49)
199 114070872 : mat(k,484) = rxt(k,549)*y(k,28)
200 : mat(k,820) = rxt(k,110)*y(k,63) + rxt(k,195)*y(k,103) + rxt(k,147)*y(k,105) &
201 : + rxt(k,177)*y(k,107) + rxt(k,248)*y(k,118) + rxt(k,230) &
202 114070872 : *y(k,119) + rxt(k,212)*y(k,122) + rxt(k,154)*y(k,128)
203 : mat(k,542) = rxt(k,199)*y(k,103) + rxt(k,164)*y(k,105) + rxt(k,182)*y(k,107) &
204 : + rxt(k,252)*y(k,118) + rxt(k,234)*y(k,119) + rxt(k,217) &
205 114070872 : *y(k,122) + rxt(k,159)*y(k,128)
206 : mat(k,526) = rxt(k,187)*y(k,103) + rxt(k,181)*y(k,105) + rxt(k,169)*y(k,107) &
207 : + rxt(k,240)*y(k,118) + rxt(k,222)*y(k,119) + rxt(k,205) &
208 114070872 : *y(k,122) + rxt(k,257)*y(k,128)
209 114070872 : mat(k,374) = rxt(k,111)*y(k,62)
210 114070872 : mat(k,1246) = rxt(k,195)*y(k,90) + rxt(k,199)*y(k,91) + rxt(k,187)*y(k,92)
211 114070872 : mat(k,1695) = rxt(k,147)*y(k,90) + rxt(k,164)*y(k,91) + rxt(k,181)*y(k,92)
212 114070872 : mat(k,1652) = rxt(k,177)*y(k,90) + rxt(k,182)*y(k,91) + rxt(k,169)*y(k,92)
213 114070872 : mat(k,1160) = rxt(k,248)*y(k,90) + rxt(k,252)*y(k,91) + rxt(k,240)*y(k,92)
214 114070872 : mat(k,1203) = rxt(k,230)*y(k,90) + rxt(k,234)*y(k,91) + rxt(k,222)*y(k,92)
215 114070872 : mat(k,1330) = rxt(k,212)*y(k,90) + rxt(k,217)*y(k,91) + rxt(k,205)*y(k,92)
216 114070872 : mat(k,1609) = rxt(k,154)*y(k,90) + rxt(k,159)*y(k,91) + rxt(k,257)*y(k,92)
217 : mat(k,993) = 3.000_r8*rxt(k,517)*y(k,19) + rxt(k,519)*y(k,20) + rxt(k,468) &
218 : *y(k,28) + rxt(k,522)*y(k,46) + rxt(k,523)*y(k,47) + rxt(k,524) &
219 114070872 : *y(k,48) + rxt(k,471)*y(k,49)
220 114070872 : mat(k,1454) = rxt(k,463)*y(k,29)
221 114070872 : mat(k,1083) = 2.000_r8*rxt(k,459)*y(k,28)
222 114070872 : mat(k,357) = rxt(k,463)*y(k,25) + (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,49)
223 : mat(k,1986) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,29) + (rxt(k,563) &
224 114070872 : +rxt(k,569)+rxt(k,574))*y(k,54)
225 117656469 : mat(k,332) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,49)
226 : end do
227 3585597 : end subroutine nlnmat01
228 3585597 : subroutine nlnmat02( avec_len, mat, y, rxt )
229 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
230 : implicit none
231 : !----------------------------------------------
232 : ! ... dummy arguments
233 : !----------------------------------------------
234 : integer, intent(in) :: avec_len
235 : real(r8), intent(in) :: y(veclen,gas_pcnst)
236 : real(r8), intent(in) :: rxt(veclen,rxntot)
237 : real(r8), intent(inout) :: mat(veclen,nzcnt)
238 : !----------------------------------------------
239 : ! ... local variables
240 : !----------------------------------------------
241 : integer :: k
242 : !----------------------------------------------
243 : ! ... complete matrix entries implicit species
244 : !----------------------------------------------
245 117656469 : do k = 1,avec_len
246 114070872 : mat(k,1082) = 2.000_r8*rxt(k,484)*y(k,28)
247 : mat(k,1104) = -(rxt(k,116)*y(k,94) + rxt(k,128)*y(k,97) + rxt(k,286)*y(k,111) &
248 : + rxt(k,315)*y(k,127) + rxt(k,342)*y(k,134) + rxt(k,351) &
249 : *y(k,135) + rxt(k,457)*y(k,21) + (4._r8*rxt(k,458) &
250 : + 4._r8*rxt(k,459) + 4._r8*rxt(k,460) + 4._r8*rxt(k,484) &
251 : ) * y(k,28) + rxt(k,461)*y(k,101) + rxt(k,462)*y(k,62) + rxt(k,464) &
252 : *y(k,63) + rxt(k,467)*y(k,70) + (rxt(k,468) + rxt(k,469) &
253 : ) * y(k,133) + (rxt(k,490) + rxt(k,491) + rxt(k,492)) * y(k,5) &
254 114070872 : + rxt(k,549)*y(k,80))
255 114070872 : mat(k,1016) = -rxt(k,116)*y(k,28)
256 114070872 : mat(k,840) = -rxt(k,128)*y(k,28)
257 114070872 : mat(k,929) = -rxt(k,286)*y(k,28)
258 114070872 : mat(k,1556) = -rxt(k,315)*y(k,28)
259 114070872 : mat(k,1844) = -rxt(k,342)*y(k,28)
260 114070872 : mat(k,1880) = -rxt(k,351)*y(k,28)
261 114070872 : mat(k,436) = -rxt(k,457)*y(k,28)
262 114070872 : mat(k,903) = -rxt(k,461)*y(k,28)
263 114070872 : mat(k,1963) = -rxt(k,462)*y(k,28)
264 114070872 : mat(k,1811) = -rxt(k,464)*y(k,28)
265 114070872 : mat(k,1382) = -rxt(k,467)*y(k,28)
266 114070872 : mat(k,986) = -(rxt(k,468) + rxt(k,469)) * y(k,28)
267 114070872 : mat(k,720) = -(rxt(k,490) + rxt(k,491) + rxt(k,492)) * y(k,28)
268 114070872 : mat(k,481) = -rxt(k,549)*y(k,28)
269 114070872 : mat(k,1479) = rxt(k,472)*y(k,54) + rxt(k,456)*y(k,73) + rxt(k,455)*y(k,101)
270 114070872 : mat(k,361) = rxt(k,465)*y(k,70)
271 114070872 : mat(k,2008) = rxt(k,483)*y(k,71)
272 114070872 : mat(k,335) = rxt(k,472)*y(k,25) + rxt(k,473)*y(k,70) + rxt(k,474)*y(k,133)
273 114070872 : mat(k,1382) = mat(k,1382) + rxt(k,465)*y(k,29) + rxt(k,473)*y(k,54)
274 114070872 : mat(k,791) = rxt(k,483)*y(k,49)
275 114070872 : mat(k,1921) = rxt(k,456)*y(k,25)
276 114070872 : mat(k,137) = rxt(k,554)*y(k,80)
277 114070872 : mat(k,481) = mat(k,481) + rxt(k,554)*y(k,74)
278 114070872 : mat(k,903) = mat(k,903) + rxt(k,455)*y(k,25)
279 114070872 : mat(k,986) = mat(k,986) + rxt(k,474)*y(k,54)
280 : mat(k,359) = -(rxt(k,463)*y(k,25) + rxt(k,465)*y(k,70) + rxt(k,466)*y(k,133) &
281 114070872 : + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,49))
282 114070872 : mat(k,1462) = -rxt(k,463)*y(k,29)
283 114070872 : mat(k,1361) = -rxt(k,465)*y(k,29)
284 114070872 : mat(k,973) = -rxt(k,466)*y(k,29)
285 114070872 : mat(k,1991) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,29)
286 114070872 : mat(k,1088) = rxt(k,464)*y(k,63)
287 114070872 : mat(k,1791) = rxt(k,464)*y(k,28)
288 114070872 : mat(k,252) = -(rxt(k,540)*y(k,133))
289 114070872 : mat(k,965) = -rxt(k,540)*y(k,31)
290 114070872 : mat(k,580) = rxt(k,486)*y(k,17)
291 : mat(k,733) = rxt(k,486)*y(k,3) + rxt(k,450)*y(k,25) + rxt(k,530)*y(k,64) &
292 114070872 : + rxt(k,531)*y(k,70) + rxt(k,532)*y(k,133)
293 114070872 : mat(k,148) = rxt(k,518)*y(k,25)
294 114070872 : mat(k,1460) = rxt(k,450)*y(k,17) + rxt(k,518)*y(k,20)
295 114070872 : mat(k,1263) = rxt(k,594)*y(k,136)
296 114070872 : mat(k,1711) = rxt(k,530)*y(k,17)
297 114070872 : mat(k,1353) = rxt(k,531)*y(k,17) + rxt(k,543)*y(k,75)
298 114070872 : mat(k,140) = rxt(k,543)*y(k,70) + rxt(k,544)*y(k,133)
299 114070872 : mat(k,965) = mat(k,965) + rxt(k,532)*y(k,17) + rxt(k,544)*y(k,75)
300 114070872 : mat(k,385) = rxt(k,594)*y(k,32)
301 : mat(k,1284) = -(rxt(k,312)*y(k,123) + rxt(k,316)*y(k,127) + rxt(k,330) &
302 : *y(k,130) + rxt(k,335)*y(k,131) + rxt(k,343)*y(k,134) + rxt(k,352) &
303 114070872 : *y(k,135) + rxt(k,368)*y(k,118) + rxt(k,594)*y(k,136))
304 114070872 : mat(k,260) = -rxt(k,312)*y(k,32)
305 114070872 : mat(k,1560) = -rxt(k,316)*y(k,32)
306 114070872 : mat(k,599) = -rxt(k,330)*y(k,32)
307 114070872 : mat(k,242) = -rxt(k,335)*y(k,32)
308 114070872 : mat(k,1848) = -rxt(k,343)*y(k,32)
309 114070872 : mat(k,1884) = -rxt(k,352)*y(k,32)
310 114070872 : mat(k,1156) = -rxt(k,368)*y(k,32)
311 114070872 : mat(k,394) = -rxt(k,594)*y(k,32)
312 114070872 : mat(k,1483) = (rxt(k,114)+rxt(k,115))*y(k,94) + rxt(k,127)*y(k,97)
313 114070872 : mat(k,1108) = rxt(k,116)*y(k,94) + rxt(k,128)*y(k,97)
314 114070872 : mat(k,255) = rxt(k,540)*y(k,133)
315 114070872 : mat(k,1767) = rxt(k,117)*y(k,94)
316 114070872 : mat(k,2012) = rxt(k,130)*y(k,97)
317 114070872 : mat(k,1524) = rxt(k,124)*y(k,94)
318 114070872 : mat(k,1967) = rxt(k,280)*y(k,94) + (rxt(k,122)+rxt(k,123))*y(k,96)
319 114070872 : mat(k,1815) = rxt(k,281)*y(k,94) + (rxt(k,120)+rxt(k,121))*y(k,96)
320 114070872 : mat(k,1386) = rxt(k,125)*y(k,94)
321 114070872 : mat(k,1435) = rxt(k,126)*y(k,94)
322 114070872 : mat(k,1925) = rxt(k,132)*y(k,97)
323 : mat(k,1020) = (rxt(k,114)+rxt(k,115))*y(k,25) + rxt(k,116)*y(k,28) &
324 : + rxt(k,117)*y(k,40) + rxt(k,124)*y(k,51) + rxt(k,280)*y(k,62) &
325 : + rxt(k,281)*y(k,63) + rxt(k,125)*y(k,70) + rxt(k,126)*y(k,72) &
326 : + rxt(k,186)*y(k,103) + (rxt(k,170)+rxt(k,258))*y(k,105) + ( &
327 : + rxt(k,168)+rxt(k,265))*y(k,107) + rxt(k,239)*y(k,118) &
328 : + rxt(k,221)*y(k,119) + rxt(k,204)*y(k,122) + rxt(k,256) &
329 114070872 : *y(k,128)
330 : mat(k,509) = rxt(k,194)*y(k,103) + (rxt(k,247)+rxt(k,271))*y(k,105) + ( &
331 : + rxt(k,176)+rxt(k,259))*y(k,107) + rxt(k,246)*y(k,118) &
332 : + rxt(k,229)*y(k,119) + rxt(k,211)*y(k,122) + rxt(k,153) &
333 114070872 : *y(k,128)
334 : mat(k,677) = (rxt(k,122)+rxt(k,123))*y(k,62) + (rxt(k,120)+rxt(k,121)) &
335 : *y(k,63) + rxt(k,196)*y(k,103) + (rxt(k,158)+rxt(k,260)) &
336 : *y(k,105) + (rxt(k,178)+rxt(k,261))*y(k,107) + rxt(k,249) &
337 : *y(k,118) + rxt(k,231)*y(k,119) + rxt(k,213)*y(k,122) &
338 114070872 : + rxt(k,155)*y(k,128)
339 : mat(k,844) = rxt(k,127)*y(k,25) + rxt(k,128)*y(k,28) + rxt(k,130)*y(k,49) &
340 : + rxt(k,132)*y(k,73) + rxt(k,191)*y(k,103) + rxt(k,225)*y(k,105) &
341 : + rxt(k,174)*y(k,107) + rxt(k,244)*y(k,118) + rxt(k,227) &
342 114070872 : *y(k,119) + rxt(k,209)*y(k,122) + rxt(k,151)*y(k,128)
343 114070872 : mat(k,1063) = rxt(k,306)*y(k,121)
344 : mat(k,495) = rxt(k,189)*y(k,103) + rxt(k,203)*y(k,105) + rxt(k,172)*y(k,107) &
345 : + rxt(k,242)*y(k,118) + rxt(k,224)*y(k,119) + rxt(k,207) &
346 114070872 : *y(k,122) + rxt(k,149)*y(k,128)
347 : mat(k,1242) = rxt(k,186)*y(k,94) + rxt(k,194)*y(k,95) + rxt(k,196)*y(k,96) &
348 114070872 : + rxt(k,191)*y(k,97) + rxt(k,189)*y(k,100)
349 : mat(k,1691) = (rxt(k,170)+rxt(k,258))*y(k,94) + (rxt(k,247)+rxt(k,271)) &
350 : *y(k,95) + (rxt(k,158)+rxt(k,260))*y(k,96) + rxt(k,225)*y(k,97) &
351 114070872 : + rxt(k,203)*y(k,100)
352 : mat(k,1648) = (rxt(k,168)+rxt(k,265))*y(k,94) + (rxt(k,176)+rxt(k,259)) &
353 : *y(k,95) + (rxt(k,178)+rxt(k,261))*y(k,96) + rxt(k,174)*y(k,97) &
354 114070872 : + rxt(k,172)*y(k,100)
355 : mat(k,1156) = mat(k,1156) + rxt(k,239)*y(k,94) + rxt(k,246)*y(k,95) &
356 114070872 : + rxt(k,249)*y(k,96) + rxt(k,244)*y(k,97) + rxt(k,242)*y(k,100)
357 : mat(k,1199) = rxt(k,221)*y(k,94) + rxt(k,229)*y(k,95) + rxt(k,231)*y(k,96) &
358 114070872 : + rxt(k,227)*y(k,97) + rxt(k,224)*y(k,100)
359 114070872 : mat(k,267) = rxt(k,306)*y(k,98) + rxt(k,307)*y(k,139)
360 : mat(k,1326) = rxt(k,204)*y(k,94) + rxt(k,211)*y(k,95) + rxt(k,213)*y(k,96) &
361 114070872 : + rxt(k,209)*y(k,97) + rxt(k,207)*y(k,100)
362 : mat(k,1605) = rxt(k,256)*y(k,94) + rxt(k,153)*y(k,95) + rxt(k,155)*y(k,96) &
363 114070872 : + rxt(k,151)*y(k,97) + rxt(k,149)*y(k,100)
364 114070872 : mat(k,989) = rxt(k,540)*y(k,31)
365 114070872 : mat(k,2072) = rxt(k,307)*y(k,121)
366 114070872 : mat(k,77) = -(rxt(k,511)*y(k,71))
367 114070872 : mat(k,767) = -rxt(k,511)*y(k,33)
368 114070872 : mat(k,56) = rxt(k,476)*y(k,71)
369 114070872 : mat(k,61) = rxt(k,502)*y(k,71)
370 114070872 : mat(k,66) = rxt(k,478)*y(k,71)
371 114070872 : mat(k,41) = 2.000_r8*rxt(k,479)*y(k,71)
372 114070872 : mat(k,71) = 2.000_r8*rxt(k,480)*y(k,71)
373 114070872 : mat(k,45) = rxt(k,481)*y(k,71)
374 114070872 : mat(k,33) = 2.000_r8*rxt(k,504)*y(k,71)
375 114070872 : mat(k,89) = rxt(k,528)*y(k,71) + rxt(k,523)*y(k,133)
376 114070872 : mat(k,115) = rxt(k,529)*y(k,71) + rxt(k,524)*y(k,133)
377 : mat(k,767) = mat(k,767) + rxt(k,476)*y(k,9) + rxt(k,502)*y(k,10) + rxt(k,478) &
378 : *y(k,12) + 2.000_r8*rxt(k,479)*y(k,13) + 2.000_r8*rxt(k,480) &
379 : *y(k,14) + rxt(k,481)*y(k,15) + 2.000_r8*rxt(k,504)*y(k,42) &
380 114070872 : + rxt(k,528)*y(k,47) + rxt(k,529)*y(k,48)
381 114070872 : mat(k,950) = rxt(k,523)*y(k,47) + rxt(k,524)*y(k,48)
382 114070872 : mat(k,85) = -(rxt(k,512)*y(k,71))
383 114070872 : mat(k,769) = -rxt(k,512)*y(k,34)
384 114070872 : mat(k,37) = rxt(k,477)*y(k,71)
385 114070872 : mat(k,67) = rxt(k,478)*y(k,71)
386 114070872 : mat(k,81) = rxt(k,527)*y(k,71) + rxt(k,522)*y(k,133)
387 : mat(k,769) = mat(k,769) + rxt(k,477)*y(k,11) + rxt(k,478)*y(k,12) &
388 114070872 : + rxt(k,527)*y(k,46)
389 114070872 : mat(k,952) = rxt(k,522)*y(k,46)
390 114070872 : mat(k,125) = -(rxt(k,541)*y(k,64) + (rxt(k,542) + rxt(k,556)) * y(k,133))
391 114070872 : mat(k,1710) = -rxt(k,541)*y(k,35)
392 114070872 : mat(k,956) = -(rxt(k,542) + rxt(k,556)) * y(k,35)
393 : mat(k,341) = -(rxt(k,507)*y(k,23) + rxt(k,508)*y(k,41) + rxt(k,509)*y(k,139) &
394 114070872 : + rxt(k,510)*y(k,51))
395 114070872 : mat(k,415) = -rxt(k,507)*y(k,39)
396 114070872 : mat(k,644) = -rxt(k,508)*y(k,39)
397 114070872 : mat(k,2044) = -rxt(k,509)*y(k,39)
398 114070872 : mat(k,1504) = -rxt(k,510)*y(k,39)
399 114070872 : mat(k,62) = rxt(k,502)*y(k,71)
400 114070872 : mat(k,72) = rxt(k,480)*y(k,71)
401 114070872 : mat(k,78) = 2.000_r8*rxt(k,511)*y(k,71)
402 114070872 : mat(k,86) = rxt(k,512)*y(k,71)
403 : mat(k,778) = rxt(k,502)*y(k,10) + rxt(k,480)*y(k,14) + 2.000_r8*rxt(k,511) &
404 114070872 : *y(k,33) + rxt(k,512)*y(k,34)
405 : mat(k,1778) = -(rxt(k,105)*y(k,90) + rxt(k,117)*y(k,94) + rxt(k,129)*y(k,97) &
406 : + rxt(k,287)*y(k,111) + rxt(k,309)*y(k,122) + rxt(k,317) &
407 : *y(k,127) + rxt(k,331)*y(k,130) + rxt(k,344)*y(k,134) + (rxt(k,408) &
408 : + rxt(k,409) + rxt(k,410)) * y(k,101) + rxt(k,411)*y(k,72) &
409 114070872 : + rxt(k,414)*y(k,73))
410 114070872 : mat(k,825) = -rxt(k,105)*y(k,40)
411 114070872 : mat(k,1031) = -rxt(k,117)*y(k,40)
412 114070872 : mat(k,854) = -rxt(k,129)*y(k,40)
413 114070872 : mat(k,942) = -rxt(k,287)*y(k,40)
414 114070872 : mat(k,1337) = -rxt(k,309)*y(k,40)
415 114070872 : mat(k,1571) = -rxt(k,317)*y(k,40)
416 114070872 : mat(k,603) = -rxt(k,331)*y(k,40)
417 114070872 : mat(k,1859) = -rxt(k,344)*y(k,40)
418 114070872 : mat(k,914) = -(rxt(k,408) + rxt(k,409) + rxt(k,410)) * y(k,40)
419 114070872 : mat(k,1446) = -rxt(k,411)*y(k,40)
420 114070872 : mat(k,1936) = -rxt(k,414)*y(k,40)
421 114070872 : mat(k,750) = rxt(k,532)*y(k,133)
422 114070872 : mat(k,428) = rxt(k,538)*y(k,71)
423 114070872 : mat(k,1494) = rxt(k,452)*y(k,41)
424 114070872 : mat(k,348) = rxt(k,508)*y(k,41)
425 : mat(k,660) = rxt(k,452)*y(k,25) + rxt(k,508)*y(k,39) + rxt(k,406)*y(k,70) &
426 114070872 : + rxt(k,389)*y(k,71) + rxt(k,415)*y(k,133) + rxt(k,354)*y(k,135)
427 114070872 : mat(k,330) = rxt(k,506)*y(k,71)
428 114070872 : mat(k,2023) = rxt(k,483)*y(k,71)
429 114070872 : mat(k,456) = rxt(k,438)*y(k,133)
430 114070872 : mat(k,1397) = rxt(k,406)*y(k,41) + rxt(k,418)*y(k,133)
431 : mat(k,801) = rxt(k,538)*y(k,23) + rxt(k,389)*y(k,41) + rxt(k,506)*y(k,45) &
432 114070872 : + rxt(k,483)*y(k,49)
433 114070872 : mat(k,146) = rxt(k,544)*y(k,133)
434 114070872 : mat(k,276) = rxt(k,550)*y(k,133)
435 114070872 : mat(k,485) = rxt(k,555)*y(k,133)
436 : mat(k,825) = mat(k,825) + rxt(k,195)*y(k,103) + rxt(k,147)*y(k,105) &
437 114070872 : + rxt(k,177)*y(k,107)
438 114070872 : mat(k,546) = rxt(k,199)*y(k,103) + rxt(k,164)*y(k,105) + rxt(k,182)*y(k,107)
439 114070872 : mat(k,530) = rxt(k,187)*y(k,103) + rxt(k,181)*y(k,105) + rxt(k,169)*y(k,107)
440 : mat(k,1031) = mat(k,1031) + rxt(k,186)*y(k,103) + (rxt(k,170)+rxt(k,258)) &
441 114070872 : *y(k,105) + (rxt(k,168)+rxt(k,265))*y(k,107)
442 : mat(k,516) = rxt(k,194)*y(k,103) + (rxt(k,247)+rxt(k,271))*y(k,105) + ( &
443 114070872 : + rxt(k,176)+rxt(k,259))*y(k,107)
444 : mat(k,684) = rxt(k,196)*y(k,103) + (rxt(k,158)+rxt(k,260))*y(k,105) + ( &
445 114070872 : + rxt(k,178)+rxt(k,261))*y(k,107)
446 : mat(k,854) = mat(k,854) + rxt(k,191)*y(k,103) + rxt(k,225)*y(k,105) &
447 114070872 : + rxt(k,174)*y(k,107)
448 : mat(k,1074) = rxt(k,138)*y(k,99) + rxt(k,382)*y(k,102) + rxt(k,383)*y(k,103) &
449 : + rxt(k,141)*y(k,105) + rxt(k,144)*y(k,107) + rxt(k,381) &
450 114070872 : *y(k,108)
451 114070872 : mat(k,171) = rxt(k,138)*y(k,98)
452 114070872 : mat(k,501) = rxt(k,189)*y(k,103) + rxt(k,203)*y(k,105) + rxt(k,172)*y(k,107)
453 114070872 : mat(k,250) = rxt(k,382)*y(k,98)
454 : mat(k,1253) = rxt(k,195)*y(k,90) + rxt(k,199)*y(k,91) + rxt(k,187)*y(k,92) &
455 : + rxt(k,186)*y(k,94) + rxt(k,194)*y(k,95) + rxt(k,196)*y(k,96) &
456 : + rxt(k,191)*y(k,97) + rxt(k,383)*y(k,98) + rxt(k,189)*y(k,100) &
457 : + rxt(k,201)*y(k,111) + rxt(k,197)*y(k,112) + rxt(k,200) &
458 : *y(k,114) + rxt(k,193)*y(k,115) + rxt(k,198)*y(k,116) &
459 114070872 : + rxt(k,190)*y(k,127)
460 : mat(k,1702) = rxt(k,147)*y(k,90) + rxt(k,164)*y(k,91) + rxt(k,181)*y(k,92) + ( &
461 : + rxt(k,170)+rxt(k,258))*y(k,94) + (rxt(k,247)+rxt(k,271)) &
462 : *y(k,95) + (rxt(k,158)+rxt(k,260))*y(k,96) + rxt(k,225)*y(k,97) &
463 : + rxt(k,141)*y(k,98) + rxt(k,203)*y(k,100) + rxt(k,166)*y(k,111) &
464 : + rxt(k,162)*y(k,112) + rxt(k,165)*y(k,114) + (rxt(k,236) &
465 : +rxt(k,262))*y(k,115) + rxt(k,163)*y(k,116) + rxt(k,214) &
466 114070872 : *y(k,127)
467 : mat(k,1659) = rxt(k,177)*y(k,90) + rxt(k,182)*y(k,91) + rxt(k,169)*y(k,92) + ( &
468 : + rxt(k,168)+rxt(k,265))*y(k,94) + (rxt(k,176)+rxt(k,259)) &
469 : *y(k,95) + (rxt(k,178)+rxt(k,261))*y(k,96) + rxt(k,174)*y(k,97) &
470 : + rxt(k,144)*y(k,98) + rxt(k,172)*y(k,100) + rxt(k,184)*y(k,111) &
471 : + rxt(k,179)*y(k,112) + rxt(k,183)*y(k,114) + (rxt(k,175) &
472 : +rxt(k,263))*y(k,115) + rxt(k,180)*y(k,116) + rxt(k,173) &
473 114070872 : *y(k,127)
474 114070872 : mat(k,287) = rxt(k,381)*y(k,98)
475 : mat(k,942) = mat(k,942) + rxt(k,201)*y(k,103) + rxt(k,166)*y(k,105) &
476 114070872 : + rxt(k,184)*y(k,107)
477 114070872 : mat(k,560) = rxt(k,197)*y(k,103) + rxt(k,162)*y(k,105) + rxt(k,179)*y(k,107)
478 114070872 : mat(k,639) = rxt(k,200)*y(k,103) + rxt(k,165)*y(k,105) + rxt(k,183)*y(k,107)
479 : mat(k,704) = rxt(k,193)*y(k,103) + (rxt(k,236)+rxt(k,262))*y(k,105) + ( &
480 114070872 : + rxt(k,175)+rxt(k,263))*y(k,107)
481 114070872 : mat(k,576) = rxt(k,198)*y(k,103) + rxt(k,163)*y(k,105) + rxt(k,180)*y(k,107)
482 : mat(k,1571) = mat(k,1571) + rxt(k,190)*y(k,103) + rxt(k,214)*y(k,105) &
483 114070872 : + rxt(k,173)*y(k,107)
484 : mat(k,998) = rxt(k,532)*y(k,17) + rxt(k,415)*y(k,41) + rxt(k,438)*y(k,56) &
485 : + rxt(k,418)*y(k,70) + rxt(k,544)*y(k,75) + rxt(k,550)*y(k,78) &
486 114070872 : + rxt(k,555)*y(k,80)
487 117656469 : mat(k,1895) = rxt(k,354)*y(k,41)
488 : end do
489 3585597 : end subroutine nlnmat02
490 3585597 : subroutine nlnmat03( avec_len, mat, y, rxt )
491 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
492 : implicit none
493 : !----------------------------------------------
494 : ! ... dummy arguments
495 : !----------------------------------------------
496 : integer, intent(in) :: avec_len
497 : real(r8), intent(in) :: y(veclen,gas_pcnst)
498 : real(r8), intent(in) :: rxt(veclen,rxntot)
499 : real(r8), intent(inout) :: mat(veclen,nzcnt)
500 : !----------------------------------------------
501 : ! ... local variables
502 : !----------------------------------------------
503 : integer :: k
504 : !----------------------------------------------
505 : ! ... complete matrix entries implicit species
506 : !----------------------------------------------
507 117656469 : do k = 1,avec_len
508 114070872 : mat(k,647) = -((rxt(k,353) + rxt(k,354)) * y(k,135) + rxt(k,389)*y(k,71) &
509 : + rxt(k,406)*y(k,70) + rxt(k,415)*y(k,133) + rxt(k,452)*y(k,25) &
510 114070872 : + rxt(k,508)*y(k,39))
511 114070872 : mat(k,1870) = -(rxt(k,353) + rxt(k,354)) * y(k,41)
512 114070872 : mat(k,784) = -rxt(k,389)*y(k,41)
513 114070872 : mat(k,1370) = -rxt(k,406)*y(k,41)
514 114070872 : mat(k,979) = -rxt(k,415)*y(k,41)
515 114070872 : mat(k,1467) = -rxt(k,452)*y(k,41)
516 114070872 : mat(k,344) = -rxt(k,508)*y(k,41)
517 114070872 : mat(k,418) = rxt(k,539)*y(k,71)
518 114070872 : mat(k,1752) = rxt(k,408)*y(k,101)
519 114070872 : mat(k,784) = mat(k,784) + rxt(k,539)*y(k,23)
520 114070872 : mat(k,896) = rxt(k,408)*y(k,40)
521 114070872 : mat(k,32) = -(rxt(k,504)*y(k,71))
522 114070872 : mat(k,759) = -rxt(k,504)*y(k,42)
523 114070872 : mat(k,214) = -(rxt(k,407)*y(k,70) + rxt(k,416)*y(k,133) + rxt(k,453)*y(k,25))
524 114070872 : mat(k,1350) = -rxt(k,407)*y(k,43)
525 114070872 : mat(k,963) = -rxt(k,416)*y(k,43)
526 114070872 : mat(k,1458) = -rxt(k,453)*y(k,43)
527 114070872 : mat(k,889) = 2.000_r8*rxt(k,422)*y(k,101)
528 114070872 : mat(k,963) = mat(k,963) + 2.000_r8*rxt(k,421)*y(k,133)
529 114070872 : mat(k,102) = rxt(k,557)*y(k,139)
530 114070872 : mat(k,2031) = rxt(k,557)*y(k,82)
531 : mat(k,324) = -(rxt(k,499)*y(k,70) + rxt(k,500)*y(k,133) + (rxt(k,505) &
532 114070872 : + rxt(k,506)) * y(k,71))
533 114070872 : mat(k,1358) = -rxt(k,499)*y(k,45)
534 114070872 : mat(k,969) = -rxt(k,500)*y(k,45)
535 114070872 : mat(k,777) = -(rxt(k,505) + rxt(k,506)) * y(k,45)
536 114070872 : mat(k,581) = rxt(k,486)*y(k,17) + rxt(k,487)*y(k,101)
537 114070872 : mat(k,734) = rxt(k,486)*y(k,3)
538 114070872 : mat(k,892) = rxt(k,487)*y(k,3)
539 114070872 : mat(k,80) = -(rxt(k,522)*y(k,133) + rxt(k,527)*y(k,71))
540 114070872 : mat(k,951) = -rxt(k,522)*y(k,46)
541 114070872 : mat(k,768) = -rxt(k,527)*y(k,46)
542 114070872 : mat(k,90) = -(rxt(k,523)*y(k,133) + rxt(k,528)*y(k,71))
543 114070872 : mat(k,953) = -rxt(k,523)*y(k,47)
544 114070872 : mat(k,770) = -rxt(k,528)*y(k,47)
545 114070872 : mat(k,116) = -(rxt(k,524)*y(k,133) + rxt(k,529)*y(k,71))
546 114070872 : mat(k,955) = -rxt(k,524)*y(k,48)
547 114070872 : mat(k,772) = -rxt(k,529)*y(k,48)
548 : mat(k,2029) = -(rxt(k,106)*y(k,91) + rxt(k,108)*y(k,90) + rxt(k,130)*y(k,97) &
549 : + (rxt(k,276) + rxt(k,298)) * y(k,113) + rxt(k,289)*y(k,111) &
550 : + rxt(k,318)*y(k,127) + rxt(k,345)*y(k,134) + rxt(k,356) &
551 : *y(k,135) + rxt(k,470)*y(k,70) + rxt(k,471)*y(k,133) + (rxt(k,482) &
552 : + rxt(k,483)) * y(k,71) + (rxt(k,563) + rxt(k,569) + rxt(k,574) &
553 : ) * y(k,54) + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,29) &
554 114070872 : + (rxt(k,570) + rxt(k,575)) * y(k,53))
555 114070872 : mat(k,548) = -rxt(k,106)*y(k,49)
556 114070872 : mat(k,828) = -rxt(k,108)*y(k,49)
557 114070872 : mat(k,860) = -rxt(k,130)*y(k,49)
558 114070872 : mat(k,885) = -(rxt(k,276) + rxt(k,298)) * y(k,49)
559 114070872 : mat(k,947) = -rxt(k,289)*y(k,49)
560 114070872 : mat(k,1577) = -rxt(k,318)*y(k,49)
561 114070872 : mat(k,1865) = -rxt(k,345)*y(k,49)
562 114070872 : mat(k,1901) = -rxt(k,356)*y(k,49)
563 114070872 : mat(k,1403) = -rxt(k,470)*y(k,49)
564 114070872 : mat(k,1004) = -rxt(k,471)*y(k,49)
565 114070872 : mat(k,807) = -(rxt(k,482) + rxt(k,483)) * y(k,49)
566 114070872 : mat(k,338) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,49)
567 114070872 : mat(k,367) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,49)
568 114070872 : mat(k,315) = -(rxt(k,570) + rxt(k,575)) * y(k,49)
569 114070872 : mat(k,191) = rxt(k,513)*y(k,25)
570 114070872 : mat(k,756) = rxt(k,450)*y(k,25)
571 114070872 : mat(k,228) = rxt(k,515)*y(k,25)
572 114070872 : mat(k,153) = 2.000_r8*rxt(k,518)*y(k,25)
573 114070872 : mat(k,429) = rxt(k,451)*y(k,25)
574 114070872 : mat(k,166) = rxt(k,520)*y(k,25)
575 : mat(k,1500) = rxt(k,513)*y(k,16) + rxt(k,450)*y(k,17) + rxt(k,515)*y(k,18) &
576 : + 2.000_r8*rxt(k,518)*y(k,20) + rxt(k,451)*y(k,23) + rxt(k,520) &
577 : *y(k,24) + rxt(k,452)*y(k,41) + rxt(k,453)*y(k,43) + rxt(k,472) &
578 114070872 : *y(k,54) + rxt(k,454)*y(k,101)
579 114070872 : mat(k,1125) = rxt(k,469)*y(k,133)
580 114070872 : mat(k,1784) = rxt(k,105)*y(k,90)
581 114070872 : mat(k,665) = rxt(k,452)*y(k,25)
582 114070872 : mat(k,219) = rxt(k,453)*y(k,25)
583 114070872 : mat(k,1541) = rxt(k,109)*y(k,90) + rxt(k,299)*y(k,116)
584 114070872 : mat(k,338) = mat(k,338) + rxt(k,472)*y(k,25)
585 114070872 : mat(k,828) = mat(k,828) + rxt(k,105)*y(k,40) + rxt(k,109)*y(k,51)
586 : mat(k,532) = rxt(k,187)*y(k,103) + (rxt(k,181)+2.000_r8*rxt(k,267))*y(k,105) + ( &
587 : + rxt(k,169)+2.000_r8*rxt(k,268))*y(k,107) + rxt(k,240)*y(k,118) &
588 : + rxt(k,222)*y(k,119) + rxt(k,205)*y(k,122) + rxt(k,257) &
589 114070872 : *y(k,128)
590 114070872 : mat(k,920) = rxt(k,454)*y(k,25)
591 114070872 : mat(k,1259) = rxt(k,187)*y(k,92) + rxt(k,198)*y(k,116)
592 114070872 : mat(k,1708) = (rxt(k,181)+2.000_r8*rxt(k,267))*y(k,92) + rxt(k,163)*y(k,116)
593 114070872 : mat(k,1665) = (rxt(k,169)+2.000_r8*rxt(k,268))*y(k,92) + rxt(k,180)*y(k,116)
594 : mat(k,578) = rxt(k,299)*y(k,51) + rxt(k,198)*y(k,103) + rxt(k,163)*y(k,105) &
595 : + rxt(k,180)*y(k,107) + rxt(k,251)*y(k,118) + rxt(k,233) &
596 114070872 : *y(k,119) + rxt(k,216)*y(k,122) + rxt(k,157)*y(k,128)
597 114070872 : mat(k,1173) = rxt(k,240)*y(k,92) + rxt(k,251)*y(k,116)
598 114070872 : mat(k,1216) = rxt(k,222)*y(k,92) + rxt(k,233)*y(k,116)
599 114070872 : mat(k,1343) = rxt(k,205)*y(k,92) + rxt(k,216)*y(k,116)
600 114070872 : mat(k,1622) = rxt(k,257)*y(k,92) + rxt(k,157)*y(k,116)
601 114070872 : mat(k,1004) = mat(k,1004) + rxt(k,469)*y(k,28)
602 114070872 : mat(k,413) = rxt(k,507)*y(k,39)
603 : mat(k,340) = rxt(k,507)*y(k,23) + rxt(k,508)*y(k,41) + rxt(k,510)*y(k,51) &
604 114070872 : + rxt(k,509)*y(k,139)
605 114070872 : mat(k,643) = rxt(k,508)*y(k,39)
606 114070872 : mat(k,1502) = rxt(k,510)*y(k,39)
607 114070872 : mat(k,2035) = rxt(k,509)*y(k,39)
608 : mat(k,1529) = -(rxt(k,109)*y(k,90) + rxt(k,124)*y(k,94) + rxt(k,290)*y(k,111) &
609 : + rxt(k,295)*y(k,115) + rxt(k,299)*y(k,116) + rxt(k,300) &
610 : *y(k,113) + rxt(k,319)*y(k,127) + rxt(k,357)*y(k,135) + rxt(k,447) &
611 114070872 : *y(k,133) + rxt(k,510)*y(k,39))
612 114070872 : mat(k,821) = -rxt(k,109)*y(k,51)
613 114070872 : mat(k,1025) = -rxt(k,124)*y(k,51)
614 114070872 : mat(k,937) = -rxt(k,290)*y(k,51)
615 114070872 : mat(k,699) = -rxt(k,295)*y(k,51)
616 114070872 : mat(k,571) = -rxt(k,299)*y(k,51)
617 114070872 : mat(k,876) = -rxt(k,300)*y(k,51)
618 114070872 : mat(k,1565) = -rxt(k,319)*y(k,51)
619 114070872 : mat(k,1889) = -rxt(k,357)*y(k,51)
620 114070872 : mat(k,994) = -rxt(k,447)*y(k,51)
621 114070872 : mat(k,346) = -rxt(k,510)*y(k,51)
622 114070872 : mat(k,748) = rxt(k,530)*y(k,64)
623 114070872 : mat(k,364) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,49)
624 114070872 : mat(k,129) = rxt(k,541)*y(k,64)
625 : mat(k,2017) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,29) + rxt(k,298) &
626 114070872 : *y(k,113)
627 : mat(k,406) = rxt(k,142)*y(k,105) + rxt(k,145)*y(k,107) + rxt(k,293)*y(k,114) &
628 114070872 : + rxt(k,297)*y(k,115)
629 114070872 : mat(k,1820) = rxt(k,446)*y(k,133)
630 114070872 : mat(k,1736) = rxt(k,530)*y(k,17) + rxt(k,541)*y(k,35)
631 114070872 : mat(k,1247) = rxt(k,188)*y(k,113) + 2.000_r8*rxt(k,185)*y(k,117)
632 114070872 : mat(k,108) = rxt(k,140)*y(k,139)
633 : mat(k,1696) = rxt(k,142)*y(k,58) + (rxt(k,192)+rxt(k,264))*y(k,113) + ( &
634 114070872 : + 2.000_r8*rxt(k,146)+2.000_r8*rxt(k,269))*y(k,117)
635 114070872 : mat(k,112) = rxt(k,143)*y(k,139)
636 : mat(k,1653) = rxt(k,145)*y(k,58) + (rxt(k,171)+rxt(k,266))*y(k,113) + ( &
637 114070872 : + 2.000_r8*rxt(k,167)+2.000_r8*rxt(k,270))*y(k,117)
638 : mat(k,876) = mat(k,876) + rxt(k,298)*y(k,49) + rxt(k,188)*y(k,103) + ( &
639 : + rxt(k,192)+rxt(k,264))*y(k,105) + (rxt(k,171)+rxt(k,266)) &
640 114070872 : *y(k,107)
641 114070872 : mat(k,634) = rxt(k,293)*y(k,58)
642 114070872 : mat(k,699) = mat(k,699) + rxt(k,297)*y(k,58)
643 : mat(k,616) = 2.000_r8*rxt(k,185)*y(k,103) + (2.000_r8*rxt(k,146) &
644 : +2.000_r8*rxt(k,269))*y(k,105) + (2.000_r8*rxt(k,167) &
645 : +2.000_r8*rxt(k,270))*y(k,107) + rxt(k,238)*y(k,118) &
646 : + rxt(k,220)*y(k,119) + rxt(k,202)*y(k,122) + rxt(k,255) &
647 114070872 : *y(k,128)
648 114070872 : mat(k,1161) = rxt(k,238)*y(k,117)
649 114070872 : mat(k,1204) = rxt(k,220)*y(k,117)
650 114070872 : mat(k,1331) = rxt(k,202)*y(k,117)
651 114070872 : mat(k,1610) = rxt(k,255)*y(k,117)
652 114070872 : mat(k,994) = mat(k,994) + rxt(k,446)*y(k,63)
653 114070872 : mat(k,2077) = rxt(k,140)*y(k,104) + rxt(k,143)*y(k,106)
654 114070872 : mat(k,179) = -(rxt(k,423)*y(k,133))
655 114070872 : mat(k,961) = -rxt(k,423)*y(k,52)
656 114070872 : mat(k,1787) = rxt(k,444)*y(k,101)
657 114070872 : mat(k,888) = rxt(k,444)*y(k,63)
658 114070872 : mat(k,309) = -(rxt(k,501)*y(k,70) + (rxt(k,570) + rxt(k,575)) * y(k,49))
659 114070872 : mat(k,1356) = -rxt(k,501)*y(k,53)
660 114070872 : mat(k,1989) = -(rxt(k,570) + rxt(k,575)) * y(k,53)
661 114070872 : mat(k,711) = rxt(k,493)*y(k,101)
662 114070872 : mat(k,891) = rxt(k,493)*y(k,5)
663 : mat(k,333) = -(rxt(k,472)*y(k,25) + rxt(k,473)*y(k,70) + rxt(k,474)*y(k,133) &
664 114070872 : + (rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,49))
665 114070872 : mat(k,1461) = -rxt(k,472)*y(k,54)
666 114070872 : mat(k,1359) = -rxt(k,473)*y(k,54)
667 114070872 : mat(k,970) = -rxt(k,474)*y(k,54)
668 114070872 : mat(k,1990) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,54)
669 114070872 : mat(k,1086) = rxt(k,461)*y(k,101)
670 114070872 : mat(k,358) = rxt(k,466)*y(k,133)
671 114070872 : mat(k,893) = rxt(k,461)*y(k,28)
672 114070872 : mat(k,970) = mat(k,970) + rxt(k,466)*y(k,29)
673 114070872 : mat(k,278) = -(rxt(k,340)*y(k,133))
674 114070872 : mat(k,967) = -rxt(k,340)*y(k,55)
675 114070872 : mat(k,1988) = rxt(k,289)*y(k,111)
676 114070872 : mat(k,1503) = rxt(k,290)*y(k,111)
677 114070872 : mat(k,1944) = rxt(k,349)*y(k,133)
678 114070872 : mat(k,922) = rxt(k,289)*y(k,49) + rxt(k,290)*y(k,51)
679 114070872 : mat(k,174) = rxt(k,305)*y(k,139)
680 114070872 : mat(k,967) = mat(k,967) + rxt(k,349)*y(k,62)
681 114070872 : mat(k,2041) = rxt(k,305)*y(k,120)
682 : mat(k,446) = -(rxt(k,426)*y(k,62) + (rxt(k,427) + rxt(k,428) + rxt(k,429) &
683 : ) * y(k,63) + rxt(k,430)*y(k,72) + rxt(k,438)*y(k,133) + rxt(k,591) &
684 114070872 : *y(k,128))
685 114070872 : mat(k,1947) = -rxt(k,426)*y(k,56)
686 114070872 : mat(k,1793) = -(rxt(k,427) + rxt(k,428) + rxt(k,429)) * y(k,56)
687 114070872 : mat(k,1416) = -rxt(k,430)*y(k,56)
688 114070872 : mat(k,976) = -rxt(k,438)*y(k,56)
689 114070872 : mat(k,1580) = -rxt(k,591)*y(k,56)
690 114070872 : mat(k,1365) = rxt(k,424)*y(k,109) + rxt(k,588)*y(k,124)
691 114070872 : mat(k,1416) = mat(k,1416) + rxt(k,589)*y(k,124)
692 114070872 : mat(k,1053) = 1.100_r8*rxt(k,584)*y(k,110) + .200_r8*rxt(k,582)*y(k,118)
693 114070872 : mat(k,303) = rxt(k,424)*y(k,70)
694 114070872 : mat(k,233) = 1.100_r8*rxt(k,584)*y(k,98)
695 114070872 : mat(k,1132) = .200_r8*rxt(k,582)*y(k,98)
696 114070872 : mat(k,319) = rxt(k,588)*y(k,70) + rxt(k,589)*y(k,72)
697 114070872 : mat(k,98) = -((rxt(k,442) + rxt(k,443)) * y(k,71))
698 114070872 : mat(k,771) = -(rxt(k,442) + rxt(k,443)) * y(k,57)
699 114070872 : mat(k,443) = rxt(k,427)*y(k,63)
700 114070872 : mat(k,1786) = rxt(k,427)*y(k,56)
701 : mat(k,401) = -(rxt(k,142)*y(k,105) + rxt(k,145)*y(k,107) + rxt(k,293) &
702 114070872 : *y(k,114) + rxt(k,297)*y(k,115))
703 114070872 : mat(k,1668) = -rxt(k,142)*y(k,58)
704 114070872 : mat(k,1625) = -rxt(k,145)*y(k,58)
705 114070872 : mat(k,623) = -rxt(k,293)*y(k,58)
706 114070872 : mat(k,688) = -rxt(k,297)*y(k,58)
707 114070872 : mat(k,1792) = rxt(k,445)*y(k,64)
708 117656469 : mat(k,1713) = rxt(k,445)*y(k,63)
709 : end do
710 3585597 : end subroutine nlnmat03
711 3585597 : subroutine nlnmat04( avec_len, mat, y, rxt )
712 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
713 : implicit none
714 : !----------------------------------------------
715 : ! ... dummy arguments
716 : !----------------------------------------------
717 : integer, intent(in) :: avec_len
718 : real(r8), intent(in) :: y(veclen,gas_pcnst)
719 : real(r8), intent(in) :: rxt(veclen,rxntot)
720 : real(r8), intent(inout) :: mat(veclen,nzcnt)
721 : !----------------------------------------------
722 : ! ... local variables
723 : !----------------------------------------------
724 : integer :: k
725 : !----------------------------------------------
726 : ! ... complete matrix entries implicit species
727 : !----------------------------------------------
728 117656469 : do k = 1,avec_len
729 114070872 : mat(k,1983) = -((rxt(k,111) + rxt(k,112)) * y(k,93) + (rxt(k,122) + rxt(k,123) &
730 : ) * y(k,96) + rxt(k,136)*y(k,135) + (rxt(k,272) + rxt(k,279) &
731 : ) * y(k,130) + rxt(k,280)*y(k,94) + rxt(k,349)*y(k,133) &
732 : + rxt(k,426)*y(k,56) + rxt(k,435)*y(k,64) + rxt(k,439)*y(k,101) &
733 : + rxt(k,440)*y(k,73) + rxt(k,441)*y(k,70) + rxt(k,462)*y(k,28) &
734 114070872 : + rxt(k,494)*y(k,5) + rxt(k,534)*y(k,21) + rxt(k,593)*y(k,128))
735 114070872 : mat(k,376) = -(rxt(k,111) + rxt(k,112)) * y(k,62)
736 114070872 : mat(k,686) = -(rxt(k,122) + rxt(k,123)) * y(k,62)
737 114070872 : mat(k,1900) = -rxt(k,136)*y(k,62)
738 114070872 : mat(k,608) = -(rxt(k,272) + rxt(k,279)) * y(k,62)
739 114070872 : mat(k,1036) = -rxt(k,280)*y(k,62)
740 114070872 : mat(k,1003) = -rxt(k,349)*y(k,62)
741 114070872 : mat(k,458) = -rxt(k,426)*y(k,62)
742 114070872 : mat(k,1747) = -rxt(k,435)*y(k,62)
743 114070872 : mat(k,919) = -rxt(k,439)*y(k,62)
744 114070872 : mat(k,1941) = -rxt(k,440)*y(k,62)
745 114070872 : mat(k,1402) = -rxt(k,441)*y(k,62)
746 114070872 : mat(k,1124) = -rxt(k,462)*y(k,62)
747 114070872 : mat(k,730) = -rxt(k,494)*y(k,62)
748 114070872 : mat(k,441) = -rxt(k,534)*y(k,62)
749 114070872 : mat(k,1621) = -rxt(k,593)*y(k,62)
750 114070872 : mat(k,1783) = rxt(k,287)*y(k,111) + rxt(k,309)*y(k,122)
751 : mat(k,458) = mat(k,458) + 2.000_r8*rxt(k,428)*y(k,63) + rxt(k,430)*y(k,72) &
752 114070872 : + rxt(k,438)*y(k,133)
753 114070872 : mat(k,101) = 2.000_r8*rxt(k,442)*y(k,71)
754 : mat(k,1831) = 2.000_r8*rxt(k,428)*y(k,56) + rxt(k,431)*y(k,70) + rxt(k,551) &
755 114070872 : *y(k,80) + rxt(k,291)*y(k,111)
756 114070872 : mat(k,1402) = mat(k,1402) + rxt(k,431)*y(k,63)
757 114070872 : mat(k,806) = 2.000_r8*rxt(k,442)*y(k,57)
758 114070872 : mat(k,1451) = rxt(k,430)*y(k,56) + rxt(k,425)*y(k,109)
759 114070872 : mat(k,488) = rxt(k,551)*y(k,63)
760 114070872 : mat(k,827) = rxt(k,248)*y(k,118) + rxt(k,230)*y(k,119) + rxt(k,212)*y(k,122)
761 114070872 : mat(k,547) = rxt(k,252)*y(k,118) + rxt(k,234)*y(k,119) + rxt(k,217)*y(k,122)
762 114070872 : mat(k,531) = rxt(k,240)*y(k,118) + rxt(k,222)*y(k,119) + rxt(k,205)*y(k,122)
763 : mat(k,1036) = mat(k,1036) + rxt(k,239)*y(k,118) + rxt(k,221)*y(k,119) &
764 114070872 : + rxt(k,204)*y(k,122)
765 114070872 : mat(k,517) = rxt(k,246)*y(k,118) + rxt(k,229)*y(k,119) + rxt(k,211)*y(k,122)
766 : mat(k,686) = mat(k,686) + rxt(k,249)*y(k,118) + rxt(k,231)*y(k,119) &
767 114070872 : + rxt(k,213)*y(k,122)
768 114070872 : mat(k,859) = rxt(k,244)*y(k,118) + rxt(k,227)*y(k,119) + rxt(k,209)*y(k,122)
769 : mat(k,1079) = rxt(k,303)*y(k,119) + rxt(k,304)*y(k,120) + rxt(k,306)*y(k,121) &
770 114070872 : + rxt(k,308)*y(k,122) + rxt(k,384)*y(k,123)
771 114070872 : mat(k,502) = rxt(k,242)*y(k,118) + rxt(k,224)*y(k,119) + rxt(k,207)*y(k,122)
772 114070872 : mat(k,307) = rxt(k,425)*y(k,72)
773 : mat(k,946) = rxt(k,287)*y(k,40) + rxt(k,291)*y(k,63) + rxt(k,254)*y(k,118) &
774 114070872 : + rxt(k,237)*y(k,119) + rxt(k,219)*y(k,122)
775 114070872 : mat(k,562) = rxt(k,250)*y(k,118) + rxt(k,232)*y(k,119) + rxt(k,215)*y(k,122)
776 114070872 : mat(k,884) = rxt(k,241)*y(k,118) + rxt(k,223)*y(k,119) + rxt(k,206)*y(k,122)
777 114070872 : mat(k,641) = rxt(k,253)*y(k,118) + rxt(k,235)*y(k,119) + rxt(k,218)*y(k,122)
778 114070872 : mat(k,706) = rxt(k,245)*y(k,118) + rxt(k,228)*y(k,119) + rxt(k,210)*y(k,122)
779 114070872 : mat(k,577) = rxt(k,251)*y(k,118) + rxt(k,233)*y(k,119) + rxt(k,216)*y(k,122)
780 114070872 : mat(k,621) = rxt(k,238)*y(k,118) + rxt(k,220)*y(k,119) + rxt(k,202)*y(k,122)
781 : mat(k,1172) = rxt(k,248)*y(k,90) + rxt(k,252)*y(k,91) + rxt(k,240)*y(k,92) &
782 : + rxt(k,239)*y(k,94) + rxt(k,246)*y(k,95) + rxt(k,249)*y(k,96) &
783 : + rxt(k,244)*y(k,97) + rxt(k,242)*y(k,100) + rxt(k,254)*y(k,111) &
784 : + rxt(k,250)*y(k,112) + rxt(k,241)*y(k,113) + rxt(k,253) &
785 : *y(k,114) + rxt(k,245)*y(k,115) + rxt(k,251)*y(k,116) &
786 114070872 : + rxt(k,238)*y(k,117) + rxt(k,243)*y(k,127)
787 : mat(k,1215) = rxt(k,230)*y(k,90) + rxt(k,234)*y(k,91) + rxt(k,222)*y(k,92) &
788 : + rxt(k,221)*y(k,94) + rxt(k,229)*y(k,95) + rxt(k,231)*y(k,96) &
789 : + rxt(k,227)*y(k,97) + rxt(k,303)*y(k,98) + rxt(k,224)*y(k,100) &
790 : + rxt(k,237)*y(k,111) + rxt(k,232)*y(k,112) + rxt(k,223) &
791 : *y(k,113) + rxt(k,235)*y(k,114) + rxt(k,228)*y(k,115) &
792 : + rxt(k,233)*y(k,116) + rxt(k,220)*y(k,117) + rxt(k,226) &
793 114070872 : *y(k,127)
794 114070872 : mat(k,177) = rxt(k,304)*y(k,98)
795 114070872 : mat(k,269) = rxt(k,306)*y(k,98)
796 : mat(k,1342) = rxt(k,309)*y(k,40) + rxt(k,212)*y(k,90) + rxt(k,217)*y(k,91) &
797 : + rxt(k,205)*y(k,92) + rxt(k,204)*y(k,94) + rxt(k,211)*y(k,95) &
798 : + rxt(k,213)*y(k,96) + rxt(k,209)*y(k,97) + rxt(k,308)*y(k,98) &
799 : + rxt(k,207)*y(k,100) + rxt(k,219)*y(k,111) + rxt(k,215) &
800 : *y(k,112) + rxt(k,206)*y(k,113) + rxt(k,218)*y(k,114) &
801 : + rxt(k,210)*y(k,115) + rxt(k,216)*y(k,116) + rxt(k,202) &
802 114070872 : *y(k,117) + rxt(k,208)*y(k,127)
803 114070872 : mat(k,262) = rxt(k,384)*y(k,98)
804 114070872 : mat(k,1576) = rxt(k,243)*y(k,118) + rxt(k,226)*y(k,119) + rxt(k,208)*y(k,122)
805 114070872 : mat(k,1003) = mat(k,1003) + rxt(k,438)*y(k,56)
806 : mat(k,1827) = -(rxt(k,110)*y(k,90) + (rxt(k,120) + rxt(k,121)) * y(k,96) &
807 : + (rxt(k,277) + rxt(k,278)) * y(k,130) + rxt(k,281)*y(k,94) &
808 : + rxt(k,291)*y(k,111) + rxt(k,320)*y(k,127) + rxt(k,346) &
809 : *y(k,134) + rxt(k,359)*y(k,135) + (rxt(k,427) + rxt(k,428) &
810 : + rxt(k,429)) * y(k,56) + (rxt(k,431) + rxt(k,433)) * y(k,70) &
811 : + rxt(k,432)*y(k,73) + rxt(k,444)*y(k,101) + rxt(k,445)*y(k,64) &
812 : + rxt(k,446)*y(k,133) + rxt(k,464)*y(k,28) + rxt(k,495)*y(k,5) &
813 114070872 : + rxt(k,551)*y(k,80))
814 114070872 : mat(k,826) = -rxt(k,110)*y(k,63)
815 114070872 : mat(k,685) = -(rxt(k,120) + rxt(k,121)) * y(k,63)
816 114070872 : mat(k,604) = -(rxt(k,277) + rxt(k,278)) * y(k,63)
817 114070872 : mat(k,1032) = -rxt(k,281)*y(k,63)
818 114070872 : mat(k,943) = -rxt(k,291)*y(k,63)
819 114070872 : mat(k,1572) = -rxt(k,320)*y(k,63)
820 114070872 : mat(k,1860) = -rxt(k,346)*y(k,63)
821 114070872 : mat(k,1896) = -rxt(k,359)*y(k,63)
822 114070872 : mat(k,457) = -(rxt(k,427) + rxt(k,428) + rxt(k,429)) * y(k,63)
823 114070872 : mat(k,1398) = -(rxt(k,431) + rxt(k,433)) * y(k,63)
824 114070872 : mat(k,1937) = -rxt(k,432)*y(k,63)
825 114070872 : mat(k,915) = -rxt(k,444)*y(k,63)
826 114070872 : mat(k,1743) = -rxt(k,445)*y(k,63)
827 114070872 : mat(k,999) = -rxt(k,446)*y(k,63)
828 114070872 : mat(k,1120) = -rxt(k,464)*y(k,63)
829 114070872 : mat(k,728) = -rxt(k,495)*y(k,63)
830 114070872 : mat(k,486) = -rxt(k,551)*y(k,63)
831 114070872 : mat(k,728) = mat(k,728) + rxt(k,494)*y(k,62)
832 114070872 : mat(k,440) = rxt(k,534)*y(k,62)
833 114070872 : mat(k,1495) = rxt(k,285)*y(k,111)
834 114070872 : mat(k,1120) = mat(k,1120) + rxt(k,462)*y(k,62)
835 114070872 : mat(k,184) = rxt(k,423)*y(k,133)
836 114070872 : mat(k,280) = rxt(k,340)*y(k,133)
837 : mat(k,1979) = rxt(k,494)*y(k,5) + rxt(k,534)*y(k,21) + rxt(k,462)*y(k,28) &
838 : + 2.000_r8*rxt(k,435)*y(k,64) + rxt(k,441)*y(k,70) + rxt(k,440) &
839 : *y(k,73) + rxt(k,112)*y(k,93) + rxt(k,439)*y(k,101) + rxt(k,136) &
840 114070872 : *y(k,135)
841 : mat(k,1743) = mat(k,1743) + 2.000_r8*rxt(k,435)*y(k,62) + rxt(k,436)*y(k,70) &
842 114070872 : + rxt(k,434)*y(k,101) + rxt(k,437)*y(k,133)
843 114070872 : mat(k,1398) = mat(k,1398) + rxt(k,441)*y(k,62) + rxt(k,436)*y(k,64)
844 114070872 : mat(k,1937) = mat(k,1937) + rxt(k,440)*y(k,62)
845 114070872 : mat(k,375) = rxt(k,112)*y(k,62)
846 114070872 : mat(k,915) = mat(k,915) + rxt(k,439)*y(k,62) + rxt(k,434)*y(k,64)
847 114070872 : mat(k,1254) = rxt(k,201)*y(k,111) + rxt(k,197)*y(k,112)
848 114070872 : mat(k,1703) = rxt(k,166)*y(k,111) + rxt(k,162)*y(k,112)
849 114070872 : mat(k,1660) = rxt(k,184)*y(k,111) + rxt(k,179)*y(k,112)
850 : mat(k,943) = mat(k,943) + rxt(k,285)*y(k,25) + rxt(k,201)*y(k,103) &
851 : + rxt(k,166)*y(k,105) + rxt(k,184)*y(k,107) + rxt(k,254) &
852 : *y(k,118) + rxt(k,237)*y(k,119) + rxt(k,219)*y(k,122) &
853 114070872 : + rxt(k,161)*y(k,128)
854 : mat(k,561) = rxt(k,197)*y(k,103) + rxt(k,162)*y(k,105) + rxt(k,179)*y(k,107) &
855 : + rxt(k,250)*y(k,118) + rxt(k,232)*y(k,119) + rxt(k,215) &
856 114070872 : *y(k,122) + rxt(k,156)*y(k,128)
857 114070872 : mat(k,1168) = rxt(k,254)*y(k,111) + rxt(k,250)*y(k,112)
858 114070872 : mat(k,1211) = rxt(k,237)*y(k,111) + rxt(k,232)*y(k,112)
859 114070872 : mat(k,1338) = rxt(k,219)*y(k,111) + rxt(k,215)*y(k,112) + rxt(k,311)*y(k,133)
860 114070872 : mat(k,1617) = rxt(k,161)*y(k,111) + rxt(k,156)*y(k,112)
861 : mat(k,999) = mat(k,999) + rxt(k,423)*y(k,52) + rxt(k,340)*y(k,55) &
862 114070872 : + rxt(k,437)*y(k,64) + rxt(k,311)*y(k,122)
863 114070872 : mat(k,1896) = mat(k,1896) + rxt(k,136)*y(k,62)
864 : mat(k,1741) = -(rxt(k,434)*y(k,101) + rxt(k,435)*y(k,62) + rxt(k,436)*y(k,70) &
865 : + rxt(k,437)*y(k,133) + rxt(k,445)*y(k,63) + rxt(k,530)*y(k,17) &
866 114070872 : + rxt(k,541)*y(k,35))
867 114070872 : mat(k,913) = -rxt(k,434)*y(k,64)
868 114070872 : mat(k,1977) = -rxt(k,435)*y(k,64)
869 114070872 : mat(k,1396) = -rxt(k,436)*y(k,64)
870 114070872 : mat(k,997) = -rxt(k,437)*y(k,64)
871 114070872 : mat(k,1825) = -rxt(k,445)*y(k,64)
872 114070872 : mat(k,749) = -rxt(k,530)*y(k,64)
873 114070872 : mat(k,130) = -rxt(k,541)*y(k,64)
874 114070872 : mat(k,212) = rxt(k,496)*y(k,70)
875 114070872 : mat(k,1493) = rxt(k,463)*y(k,29)
876 114070872 : mat(k,1118) = rxt(k,286)*y(k,111)
877 114070872 : mat(k,365) = rxt(k,463)*y(k,25) + rxt(k,465)*y(k,70) + rxt(k,466)*y(k,133)
878 114070872 : mat(k,347) = rxt(k,510)*y(k,51)
879 114070872 : mat(k,1534) = rxt(k,510)*y(k,39) + rxt(k,447)*y(k,133)
880 114070872 : mat(k,1825) = mat(k,1825) + rxt(k,433)*y(k,70) + rxt(k,432)*y(k,73)
881 : mat(k,1396) = mat(k,1396) + rxt(k,496)*y(k,6) + rxt(k,465)*y(k,29) &
882 114070872 : + rxt(k,433)*y(k,63)
883 114070872 : mat(k,1935) = rxt(k,432)*y(k,63)
884 114070872 : mat(k,913) = mat(k,913) + rxt(k,310)*y(k,122)
885 114070872 : mat(k,1252) = rxt(k,200)*y(k,114) + rxt(k,193)*y(k,115) + rxt(k,198)*y(k,116)
886 : mat(k,1701) = rxt(k,165)*y(k,114) + (rxt(k,236)+rxt(k,262))*y(k,115) &
887 114070872 : + rxt(k,163)*y(k,116)
888 : mat(k,1658) = rxt(k,183)*y(k,114) + (rxt(k,175)+rxt(k,263))*y(k,115) &
889 114070872 : + rxt(k,180)*y(k,116)
890 114070872 : mat(k,941) = rxt(k,286)*y(k,28)
891 : mat(k,880) = rxt(k,241)*y(k,118) + rxt(k,223)*y(k,119) + rxt(k,206)*y(k,122) &
892 114070872 : + rxt(k,148)*y(k,128)
893 : mat(k,638) = rxt(k,200)*y(k,103) + rxt(k,165)*y(k,105) + rxt(k,183)*y(k,107) &
894 : + rxt(k,253)*y(k,118) + rxt(k,235)*y(k,119) + rxt(k,218) &
895 114070872 : *y(k,122) + rxt(k,160)*y(k,128)
896 : mat(k,703) = rxt(k,193)*y(k,103) + (rxt(k,236)+rxt(k,262))*y(k,105) + ( &
897 : + rxt(k,175)+rxt(k,263))*y(k,107) + rxt(k,245)*y(k,118) &
898 : + rxt(k,228)*y(k,119) + rxt(k,210)*y(k,122) + rxt(k,152) &
899 114070872 : *y(k,128)
900 : mat(k,575) = rxt(k,198)*y(k,103) + rxt(k,163)*y(k,105) + rxt(k,180)*y(k,107) &
901 : + rxt(k,251)*y(k,118) + rxt(k,233)*y(k,119) + rxt(k,216) &
902 114070872 : *y(k,122) + rxt(k,157)*y(k,128)
903 : mat(k,620) = rxt(k,238)*y(k,118) + rxt(k,220)*y(k,119) + rxt(k,202)*y(k,122) &
904 114070872 : + rxt(k,255)*y(k,128)
905 : mat(k,1166) = rxt(k,241)*y(k,113) + rxt(k,253)*y(k,114) + rxt(k,245)*y(k,115) &
906 114070872 : + rxt(k,251)*y(k,116) + rxt(k,238)*y(k,117)
907 : mat(k,1209) = rxt(k,223)*y(k,113) + rxt(k,235)*y(k,114) + rxt(k,228)*y(k,115) &
908 114070872 : + rxt(k,233)*y(k,116) + rxt(k,220)*y(k,117)
909 : mat(k,1336) = rxt(k,310)*y(k,101) + rxt(k,206)*y(k,113) + rxt(k,218)*y(k,114) &
910 : + rxt(k,210)*y(k,115) + rxt(k,216)*y(k,116) + rxt(k,202) &
911 114070872 : *y(k,117)
912 : mat(k,1615) = rxt(k,148)*y(k,113) + rxt(k,160)*y(k,114) + rxt(k,152)*y(k,115) &
913 114070872 : + rxt(k,157)*y(k,116) + rxt(k,255)*y(k,117)
914 114070872 : mat(k,997) = mat(k,997) + rxt(k,466)*y(k,29) + rxt(k,447)*y(k,51)
915 : mat(k,1388) = -(rxt(k,113)*y(k,93) + rxt(k,125)*y(k,94) + rxt(k,131)*y(k,97) &
916 : + rxt(k,301)*y(k,113) + (rxt(k,324) + rxt(k,325)) * y(k,127) &
917 : + (rxt(k,333) + rxt(k,334)) * y(k,130) + rxt(k,336)*y(k,131) &
918 : + rxt(k,338)*y(k,132) + rxt(k,347)*y(k,134) + rxt(k,360) &
919 : *y(k,135) + rxt(k,403)*y(k,73) + 4._r8*rxt(k,404)*y(k,70) &
920 : + rxt(k,405)*y(k,72) + rxt(k,406)*y(k,41) + rxt(k,407)*y(k,43) &
921 : + rxt(k,412)*y(k,101) + rxt(k,418)*y(k,133) + (rxt(k,431) &
922 : + rxt(k,433)) * y(k,63) + rxt(k,436)*y(k,64) + rxt(k,441) &
923 : *y(k,62) + rxt(k,465)*y(k,29) + rxt(k,467)*y(k,28) + rxt(k,470) &
924 : *y(k,49) + rxt(k,473)*y(k,54) + rxt(k,496)*y(k,6) + rxt(k,497) &
925 : *y(k,5) + rxt(k,499)*y(k,45) + rxt(k,501)*y(k,53) + rxt(k,531) &
926 : *y(k,17) + rxt(k,543)*y(k,75) + (rxt(k,586) + rxt(k,587) &
927 114070872 : ) * y(k,110) + rxt(k,588)*y(k,124))
928 114070872 : mat(k,372) = -rxt(k,113)*y(k,70)
929 114070872 : mat(k,1022) = -rxt(k,125)*y(k,70)
930 114070872 : mat(k,846) = -rxt(k,131)*y(k,70)
931 114070872 : mat(k,873) = -rxt(k,301)*y(k,70)
932 114070872 : mat(k,1562) = -(rxt(k,324) + rxt(k,325)) * y(k,70)
933 114070872 : mat(k,600) = -(rxt(k,333) + rxt(k,334)) * y(k,70)
934 114070872 : mat(k,243) = -rxt(k,336)*y(k,70)
935 114070872 : mat(k,465) = -rxt(k,338)*y(k,70)
936 114070872 : mat(k,1850) = -rxt(k,347)*y(k,70)
937 114070872 : mat(k,1886) = -rxt(k,360)*y(k,70)
938 114070872 : mat(k,1927) = -rxt(k,403)*y(k,70)
939 114070872 : mat(k,1437) = -rxt(k,405)*y(k,70)
940 114070872 : mat(k,655) = -rxt(k,406)*y(k,70)
941 114070872 : mat(k,217) = -rxt(k,407)*y(k,70)
942 114070872 : mat(k,907) = -rxt(k,412)*y(k,70)
943 114070872 : mat(k,991) = -rxt(k,418)*y(k,70)
944 114070872 : mat(k,1817) = -(rxt(k,431) + rxt(k,433)) * y(k,70)
945 114070872 : mat(k,1733) = -rxt(k,436)*y(k,70)
946 114070872 : mat(k,1969) = -rxt(k,441)*y(k,70)
947 114070872 : mat(k,362) = -rxt(k,465)*y(k,70)
948 114070872 : mat(k,1110) = -rxt(k,467)*y(k,70)
949 114070872 : mat(k,2014) = -rxt(k,470)*y(k,70)
950 114070872 : mat(k,336) = -rxt(k,473)*y(k,70)
951 114070872 : mat(k,210) = -rxt(k,496)*y(k,70)
952 114070872 : mat(k,722) = -rxt(k,497)*y(k,70)
953 114070872 : mat(k,329) = -rxt(k,499)*y(k,70)
954 114070872 : mat(k,313) = -rxt(k,501)*y(k,70)
955 114070872 : mat(k,745) = -rxt(k,531)*y(k,70)
956 114070872 : mat(k,145) = -rxt(k,543)*y(k,70)
957 114070872 : mat(k,236) = -(rxt(k,586) + rxt(k,587)) * y(k,70)
958 114070872 : mat(k,321) = -rxt(k,588)*y(k,70)
959 114070872 : mat(k,1485) = rxt(k,114)*y(k,94) + rxt(k,350)*y(k,135)
960 114070872 : mat(k,1769) = rxt(k,410)*y(k,101)
961 : mat(k,453) = rxt(k,426)*y(k,62) + rxt(k,427)*y(k,63) + rxt(k,430)*y(k,72) &
962 114070872 : + rxt(k,591)*y(k,128)
963 114070872 : mat(k,1969) = mat(k,1969) + rxt(k,426)*y(k,56) + rxt(k,272)*y(k,130)
964 114070872 : mat(k,1817) = mat(k,1817) + rxt(k,427)*y(k,56) + rxt(k,359)*y(k,135)
965 114070872 : mat(k,794) = (rxt(k,392)+rxt(k,393))*y(k,72)
966 : mat(k,1437) = mat(k,1437) + rxt(k,430)*y(k,56) + (rxt(k,392)+rxt(k,393)) &
967 : *y(k,71) + rxt(k,545)*y(k,78) + rxt(k,552)*y(k,80) + rxt(k,590) &
968 114070872 : *y(k,124) + rxt(k,597)*y(k,136) + rxt(k,601)*y(k,137)
969 114070872 : mat(k,1927) = mat(k,1927) + rxt(k,363)*y(k,135)
970 114070872 : mat(k,274) = rxt(k,545)*y(k,72)
971 114070872 : mat(k,482) = rxt(k,552)*y(k,72)
972 : mat(k,1022) = mat(k,1022) + rxt(k,114)*y(k,25) + rxt(k,186)*y(k,103) + ( &
973 : + rxt(k,170)+rxt(k,258))*y(k,105) + (rxt(k,168)+rxt(k,265)) &
974 : *y(k,107) + rxt(k,239)*y(k,118) + rxt(k,221)*y(k,119) &
975 114070872 : + rxt(k,204)*y(k,122) + rxt(k,256)*y(k,128)
976 : mat(k,511) = rxt(k,194)*y(k,103) + (rxt(k,247)+rxt(k,271))*y(k,105) + ( &
977 : + rxt(k,176)+rxt(k,259))*y(k,107) + rxt(k,246)*y(k,118) &
978 : + rxt(k,229)*y(k,119) + rxt(k,211)*y(k,122) + rxt(k,153) &
979 114070872 : *y(k,128)
980 : mat(k,679) = rxt(k,196)*y(k,103) + (rxt(k,158)+rxt(k,260))*y(k,105) + ( &
981 : + rxt(k,178)+rxt(k,261))*y(k,107) + rxt(k,249)*y(k,118) &
982 : + rxt(k,231)*y(k,119) + rxt(k,213)*y(k,122) + rxt(k,155) &
983 114070872 : *y(k,128)
984 114070872 : mat(k,1065) = rxt(k,582)*y(k,118) + 1.150_r8*rxt(k,583)*y(k,128)
985 114070872 : mat(k,907) = mat(k,907) + rxt(k,410)*y(k,40)
986 114070872 : mat(k,1244) = rxt(k,186)*y(k,94) + rxt(k,194)*y(k,95) + rxt(k,196)*y(k,96)
987 : mat(k,1693) = (rxt(k,170)+rxt(k,258))*y(k,94) + (rxt(k,247)+rxt(k,271)) &
988 114070872 : *y(k,95) + (rxt(k,158)+rxt(k,260))*y(k,96)
989 : mat(k,1650) = (rxt(k,168)+rxt(k,265))*y(k,94) + (rxt(k,176)+rxt(k,259)) &
990 114070872 : *y(k,95) + (rxt(k,178)+rxt(k,261))*y(k,96)
991 114070872 : mat(k,305) = rxt(k,596)*y(k,136)
992 : mat(k,1158) = rxt(k,239)*y(k,94) + rxt(k,246)*y(k,95) + rxt(k,249)*y(k,96) &
993 114070872 : + rxt(k,582)*y(k,98)
994 114070872 : mat(k,1201) = rxt(k,221)*y(k,94) + rxt(k,229)*y(k,95) + rxt(k,231)*y(k,96)
995 114070872 : mat(k,1328) = rxt(k,204)*y(k,94) + rxt(k,211)*y(k,95) + rxt(k,213)*y(k,96)
996 114070872 : mat(k,321) = mat(k,321) + rxt(k,590)*y(k,72)
997 : mat(k,1607) = rxt(k,591)*y(k,56) + rxt(k,256)*y(k,94) + rxt(k,153)*y(k,95) &
998 114070872 : + rxt(k,155)*y(k,96) + 1.150_r8*rxt(k,583)*y(k,98)
999 114070872 : mat(k,600) = mat(k,600) + rxt(k,272)*y(k,62)
1000 114070872 : mat(k,991) = mat(k,991) + 2.000_r8*rxt(k,420)*y(k,133)
1001 : mat(k,1886) = mat(k,1886) + rxt(k,350)*y(k,25) + rxt(k,359)*y(k,63) &
1002 114070872 : + rxt(k,363)*y(k,73)
1003 114070872 : mat(k,395) = rxt(k,597)*y(k,72) + rxt(k,596)*y(k,109)
1004 117656469 : mat(k,203) = rxt(k,601)*y(k,72)
1005 : end do
1006 3585597 : end subroutine nlnmat04
1007 3585597 : subroutine nlnmat05( avec_len, mat, y, rxt )
1008 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1009 : implicit none
1010 : !----------------------------------------------
1011 : ! ... dummy arguments
1012 : !----------------------------------------------
1013 : integer, intent(in) :: avec_len
1014 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1015 : real(r8), intent(in) :: rxt(veclen,rxntot)
1016 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1017 : !----------------------------------------------
1018 : ! ... local variables
1019 : !----------------------------------------------
1020 : integer :: k
1021 : !----------------------------------------------
1022 : ! ... complete matrix entries implicit species
1023 : !----------------------------------------------
1024 117656469 : do k = 1,avec_len
1025 114070872 : mat(k,787) = -(rxt(k,389)*y(k,41) + rxt(k,390)*y(k,139) + (rxt(k,392) &
1026 : + rxt(k,393)) * y(k,72) + rxt(k,394)*y(k,73) + (rxt(k,442) &
1027 : + rxt(k,443)) * y(k,57) + rxt(k,475)*y(k,8) + rxt(k,476)*y(k,9) &
1028 : + rxt(k,477)*y(k,11) + rxt(k,478)*y(k,12) + rxt(k,479)*y(k,13) &
1029 : + rxt(k,480)*y(k,14) + rxt(k,481)*y(k,15) + (rxt(k,482) &
1030 : + rxt(k,483)) * y(k,49) + rxt(k,502)*y(k,10) + rxt(k,503) &
1031 : *y(k,24) + rxt(k,504)*y(k,42) + (rxt(k,505) + rxt(k,506) &
1032 : ) * y(k,45) + rxt(k,511)*y(k,33) + rxt(k,512)*y(k,34) + rxt(k,525) &
1033 : *y(k,16) + rxt(k,526)*y(k,18) + rxt(k,527)*y(k,46) + rxt(k,528) &
1034 : *y(k,47) + rxt(k,529)*y(k,48) + (rxt(k,537) + rxt(k,538) &
1035 114070872 : + rxt(k,539)) * y(k,23))
1036 114070872 : mat(k,649) = -rxt(k,389)*y(k,71)
1037 114070872 : mat(k,2060) = -rxt(k,390)*y(k,71)
1038 114070872 : mat(k,1423) = -(rxt(k,392) + rxt(k,393)) * y(k,71)
1039 114070872 : mat(k,1913) = -rxt(k,394)*y(k,71)
1040 114070872 : mat(k,99) = -(rxt(k,442) + rxt(k,443)) * y(k,71)
1041 114070872 : mat(k,30) = -rxt(k,475)*y(k,71)
1042 114070872 : mat(k,58) = -rxt(k,476)*y(k,71)
1043 114070872 : mat(k,38) = -rxt(k,477)*y(k,71)
1044 114070872 : mat(k,68) = -rxt(k,478)*y(k,71)
1045 114070872 : mat(k,42) = -rxt(k,479)*y(k,71)
1046 114070872 : mat(k,73) = -rxt(k,480)*y(k,71)
1047 114070872 : mat(k,46) = -rxt(k,481)*y(k,71)
1048 114070872 : mat(k,1999) = -(rxt(k,482) + rxt(k,483)) * y(k,71)
1049 114070872 : mat(k,64) = -rxt(k,502)*y(k,71)
1050 114070872 : mat(k,163) = -rxt(k,503)*y(k,71)
1051 114070872 : mat(k,35) = -rxt(k,504)*y(k,71)
1052 114070872 : mat(k,327) = -(rxt(k,505) + rxt(k,506)) * y(k,71)
1053 114070872 : mat(k,79) = -rxt(k,511)*y(k,71)
1054 114070872 : mat(k,87) = -rxt(k,512)*y(k,71)
1055 114070872 : mat(k,188) = -rxt(k,525)*y(k,71)
1056 114070872 : mat(k,224) = -rxt(k,526)*y(k,71)
1057 114070872 : mat(k,82) = -rxt(k,527)*y(k,71)
1058 114070872 : mat(k,92) = -rxt(k,528)*y(k,71)
1059 114070872 : mat(k,118) = -rxt(k,529)*y(k,71)
1060 114070872 : mat(k,420) = -(rxt(k,537) + rxt(k,538) + rxt(k,539)) * y(k,71)
1061 114070872 : mat(k,1423) = mat(k,1423) + rxt(k,425)*y(k,109)
1062 114070872 : mat(k,1055) = .850_r8*rxt(k,583)*y(k,128)
1063 114070872 : mat(k,304) = rxt(k,425)*y(k,72)
1064 114070872 : mat(k,1592) = .850_r8*rxt(k,583)*y(k,98)
1065 : mat(k,1438) = -(rxt(k,126)*y(k,94) + (rxt(k,133) + rxt(k,135)) * y(k,98) &
1066 : + rxt(k,322)*y(k,127) + rxt(k,362)*y(k,135) + rxt(k,364) &
1067 : *y(k,128) + rxt(k,392)*y(k,71) + rxt(k,397)*y(k,125) + rxt(k,405) &
1068 : *y(k,70) + rxt(k,411)*y(k,40) + rxt(k,425)*y(k,109) + rxt(k,430) &
1069 : *y(k,56) + rxt(k,545)*y(k,78) + rxt(k,552)*y(k,80) + rxt(k,585) &
1070 : *y(k,110) + (rxt(k,589) + rxt(k,590)) * y(k,124) + rxt(k,597) &
1071 114070872 : *y(k,136) + rxt(k,601)*y(k,137))
1072 114070872 : mat(k,1023) = -rxt(k,126)*y(k,72)
1073 114070872 : mat(k,1066) = -(rxt(k,133) + rxt(k,135)) * y(k,72)
1074 114070872 : mat(k,1563) = -rxt(k,322)*y(k,72)
1075 114070872 : mat(k,1887) = -rxt(k,362)*y(k,72)
1076 114070872 : mat(k,1608) = -rxt(k,364)*y(k,72)
1077 114070872 : mat(k,795) = -rxt(k,392)*y(k,72)
1078 114070872 : mat(k,380) = -rxt(k,397)*y(k,72)
1079 114070872 : mat(k,1389) = -rxt(k,405)*y(k,72)
1080 114070872 : mat(k,1770) = -rxt(k,411)*y(k,72)
1081 114070872 : mat(k,306) = -rxt(k,425)*y(k,72)
1082 114070872 : mat(k,454) = -rxt(k,430)*y(k,72)
1083 114070872 : mat(k,275) = -rxt(k,545)*y(k,72)
1084 114070872 : mat(k,483) = -rxt(k,552)*y(k,72)
1085 114070872 : mat(k,237) = -rxt(k,585)*y(k,72)
1086 114070872 : mat(k,322) = -(rxt(k,589) + rxt(k,590)) * y(k,72)
1087 114070872 : mat(k,396) = -rxt(k,597)*y(k,72)
1088 114070872 : mat(k,204) = -rxt(k,601)*y(k,72)
1089 114070872 : mat(k,590) = rxt(k,488)*y(k,73) + rxt(k,487)*y(k,101)
1090 : mat(k,723) = 2.000_r8*rxt(k,489)*y(k,5) + (rxt(k,491)+rxt(k,492))*y(k,28) &
1091 114070872 : + rxt(k,497)*y(k,70) + rxt(k,493)*y(k,101)
1092 114070872 : mat(k,437) = rxt(k,533)*y(k,101)
1093 : mat(k,1486) = rxt(k,456)*y(k,73) + rxt(k,127)*y(k,97) + rxt(k,454)*y(k,101) &
1094 114070872 : + rxt(k,314)*y(k,127)
1095 : mat(k,1111) = (rxt(k,491)+rxt(k,492))*y(k,5) + (2.000_r8*rxt(k,458) &
1096 : +2.000_r8*rxt(k,459))*y(k,28) + rxt(k,467)*y(k,70) + rxt(k,116) &
1097 : *y(k,94) + rxt(k,128)*y(k,97) + rxt(k,461)*y(k,101) + rxt(k,315) &
1098 114070872 : *y(k,127) + rxt(k,469)*y(k,133) + rxt(k,351)*y(k,135)
1099 114070872 : mat(k,1287) = rxt(k,330)*y(k,130) + rxt(k,335)*y(k,131)
1100 : mat(k,1770) = mat(k,1770) + rxt(k,414)*y(k,73) + rxt(k,408)*y(k,101) &
1101 114070872 : + rxt(k,331)*y(k,130)
1102 114070872 : mat(k,182) = rxt(k,423)*y(k,133)
1103 114070872 : mat(k,454) = mat(k,454) + rxt(k,429)*y(k,63)
1104 114070872 : mat(k,100) = rxt(k,443)*y(k,71)
1105 114070872 : mat(k,1970) = rxt(k,440)*y(k,73) + rxt(k,593)*y(k,128) + rxt(k,279)*y(k,130)
1106 : mat(k,1818) = rxt(k,429)*y(k,56) + rxt(k,431)*y(k,70) + rxt(k,432)*y(k,73) &
1107 114070872 : + rxt(k,320)*y(k,127) + rxt(k,277)*y(k,130)
1108 114070872 : mat(k,1734) = rxt(k,436)*y(k,70) + rxt(k,434)*y(k,101)
1109 : mat(k,1389) = mat(k,1389) + rxt(k,497)*y(k,5) + rxt(k,467)*y(k,28) &
1110 : + rxt(k,431)*y(k,63) + rxt(k,436)*y(k,64) + 2.000_r8*rxt(k,404) &
1111 : *y(k,70) + 2.000_r8*rxt(k,403)*y(k,73) + rxt(k,113)*y(k,93) &
1112 : + rxt(k,131)*y(k,97) + rxt(k,412)*y(k,101) + rxt(k,301)*y(k,113) &
1113 : + rxt(k,396)*y(k,125) + rxt(k,325)*y(k,127) + ( &
1114 : + 2.000_r8*rxt(k,333)+rxt(k,334))*y(k,130) + rxt(k,336)*y(k,131) &
1115 114070872 : + rxt(k,418)*y(k,133) + rxt(k,360)*y(k,135)
1116 114070872 : mat(k,795) = mat(k,795) + rxt(k,443)*y(k,57) + 2.000_r8*rxt(k,394)*y(k,73)
1117 114070872 : mat(k,1438) = mat(k,1438) + 2.000_r8*rxt(k,397)*y(k,125)
1118 : mat(k,1928) = rxt(k,488)*y(k,3) + rxt(k,456)*y(k,25) + rxt(k,414)*y(k,40) &
1119 : + rxt(k,440)*y(k,62) + rxt(k,432)*y(k,63) + 2.000_r8*rxt(k,403) &
1120 : *y(k,70) + 2.000_r8*rxt(k,394)*y(k,71) + rxt(k,547)*y(k,78) &
1121 : + rxt(k,553)*y(k,80) + rxt(k,132)*y(k,97) + rxt(k,134)*y(k,98) &
1122 : + 2.000_r8*rxt(k,413)*y(k,101) + rxt(k,292)*y(k,111) &
1123 : + 2.000_r8*rxt(k,302)*y(k,113) + rxt(k,323)*y(k,127) &
1124 114070872 : + 3.000_r8*rxt(k,332)*y(k,130) + rxt(k,419)*y(k,133)
1125 114070872 : mat(k,275) = mat(k,275) + rxt(k,547)*y(k,73)
1126 114070872 : mat(k,483) = mat(k,483) + rxt(k,553)*y(k,73)
1127 114070872 : mat(k,819) = rxt(k,154)*y(k,128)
1128 114070872 : mat(k,541) = rxt(k,159)*y(k,128)
1129 114070872 : mat(k,525) = rxt(k,257)*y(k,128)
1130 114070872 : mat(k,373) = rxt(k,113)*y(k,70)
1131 114070872 : mat(k,1023) = mat(k,1023) + rxt(k,116)*y(k,28) + rxt(k,256)*y(k,128)
1132 114070872 : mat(k,512) = rxt(k,153)*y(k,128)
1133 114070872 : mat(k,680) = rxt(k,155)*y(k,128)
1134 : mat(k,847) = rxt(k,127)*y(k,25) + rxt(k,128)*y(k,28) + rxt(k,131)*y(k,70) &
1135 : + rxt(k,132)*y(k,73) + rxt(k,191)*y(k,103) + rxt(k,225)*y(k,105) &
1136 : + rxt(k,174)*y(k,107) + rxt(k,244)*y(k,118) + rxt(k,227) &
1137 114070872 : *y(k,119) + rxt(k,209)*y(k,122) + 2.000_r8*rxt(k,151)*y(k,128)
1138 : mat(k,1066) = mat(k,1066) + rxt(k,134)*y(k,73) + rxt(k,326)*y(k,129) &
1139 114070872 : + 2.000_r8*rxt(k,380)*y(k,132)
1140 114070872 : mat(k,497) = rxt(k,149)*y(k,128)
1141 : mat(k,908) = rxt(k,487)*y(k,3) + rxt(k,493)*y(k,5) + rxt(k,533)*y(k,21) &
1142 : + rxt(k,454)*y(k,25) + rxt(k,461)*y(k,28) + rxt(k,408)*y(k,40) &
1143 : + rxt(k,434)*y(k,64) + rxt(k,412)*y(k,70) + 2.000_r8*rxt(k,413) &
1144 114070872 : *y(k,73) + 2.000_r8*rxt(k,422)*y(k,101) + rxt(k,417)*y(k,133)
1145 114070872 : mat(k,1245) = rxt(k,191)*y(k,97) + rxt(k,190)*y(k,127)
1146 114070872 : mat(k,1694) = rxt(k,225)*y(k,97) + rxt(k,214)*y(k,127)
1147 114070872 : mat(k,1651) = rxt(k,174)*y(k,97) + rxt(k,173)*y(k,127)
1148 114070872 : mat(k,935) = rxt(k,292)*y(k,73) + rxt(k,161)*y(k,128)
1149 114070872 : mat(k,556) = rxt(k,156)*y(k,128)
1150 : mat(k,874) = rxt(k,301)*y(k,70) + 2.000_r8*rxt(k,302)*y(k,73) + rxt(k,148) &
1151 114070872 : *y(k,128)
1152 114070872 : mat(k,633) = rxt(k,160)*y(k,128)
1153 114070872 : mat(k,698) = rxt(k,152)*y(k,128)
1154 114070872 : mat(k,570) = rxt(k,157)*y(k,128)
1155 114070872 : mat(k,615) = rxt(k,255)*y(k,128)
1156 114070872 : mat(k,1159) = rxt(k,244)*y(k,97) + rxt(k,243)*y(k,127)
1157 114070872 : mat(k,1202) = rxt(k,227)*y(k,97) + rxt(k,226)*y(k,127)
1158 114070872 : mat(k,1329) = rxt(k,209)*y(k,97) + rxt(k,208)*y(k,127)
1159 : mat(k,380) = mat(k,380) + rxt(k,396)*y(k,70) + 2.000_r8*rxt(k,397)*y(k,72) &
1160 114070872 : + 2.000_r8*rxt(k,321)*y(k,127) + 2.000_r8*rxt(k,339)*y(k,132)
1161 : mat(k,1563) = mat(k,1563) + rxt(k,314)*y(k,25) + rxt(k,315)*y(k,28) &
1162 : + rxt(k,320)*y(k,63) + rxt(k,325)*y(k,70) + rxt(k,323)*y(k,73) &
1163 : + rxt(k,190)*y(k,103) + rxt(k,214)*y(k,105) + rxt(k,173) &
1164 : *y(k,107) + rxt(k,243)*y(k,118) + rxt(k,226)*y(k,119) &
1165 114070872 : + rxt(k,208)*y(k,122) + 2.000_r8*rxt(k,321)*y(k,125)
1166 : mat(k,1608) = mat(k,1608) + rxt(k,593)*y(k,62) + rxt(k,154)*y(k,90) &
1167 : + rxt(k,159)*y(k,91) + rxt(k,257)*y(k,92) + rxt(k,256)*y(k,94) &
1168 : + rxt(k,153)*y(k,95) + rxt(k,155)*y(k,96) + 2.000_r8*rxt(k,151) &
1169 : *y(k,97) + rxt(k,149)*y(k,100) + rxt(k,161)*y(k,111) &
1170 : + rxt(k,156)*y(k,112) + rxt(k,148)*y(k,113) + rxt(k,160) &
1171 : *y(k,114) + rxt(k,152)*y(k,115) + rxt(k,157)*y(k,116) &
1172 114070872 : + rxt(k,255)*y(k,117)
1173 114070872 : mat(k,296) = rxt(k,326)*y(k,98) + (rxt(k,327)+rxt(k,328))*y(k,139)
1174 : mat(k,601) = rxt(k,330)*y(k,32) + rxt(k,331)*y(k,40) + rxt(k,279)*y(k,62) &
1175 : + rxt(k,277)*y(k,63) + (2.000_r8*rxt(k,333)+rxt(k,334))*y(k,70) &
1176 114070872 : + 3.000_r8*rxt(k,332)*y(k,73)
1177 114070872 : mat(k,244) = rxt(k,335)*y(k,32) + rxt(k,336)*y(k,70)
1178 : mat(k,466) = 2.000_r8*rxt(k,380)*y(k,98) + 2.000_r8*rxt(k,339)*y(k,125) &
1179 114070872 : + rxt(k,337)*y(k,139)
1180 : mat(k,992) = rxt(k,469)*y(k,28) + rxt(k,423)*y(k,52) + rxt(k,418)*y(k,70) &
1181 114070872 : + rxt(k,419)*y(k,73) + rxt(k,417)*y(k,101)
1182 114070872 : mat(k,1887) = mat(k,1887) + rxt(k,351)*y(k,28) + rxt(k,360)*y(k,70)
1183 114070872 : mat(k,2075) = (rxt(k,327)+rxt(k,328))*y(k,129) + rxt(k,337)*y(k,132)
1184 : mat(k,1940) = -(rxt(k,132)*y(k,97) + rxt(k,134)*y(k,98) + rxt(k,292)*y(k,111) &
1185 : + rxt(k,302)*y(k,113) + rxt(k,323)*y(k,127) + rxt(k,332) &
1186 : *y(k,130) + rxt(k,348)*y(k,134) + rxt(k,363)*y(k,135) + rxt(k,394) &
1187 : *y(k,71) + rxt(k,403)*y(k,70) + rxt(k,413)*y(k,101) + rxt(k,414) &
1188 : *y(k,40) + rxt(k,419)*y(k,133) + rxt(k,432)*y(k,63) + rxt(k,440) &
1189 : *y(k,62) + rxt(k,456)*y(k,25) + rxt(k,488)*y(k,3) + rxt(k,547) &
1190 114070872 : *y(k,78) + rxt(k,553)*y(k,80))
1191 114070872 : mat(k,858) = -rxt(k,132)*y(k,73)
1192 114070872 : mat(k,1078) = -rxt(k,134)*y(k,73)
1193 114070872 : mat(k,945) = -rxt(k,292)*y(k,73)
1194 114070872 : mat(k,883) = -rxt(k,302)*y(k,73)
1195 114070872 : mat(k,1575) = -rxt(k,323)*y(k,73)
1196 114070872 : mat(k,607) = -rxt(k,332)*y(k,73)
1197 114070872 : mat(k,1863) = -rxt(k,348)*y(k,73)
1198 114070872 : mat(k,1899) = -rxt(k,363)*y(k,73)
1199 114070872 : mat(k,805) = -rxt(k,394)*y(k,73)
1200 114070872 : mat(k,1401) = -rxt(k,403)*y(k,73)
1201 114070872 : mat(k,918) = -rxt(k,413)*y(k,73)
1202 114070872 : mat(k,1782) = -rxt(k,414)*y(k,73)
1203 114070872 : mat(k,1002) = -rxt(k,419)*y(k,73)
1204 114070872 : mat(k,1830) = -rxt(k,432)*y(k,73)
1205 114070872 : mat(k,1982) = -rxt(k,440)*y(k,73)
1206 114070872 : mat(k,1498) = -rxt(k,456)*y(k,73)
1207 114070872 : mat(k,592) = -rxt(k,488)*y(k,73)
1208 114070872 : mat(k,277) = -rxt(k,547)*y(k,73)
1209 114070872 : mat(k,487) = -rxt(k,553)*y(k,73)
1210 114070872 : mat(k,1830) = mat(k,1830) + rxt(k,278)*y(k,130)
1211 : mat(k,1401) = mat(k,1401) + rxt(k,405)*y(k,72) + rxt(k,324)*y(k,127) &
1212 114070872 : + rxt(k,338)*y(k,132)
1213 114070872 : mat(k,1450) = rxt(k,405)*y(k,70)
1214 114070872 : mat(k,384) = rxt(k,361)*y(k,135)
1215 114070872 : mat(k,1575) = mat(k,1575) + rxt(k,324)*y(k,70)
1216 114070872 : mat(k,607) = mat(k,607) + rxt(k,278)*y(k,63)
1217 114070872 : mat(k,471) = rxt(k,338)*y(k,70)
1218 114070872 : mat(k,1899) = mat(k,1899) + rxt(k,361)*y(k,125)
1219 114070872 : mat(k,134) = -(rxt(k,554)*y(k,80))
1220 114070872 : mat(k,473) = -rxt(k,554)*y(k,74)
1221 114070872 : mat(k,709) = rxt(k,490)*y(k,28)
1222 114070872 : mat(k,1085) = rxt(k,490)*y(k,5) + 2.000_r8*rxt(k,460)*y(k,28)
1223 114070872 : mat(k,139) = -(rxt(k,543)*y(k,70) + rxt(k,544)*y(k,133))
1224 114070872 : mat(k,1346) = -rxt(k,543)*y(k,75)
1225 114070872 : mat(k,957) = -rxt(k,544)*y(k,75)
1226 114070872 : mat(k,271) = -(rxt(k,545)*y(k,72) + rxt(k,547)*y(k,73) + rxt(k,550)*y(k,133))
1227 114070872 : mat(k,1410) = -rxt(k,545)*y(k,78)
1228 114070872 : mat(k,1904) = -rxt(k,547)*y(k,78)
1229 114070872 : mat(k,966) = -rxt(k,550)*y(k,78)
1230 : mat(k,476) = -(rxt(k,548)*y(k,5) + rxt(k,549)*y(k,28) + rxt(k,551)*y(k,63) &
1231 : + rxt(k,552)*y(k,72) + rxt(k,553)*y(k,73) + rxt(k,554)*y(k,74) &
1232 114070872 : + rxt(k,555)*y(k,133))
1233 114070872 : mat(k,713) = -rxt(k,548)*y(k,80)
1234 114070872 : mat(k,1091) = -rxt(k,549)*y(k,80)
1235 114070872 : mat(k,1794) = -rxt(k,551)*y(k,80)
1236 114070872 : mat(k,1418) = -rxt(k,552)*y(k,80)
1237 114070872 : mat(k,1908) = -rxt(k,553)*y(k,80)
1238 114070872 : mat(k,136) = -rxt(k,554)*y(k,80)
1239 114070872 : mat(k,977) = -rxt(k,555)*y(k,80)
1240 114070872 : mat(k,1367) = rxt(k,543)*y(k,75)
1241 114070872 : mat(k,1418) = mat(k,1418) + rxt(k,545)*y(k,78)
1242 114070872 : mat(k,1908) = mat(k,1908) + rxt(k,547)*y(k,78)
1243 114070872 : mat(k,143) = rxt(k,543)*y(k,70)
1244 114070872 : mat(k,272) = rxt(k,545)*y(k,72) + rxt(k,547)*y(k,73) + rxt(k,550)*y(k,133)
1245 117656469 : mat(k,977) = mat(k,977) + rxt(k,550)*y(k,78)
1246 : end do
1247 3585597 : end subroutine nlnmat05
1248 3585597 : subroutine nlnmat06( avec_len, mat, y, rxt )
1249 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1250 : implicit none
1251 : !----------------------------------------------
1252 : ! ... dummy arguments
1253 : !----------------------------------------------
1254 : integer, intent(in) :: avec_len
1255 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1256 : real(r8), intent(in) :: rxt(veclen,rxntot)
1257 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1258 : !----------------------------------------------
1259 : ! ... local variables
1260 : !----------------------------------------------
1261 : integer :: k
1262 : !----------------------------------------------
1263 : ! ... complete matrix entries implicit species
1264 : !----------------------------------------------
1265 117656469 : do k = 1,avec_len
1266 114070872 : mat(k,351) = -(rxt(k,546)*y(k,133))
1267 114070872 : mat(k,972) = -rxt(k,546)*y(k,81)
1268 114070872 : mat(k,712) = rxt(k,548)*y(k,80)
1269 114070872 : mat(k,1087) = rxt(k,549)*y(k,80)
1270 114070872 : mat(k,126) = rxt(k,541)*y(k,64) + (rxt(k,542)+.500_r8*rxt(k,556))*y(k,133)
1271 114070872 : mat(k,1790) = rxt(k,551)*y(k,80)
1272 114070872 : mat(k,1712) = rxt(k,541)*y(k,35)
1273 114070872 : mat(k,1413) = rxt(k,552)*y(k,80)
1274 114070872 : mat(k,1905) = rxt(k,553)*y(k,80)
1275 114070872 : mat(k,135) = rxt(k,554)*y(k,80)
1276 114070872 : mat(k,142) = rxt(k,544)*y(k,133)
1277 : mat(k,475) = rxt(k,548)*y(k,5) + rxt(k,549)*y(k,28) + rxt(k,551)*y(k,63) &
1278 : + rxt(k,552)*y(k,72) + rxt(k,553)*y(k,73) + rxt(k,554)*y(k,74) &
1279 114070872 : + rxt(k,555)*y(k,133)
1280 : mat(k,972) = mat(k,972) + (rxt(k,542)+.500_r8*rxt(k,556))*y(k,35) &
1281 114070872 : + rxt(k,544)*y(k,75) + rxt(k,555)*y(k,80)
1282 114070872 : mat(k,103) = -(rxt(k,557)*y(k,139))
1283 114070872 : mat(k,2032) = -rxt(k,557)*y(k,82)
1284 114070872 : mat(k,350) = rxt(k,546)*y(k,133)
1285 114070872 : mat(k,954) = rxt(k,546)*y(k,81)
1286 : mat(k,811) = -(rxt(k,105)*y(k,40) + rxt(k,107)*y(k,139) + rxt(k,108)*y(k,49) &
1287 : + rxt(k,109)*y(k,51) + rxt(k,110)*y(k,63) + rxt(k,147)*y(k,105) &
1288 : + rxt(k,154)*y(k,128) + rxt(k,177)*y(k,107) + rxt(k,195) &
1289 : *y(k,103) + rxt(k,212)*y(k,122) + rxt(k,230)*y(k,119) + rxt(k,248) &
1290 114070872 : *y(k,118))
1291 114070872 : mat(k,1755) = -rxt(k,105)*y(k,90)
1292 114070872 : mat(k,2061) = -rxt(k,107)*y(k,90)
1293 114070872 : mat(k,2000) = -rxt(k,108)*y(k,90)
1294 114070872 : mat(k,1513) = -rxt(k,109)*y(k,90)
1295 114070872 : mat(k,1804) = -rxt(k,110)*y(k,90)
1296 114070872 : mat(k,1679) = -rxt(k,147)*y(k,90)
1297 114070872 : mat(k,1593) = -rxt(k,154)*y(k,90)
1298 114070872 : mat(k,1636) = -rxt(k,177)*y(k,90)
1299 114070872 : mat(k,1230) = -rxt(k,195)*y(k,90)
1300 114070872 : mat(k,1314) = -rxt(k,212)*y(k,90)
1301 114070872 : mat(k,1187) = -rxt(k,230)*y(k,90)
1302 114070872 : mat(k,1144) = -rxt(k,248)*y(k,90)
1303 : mat(k,1471) = rxt(k,114)*y(k,94) + rxt(k,127)*y(k,97) + rxt(k,285)*y(k,111) &
1304 : + rxt(k,314)*y(k,127) + rxt(k,341)*y(k,134) + rxt(k,350) &
1305 114070872 : *y(k,135)
1306 114070872 : mat(k,1096) = rxt(k,116)*y(k,94) + rxt(k,286)*y(k,111) + rxt(k,351)*y(k,135)
1307 : mat(k,2000) = mat(k,2000) + rxt(k,130)*y(k,97) + rxt(k,289)*y(k,111) &
1308 : + rxt(k,298)*y(k,113) + rxt(k,318)*y(k,127) + rxt(k,345) &
1309 114070872 : *y(k,134) + rxt(k,356)*y(k,135)
1310 114070872 : mat(k,1956) = rxt(k,112)*y(k,93)
1311 114070872 : mat(k,1374) = rxt(k,113)*y(k,93)
1312 114070872 : mat(k,370) = rxt(k,112)*y(k,62) + rxt(k,113)*y(k,70)
1313 114070872 : mat(k,1010) = rxt(k,114)*y(k,25) + rxt(k,116)*y(k,28)
1314 114070872 : mat(k,832) = rxt(k,127)*y(k,25) + rxt(k,130)*y(k,49)
1315 114070872 : mat(k,924) = rxt(k,285)*y(k,25) + rxt(k,286)*y(k,28) + rxt(k,289)*y(k,49)
1316 114070872 : mat(k,865) = rxt(k,298)*y(k,49)
1317 114070872 : mat(k,1548) = rxt(k,314)*y(k,25) + rxt(k,318)*y(k,49)
1318 114070872 : mat(k,1837) = rxt(k,341)*y(k,25) + rxt(k,345)*y(k,49)
1319 114070872 : mat(k,1873) = rxt(k,350)*y(k,25) + rxt(k,351)*y(k,28) + rxt(k,356)*y(k,49)
1320 : mat(k,535) = -(rxt(k,106)*y(k,49) + rxt(k,159)*y(k,128) + rxt(k,164)*y(k,105) &
1321 : + rxt(k,182)*y(k,107) + rxt(k,199)*y(k,103) + rxt(k,217) &
1322 114070872 : *y(k,122) + rxt(k,234)*y(k,119) + rxt(k,252)*y(k,118))
1323 114070872 : mat(k,1993) = -rxt(k,106)*y(k,91)
1324 114070872 : mat(k,1585) = -rxt(k,159)*y(k,91)
1325 114070872 : mat(k,1672) = -rxt(k,164)*y(k,91)
1326 114070872 : mat(k,1629) = -rxt(k,182)*y(k,91)
1327 114070872 : mat(k,1223) = -rxt(k,199)*y(k,91)
1328 114070872 : mat(k,1307) = -rxt(k,217)*y(k,91)
1329 114070872 : mat(k,1180) = -rxt(k,234)*y(k,91)
1330 114070872 : mat(k,1136) = -rxt(k,252)*y(k,91)
1331 114070872 : mat(k,810) = rxt(k,107)*y(k,139)
1332 114070872 : mat(k,2051) = rxt(k,107)*y(k,90)
1333 : mat(k,519) = -((rxt(k,169) + rxt(k,268)) * y(k,107) + (rxt(k,181) + rxt(k,267) &
1334 : ) * y(k,105) + rxt(k,187)*y(k,103) + rxt(k,205)*y(k,122) &
1335 : + rxt(k,222)*y(k,119) + rxt(k,240)*y(k,118) + rxt(k,257) &
1336 114070872 : *y(k,128))
1337 114070872 : mat(k,1628) = -(rxt(k,169) + rxt(k,268)) * y(k,92)
1338 114070872 : mat(k,1671) = -(rxt(k,181) + rxt(k,267)) * y(k,92)
1339 114070872 : mat(k,1222) = -rxt(k,187)*y(k,92)
1340 114070872 : mat(k,1306) = -rxt(k,205)*y(k,92)
1341 114070872 : mat(k,1179) = -rxt(k,222)*y(k,92)
1342 114070872 : mat(k,1135) = -rxt(k,240)*y(k,92)
1343 114070872 : mat(k,1584) = -rxt(k,257)*y(k,92)
1344 114070872 : mat(k,1992) = rxt(k,108)*y(k,90) + rxt(k,106)*y(k,91)
1345 114070872 : mat(k,809) = rxt(k,108)*y(k,49)
1346 114070872 : mat(k,534) = rxt(k,106)*y(k,49)
1347 114070872 : mat(k,369) = -((rxt(k,111) + rxt(k,112)) * y(k,62) + rxt(k,113)*y(k,70))
1348 114070872 : mat(k,1945) = -(rxt(k,111) + rxt(k,112)) * y(k,93)
1349 114070872 : mat(k,1362) = -rxt(k,113)*y(k,93)
1350 114070872 : mat(k,1463) = rxt(k,115)*y(k,94)
1351 114070872 : mat(k,1089) = rxt(k,128)*y(k,97) + rxt(k,315)*y(k,127) + rxt(k,342)*y(k,134)
1352 114070872 : mat(k,1006) = rxt(k,115)*y(k,25)
1353 114070872 : mat(k,830) = rxt(k,128)*y(k,28)
1354 114070872 : mat(k,1544) = rxt(k,315)*y(k,28)
1355 114070872 : mat(k,1834) = rxt(k,342)*y(k,28)
1356 : mat(k,1014) = -((rxt(k,114) + rxt(k,115)) * y(k,25) + rxt(k,116)*y(k,28) &
1357 : + rxt(k,117)*y(k,40) + rxt(k,119)*y(k,139) + rxt(k,124)*y(k,51) &
1358 : + rxt(k,125)*y(k,70) + rxt(k,126)*y(k,72) + (rxt(k,168) &
1359 : + rxt(k,265)) * y(k,107) + (rxt(k,170) + rxt(k,258)) * y(k,105) &
1360 : + rxt(k,186)*y(k,103) + rxt(k,204)*y(k,122) + rxt(k,221) &
1361 : *y(k,119) + rxt(k,239)*y(k,118) + rxt(k,256)*y(k,128) + rxt(k,280) &
1362 114070872 : *y(k,62) + rxt(k,281)*y(k,63))
1363 114070872 : mat(k,1477) = -(rxt(k,114) + rxt(k,115)) * y(k,94)
1364 114070872 : mat(k,1102) = -rxt(k,116)*y(k,94)
1365 114070872 : mat(k,1761) = -rxt(k,117)*y(k,94)
1366 114070872 : mat(k,2066) = -rxt(k,119)*y(k,94)
1367 114070872 : mat(k,1518) = -rxt(k,124)*y(k,94)
1368 114070872 : mat(k,1380) = -rxt(k,125)*y(k,94)
1369 114070872 : mat(k,1429) = -rxt(k,126)*y(k,94)
1370 114070872 : mat(k,1642) = -(rxt(k,168) + rxt(k,265)) * y(k,94)
1371 114070872 : mat(k,1685) = -(rxt(k,170) + rxt(k,258)) * y(k,94)
1372 114070872 : mat(k,1236) = -rxt(k,186)*y(k,94)
1373 114070872 : mat(k,1320) = -rxt(k,204)*y(k,94)
1374 114070872 : mat(k,1193) = -rxt(k,221)*y(k,94)
1375 114070872 : mat(k,1150) = -rxt(k,239)*y(k,94)
1376 114070872 : mat(k,1599) = -rxt(k,256)*y(k,94)
1377 114070872 : mat(k,1961) = -rxt(k,280)*y(k,94)
1378 114070872 : mat(k,1809) = -rxt(k,281)*y(k,94)
1379 114070872 : mat(k,1278) = rxt(k,330)*y(k,130) + rxt(k,352)*y(k,135)
1380 114070872 : mat(k,1761) = mat(k,1761) + rxt(k,129)*y(k,97)
1381 114070872 : mat(k,1380) = mat(k,1380) + rxt(k,131)*y(k,97)
1382 114070872 : mat(k,838) = rxt(k,129)*y(k,40) + rxt(k,131)*y(k,70)
1383 114070872 : mat(k,597) = rxt(k,330)*y(k,32)
1384 114070872 : mat(k,1878) = rxt(k,352)*y(k,32)
1385 : mat(k,504) = -(rxt(k,153)*y(k,128) + (rxt(k,176) + rxt(k,259)) * y(k,107) &
1386 : + rxt(k,194)*y(k,103) + rxt(k,211)*y(k,122) + rxt(k,229) &
1387 : *y(k,119) + rxt(k,246)*y(k,118) + (rxt(k,247) + rxt(k,271) &
1388 114070872 : ) * y(k,105))
1389 114070872 : mat(k,1583) = -rxt(k,153)*y(k,95)
1390 114070872 : mat(k,1627) = -(rxt(k,176) + rxt(k,259)) * y(k,95)
1391 114070872 : mat(k,1221) = -rxt(k,194)*y(k,95)
1392 114070872 : mat(k,1305) = -rxt(k,211)*y(k,95)
1393 114070872 : mat(k,1178) = -rxt(k,229)*y(k,95)
1394 114070872 : mat(k,1134) = -rxt(k,246)*y(k,95)
1395 114070872 : mat(k,1670) = -(rxt(k,247) + rxt(k,271)) * y(k,95)
1396 114070872 : mat(k,667) = rxt(k,118)*y(k,139)
1397 114070872 : mat(k,2050) = rxt(k,118)*y(k,96)
1398 : mat(k,669) = -(rxt(k,118)*y(k,139) + (rxt(k,120) + rxt(k,121)) * y(k,63) &
1399 : + (rxt(k,122) + rxt(k,123)) * y(k,62) + rxt(k,155)*y(k,128) &
1400 : + (rxt(k,158) + rxt(k,260)) * y(k,105) + (rxt(k,178) + rxt(k,261) &
1401 : ) * y(k,107) + rxt(k,196)*y(k,103) + rxt(k,213)*y(k,122) &
1402 114070872 : + rxt(k,231)*y(k,119) + rxt(k,249)*y(k,118))
1403 114070872 : mat(k,2056) = -rxt(k,118)*y(k,96)
1404 114070872 : mat(k,1799) = -(rxt(k,120) + rxt(k,121)) * y(k,96)
1405 114070872 : mat(k,1951) = -(rxt(k,122) + rxt(k,123)) * y(k,96)
1406 114070872 : mat(k,1590) = -rxt(k,155)*y(k,96)
1407 114070872 : mat(k,1677) = -(rxt(k,158) + rxt(k,260)) * y(k,96)
1408 114070872 : mat(k,1634) = -(rxt(k,178) + rxt(k,261)) * y(k,96)
1409 114070872 : mat(k,1228) = -rxt(k,196)*y(k,96)
1410 114070872 : mat(k,1312) = -rxt(k,213)*y(k,96)
1411 114070872 : mat(k,1185) = -rxt(k,231)*y(k,96)
1412 114070872 : mat(k,1141) = -rxt(k,249)*y(k,96)
1413 114070872 : mat(k,1008) = rxt(k,119)*y(k,139)
1414 114070872 : mat(k,2056) = mat(k,2056) + rxt(k,119)*y(k,94)
1415 : mat(k,833) = -(rxt(k,127)*y(k,25) + rxt(k,128)*y(k,28) + rxt(k,129)*y(k,40) &
1416 : + rxt(k,130)*y(k,49) + rxt(k,131)*y(k,70) + rxt(k,132)*y(k,73) &
1417 : + rxt(k,151)*y(k,128) + rxt(k,174)*y(k,107) + rxt(k,191) &
1418 : *y(k,103) + rxt(k,209)*y(k,122) + rxt(k,225)*y(k,105) + rxt(k,227) &
1419 114070872 : *y(k,119) + rxt(k,244)*y(k,118))
1420 114070872 : mat(k,1472) = -rxt(k,127)*y(k,97)
1421 114070872 : mat(k,1097) = -rxt(k,128)*y(k,97)
1422 114070872 : mat(k,1756) = -rxt(k,129)*y(k,97)
1423 114070872 : mat(k,2001) = -rxt(k,130)*y(k,97)
1424 114070872 : mat(k,1375) = -rxt(k,131)*y(k,97)
1425 114070872 : mat(k,1914) = -rxt(k,132)*y(k,97)
1426 114070872 : mat(k,1594) = -rxt(k,151)*y(k,97)
1427 114070872 : mat(k,1637) = -rxt(k,174)*y(k,97)
1428 114070872 : mat(k,1231) = -rxt(k,191)*y(k,97)
1429 114070872 : mat(k,1315) = -rxt(k,209)*y(k,97)
1430 114070872 : mat(k,1680) = -rxt(k,225)*y(k,97)
1431 114070872 : mat(k,1188) = -rxt(k,227)*y(k,97)
1432 114070872 : mat(k,1145) = -rxt(k,244)*y(k,97)
1433 114070872 : mat(k,1273) = rxt(k,316)*y(k,127) + rxt(k,335)*y(k,131)
1434 114070872 : mat(k,1549) = rxt(k,316)*y(k,32)
1435 114070872 : mat(k,241) = rxt(k,335)*y(k,32)
1436 : mat(k,1058) = -((rxt(k,133) + rxt(k,135)) * y(k,72) + rxt(k,134)*y(k,73) &
1437 : + rxt(k,138)*y(k,99) + rxt(k,141)*y(k,105) + rxt(k,144)*y(k,107) &
1438 : + rxt(k,303)*y(k,119) + rxt(k,304)*y(k,120) + rxt(k,306) &
1439 : *y(k,121) + rxt(k,308)*y(k,122) + rxt(k,326)*y(k,129) + rxt(k,380) &
1440 : *y(k,132) + rxt(k,381)*y(k,108) + rxt(k,382)*y(k,102) + rxt(k,383) &
1441 : *y(k,103) + rxt(k,384)*y(k,123) + rxt(k,582)*y(k,118) + rxt(k,583) &
1442 114070872 : *y(k,128) + rxt(k,584)*y(k,110))
1443 114070872 : mat(k,1430) = -(rxt(k,133) + rxt(k,135)) * y(k,98)
1444 114070872 : mat(k,1920) = -rxt(k,134)*y(k,98)
1445 114070872 : mat(k,170) = -rxt(k,138)*y(k,98)
1446 114070872 : mat(k,1686) = -rxt(k,141)*y(k,98)
1447 114070872 : mat(k,1643) = -rxt(k,144)*y(k,98)
1448 114070872 : mat(k,1194) = -rxt(k,303)*y(k,98)
1449 114070872 : mat(k,175) = -rxt(k,304)*y(k,98)
1450 114070872 : mat(k,265) = -rxt(k,306)*y(k,98)
1451 114070872 : mat(k,1321) = -rxt(k,308)*y(k,98)
1452 114070872 : mat(k,294) = -rxt(k,326)*y(k,98)
1453 114070872 : mat(k,463) = -rxt(k,380)*y(k,98)
1454 114070872 : mat(k,285) = -rxt(k,381)*y(k,98)
1455 114070872 : mat(k,248) = -rxt(k,382)*y(k,98)
1456 114070872 : mat(k,1237) = -rxt(k,383)*y(k,98)
1457 114070872 : mat(k,258) = -rxt(k,384)*y(k,98)
1458 114070872 : mat(k,1151) = -rxt(k,582)*y(k,98)
1459 114070872 : mat(k,1600) = -rxt(k,583)*y(k,98)
1460 114070872 : mat(k,234) = -rxt(k,584)*y(k,98)
1461 114070872 : mat(k,1762) = rxt(k,105)*y(k,90) + rxt(k,317)*y(k,127) + rxt(k,344)*y(k,134)
1462 114070872 : mat(k,652) = rxt(k,353)*y(k,135)
1463 114070872 : mat(k,1962) = rxt(k,136)*y(k,135)
1464 : mat(k,1381) = rxt(k,324)*y(k,127) + rxt(k,333)*y(k,130) + rxt(k,347)*y(k,134) &
1465 114070872 : + rxt(k,360)*y(k,135)
1466 114070872 : mat(k,1920) = mat(k,1920) + rxt(k,332)*y(k,130)
1467 114070872 : mat(k,814) = rxt(k,105)*y(k,40)
1468 114070872 : mat(k,379) = rxt(k,321)*y(k,127) + rxt(k,361)*y(k,135)
1469 114070872 : mat(k,1555) = rxt(k,317)*y(k,40) + rxt(k,324)*y(k,70) + rxt(k,321)*y(k,125)
1470 114070872 : mat(k,598) = rxt(k,333)*y(k,70) + rxt(k,332)*y(k,73)
1471 114070872 : mat(k,1843) = rxt(k,344)*y(k,40) + rxt(k,347)*y(k,70)
1472 : mat(k,1879) = rxt(k,353)*y(k,41) + rxt(k,136)*y(k,62) + rxt(k,360)*y(k,70) &
1473 117656469 : + rxt(k,361)*y(k,125)
1474 : end do
1475 3585597 : end subroutine nlnmat06
1476 3585597 : subroutine nlnmat07( avec_len, mat, y, rxt )
1477 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1478 : implicit none
1479 : !----------------------------------------------
1480 : ! ... dummy arguments
1481 : !----------------------------------------------
1482 : integer, intent(in) :: avec_len
1483 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1484 : real(r8), intent(in) :: rxt(veclen,rxntot)
1485 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1486 : !----------------------------------------------
1487 : ! ... local variables
1488 : !----------------------------------------------
1489 : integer :: k
1490 : !----------------------------------------------
1491 : ! ... complete matrix entries implicit species
1492 : !----------------------------------------------
1493 117656469 : do k = 1,avec_len
1494 114070872 : mat(k,167) = -(rxt(k,138)*y(k,98) + rxt(k,139)*y(k,139))
1495 114070872 : mat(k,1039) = -rxt(k,138)*y(k,99)
1496 114070872 : mat(k,2036) = -rxt(k,139)*y(k,99)
1497 114070872 : mat(k,289) = rxt(k,327)*y(k,139)
1498 114070872 : mat(k,2036) = mat(k,2036) + rxt(k,327)*y(k,129)
1499 : mat(k,490) = -(rxt(k,149)*y(k,128) + rxt(k,172)*y(k,107) + rxt(k,189) &
1500 : *y(k,103) + rxt(k,203)*y(k,105) + rxt(k,207)*y(k,122) + rxt(k,224) &
1501 114070872 : *y(k,119) + rxt(k,242)*y(k,118))
1502 114070872 : mat(k,1582) = -rxt(k,149)*y(k,100)
1503 114070872 : mat(k,1626) = -rxt(k,172)*y(k,100)
1504 114070872 : mat(k,1220) = -rxt(k,189)*y(k,100)
1505 114070872 : mat(k,1669) = -rxt(k,203)*y(k,100)
1506 114070872 : mat(k,1304) = -rxt(k,207)*y(k,100)
1507 114070872 : mat(k,1177) = -rxt(k,224)*y(k,100)
1508 114070872 : mat(k,1133) = -rxt(k,242)*y(k,100)
1509 114070872 : mat(k,1270) = rxt(k,343)*y(k,134)
1510 114070872 : mat(k,1835) = rxt(k,343)*y(k,32)
1511 : mat(k,900) = -(rxt(k,310)*y(k,122) + (rxt(k,408) + rxt(k,409) + rxt(k,410) &
1512 : ) * y(k,40) + rxt(k,412)*y(k,70) + rxt(k,413)*y(k,73) + rxt(k,417) &
1513 : *y(k,133) + 4._r8*rxt(k,422)*y(k,101) + rxt(k,434)*y(k,64) &
1514 : + rxt(k,439)*y(k,62) + rxt(k,444)*y(k,63) + (rxt(k,454) &
1515 : + rxt(k,455)) * y(k,25) + rxt(k,461)*y(k,28) + rxt(k,487)*y(k,3) &
1516 114070872 : + rxt(k,493)*y(k,5) + rxt(k,533)*y(k,21))
1517 114070872 : mat(k,1317) = -rxt(k,310)*y(k,101)
1518 114070872 : mat(k,1758) = -(rxt(k,408) + rxt(k,409) + rxt(k,410)) * y(k,101)
1519 114070872 : mat(k,1377) = -rxt(k,412)*y(k,101)
1520 114070872 : mat(k,1916) = -rxt(k,413)*y(k,101)
1521 114070872 : mat(k,983) = -rxt(k,417)*y(k,101)
1522 114070872 : mat(k,1723) = -rxt(k,434)*y(k,101)
1523 114070872 : mat(k,1958) = -rxt(k,439)*y(k,101)
1524 114070872 : mat(k,1806) = -rxt(k,444)*y(k,101)
1525 114070872 : mat(k,1474) = -(rxt(k,454) + rxt(k,455)) * y(k,101)
1526 114070872 : mat(k,1099) = -rxt(k,461)*y(k,101)
1527 114070872 : mat(k,586) = -rxt(k,487)*y(k,101)
1528 114070872 : mat(k,718) = -rxt(k,493)*y(k,101)
1529 114070872 : mat(k,434) = -rxt(k,533)*y(k,101)
1530 114070872 : mat(k,586) = mat(k,586) + rxt(k,486)*y(k,17)
1531 114070872 : mat(k,718) = mat(k,718) + rxt(k,498)*y(k,133)
1532 : mat(k,740) = rxt(k,486)*y(k,3) + rxt(k,450)*y(k,25) + rxt(k,530)*y(k,64) &
1533 114070872 : + rxt(k,531)*y(k,70)
1534 114070872 : mat(k,225) = rxt(k,515)*y(k,25) + rxt(k,516)*y(k,133)
1535 114070872 : mat(k,150) = rxt(k,518)*y(k,25) + rxt(k,519)*y(k,133)
1536 114070872 : mat(k,434) = mat(k,434) + rxt(k,457)*y(k,28) + rxt(k,534)*y(k,62)
1537 114070872 : mat(k,421) = rxt(k,538)*y(k,71)
1538 : mat(k,1474) = mat(k,1474) + rxt(k,450)*y(k,17) + rxt(k,515)*y(k,18) &
1539 114070872 : + rxt(k,518)*y(k,20) + rxt(k,453)*y(k,43)
1540 114070872 : mat(k,1099) = mat(k,1099) + rxt(k,457)*y(k,21) + rxt(k,468)*y(k,133)
1541 114070872 : mat(k,253) = rxt(k,540)*y(k,133)
1542 114070872 : mat(k,127) = .500_r8*rxt(k,556)*y(k,133)
1543 114070872 : mat(k,1758) = mat(k,1758) + rxt(k,411)*y(k,72) + rxt(k,317)*y(k,127)
1544 114070872 : mat(k,215) = rxt(k,453)*y(k,25) + rxt(k,407)*y(k,70) + rxt(k,416)*y(k,133)
1545 114070872 : mat(k,2003) = rxt(k,130)*y(k,97) + rxt(k,318)*y(k,127)
1546 114070872 : mat(k,1515) = rxt(k,319)*y(k,127)
1547 114070872 : mat(k,1958) = mat(k,1958) + rxt(k,534)*y(k,21)
1548 114070872 : mat(k,1723) = mat(k,1723) + rxt(k,530)*y(k,17) + rxt(k,437)*y(k,133)
1549 : mat(k,1377) = mat(k,1377) + rxt(k,531)*y(k,17) + rxt(k,407)*y(k,43) &
1550 114070872 : + rxt(k,347)*y(k,134)
1551 114070872 : mat(k,788) = rxt(k,538)*y(k,23)
1552 114070872 : mat(k,1426) = rxt(k,411)*y(k,40)
1553 114070872 : mat(k,1916) = mat(k,1916) + rxt(k,419)*y(k,133)
1554 114070872 : mat(k,353) = rxt(k,546)*y(k,133)
1555 114070872 : mat(k,835) = rxt(k,130)*y(k,49)
1556 114070872 : mat(k,1551) = rxt(k,317)*y(k,40) + rxt(k,318)*y(k,49) + rxt(k,319)*y(k,51)
1557 : mat(k,983) = mat(k,983) + rxt(k,498)*y(k,5) + rxt(k,516)*y(k,18) + rxt(k,519) &
1558 : *y(k,20) + rxt(k,468)*y(k,28) + rxt(k,540)*y(k,31) &
1559 : + .500_r8*rxt(k,556)*y(k,35) + rxt(k,416)*y(k,43) + rxt(k,437) &
1560 114070872 : *y(k,64) + rxt(k,419)*y(k,73) + rxt(k,546)*y(k,81)
1561 114070872 : mat(k,1839) = rxt(k,347)*y(k,70)
1562 114070872 : mat(k,246) = -(rxt(k,374)*y(k,139) + rxt(k,382)*y(k,98))
1563 114070872 : mat(k,2038) = -rxt(k,374)*y(k,102)
1564 114070872 : mat(k,1044) = -rxt(k,382)*y(k,102)
1565 114070872 : mat(k,168) = rxt(k,139)*y(k,139)
1566 114070872 : mat(k,283) = rxt(k,372)*y(k,139)
1567 114070872 : mat(k,2038) = mat(k,2038) + rxt(k,139)*y(k,99) + rxt(k,372)*y(k,108)
1568 : mat(k,1241) = -(rxt(k,185)*y(k,117) + rxt(k,186)*y(k,94) + rxt(k,187)*y(k,92) &
1569 : + rxt(k,188)*y(k,113) + rxt(k,189)*y(k,100) + rxt(k,190) &
1570 : *y(k,127) + rxt(k,191)*y(k,97) + rxt(k,193)*y(k,115) + rxt(k,194) &
1571 : *y(k,95) + rxt(k,195)*y(k,90) + rxt(k,196)*y(k,96) + rxt(k,197) &
1572 : *y(k,112) + rxt(k,198)*y(k,116) + rxt(k,199)*y(k,91) + rxt(k,200) &
1573 : *y(k,114) + rxt(k,201)*y(k,111) + rxt(k,376)*y(k,139) + rxt(k,383) &
1574 114070872 : *y(k,98))
1575 114070872 : mat(k,613) = -rxt(k,185)*y(k,103)
1576 114070872 : mat(k,1019) = -rxt(k,186)*y(k,103)
1577 114070872 : mat(k,523) = -rxt(k,187)*y(k,103)
1578 114070872 : mat(k,871) = -rxt(k,188)*y(k,103)
1579 114070872 : mat(k,494) = -rxt(k,189)*y(k,103)
1580 114070872 : mat(k,1559) = -rxt(k,190)*y(k,103)
1581 114070872 : mat(k,843) = -rxt(k,191)*y(k,103)
1582 114070872 : mat(k,695) = -rxt(k,193)*y(k,103)
1583 114070872 : mat(k,508) = -rxt(k,194)*y(k,103)
1584 114070872 : mat(k,817) = -rxt(k,195)*y(k,103)
1585 114070872 : mat(k,676) = -rxt(k,196)*y(k,103)
1586 114070872 : mat(k,554) = -rxt(k,197)*y(k,103)
1587 114070872 : mat(k,568) = -rxt(k,198)*y(k,103)
1588 114070872 : mat(k,539) = -rxt(k,199)*y(k,103)
1589 114070872 : mat(k,630) = -rxt(k,200)*y(k,103)
1590 114070872 : mat(k,932) = -rxt(k,201)*y(k,103)
1591 114070872 : mat(k,2071) = -rxt(k,376)*y(k,103)
1592 114070872 : mat(k,1062) = -rxt(k,383)*y(k,103)
1593 114070872 : mat(k,249) = rxt(k,374)*y(k,139)
1594 114070872 : mat(k,176) = rxt(k,305)*y(k,139)
1595 114070872 : mat(k,2071) = mat(k,2071) + rxt(k,374)*y(k,102) + rxt(k,305)*y(k,120)
1596 114070872 : mat(k,107) = -(rxt(k,140)*y(k,139))
1597 114070872 : mat(k,2033) = -rxt(k,140)*y(k,104)
1598 114070872 : mat(k,399) = rxt(k,142)*y(k,105)
1599 114070872 : mat(k,1667) = rxt(k,142)*y(k,58)
1600 : mat(k,1700) = -(rxt(k,141)*y(k,98) + rxt(k,142)*y(k,58) + (rxt(k,146) &
1601 : + rxt(k,269)) * y(k,117) + rxt(k,147)*y(k,90) + (rxt(k,158) &
1602 : + rxt(k,260)) * y(k,96) + rxt(k,162)*y(k,112) + rxt(k,163) &
1603 : *y(k,116) + rxt(k,164)*y(k,91) + rxt(k,165)*y(k,114) + rxt(k,166) &
1604 : *y(k,111) + (rxt(k,170) + rxt(k,258)) * y(k,94) + (rxt(k,181) &
1605 : + rxt(k,267)) * y(k,92) + (rxt(k,192) + rxt(k,264)) * y(k,113) &
1606 : + rxt(k,203)*y(k,100) + rxt(k,214)*y(k,127) + rxt(k,225)*y(k,97) &
1607 : + (rxt(k,236) + rxt(k,262)) * y(k,115) + (rxt(k,247) + rxt(k,271) &
1608 114070872 : ) * y(k,95) + rxt(k,378)*y(k,139))
1609 114070872 : mat(k,1072) = -rxt(k,141)*y(k,105)
1610 114070872 : mat(k,408) = -rxt(k,142)*y(k,105)
1611 114070872 : mat(k,619) = -(rxt(k,146) + rxt(k,269)) * y(k,105)
1612 114070872 : mat(k,824) = -rxt(k,147)*y(k,105)
1613 114070872 : mat(k,683) = -(rxt(k,158) + rxt(k,260)) * y(k,105)
1614 114070872 : mat(k,559) = -rxt(k,162)*y(k,105)
1615 114070872 : mat(k,574) = -rxt(k,163)*y(k,105)
1616 114070872 : mat(k,545) = -rxt(k,164)*y(k,105)
1617 114070872 : mat(k,637) = -rxt(k,165)*y(k,105)
1618 114070872 : mat(k,940) = -rxt(k,166)*y(k,105)
1619 114070872 : mat(k,1029) = -(rxt(k,170) + rxt(k,258)) * y(k,105)
1620 114070872 : mat(k,529) = -(rxt(k,181) + rxt(k,267)) * y(k,105)
1621 114070872 : mat(k,879) = -(rxt(k,192) + rxt(k,264)) * y(k,105)
1622 114070872 : mat(k,500) = -rxt(k,203)*y(k,105)
1623 114070872 : mat(k,1569) = -rxt(k,214)*y(k,105)
1624 114070872 : mat(k,853) = -rxt(k,225)*y(k,105)
1625 114070872 : mat(k,702) = -(rxt(k,236) + rxt(k,262)) * y(k,105)
1626 114070872 : mat(k,515) = -(rxt(k,247) + rxt(k,271)) * y(k,105)
1627 114070872 : mat(k,2081) = -rxt(k,378)*y(k,105)
1628 114070872 : mat(k,1251) = rxt(k,376)*y(k,139)
1629 114070872 : mat(k,109) = rxt(k,140)*y(k,139)
1630 114070872 : mat(k,2081) = mat(k,2081) + rxt(k,376)*y(k,103) + rxt(k,140)*y(k,104)
1631 114070872 : mat(k,111) = -(rxt(k,143)*y(k,139))
1632 114070872 : mat(k,2034) = -rxt(k,143)*y(k,106)
1633 114070872 : mat(k,400) = rxt(k,145)*y(k,107)
1634 114070872 : mat(k,1624) = rxt(k,145)*y(k,58)
1635 : mat(k,1656) = -(rxt(k,144)*y(k,98) + rxt(k,145)*y(k,58) + (rxt(k,167) &
1636 : + rxt(k,270)) * y(k,117) + (rxt(k,168) + rxt(k,265)) * y(k,94) &
1637 : + (rxt(k,169) + rxt(k,268)) * y(k,92) + (rxt(k,171) + rxt(k,266) &
1638 : ) * y(k,113) + rxt(k,172)*y(k,100) + rxt(k,173)*y(k,127) &
1639 : + rxt(k,174)*y(k,97) + (rxt(k,175) + rxt(k,263)) * y(k,115) &
1640 : + (rxt(k,176) + rxt(k,259)) * y(k,95) + rxt(k,177)*y(k,90) &
1641 : + (rxt(k,178) + rxt(k,261)) * y(k,96) + rxt(k,179)*y(k,112) &
1642 : + rxt(k,180)*y(k,116) + rxt(k,182)*y(k,91) + rxt(k,183)*y(k,114) &
1643 114070872 : + rxt(k,184)*y(k,111))
1644 114070872 : mat(k,1071) = -rxt(k,144)*y(k,107)
1645 114070872 : mat(k,407) = -rxt(k,145)*y(k,107)
1646 114070872 : mat(k,618) = -(rxt(k,167) + rxt(k,270)) * y(k,107)
1647 114070872 : mat(k,1028) = -(rxt(k,168) + rxt(k,265)) * y(k,107)
1648 114070872 : mat(k,528) = -(rxt(k,169) + rxt(k,268)) * y(k,107)
1649 114070872 : mat(k,878) = -(rxt(k,171) + rxt(k,266)) * y(k,107)
1650 114070872 : mat(k,499) = -rxt(k,172)*y(k,107)
1651 114070872 : mat(k,1568) = -rxt(k,173)*y(k,107)
1652 114070872 : mat(k,852) = -rxt(k,174)*y(k,107)
1653 114070872 : mat(k,701) = -(rxt(k,175) + rxt(k,263)) * y(k,107)
1654 114070872 : mat(k,514) = -(rxt(k,176) + rxt(k,259)) * y(k,107)
1655 114070872 : mat(k,823) = -rxt(k,177)*y(k,107)
1656 114070872 : mat(k,682) = -(rxt(k,178) + rxt(k,261)) * y(k,107)
1657 114070872 : mat(k,558) = -rxt(k,179)*y(k,107)
1658 114070872 : mat(k,573) = -rxt(k,180)*y(k,107)
1659 114070872 : mat(k,544) = -rxt(k,182)*y(k,107)
1660 114070872 : mat(k,636) = -rxt(k,183)*y(k,107)
1661 114070872 : mat(k,939) = -rxt(k,184)*y(k,107)
1662 114070872 : mat(k,1699) = rxt(k,378)*y(k,139)
1663 114070872 : mat(k,113) = rxt(k,143)*y(k,139)
1664 114070872 : mat(k,2080) = rxt(k,378)*y(k,105) + rxt(k,143)*y(k,106)
1665 114070872 : mat(k,284) = -(rxt(k,372)*y(k,139) + rxt(k,381)*y(k,98))
1666 114070872 : mat(k,2042) = -rxt(k,372)*y(k,108)
1667 114070872 : mat(k,1048) = -rxt(k,381)*y(k,108)
1668 114070872 : mat(k,1750) = rxt(k,309)*y(k,122)
1669 114070872 : mat(k,890) = rxt(k,310)*y(k,122)
1670 114070872 : mat(k,1303) = rxt(k,309)*y(k,40) + rxt(k,310)*y(k,101) + rxt(k,311)*y(k,133)
1671 114070872 : mat(k,291) = rxt(k,328)*y(k,139)
1672 114070872 : mat(k,968) = rxt(k,311)*y(k,122)
1673 114070872 : mat(k,2042) = mat(k,2042) + rxt(k,328)*y(k,129)
1674 114070872 : mat(k,300) = -(rxt(k,424)*y(k,70) + rxt(k,425)*y(k,72) + rxt(k,596)*y(k,136))
1675 114070872 : mat(k,1355) = -rxt(k,424)*y(k,109)
1676 114070872 : mat(k,1411) = -rxt(k,425)*y(k,109)
1677 114070872 : mat(k,386) = -rxt(k,596)*y(k,109)
1678 114070872 : mat(k,1355) = mat(k,1355) + rxt(k,586)*y(k,110)
1679 114070872 : mat(k,1050) = .900_r8*rxt(k,584)*y(k,110) + .800_r8*rxt(k,582)*y(k,118)
1680 114070872 : mat(k,231) = rxt(k,586)*y(k,70) + .900_r8*rxt(k,584)*y(k,98)
1681 114070872 : mat(k,1129) = .800_r8*rxt(k,582)*y(k,98)
1682 : mat(k,230) = -(rxt(k,584)*y(k,98) + rxt(k,585)*y(k,72) + (rxt(k,586) &
1683 114070872 : + rxt(k,587)) * y(k,70))
1684 114070872 : mat(k,1043) = -rxt(k,584)*y(k,110)
1685 114070872 : mat(k,1408) = -rxt(k,585)*y(k,110)
1686 114070872 : mat(k,1351) = -(rxt(k,586) + rxt(k,587)) * y(k,110)
1687 : mat(k,926) = -(rxt(k,161)*y(k,128) + rxt(k,166)*y(k,105) + rxt(k,184) &
1688 : *y(k,107) + rxt(k,201)*y(k,103) + rxt(k,219)*y(k,122) + rxt(k,237) &
1689 : *y(k,119) + rxt(k,254)*y(k,118) + rxt(k,285)*y(k,25) + rxt(k,286) &
1690 : *y(k,28) + rxt(k,287)*y(k,40) + rxt(k,288)*y(k,139) + rxt(k,289) &
1691 : *y(k,49) + rxt(k,290)*y(k,51) + rxt(k,291)*y(k,63) + rxt(k,292) &
1692 114070872 : *y(k,73))
1693 114070872 : mat(k,1597) = -rxt(k,161)*y(k,111)
1694 114070872 : mat(k,1683) = -rxt(k,166)*y(k,111)
1695 114070872 : mat(k,1640) = -rxt(k,184)*y(k,111)
1696 114070872 : mat(k,1234) = -rxt(k,201)*y(k,111)
1697 114070872 : mat(k,1318) = -rxt(k,219)*y(k,111)
1698 114070872 : mat(k,1191) = -rxt(k,237)*y(k,111)
1699 114070872 : mat(k,1148) = -rxt(k,254)*y(k,111)
1700 114070872 : mat(k,1475) = -rxt(k,285)*y(k,111)
1701 114070872 : mat(k,1100) = -rxt(k,286)*y(k,111)
1702 114070872 : mat(k,1759) = -rxt(k,287)*y(k,111)
1703 114070872 : mat(k,2064) = -rxt(k,288)*y(k,111)
1704 114070872 : mat(k,2004) = -rxt(k,289)*y(k,111)
1705 114070872 : mat(k,1516) = -rxt(k,290)*y(k,111)
1706 114070872 : mat(k,1807) = -rxt(k,291)*y(k,111)
1707 114070872 : mat(k,1917) = -rxt(k,292)*y(k,111)
1708 : mat(k,1959) = rxt(k,111)*y(k,93) + rxt(k,280)*y(k,94) + rxt(k,123)*y(k,96) &
1709 114070872 : + rxt(k,279)*y(k,130)
1710 : mat(k,1807) = mat(k,1807) + rxt(k,110)*y(k,90) + rxt(k,320)*y(k,127) &
1711 : + rxt(k,278)*y(k,130) + rxt(k,346)*y(k,134) + rxt(k,359) &
1712 114070872 : *y(k,135)
1713 114070872 : mat(k,1378) = rxt(k,301)*y(k,113)
1714 114070872 : mat(k,1917) = mat(k,1917) + rxt(k,302)*y(k,113)
1715 114070872 : mat(k,813) = rxt(k,110)*y(k,63)
1716 114070872 : mat(k,371) = rxt(k,111)*y(k,62)
1717 114070872 : mat(k,1012) = rxt(k,280)*y(k,62)
1718 114070872 : mat(k,672) = rxt(k,123)*y(k,62)
1719 114070872 : mat(k,867) = rxt(k,301)*y(k,70) + rxt(k,302)*y(k,73)
1720 114070872 : mat(k,1552) = rxt(k,320)*y(k,63)
1721 114070872 : mat(k,596) = rxt(k,279)*y(k,62) + rxt(k,278)*y(k,63)
1722 114070872 : mat(k,1840) = rxt(k,346)*y(k,63)
1723 117656469 : mat(k,1876) = rxt(k,359)*y(k,63)
1724 : end do
1725 3585597 : end subroutine nlnmat07
1726 3585597 : subroutine nlnmat08( avec_len, mat, y, rxt )
1727 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1728 : implicit none
1729 : !----------------------------------------------
1730 : ! ... dummy arguments
1731 : !----------------------------------------------
1732 : integer, intent(in) :: avec_len
1733 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1734 : real(r8), intent(in) :: rxt(veclen,rxntot)
1735 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1736 : !----------------------------------------------
1737 : ! ... local variables
1738 : !----------------------------------------------
1739 : integer :: k
1740 : !----------------------------------------------
1741 : ! ... complete matrix entries implicit species
1742 : !----------------------------------------------
1743 117656469 : do k = 1,avec_len
1744 114070872 : mat(k,550) = -(rxt(k,156)*y(k,128) + rxt(k,162)*y(k,105) + rxt(k,179) &
1745 : *y(k,107) + rxt(k,197)*y(k,103) + rxt(k,215)*y(k,122) + rxt(k,232) &
1746 114070872 : *y(k,119) + rxt(k,250)*y(k,118))
1747 114070872 : mat(k,1586) = -rxt(k,156)*y(k,112)
1748 114070872 : mat(k,1673) = -rxt(k,162)*y(k,112)
1749 114070872 : mat(k,1630) = -rxt(k,179)*y(k,112)
1750 114070872 : mat(k,1224) = -rxt(k,197)*y(k,112)
1751 114070872 : mat(k,1308) = -rxt(k,215)*y(k,112)
1752 114070872 : mat(k,1181) = -rxt(k,232)*y(k,112)
1753 114070872 : mat(k,1137) = -rxt(k,250)*y(k,112)
1754 114070872 : mat(k,1948) = rxt(k,122)*y(k,96)
1755 114070872 : mat(k,668) = rxt(k,122)*y(k,62)
1756 114070872 : mat(k,923) = rxt(k,288)*y(k,139)
1757 114070872 : mat(k,2052) = rxt(k,288)*y(k,111)
1758 : mat(k,866) = -(rxt(k,148)*y(k,128) + (rxt(k,171) + rxt(k,266)) * y(k,107) &
1759 : + rxt(k,188)*y(k,103) + (rxt(k,192) + rxt(k,264)) * y(k,105) &
1760 : + rxt(k,206)*y(k,122) + rxt(k,223)*y(k,119) + rxt(k,241) &
1761 : *y(k,118) + (rxt(k,276) + rxt(k,298)) * y(k,49) + rxt(k,296) &
1762 : *y(k,139) + rxt(k,300)*y(k,51) + rxt(k,301)*y(k,70) + rxt(k,302) &
1763 114070872 : *y(k,73))
1764 114070872 : mat(k,1595) = -rxt(k,148)*y(k,113)
1765 114070872 : mat(k,1638) = -(rxt(k,171) + rxt(k,266)) * y(k,113)
1766 114070872 : mat(k,1232) = -rxt(k,188)*y(k,113)
1767 114070872 : mat(k,1681) = -(rxt(k,192) + rxt(k,264)) * y(k,113)
1768 114070872 : mat(k,1316) = -rxt(k,206)*y(k,113)
1769 114070872 : mat(k,1189) = -rxt(k,223)*y(k,113)
1770 114070872 : mat(k,1146) = -rxt(k,241)*y(k,113)
1771 114070872 : mat(k,2002) = -(rxt(k,276) + rxt(k,298)) * y(k,113)
1772 114070872 : mat(k,2062) = -rxt(k,296)*y(k,113)
1773 114070872 : mat(k,1514) = -rxt(k,300)*y(k,113)
1774 114070872 : mat(k,1376) = -rxt(k,301)*y(k,113)
1775 114070872 : mat(k,1915) = -rxt(k,302)*y(k,113)
1776 : mat(k,1514) = mat(k,1514) + rxt(k,109)*y(k,90) + rxt(k,124)*y(k,94) &
1777 : + rxt(k,290)*y(k,111) + rxt(k,319)*y(k,127) + rxt(k,357) &
1778 114070872 : *y(k,135)
1779 114070872 : mat(k,1957) = rxt(k,272)*y(k,130)
1780 : mat(k,1805) = rxt(k,281)*y(k,94) + rxt(k,120)*y(k,96) + rxt(k,291)*y(k,111) &
1781 114070872 : + rxt(k,277)*y(k,130)
1782 114070872 : mat(k,1915) = mat(k,1915) + rxt(k,292)*y(k,111)
1783 114070872 : mat(k,812) = rxt(k,109)*y(k,51)
1784 114070872 : mat(k,1011) = rxt(k,124)*y(k,51) + rxt(k,281)*y(k,63)
1785 114070872 : mat(k,671) = rxt(k,120)*y(k,63)
1786 114070872 : mat(k,925) = rxt(k,290)*y(k,51) + rxt(k,291)*y(k,63) + rxt(k,292)*y(k,73)
1787 114070872 : mat(k,1550) = rxt(k,319)*y(k,51)
1788 114070872 : mat(k,595) = rxt(k,272)*y(k,62) + rxt(k,277)*y(k,63)
1789 114070872 : mat(k,1874) = rxt(k,357)*y(k,51)
1790 : mat(k,625) = -(rxt(k,160)*y(k,128) + rxt(k,165)*y(k,105) + rxt(k,183) &
1791 : *y(k,107) + rxt(k,200)*y(k,103) + rxt(k,218)*y(k,122) + rxt(k,235) &
1792 114070872 : *y(k,119) + rxt(k,253)*y(k,118) + rxt(k,293)*y(k,58))
1793 114070872 : mat(k,1589) = -rxt(k,160)*y(k,114)
1794 114070872 : mat(k,1676) = -rxt(k,165)*y(k,114)
1795 114070872 : mat(k,1633) = -rxt(k,183)*y(k,114)
1796 114070872 : mat(k,1227) = -rxt(k,200)*y(k,114)
1797 114070872 : mat(k,1311) = -rxt(k,218)*y(k,114)
1798 114070872 : mat(k,1184) = -rxt(k,235)*y(k,114)
1799 114070872 : mat(k,1140) = -rxt(k,253)*y(k,114)
1800 114070872 : mat(k,403) = -rxt(k,293)*y(k,114)
1801 114070872 : mat(k,690) = rxt(k,294)*y(k,139)
1802 114070872 : mat(k,2054) = rxt(k,294)*y(k,115)
1803 : mat(k,691) = -(rxt(k,152)*y(k,128) + (rxt(k,175) + rxt(k,263)) * y(k,107) &
1804 : + rxt(k,193)*y(k,103) + rxt(k,210)*y(k,122) + rxt(k,228) &
1805 : *y(k,119) + (rxt(k,236) + rxt(k,262)) * y(k,105) + rxt(k,245) &
1806 : *y(k,118) + rxt(k,294)*y(k,139) + rxt(k,295)*y(k,51) + rxt(k,297) &
1807 114070872 : *y(k,58))
1808 114070872 : mat(k,1591) = -rxt(k,152)*y(k,115)
1809 114070872 : mat(k,1635) = -(rxt(k,175) + rxt(k,263)) * y(k,115)
1810 114070872 : mat(k,1229) = -rxt(k,193)*y(k,115)
1811 114070872 : mat(k,1313) = -rxt(k,210)*y(k,115)
1812 114070872 : mat(k,1186) = -rxt(k,228)*y(k,115)
1813 114070872 : mat(k,1678) = -(rxt(k,236) + rxt(k,262)) * y(k,115)
1814 114070872 : mat(k,1142) = -rxt(k,245)*y(k,115)
1815 114070872 : mat(k,2057) = -rxt(k,294)*y(k,115)
1816 114070872 : mat(k,1510) = -rxt(k,295)*y(k,115)
1817 114070872 : mat(k,404) = -rxt(k,297)*y(k,115)
1818 114070872 : mat(k,1800) = rxt(k,121)*y(k,96)
1819 114070872 : mat(k,670) = rxt(k,121)*y(k,63)
1820 114070872 : mat(k,864) = rxt(k,296)*y(k,139)
1821 114070872 : mat(k,2057) = mat(k,2057) + rxt(k,296)*y(k,113)
1822 : mat(k,564) = -(rxt(k,157)*y(k,128) + rxt(k,163)*y(k,105) + rxt(k,180) &
1823 : *y(k,107) + rxt(k,198)*y(k,103) + rxt(k,216)*y(k,122) + rxt(k,233) &
1824 114070872 : *y(k,119) + rxt(k,251)*y(k,118) + rxt(k,299)*y(k,51))
1825 114070872 : mat(k,1587) = -rxt(k,157)*y(k,116)
1826 114070872 : mat(k,1674) = -rxt(k,163)*y(k,116)
1827 114070872 : mat(k,1631) = -rxt(k,180)*y(k,116)
1828 114070872 : mat(k,1225) = -rxt(k,198)*y(k,116)
1829 114070872 : mat(k,1309) = -rxt(k,216)*y(k,116)
1830 114070872 : mat(k,1182) = -rxt(k,233)*y(k,116)
1831 114070872 : mat(k,1138) = -rxt(k,251)*y(k,116)
1832 114070872 : mat(k,1507) = -rxt(k,299)*y(k,116)
1833 114070872 : mat(k,1994) = rxt(k,276)*y(k,113)
1834 114070872 : mat(k,862) = rxt(k,276)*y(k,49)
1835 : mat(k,609) = -((rxt(k,146) + rxt(k,269)) * y(k,105) + (rxt(k,167) + rxt(k,270) &
1836 : ) * y(k,107) + rxt(k,185)*y(k,103) + rxt(k,202)*y(k,122) &
1837 : + rxt(k,220)*y(k,119) + rxt(k,238)*y(k,118) + rxt(k,255) &
1838 114070872 : *y(k,128))
1839 114070872 : mat(k,1675) = -(rxt(k,146) + rxt(k,269)) * y(k,117)
1840 114070872 : mat(k,1632) = -(rxt(k,167) + rxt(k,270)) * y(k,117)
1841 114070872 : mat(k,1226) = -rxt(k,185)*y(k,117)
1842 114070872 : mat(k,1310) = -rxt(k,202)*y(k,117)
1843 114070872 : mat(k,1183) = -rxt(k,220)*y(k,117)
1844 114070872 : mat(k,1139) = -rxt(k,238)*y(k,117)
1845 114070872 : mat(k,1588) = -rxt(k,255)*y(k,117)
1846 114070872 : mat(k,1508) = rxt(k,300)*y(k,113) + rxt(k,295)*y(k,115) + rxt(k,299)*y(k,116)
1847 114070872 : mat(k,402) = rxt(k,293)*y(k,114) + rxt(k,297)*y(k,115)
1848 114070872 : mat(k,863) = rxt(k,300)*y(k,51)
1849 114070872 : mat(k,624) = rxt(k,293)*y(k,58)
1850 114070872 : mat(k,689) = rxt(k,295)*y(k,51) + rxt(k,297)*y(k,58)
1851 114070872 : mat(k,565) = rxt(k,299)*y(k,51)
1852 : mat(k,1153) = -(rxt(k,238)*y(k,117) + rxt(k,239)*y(k,94) + rxt(k,240)*y(k,92) &
1853 : + rxt(k,241)*y(k,113) + rxt(k,242)*y(k,100) + rxt(k,243) &
1854 : *y(k,127) + rxt(k,244)*y(k,97) + rxt(k,245)*y(k,115) + rxt(k,246) &
1855 : *y(k,95) + rxt(k,248)*y(k,90) + rxt(k,249)*y(k,96) + rxt(k,250) &
1856 : *y(k,112) + rxt(k,251)*y(k,116) + rxt(k,252)*y(k,91) + rxt(k,253) &
1857 : *y(k,114) + rxt(k,254)*y(k,111) + rxt(k,365)*y(k,139) + rxt(k,368) &
1858 114070872 : *y(k,32) + rxt(k,582)*y(k,98))
1859 114070872 : mat(k,611) = -rxt(k,238)*y(k,118)
1860 114070872 : mat(k,1017) = -rxt(k,239)*y(k,118)
1861 114070872 : mat(k,521) = -rxt(k,240)*y(k,118)
1862 114070872 : mat(k,869) = -rxt(k,241)*y(k,118)
1863 114070872 : mat(k,492) = -rxt(k,242)*y(k,118)
1864 114070872 : mat(k,1557) = -rxt(k,243)*y(k,118)
1865 114070872 : mat(k,841) = -rxt(k,244)*y(k,118)
1866 114070872 : mat(k,693) = -rxt(k,245)*y(k,118)
1867 114070872 : mat(k,506) = -rxt(k,246)*y(k,118)
1868 114070872 : mat(k,815) = -rxt(k,248)*y(k,118)
1869 114070872 : mat(k,674) = -rxt(k,249)*y(k,118)
1870 114070872 : mat(k,552) = -rxt(k,250)*y(k,118)
1871 114070872 : mat(k,566) = -rxt(k,251)*y(k,118)
1872 114070872 : mat(k,537) = -rxt(k,252)*y(k,118)
1873 114070872 : mat(k,628) = -rxt(k,253)*y(k,118)
1874 114070872 : mat(k,930) = -rxt(k,254)*y(k,118)
1875 114070872 : mat(k,2069) = -rxt(k,365)*y(k,118)
1876 114070872 : mat(k,1281) = -rxt(k,368)*y(k,118)
1877 114070872 : mat(k,1060) = -rxt(k,582)*y(k,118)
1878 114070872 : mat(k,451) = rxt(k,591)*y(k,128)
1879 114070872 : mat(k,1964) = rxt(k,593)*y(k,128)
1880 114070872 : mat(k,1383) = rxt(k,586)*y(k,110)
1881 114070872 : mat(k,1432) = rxt(k,590)*y(k,124)
1882 114070872 : mat(k,235) = rxt(k,586)*y(k,70)
1883 114070872 : mat(k,320) = rxt(k,590)*y(k,72)
1884 114070872 : mat(k,1602) = rxt(k,591)*y(k,56) + rxt(k,593)*y(k,62)
1885 : mat(k,1197) = -(rxt(k,220)*y(k,117) + rxt(k,221)*y(k,94) + rxt(k,222)*y(k,92) &
1886 : + rxt(k,223)*y(k,113) + rxt(k,224)*y(k,100) + rxt(k,226) &
1887 : *y(k,127) + rxt(k,227)*y(k,97) + rxt(k,228)*y(k,115) + rxt(k,229) &
1888 : *y(k,95) + rxt(k,230)*y(k,90) + rxt(k,231)*y(k,96) + rxt(k,232) &
1889 : *y(k,112) + rxt(k,233)*y(k,116) + rxt(k,234)*y(k,91) + rxt(k,235) &
1890 : *y(k,114) + rxt(k,237)*y(k,111) + rxt(k,303)*y(k,98) + rxt(k,367) &
1891 114070872 : *y(k,139))
1892 114070872 : mat(k,612) = -rxt(k,220)*y(k,119)
1893 114070872 : mat(k,1018) = -rxt(k,221)*y(k,119)
1894 114070872 : mat(k,522) = -rxt(k,222)*y(k,119)
1895 114070872 : mat(k,870) = -rxt(k,223)*y(k,119)
1896 114070872 : mat(k,493) = -rxt(k,224)*y(k,119)
1897 114070872 : mat(k,1558) = -rxt(k,226)*y(k,119)
1898 114070872 : mat(k,842) = -rxt(k,227)*y(k,119)
1899 114070872 : mat(k,694) = -rxt(k,228)*y(k,119)
1900 114070872 : mat(k,507) = -rxt(k,229)*y(k,119)
1901 114070872 : mat(k,816) = -rxt(k,230)*y(k,119)
1902 114070872 : mat(k,675) = -rxt(k,231)*y(k,119)
1903 114070872 : mat(k,553) = -rxt(k,232)*y(k,119)
1904 114070872 : mat(k,567) = -rxt(k,233)*y(k,119)
1905 114070872 : mat(k,538) = -rxt(k,234)*y(k,119)
1906 114070872 : mat(k,629) = -rxt(k,235)*y(k,119)
1907 114070872 : mat(k,931) = -rxt(k,237)*y(k,119)
1908 114070872 : mat(k,1061) = -rxt(k,303)*y(k,119)
1909 114070872 : mat(k,2070) = -rxt(k,367)*y(k,119)
1910 114070872 : mat(k,1324) = rxt(k,366)*y(k,139)
1911 114070872 : mat(k,2070) = mat(k,2070) + rxt(k,366)*y(k,122)
1912 114070872 : mat(k,173) = -(rxt(k,304)*y(k,98) + rxt(k,305)*y(k,139))
1913 114070872 : mat(k,1040) = -rxt(k,304)*y(k,120)
1914 114070872 : mat(k,2037) = -rxt(k,305)*y(k,120)
1915 114070872 : mat(k,1175) = rxt(k,367)*y(k,139)
1916 114070872 : mat(k,2037) = mat(k,2037) + rxt(k,367)*y(k,119)
1917 114070872 : mat(k,264) = -(rxt(k,306)*y(k,98) + rxt(k,307)*y(k,139))
1918 114070872 : mat(k,1046) = -rxt(k,306)*y(k,121)
1919 114070872 : mat(k,2040) = -rxt(k,307)*y(k,121)
1920 114070872 : mat(k,1265) = rxt(k,368)*y(k,118) + rxt(k,312)*y(k,123)
1921 114070872 : mat(k,1128) = rxt(k,368)*y(k,32)
1922 114070872 : mat(k,257) = rxt(k,312)*y(k,32)
1923 : mat(k,1327) = -(rxt(k,202)*y(k,117) + rxt(k,204)*y(k,94) + rxt(k,205)*y(k,92) &
1924 : + rxt(k,206)*y(k,113) + rxt(k,207)*y(k,100) + rxt(k,208) &
1925 : *y(k,127) + rxt(k,209)*y(k,97) + rxt(k,210)*y(k,115) + rxt(k,211) &
1926 : *y(k,95) + rxt(k,212)*y(k,90) + rxt(k,213)*y(k,96) + rxt(k,215) &
1927 : *y(k,112) + rxt(k,216)*y(k,116) + rxt(k,217)*y(k,91) + rxt(k,218) &
1928 : *y(k,114) + rxt(k,219)*y(k,111) + rxt(k,308)*y(k,98) + rxt(k,309) &
1929 : *y(k,40) + rxt(k,310)*y(k,101) + rxt(k,311)*y(k,133) + rxt(k,366) &
1930 114070872 : *y(k,139))
1931 114070872 : mat(k,614) = -rxt(k,202)*y(k,122)
1932 114070872 : mat(k,1021) = -rxt(k,204)*y(k,122)
1933 114070872 : mat(k,524) = -rxt(k,205)*y(k,122)
1934 114070872 : mat(k,872) = -rxt(k,206)*y(k,122)
1935 114070872 : mat(k,496) = -rxt(k,207)*y(k,122)
1936 114070872 : mat(k,1561) = -rxt(k,208)*y(k,122)
1937 114070872 : mat(k,845) = -rxt(k,209)*y(k,122)
1938 114070872 : mat(k,696) = -rxt(k,210)*y(k,122)
1939 114070872 : mat(k,510) = -rxt(k,211)*y(k,122)
1940 114070872 : mat(k,818) = -rxt(k,212)*y(k,122)
1941 114070872 : mat(k,678) = -rxt(k,213)*y(k,122)
1942 114070872 : mat(k,555) = -rxt(k,215)*y(k,122)
1943 114070872 : mat(k,569) = -rxt(k,216)*y(k,122)
1944 114070872 : mat(k,540) = -rxt(k,217)*y(k,122)
1945 114070872 : mat(k,631) = -rxt(k,218)*y(k,122)
1946 114070872 : mat(k,933) = -rxt(k,219)*y(k,122)
1947 114070872 : mat(k,1064) = -rxt(k,308)*y(k,122)
1948 114070872 : mat(k,1768) = -rxt(k,309)*y(k,122)
1949 114070872 : mat(k,906) = -rxt(k,310)*y(k,122)
1950 114070872 : mat(k,990) = -rxt(k,311)*y(k,122)
1951 114070872 : mat(k,2073) = -rxt(k,366)*y(k,122)
1952 114070872 : mat(k,1157) = rxt(k,365)*y(k,139)
1953 114070872 : mat(k,268) = rxt(k,307)*y(k,139)
1954 114070872 : mat(k,261) = rxt(k,313)*y(k,139)
1955 : mat(k,2073) = mat(k,2073) + rxt(k,365)*y(k,118) + rxt(k,307)*y(k,121) &
1956 117656469 : + rxt(k,313)*y(k,123)
1957 : end do
1958 3585597 : end subroutine nlnmat08
1959 3585597 : subroutine nlnmat09( avec_len, mat, y, rxt )
1960 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1961 : implicit none
1962 : !----------------------------------------------
1963 : ! ... dummy arguments
1964 : !----------------------------------------------
1965 : integer, intent(in) :: avec_len
1966 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1967 : real(r8), intent(in) :: rxt(veclen,rxntot)
1968 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1969 : !----------------------------------------------
1970 : ! ... local variables
1971 : !----------------------------------------------
1972 : integer :: k
1973 : !----------------------------------------------
1974 : ! ... complete matrix entries implicit species
1975 : !----------------------------------------------
1976 117656469 : do k = 1,avec_len
1977 114070872 : mat(k,256) = -(rxt(k,312)*y(k,32) + rxt(k,313)*y(k,139) + rxt(k,384)*y(k,98))
1978 114070872 : mat(k,1264) = -rxt(k,312)*y(k,123)
1979 114070872 : mat(k,2039) = -rxt(k,313)*y(k,123)
1980 114070872 : mat(k,1045) = -rxt(k,384)*y(k,123)
1981 114070872 : mat(k,317) = -(rxt(k,588)*y(k,70) + (rxt(k,589) + rxt(k,590)) * y(k,72))
1982 114070872 : mat(k,1357) = -rxt(k,588)*y(k,124)
1983 114070872 : mat(k,1412) = -(rxt(k,589) + rxt(k,590)) * y(k,124)
1984 114070872 : mat(k,301) = rxt(k,596)*y(k,136)
1985 114070872 : mat(k,387) = rxt(k,596)*y(k,109)
1986 : mat(k,377) = -(rxt(k,321)*y(k,127) + rxt(k,339)*y(k,132) + rxt(k,361) &
1987 114070872 : *y(k,135) + rxt(k,396)*y(k,70) + rxt(k,397)*y(k,72))
1988 114070872 : mat(k,1545) = -rxt(k,321)*y(k,125)
1989 114070872 : mat(k,460) = -rxt(k,339)*y(k,125)
1990 114070872 : mat(k,1867) = -rxt(k,361)*y(k,125)
1991 114070872 : mat(k,1363) = -rxt(k,396)*y(k,125)
1992 114070872 : mat(k,1414) = -rxt(k,397)*y(k,125)
1993 114070872 : mat(k,1266) = rxt(k,398)*y(k,126)
1994 114070872 : mat(k,1363) = mat(k,1363) + rxt(k,400)*y(k,126)
1995 114070872 : mat(k,1414) = mat(k,1414) + rxt(k,401)*y(k,126)
1996 114070872 : mat(k,1906) = rxt(k,402)*y(k,126)
1997 : mat(k,132) = rxt(k,398)*y(k,32) + rxt(k,400)*y(k,70) + rxt(k,401)*y(k,72) &
1998 114070872 : + rxt(k,402)*y(k,73)
1999 : mat(k,131) = -(rxt(k,398)*y(k,32) + rxt(k,400)*y(k,70) + rxt(k,401)*y(k,72) &
2000 114070872 : + rxt(k,402)*y(k,73))
2001 114070872 : mat(k,1261) = -rxt(k,398)*y(k,126)
2002 114070872 : mat(k,1345) = -rxt(k,400)*y(k,126)
2003 114070872 : mat(k,1405) = -rxt(k,401)*y(k,126)
2004 114070872 : mat(k,1903) = -rxt(k,402)*y(k,126)
2005 114070872 : mat(k,773) = rxt(k,392)*y(k,72)
2006 114070872 : mat(k,1405) = mat(k,1405) + rxt(k,392)*y(k,71)
2007 : mat(k,1566) = -(rxt(k,150)*y(k,128) + rxt(k,173)*y(k,107) + rxt(k,190) &
2008 : *y(k,103) + rxt(k,208)*y(k,122) + rxt(k,214)*y(k,105) + rxt(k,226) &
2009 : *y(k,119) + rxt(k,243)*y(k,118) + rxt(k,314)*y(k,25) + rxt(k,315) &
2010 : *y(k,28) + rxt(k,316)*y(k,32) + rxt(k,317)*y(k,40) + rxt(k,318) &
2011 : *y(k,49) + rxt(k,319)*y(k,51) + rxt(k,320)*y(k,63) + rxt(k,321) &
2012 : *y(k,125) + rxt(k,322)*y(k,72) + rxt(k,323)*y(k,73) + (rxt(k,324) &
2013 114070872 : + rxt(k,325)) * y(k,70))
2014 114070872 : mat(k,1611) = -rxt(k,150)*y(k,127)
2015 114070872 : mat(k,1654) = -rxt(k,173)*y(k,127)
2016 114070872 : mat(k,1248) = -rxt(k,190)*y(k,127)
2017 114070872 : mat(k,1332) = -rxt(k,208)*y(k,127)
2018 114070872 : mat(k,1697) = -rxt(k,214)*y(k,127)
2019 114070872 : mat(k,1205) = -rxt(k,226)*y(k,127)
2020 114070872 : mat(k,1162) = -rxt(k,243)*y(k,127)
2021 114070872 : mat(k,1489) = -rxt(k,314)*y(k,127)
2022 114070872 : mat(k,1114) = -rxt(k,315)*y(k,127)
2023 114070872 : mat(k,1290) = -rxt(k,316)*y(k,127)
2024 114070872 : mat(k,1773) = -rxt(k,317)*y(k,127)
2025 114070872 : mat(k,2018) = -rxt(k,318)*y(k,127)
2026 114070872 : mat(k,1530) = -rxt(k,319)*y(k,127)
2027 114070872 : mat(k,1821) = -rxt(k,320)*y(k,127)
2028 114070872 : mat(k,381) = -rxt(k,321)*y(k,127)
2029 114070872 : mat(k,1441) = -rxt(k,322)*y(k,127)
2030 114070872 : mat(k,1931) = -rxt(k,323)*y(k,127)
2031 114070872 : mat(k,1392) = -(rxt(k,324) + rxt(k,325)) * y(k,127)
2032 114070872 : mat(k,1392) = mat(k,1392) + rxt(k,125)*y(k,94) + rxt(k,334)*y(k,130)
2033 114070872 : mat(k,1441) = mat(k,1441) + (rxt(k,133)+rxt(k,135))*y(k,98)
2034 114070872 : mat(k,1026) = rxt(k,125)*y(k,70)
2035 114070872 : mat(k,1069) = (rxt(k,133)+rxt(k,135))*y(k,72)
2036 114070872 : mat(k,602) = rxt(k,334)*y(k,70)
2037 : mat(k,1612) = -(rxt(k,148)*y(k,113) + rxt(k,149)*y(k,100) + rxt(k,150) &
2038 : *y(k,127) + rxt(k,151)*y(k,97) + rxt(k,152)*y(k,115) + rxt(k,153) &
2039 : *y(k,95) + rxt(k,154)*y(k,90) + rxt(k,155)*y(k,96) + rxt(k,156) &
2040 : *y(k,112) + rxt(k,157)*y(k,116) + rxt(k,159)*y(k,91) + rxt(k,160) &
2041 : *y(k,114) + rxt(k,161)*y(k,111) + rxt(k,255)*y(k,117) + rxt(k,256) &
2042 : *y(k,94) + rxt(k,257)*y(k,92) + rxt(k,329)*y(k,139) + rxt(k,364) &
2043 : *y(k,72) + rxt(k,583)*y(k,98) + rxt(k,591)*y(k,56) + rxt(k,593) &
2044 114070872 : *y(k,62))
2045 114070872 : mat(k,877) = -rxt(k,148)*y(k,128)
2046 114070872 : mat(k,498) = -rxt(k,149)*y(k,128)
2047 114070872 : mat(k,1567) = -rxt(k,150)*y(k,128)
2048 114070872 : mat(k,851) = -rxt(k,151)*y(k,128)
2049 114070872 : mat(k,700) = -rxt(k,152)*y(k,128)
2050 114070872 : mat(k,513) = -rxt(k,153)*y(k,128)
2051 114070872 : mat(k,822) = -rxt(k,154)*y(k,128)
2052 114070872 : mat(k,681) = -rxt(k,155)*y(k,128)
2053 114070872 : mat(k,557) = -rxt(k,156)*y(k,128)
2054 114070872 : mat(k,572) = -rxt(k,157)*y(k,128)
2055 114070872 : mat(k,543) = -rxt(k,159)*y(k,128)
2056 114070872 : mat(k,635) = -rxt(k,160)*y(k,128)
2057 114070872 : mat(k,938) = -rxt(k,161)*y(k,128)
2058 114070872 : mat(k,617) = -rxt(k,255)*y(k,128)
2059 114070872 : mat(k,1027) = -rxt(k,256)*y(k,128)
2060 114070872 : mat(k,527) = -rxt(k,257)*y(k,128)
2061 114070872 : mat(k,2079) = -rxt(k,329)*y(k,128)
2062 114070872 : mat(k,1442) = -rxt(k,364)*y(k,128)
2063 114070872 : mat(k,1070) = -rxt(k,583)*y(k,128)
2064 114070872 : mat(k,455) = -rxt(k,591)*y(k,128)
2065 114070872 : mat(k,1974) = -rxt(k,593)*y(k,128)
2066 114070872 : mat(k,1291) = rxt(k,594)*y(k,136)
2067 114070872 : mat(k,1393) = rxt(k,338)*y(k,132)
2068 : mat(k,1442) = mat(k,1442) + rxt(k,585)*y(k,110) + rxt(k,589)*y(k,124) &
2069 114070872 : + rxt(k,597)*y(k,136) + rxt(k,601)*y(k,137)
2070 114070872 : mat(k,238) = rxt(k,585)*y(k,72)
2071 114070872 : mat(k,323) = rxt(k,589)*y(k,72)
2072 114070872 : mat(k,382) = rxt(k,339)*y(k,132)
2073 114070872 : mat(k,1567) = mat(k,1567) + 2.000_r8*rxt(k,150)*y(k,128)
2074 114070872 : mat(k,1612) = mat(k,1612) + 2.000_r8*rxt(k,150)*y(k,127)
2075 114070872 : mat(k,468) = rxt(k,338)*y(k,70) + rxt(k,339)*y(k,125)
2076 114070872 : mat(k,397) = rxt(k,594)*y(k,32) + rxt(k,597)*y(k,72)
2077 114070872 : mat(k,205) = rxt(k,601)*y(k,72)
2078 114070872 : mat(k,292) = -(rxt(k,326)*y(k,98) + (rxt(k,327) + rxt(k,328)) * y(k,139))
2079 114070872 : mat(k,1049) = -rxt(k,326)*y(k,129)
2080 114070872 : mat(k,2043) = -(rxt(k,327) + rxt(k,328)) * y(k,129)
2081 114070872 : mat(k,1579) = rxt(k,329)*y(k,139)
2082 114070872 : mat(k,459) = rxt(k,337)*y(k,139)
2083 114070872 : mat(k,2043) = mat(k,2043) + rxt(k,329)*y(k,128) + rxt(k,337)*y(k,132)
2084 : mat(k,594) = -((rxt(k,272) + rxt(k,279)) * y(k,62) + (rxt(k,277) + rxt(k,278) &
2085 : ) * y(k,63) + rxt(k,330)*y(k,32) + rxt(k,331)*y(k,40) + rxt(k,332) &
2086 114070872 : *y(k,73) + (rxt(k,333) + rxt(k,334)) * y(k,70))
2087 114070872 : mat(k,1950) = -(rxt(k,272) + rxt(k,279)) * y(k,130)
2088 114070872 : mat(k,1796) = -(rxt(k,277) + rxt(k,278)) * y(k,130)
2089 114070872 : mat(k,1271) = -rxt(k,330)*y(k,130)
2090 114070872 : mat(k,1751) = -rxt(k,331)*y(k,130)
2091 114070872 : mat(k,1910) = -rxt(k,332)*y(k,130)
2092 114070872 : mat(k,1369) = -(rxt(k,333) + rxt(k,334)) * y(k,130)
2093 114070872 : mat(k,1369) = mat(k,1369) + rxt(k,336)*y(k,131)
2094 114070872 : mat(k,1420) = rxt(k,126)*y(k,94) + rxt(k,362)*y(k,135)
2095 : mat(k,1910) = mat(k,1910) + rxt(k,132)*y(k,97) + rxt(k,323)*y(k,127) &
2096 114070872 : + rxt(k,348)*y(k,134) + rxt(k,363)*y(k,135)
2097 114070872 : mat(k,1007) = rxt(k,126)*y(k,72)
2098 114070872 : mat(k,831) = rxt(k,132)*y(k,73)
2099 114070872 : mat(k,1547) = rxt(k,323)*y(k,73)
2100 114070872 : mat(k,240) = rxt(k,336)*y(k,70)
2101 114070872 : mat(k,1836) = rxt(k,348)*y(k,73)
2102 114070872 : mat(k,1869) = rxt(k,362)*y(k,72) + rxt(k,363)*y(k,73)
2103 114070872 : mat(k,239) = -(rxt(k,335)*y(k,32) + rxt(k,336)*y(k,70))
2104 114070872 : mat(k,1262) = -rxt(k,335)*y(k,131)
2105 114070872 : mat(k,1352) = -rxt(k,336)*y(k,131)
2106 114070872 : mat(k,1409) = rxt(k,322)*y(k,127)
2107 114070872 : mat(k,1543) = rxt(k,322)*y(k,72)
2108 : mat(k,461) = -(rxt(k,337)*y(k,139) + rxt(k,338)*y(k,70) + rxt(k,339)*y(k,125) &
2109 114070872 : + rxt(k,380)*y(k,98))
2110 114070872 : mat(k,2048) = -rxt(k,337)*y(k,132)
2111 114070872 : mat(k,1366) = -rxt(k,338)*y(k,132)
2112 114070872 : mat(k,378) = -rxt(k,339)*y(k,132)
2113 114070872 : mat(k,1054) = -rxt(k,380)*y(k,132)
2114 114070872 : mat(k,1417) = rxt(k,364)*y(k,128)
2115 114070872 : mat(k,1581) = rxt(k,364)*y(k,72)
2116 : mat(k,984) = -(rxt(k,311)*y(k,122) + rxt(k,340)*y(k,55) + rxt(k,349)*y(k,62) &
2117 : + rxt(k,415)*y(k,41) + rxt(k,416)*y(k,43) + rxt(k,417)*y(k,101) &
2118 : + rxt(k,418)*y(k,70) + rxt(k,419)*y(k,73) + (4._r8*rxt(k,420) &
2119 : + 4._r8*rxt(k,421)) * y(k,133) + rxt(k,423)*y(k,52) + rxt(k,437) &
2120 : *y(k,64) + rxt(k,438)*y(k,56) + rxt(k,446)*y(k,63) + rxt(k,447) &
2121 : *y(k,51) + rxt(k,466)*y(k,29) + (rxt(k,468) + rxt(k,469) &
2122 : ) * y(k,28) + rxt(k,471)*y(k,49) + rxt(k,474)*y(k,54) + rxt(k,498) &
2123 : *y(k,5) + rxt(k,500)*y(k,45) + rxt(k,514)*y(k,16) + rxt(k,516) &
2124 : *y(k,18) + rxt(k,517)*y(k,19) + rxt(k,519)*y(k,20) + rxt(k,521) &
2125 : *y(k,24) + rxt(k,522)*y(k,46) + rxt(k,523)*y(k,47) + rxt(k,524) &
2126 : *y(k,48) + rxt(k,532)*y(k,17) + rxt(k,535)*y(k,22) + rxt(k,536) &
2127 : *y(k,23) + rxt(k,540)*y(k,31) + (rxt(k,542) + rxt(k,556) &
2128 : ) * y(k,35) + rxt(k,544)*y(k,75) + rxt(k,546)*y(k,81) + rxt(k,550) &
2129 114070872 : *y(k,78) + rxt(k,555)*y(k,80))
2130 114070872 : mat(k,1319) = -rxt(k,311)*y(k,133)
2131 114070872 : mat(k,279) = -rxt(k,340)*y(k,133)
2132 114070872 : mat(k,1960) = -rxt(k,349)*y(k,133)
2133 114070872 : mat(k,651) = -rxt(k,415)*y(k,133)
2134 114070872 : mat(k,216) = -rxt(k,416)*y(k,133)
2135 114070872 : mat(k,901) = -rxt(k,417)*y(k,133)
2136 114070872 : mat(k,1379) = -rxt(k,418)*y(k,133)
2137 114070872 : mat(k,1918) = -rxt(k,419)*y(k,133)
2138 114070872 : mat(k,181) = -rxt(k,423)*y(k,133)
2139 114070872 : mat(k,1725) = -rxt(k,437)*y(k,133)
2140 114070872 : mat(k,449) = -rxt(k,438)*y(k,133)
2141 114070872 : mat(k,1808) = -rxt(k,446)*y(k,133)
2142 114070872 : mat(k,1517) = -rxt(k,447)*y(k,133)
2143 114070872 : mat(k,360) = -rxt(k,466)*y(k,133)
2144 114070872 : mat(k,1101) = -(rxt(k,468) + rxt(k,469)) * y(k,133)
2145 114070872 : mat(k,2005) = -rxt(k,471)*y(k,133)
2146 114070872 : mat(k,334) = -rxt(k,474)*y(k,133)
2147 114070872 : mat(k,719) = -rxt(k,498)*y(k,133)
2148 114070872 : mat(k,328) = -rxt(k,500)*y(k,133)
2149 114070872 : mat(k,189) = -rxt(k,514)*y(k,133)
2150 114070872 : mat(k,226) = -rxt(k,516)*y(k,133)
2151 114070872 : mat(k,49) = -rxt(k,517)*y(k,133)
2152 114070872 : mat(k,151) = -rxt(k,519)*y(k,133)
2153 114070872 : mat(k,164) = -rxt(k,521)*y(k,133)
2154 114070872 : mat(k,83) = -rxt(k,522)*y(k,133)
2155 114070872 : mat(k,93) = -rxt(k,523)*y(k,133)
2156 114070872 : mat(k,119) = -rxt(k,524)*y(k,133)
2157 114070872 : mat(k,741) = -rxt(k,532)*y(k,133)
2158 114070872 : mat(k,158) = -rxt(k,535)*y(k,133)
2159 114070872 : mat(k,422) = -rxt(k,536)*y(k,133)
2160 114070872 : mat(k,254) = -rxt(k,540)*y(k,133)
2161 114070872 : mat(k,128) = -(rxt(k,542) + rxt(k,556)) * y(k,133)
2162 114070872 : mat(k,144) = -rxt(k,544)*y(k,133)
2163 114070872 : mat(k,354) = -rxt(k,546)*y(k,133)
2164 114070872 : mat(k,273) = -rxt(k,550)*y(k,133)
2165 114070872 : mat(k,480) = -rxt(k,555)*y(k,133)
2166 114070872 : mat(k,741) = mat(k,741) + rxt(k,531)*y(k,70)
2167 114070872 : mat(k,158) = mat(k,158) + .300_r8*rxt(k,535)*y(k,133)
2168 114070872 : mat(k,422) = mat(k,422) + rxt(k,537)*y(k,71)
2169 114070872 : mat(k,1476) = rxt(k,455)*y(k,101) + rxt(k,341)*y(k,134)
2170 114070872 : mat(k,1101) = mat(k,1101) + rxt(k,342)*y(k,134)
2171 114070872 : mat(k,345) = rxt(k,509)*y(k,139)
2172 : mat(k,1760) = rxt(k,414)*y(k,73) + rxt(k,129)*y(k,97) + 2.000_r8*rxt(k,409) &
2173 114070872 : *y(k,101)
2174 114070872 : mat(k,651) = mat(k,651) + rxt(k,406)*y(k,70) + rxt(k,389)*y(k,71)
2175 114070872 : mat(k,216) = mat(k,216) + rxt(k,407)*y(k,70)
2176 114070872 : mat(k,328) = mat(k,328) + rxt(k,499)*y(k,70) + rxt(k,505)*y(k,71)
2177 : mat(k,2005) = mat(k,2005) + rxt(k,470)*y(k,70) + rxt(k,482)*y(k,71) &
2178 114070872 : + rxt(k,356)*y(k,135)
2179 114070872 : mat(k,1517) = mat(k,1517) + rxt(k,124)*y(k,94) + rxt(k,357)*y(k,135)
2180 114070872 : mat(k,312) = rxt(k,501)*y(k,70)
2181 114070872 : mat(k,334) = mat(k,334) + rxt(k,473)*y(k,70)
2182 114070872 : mat(k,1960) = mat(k,1960) + rxt(k,439)*y(k,101)
2183 114070872 : mat(k,1808) = mat(k,1808) + rxt(k,346)*y(k,134)
2184 114070872 : mat(k,1725) = mat(k,1725) + rxt(k,434)*y(k,101)
2185 : mat(k,1379) = mat(k,1379) + rxt(k,531)*y(k,17) + rxt(k,406)*y(k,41) &
2186 : + rxt(k,407)*y(k,43) + rxt(k,499)*y(k,45) + rxt(k,470)*y(k,49) &
2187 114070872 : + rxt(k,501)*y(k,53) + rxt(k,473)*y(k,54) + rxt(k,412)*y(k,101)
2188 : mat(k,789) = rxt(k,537)*y(k,23) + rxt(k,389)*y(k,41) + rxt(k,505)*y(k,45) &
2189 114070872 : + rxt(k,482)*y(k,49) + 2.000_r8*rxt(k,390)*y(k,139)
2190 : mat(k,1918) = mat(k,1918) + rxt(k,414)*y(k,40) + rxt(k,413)*y(k,101) &
2191 114070872 : + rxt(k,348)*y(k,134)
2192 114070872 : mat(k,1013) = rxt(k,124)*y(k,51)
2193 114070872 : mat(k,837) = rxt(k,129)*y(k,40)
2194 114070872 : mat(k,1057) = rxt(k,138)*y(k,99)
2195 114070872 : mat(k,169) = rxt(k,138)*y(k,98) + rxt(k,139)*y(k,139)
2196 : mat(k,491) = rxt(k,189)*y(k,103) + rxt(k,203)*y(k,105) + rxt(k,172)*y(k,107) &
2197 : + rxt(k,242)*y(k,118) + rxt(k,224)*y(k,119) + rxt(k,207) &
2198 114070872 : *y(k,122) + rxt(k,149)*y(k,128)
2199 : mat(k,901) = mat(k,901) + rxt(k,455)*y(k,25) + 2.000_r8*rxt(k,409)*y(k,40) &
2200 : + rxt(k,439)*y(k,62) + rxt(k,434)*y(k,64) + rxt(k,412)*y(k,70) &
2201 114070872 : + rxt(k,413)*y(k,73)
2202 114070872 : mat(k,1235) = rxt(k,189)*y(k,100)
2203 114070872 : mat(k,1684) = rxt(k,203)*y(k,100)
2204 114070872 : mat(k,1641) = rxt(k,172)*y(k,100)
2205 114070872 : mat(k,1149) = rxt(k,242)*y(k,100)
2206 114070872 : mat(k,1192) = rxt(k,224)*y(k,100)
2207 114070872 : mat(k,1319) = mat(k,1319) + rxt(k,207)*y(k,100)
2208 114070872 : mat(k,1598) = rxt(k,149)*y(k,100)
2209 114070872 : mat(k,293) = rxt(k,328)*y(k,139)
2210 114070872 : mat(k,984) = mat(k,984) + .300_r8*rxt(k,535)*y(k,22)
2211 : mat(k,1841) = rxt(k,341)*y(k,25) + rxt(k,342)*y(k,28) + rxt(k,346)*y(k,63) &
2212 114070872 : + rxt(k,348)*y(k,73)
2213 114070872 : mat(k,1877) = rxt(k,356)*y(k,49) + rxt(k,357)*y(k,51) + rxt(k,355)*y(k,139)
2214 : mat(k,2065) = rxt(k,509)*y(k,39) + 2.000_r8*rxt(k,390)*y(k,71) + rxt(k,139) &
2215 117656469 : *y(k,99) + rxt(k,328)*y(k,129) + rxt(k,355)*y(k,135)
2216 : end do
2217 3585597 : end subroutine nlnmat09
2218 3585597 : subroutine nlnmat10( avec_len, mat, y, rxt )
2219 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2220 : implicit none
2221 : !----------------------------------------------
2222 : ! ... dummy arguments
2223 : !----------------------------------------------
2224 : integer, intent(in) :: avec_len
2225 : real(r8), intent(in) :: y(veclen,gas_pcnst)
2226 : real(r8), intent(in) :: rxt(veclen,rxntot)
2227 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2228 : !----------------------------------------------
2229 : ! ... local variables
2230 : !----------------------------------------------
2231 : integer :: k
2232 : !----------------------------------------------
2233 : ! ... complete matrix entries implicit species
2234 : !----------------------------------------------
2235 117656469 : do k = 1,avec_len
2236 114070872 : mat(k,1861) = -(rxt(k,341)*y(k,25) + rxt(k,342)*y(k,28) + rxt(k,343)*y(k,32) &
2237 : + rxt(k,344)*y(k,40) + rxt(k,345)*y(k,49) + rxt(k,346)*y(k,63) &
2238 114070872 : + rxt(k,347)*y(k,70) + rxt(k,348)*y(k,73))
2239 114070872 : mat(k,1496) = -rxt(k,341)*y(k,134)
2240 114070872 : mat(k,1121) = -rxt(k,342)*y(k,134)
2241 114070872 : mat(k,1297) = -rxt(k,343)*y(k,134)
2242 114070872 : mat(k,1780) = -rxt(k,344)*y(k,134)
2243 114070872 : mat(k,2025) = -rxt(k,345)*y(k,134)
2244 114070872 : mat(k,1828) = -rxt(k,346)*y(k,134)
2245 114070872 : mat(k,1399) = -rxt(k,347)*y(k,134)
2246 114070872 : mat(k,1938) = -rxt(k,348)*y(k,134)
2247 : mat(k,1780) = mat(k,1780) + rxt(k,117)*y(k,94) + rxt(k,287)*y(k,111) &
2248 114070872 : + rxt(k,331)*y(k,130)
2249 114070872 : mat(k,662) = rxt(k,354)*y(k,135)
2250 114070872 : mat(k,1033) = rxt(k,117)*y(k,40)
2251 114070872 : mat(k,944) = rxt(k,287)*y(k,40)
2252 114070872 : mat(k,605) = rxt(k,331)*y(k,40)
2253 114070872 : mat(k,1897) = rxt(k,354)*y(k,41) + rxt(k,355)*y(k,139)
2254 114070872 : mat(k,2085) = rxt(k,355)*y(k,135)
2255 : mat(k,1898) = -(rxt(k,136)*y(k,62) + rxt(k,350)*y(k,25) + rxt(k,351)*y(k,28) &
2256 : + rxt(k,352)*y(k,32) + (rxt(k,353) + rxt(k,354)) * y(k,41) &
2257 : + rxt(k,355)*y(k,139) + rxt(k,356)*y(k,49) + rxt(k,357)*y(k,51) &
2258 : + rxt(k,359)*y(k,63) + rxt(k,360)*y(k,70) + rxt(k,361)*y(k,125) &
2259 114070872 : + rxt(k,362)*y(k,72) + rxt(k,363)*y(k,73))
2260 114070872 : mat(k,1981) = -rxt(k,136)*y(k,135)
2261 114070872 : mat(k,1497) = -rxt(k,350)*y(k,135)
2262 114070872 : mat(k,1122) = -rxt(k,351)*y(k,135)
2263 114070872 : mat(k,1298) = -rxt(k,352)*y(k,135)
2264 114070872 : mat(k,663) = -(rxt(k,353) + rxt(k,354)) * y(k,135)
2265 114070872 : mat(k,2086) = -rxt(k,355)*y(k,135)
2266 114070872 : mat(k,2026) = -rxt(k,356)*y(k,135)
2267 114070872 : mat(k,1538) = -rxt(k,357)*y(k,135)
2268 114070872 : mat(k,1829) = -rxt(k,359)*y(k,135)
2269 114070872 : mat(k,1400) = -rxt(k,360)*y(k,135)
2270 114070872 : mat(k,383) = -rxt(k,361)*y(k,135)
2271 114070872 : mat(k,1449) = -rxt(k,362)*y(k,135)
2272 114070872 : mat(k,1939) = -rxt(k,363)*y(k,135)
2273 114070872 : mat(k,1400) = mat(k,1400) + rxt(k,325)*y(k,127)
2274 114070872 : mat(k,1939) = mat(k,1939) + rxt(k,134)*y(k,98)
2275 114070872 : mat(k,1077) = rxt(k,134)*y(k,73)
2276 114070872 : mat(k,1574) = rxt(k,325)*y(k,70)
2277 114070872 : mat(k,388) = -(rxt(k,594)*y(k,32) + rxt(k,596)*y(k,109) + rxt(k,597)*y(k,72))
2278 114070872 : mat(k,1267) = -rxt(k,594)*y(k,136)
2279 114070872 : mat(k,302) = -rxt(k,596)*y(k,136)
2280 114070872 : mat(k,1415) = -rxt(k,597)*y(k,136)
2281 : mat(k,1364) = rxt(k,587)*y(k,110) + rxt(k,588)*y(k,124) + rxt(k,600)*y(k,137) &
2282 114070872 : + rxt(k,606)*y(k,138)
2283 114070872 : mat(k,1052) = rxt(k,598)*y(k,137) + rxt(k,603)*y(k,138)
2284 114070872 : mat(k,232) = rxt(k,587)*y(k,70)
2285 114070872 : mat(k,318) = rxt(k,588)*y(k,70)
2286 114070872 : mat(k,202) = rxt(k,600)*y(k,70) + rxt(k,598)*y(k,98)
2287 114070872 : mat(k,197) = rxt(k,606)*y(k,70) + rxt(k,603)*y(k,98)
2288 114070872 : mat(k,200) = -(rxt(k,598)*y(k,98) + rxt(k,600)*y(k,70) + rxt(k,601)*y(k,72))
2289 114070872 : mat(k,1042) = -rxt(k,598)*y(k,137)
2290 114070872 : mat(k,1348) = -rxt(k,600)*y(k,137)
2291 114070872 : mat(k,1407) = -rxt(k,601)*y(k,137)
2292 114070872 : mat(k,1042) = mat(k,1042) + rxt(k,602)*y(k,138)
2293 114070872 : mat(k,194) = rxt(k,602)*y(k,98)
2294 114070872 : mat(k,193) = -((rxt(k,602) + rxt(k,603)) * y(k,98) + rxt(k,606)*y(k,70))
2295 114070872 : mat(k,1041) = -(rxt(k,602) + rxt(k,603)) * y(k,138)
2296 114070872 : mat(k,1347) = -rxt(k,606)*y(k,138)
2297 : mat(k,2090) = -(rxt(k,107)*y(k,90) + rxt(k,118)*y(k,96) + rxt(k,119)*y(k,94) &
2298 : + rxt(k,139)*y(k,99) + rxt(k,140)*y(k,104) + rxt(k,143)*y(k,106) &
2299 : + rxt(k,288)*y(k,111) + rxt(k,294)*y(k,115) + rxt(k,296) &
2300 : *y(k,113) + rxt(k,305)*y(k,120) + rxt(k,307)*y(k,121) + rxt(k,313) &
2301 : *y(k,123) + (rxt(k,327) + rxt(k,328)) * y(k,129) + rxt(k,329) &
2302 : *y(k,128) + rxt(k,337)*y(k,132) + rxt(k,355)*y(k,135) + rxt(k,365) &
2303 : *y(k,118) + rxt(k,366)*y(k,122) + rxt(k,367)*y(k,119) + rxt(k,372) &
2304 : *y(k,108) + rxt(k,374)*y(k,102) + rxt(k,376)*y(k,103) + rxt(k,378) &
2305 : *y(k,105) + rxt(k,390)*y(k,71) + rxt(k,509)*y(k,39) + rxt(k,557) &
2306 114070872 : *y(k,82))
2307 114070872 : mat(k,829) = -rxt(k,107)*y(k,139)
2308 114070872 : mat(k,687) = -rxt(k,118)*y(k,139)
2309 114070872 : mat(k,1038) = -rxt(k,119)*y(k,139)
2310 114070872 : mat(k,172) = -rxt(k,139)*y(k,139)
2311 114070872 : mat(k,110) = -rxt(k,140)*y(k,139)
2312 114070872 : mat(k,114) = -rxt(k,143)*y(k,139)
2313 114070872 : mat(k,948) = -rxt(k,288)*y(k,139)
2314 114070872 : mat(k,707) = -rxt(k,294)*y(k,139)
2315 114070872 : mat(k,886) = -rxt(k,296)*y(k,139)
2316 114070872 : mat(k,178) = -rxt(k,305)*y(k,139)
2317 114070872 : mat(k,270) = -rxt(k,307)*y(k,139)
2318 114070872 : mat(k,263) = -rxt(k,313)*y(k,139)
2319 114070872 : mat(k,299) = -(rxt(k,327) + rxt(k,328)) * y(k,139)
2320 114070872 : mat(k,1623) = -rxt(k,329)*y(k,139)
2321 114070872 : mat(k,472) = -rxt(k,337)*y(k,139)
2322 114070872 : mat(k,1902) = -rxt(k,355)*y(k,139)
2323 114070872 : mat(k,1174) = -rxt(k,365)*y(k,139)
2324 114070872 : mat(k,1344) = -rxt(k,366)*y(k,139)
2325 114070872 : mat(k,1217) = -rxt(k,367)*y(k,139)
2326 114070872 : mat(k,288) = -rxt(k,372)*y(k,139)
2327 114070872 : mat(k,251) = -rxt(k,374)*y(k,139)
2328 114070872 : mat(k,1260) = -rxt(k,376)*y(k,139)
2329 114070872 : mat(k,1709) = -rxt(k,378)*y(k,139)
2330 114070872 : mat(k,808) = -rxt(k,390)*y(k,139)
2331 114070872 : mat(k,349) = -rxt(k,509)*y(k,139)
2332 114070872 : mat(k,106) = -rxt(k,557)*y(k,139)
2333 114070872 : mat(k,192) = rxt(k,514)*y(k,133)
2334 114070872 : mat(k,757) = rxt(k,532)*y(k,133)
2335 114070872 : mat(k,229) = rxt(k,516)*y(k,133)
2336 114070872 : mat(k,51) = rxt(k,517)*y(k,133)
2337 114070872 : mat(k,154) = rxt(k,519)*y(k,133)
2338 114070872 : mat(k,160) = rxt(k,535)*y(k,133)
2339 114070872 : mat(k,430) = rxt(k,536)*y(k,133)
2340 114070872 : mat(k,1785) = rxt(k,410)*y(k,101) + rxt(k,344)*y(k,134)
2341 114070872 : mat(k,666) = rxt(k,415)*y(k,133) + rxt(k,353)*y(k,135)
2342 114070872 : mat(k,220) = rxt(k,416)*y(k,133)
2343 114070872 : mat(k,331) = rxt(k,500)*y(k,133)
2344 114070872 : mat(k,121) = rxt(k,524)*y(k,133)
2345 : mat(k,2030) = (rxt(k,570)+rxt(k,575))*y(k,53) + (rxt(k,563)+rxt(k,569) &
2346 : +rxt(k,574))*y(k,54) + rxt(k,106)*y(k,91) + rxt(k,471)*y(k,133) &
2347 114070872 : + rxt(k,345)*y(k,134)
2348 114070872 : mat(k,1542) = rxt(k,295)*y(k,115) + rxt(k,447)*y(k,133)
2349 114070872 : mat(k,185) = rxt(k,423)*y(k,133)
2350 114070872 : mat(k,316) = (rxt(k,570)+rxt(k,575))*y(k,49)
2351 114070872 : mat(k,339) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,49) + rxt(k,474)*y(k,133)
2352 114070872 : mat(k,282) = rxt(k,340)*y(k,133)
2353 114070872 : mat(k,412) = rxt(k,293)*y(k,114)
2354 114070872 : mat(k,1985) = rxt(k,123)*y(k,96)
2355 114070872 : mat(k,1833) = rxt(k,120)*y(k,96)
2356 : mat(k,829) = mat(k,829) + 3.000_r8*rxt(k,195)*y(k,103) + 4.000_r8*rxt(k,147) &
2357 : *y(k,105) + 5.000_r8*rxt(k,177)*y(k,107) + 2.000_r8*rxt(k,230) &
2358 114070872 : *y(k,119) + rxt(k,212)*y(k,122)
2359 : mat(k,549) = rxt(k,106)*y(k,49) + 4.000_r8*rxt(k,199)*y(k,103) &
2360 : + 5.000_r8*rxt(k,164)*y(k,105) + 6.000_r8*rxt(k,182)*y(k,107) &
2361 : + rxt(k,252)*y(k,118) + 3.000_r8*rxt(k,234)*y(k,119) &
2362 114070872 : + 2.000_r8*rxt(k,217)*y(k,122) + rxt(k,159)*y(k,128)
2363 : mat(k,533) = 3.000_r8*rxt(k,187)*y(k,103) + (4.000_r8*rxt(k,181) &
2364 : +4.000_r8*rxt(k,267))*y(k,105) + (5.000_r8*rxt(k,169) &
2365 : +5.000_r8*rxt(k,268))*y(k,107) + 2.000_r8*rxt(k,222)*y(k,119) &
2366 114070872 : + rxt(k,205)*y(k,122)
2367 : mat(k,1038) = mat(k,1038) + 3.000_r8*rxt(k,186)*y(k,103) + ( &
2368 : + 4.000_r8*rxt(k,170)+4.000_r8*rxt(k,258))*y(k,105) + ( &
2369 : + 5.000_r8*rxt(k,168)+5.000_r8*rxt(k,265))*y(k,107) &
2370 114070872 : + 2.000_r8*rxt(k,221)*y(k,119) + rxt(k,204)*y(k,122)
2371 : mat(k,518) = 5.000_r8*rxt(k,194)*y(k,103) + (6.000_r8*rxt(k,247) &
2372 : +6.000_r8*rxt(k,271))*y(k,105) + (7.000_r8*rxt(k,176) &
2373 : +7.000_r8*rxt(k,259))*y(k,107) + 2.000_r8*rxt(k,246)*y(k,118) &
2374 : + 4.000_r8*rxt(k,229)*y(k,119) + 3.000_r8*rxt(k,211)*y(k,122) &
2375 114070872 : + 2.000_r8*rxt(k,153)*y(k,128)
2376 : mat(k,687) = mat(k,687) + rxt(k,123)*y(k,62) + rxt(k,120)*y(k,63) &
2377 : + 4.000_r8*rxt(k,196)*y(k,103) + (5.000_r8*rxt(k,158) &
2378 : +5.000_r8*rxt(k,260))*y(k,105) + (6.000_r8*rxt(k,178) &
2379 : +6.000_r8*rxt(k,261))*y(k,107) + rxt(k,249)*y(k,118) &
2380 : + 3.000_r8*rxt(k,231)*y(k,119) + 2.000_r8*rxt(k,213)*y(k,122) &
2381 114070872 : + rxt(k,155)*y(k,128)
2382 : mat(k,861) = 3.000_r8*rxt(k,191)*y(k,103) + 4.000_r8*rxt(k,225)*y(k,105) &
2383 : + 5.000_r8*rxt(k,174)*y(k,107) + 2.000_r8*rxt(k,227)*y(k,119) &
2384 114070872 : + rxt(k,209)*y(k,122)
2385 : mat(k,1081) = rxt(k,138)*y(k,99) + 2.000_r8*rxt(k,382)*y(k,102) &
2386 : + 3.000_r8*rxt(k,383)*y(k,103) + 4.000_r8*rxt(k,141)*y(k,105) &
2387 : + 5.000_r8*rxt(k,144)*y(k,107) + rxt(k,381)*y(k,108) &
2388 : + 2.000_r8*rxt(k,303)*y(k,119) + 3.000_r8*rxt(k,304)*y(k,120) &
2389 114070872 : + rxt(k,308)*y(k,122) + rxt(k,326)*y(k,129)
2390 114070872 : mat(k,172) = mat(k,172) + rxt(k,138)*y(k,98)
2391 : mat(k,503) = 3.000_r8*rxt(k,189)*y(k,103) + 4.000_r8*rxt(k,203)*y(k,105) &
2392 : + 5.000_r8*rxt(k,172)*y(k,107) + 2.000_r8*rxt(k,224)*y(k,119) &
2393 114070872 : + rxt(k,207)*y(k,122)
2394 114070872 : mat(k,921) = rxt(k,410)*y(k,40) + rxt(k,417)*y(k,133)
2395 114070872 : mat(k,251) = mat(k,251) + 2.000_r8*rxt(k,382)*y(k,98)
2396 : mat(k,1260) = mat(k,1260) + 3.000_r8*rxt(k,195)*y(k,90) + 4.000_r8*rxt(k,199) &
2397 : *y(k,91) + 3.000_r8*rxt(k,187)*y(k,92) + 3.000_r8*rxt(k,186) &
2398 : *y(k,94) + 5.000_r8*rxt(k,194)*y(k,95) + 4.000_r8*rxt(k,196) &
2399 : *y(k,96) + 3.000_r8*rxt(k,191)*y(k,97) + 3.000_r8*rxt(k,383) &
2400 : *y(k,98) + 3.000_r8*rxt(k,189)*y(k,100) + 3.000_r8*rxt(k,201) &
2401 : *y(k,111) + 4.000_r8*rxt(k,197)*y(k,112) + 3.000_r8*rxt(k,188) &
2402 : *y(k,113) + 5.000_r8*rxt(k,200)*y(k,114) + 4.000_r8*rxt(k,193) &
2403 : *y(k,115) + 3.000_r8*rxt(k,198)*y(k,116) + 3.000_r8*rxt(k,185) &
2404 114070872 : *y(k,117) + 3.000_r8*rxt(k,190)*y(k,127)
2405 : mat(k,1709) = mat(k,1709) + 4.000_r8*rxt(k,147)*y(k,90) + 5.000_r8*rxt(k,164) &
2406 : *y(k,91) + (4.000_r8*rxt(k,181)+4.000_r8*rxt(k,267))*y(k,92) + ( &
2407 : + 4.000_r8*rxt(k,170)+4.000_r8*rxt(k,258))*y(k,94) + ( &
2408 : + 6.000_r8*rxt(k,247)+6.000_r8*rxt(k,271))*y(k,95) + ( &
2409 : + 5.000_r8*rxt(k,158)+5.000_r8*rxt(k,260))*y(k,96) &
2410 : + 4.000_r8*rxt(k,225)*y(k,97) + 4.000_r8*rxt(k,141)*y(k,98) &
2411 : + 4.000_r8*rxt(k,203)*y(k,100) + 4.000_r8*rxt(k,166)*y(k,111) &
2412 : + 5.000_r8*rxt(k,162)*y(k,112) + (4.000_r8*rxt(k,192) &
2413 : +4.000_r8*rxt(k,264))*y(k,113) + 6.000_r8*rxt(k,165)*y(k,114) + ( &
2414 : + 5.000_r8*rxt(k,236)+5.000_r8*rxt(k,262))*y(k,115) &
2415 : + 4.000_r8*rxt(k,163)*y(k,116) + (4.000_r8*rxt(k,146) &
2416 114070872 : +4.000_r8*rxt(k,269))*y(k,117) + 4.000_r8*rxt(k,214)*y(k,127)
2417 : mat(k,1666) = 5.000_r8*rxt(k,177)*y(k,90) + 6.000_r8*rxt(k,182)*y(k,91) + ( &
2418 : + 5.000_r8*rxt(k,169)+5.000_r8*rxt(k,268))*y(k,92) + ( &
2419 : + 5.000_r8*rxt(k,168)+5.000_r8*rxt(k,265))*y(k,94) + ( &
2420 : + 7.000_r8*rxt(k,176)+7.000_r8*rxt(k,259))*y(k,95) + ( &
2421 : + 6.000_r8*rxt(k,178)+6.000_r8*rxt(k,261))*y(k,96) &
2422 : + 5.000_r8*rxt(k,174)*y(k,97) + 5.000_r8*rxt(k,144)*y(k,98) &
2423 : + 5.000_r8*rxt(k,172)*y(k,100) + 5.000_r8*rxt(k,184)*y(k,111) &
2424 : + 6.000_r8*rxt(k,179)*y(k,112) + (5.000_r8*rxt(k,171) &
2425 : +5.000_r8*rxt(k,266))*y(k,113) + 7.000_r8*rxt(k,183)*y(k,114) + ( &
2426 : + 6.000_r8*rxt(k,175)+6.000_r8*rxt(k,263))*y(k,115) &
2427 : + 5.000_r8*rxt(k,180)*y(k,116) + (5.000_r8*rxt(k,167) &
2428 114070872 : +5.000_r8*rxt(k,270))*y(k,117) + 5.000_r8*rxt(k,173)*y(k,127)
2429 114070872 : mat(k,288) = mat(k,288) + rxt(k,381)*y(k,98)
2430 : mat(k,948) = mat(k,948) + 3.000_r8*rxt(k,201)*y(k,103) + 4.000_r8*rxt(k,166) &
2431 : *y(k,105) + 5.000_r8*rxt(k,184)*y(k,107) + 2.000_r8*rxt(k,237) &
2432 114070872 : *y(k,119) + rxt(k,219)*y(k,122)
2433 : mat(k,563) = 4.000_r8*rxt(k,197)*y(k,103) + 5.000_r8*rxt(k,162)*y(k,105) &
2434 : + 6.000_r8*rxt(k,179)*y(k,107) + rxt(k,250)*y(k,118) &
2435 : + 3.000_r8*rxt(k,232)*y(k,119) + 2.000_r8*rxt(k,215)*y(k,122) &
2436 114070872 : + rxt(k,156)*y(k,128)
2437 : mat(k,886) = mat(k,886) + 3.000_r8*rxt(k,188)*y(k,103) + (4.000_r8*rxt(k,192) &
2438 : +4.000_r8*rxt(k,264))*y(k,105) + (5.000_r8*rxt(k,171) &
2439 : +5.000_r8*rxt(k,266))*y(k,107) + 2.000_r8*rxt(k,223)*y(k,119) &
2440 114070872 : + rxt(k,206)*y(k,122)
2441 : mat(k,642) = rxt(k,293)*y(k,58) + 5.000_r8*rxt(k,200)*y(k,103) &
2442 : + 6.000_r8*rxt(k,165)*y(k,105) + 7.000_r8*rxt(k,183)*y(k,107) &
2443 : + 2.000_r8*rxt(k,253)*y(k,118) + 4.000_r8*rxt(k,235)*y(k,119) &
2444 114070872 : + 3.000_r8*rxt(k,218)*y(k,122) + 2.000_r8*rxt(k,160)*y(k,128)
2445 : mat(k,707) = mat(k,707) + rxt(k,295)*y(k,51) + 4.000_r8*rxt(k,193)*y(k,103) + ( &
2446 : + 5.000_r8*rxt(k,236)+5.000_r8*rxt(k,262))*y(k,105) + ( &
2447 : + 6.000_r8*rxt(k,175)+6.000_r8*rxt(k,263))*y(k,107) + rxt(k,245) &
2448 : *y(k,118) + 3.000_r8*rxt(k,228)*y(k,119) + 2.000_r8*rxt(k,210) &
2449 114070872 : *y(k,122) + rxt(k,152)*y(k,128)
2450 : mat(k,579) = 3.000_r8*rxt(k,198)*y(k,103) + 4.000_r8*rxt(k,163)*y(k,105) &
2451 : + 5.000_r8*rxt(k,180)*y(k,107) + 2.000_r8*rxt(k,233)*y(k,119) &
2452 114070872 : + rxt(k,216)*y(k,122)
2453 : mat(k,622) = 3.000_r8*rxt(k,185)*y(k,103) + (4.000_r8*rxt(k,146) &
2454 : +4.000_r8*rxt(k,269))*y(k,105) + (5.000_r8*rxt(k,167) &
2455 : +5.000_r8*rxt(k,270))*y(k,107) + 2.000_r8*rxt(k,220)*y(k,119) &
2456 114070872 : + rxt(k,202)*y(k,122)
2457 : mat(k,1174) = mat(k,1174) + rxt(k,252)*y(k,91) + 2.000_r8*rxt(k,246)*y(k,95) &
2458 : + rxt(k,249)*y(k,96) + rxt(k,250)*y(k,112) + 2.000_r8*rxt(k,253) &
2459 114070872 : *y(k,114) + rxt(k,245)*y(k,115)
2460 : mat(k,1217) = mat(k,1217) + 2.000_r8*rxt(k,230)*y(k,90) + 3.000_r8*rxt(k,234) &
2461 : *y(k,91) + 2.000_r8*rxt(k,222)*y(k,92) + 2.000_r8*rxt(k,221) &
2462 : *y(k,94) + 4.000_r8*rxt(k,229)*y(k,95) + 3.000_r8*rxt(k,231) &
2463 : *y(k,96) + 2.000_r8*rxt(k,227)*y(k,97) + 2.000_r8*rxt(k,303) &
2464 : *y(k,98) + 2.000_r8*rxt(k,224)*y(k,100) + 2.000_r8*rxt(k,237) &
2465 : *y(k,111) + 3.000_r8*rxt(k,232)*y(k,112) + 2.000_r8*rxt(k,223) &
2466 : *y(k,113) + 4.000_r8*rxt(k,235)*y(k,114) + 3.000_r8*rxt(k,228) &
2467 : *y(k,115) + 2.000_r8*rxt(k,233)*y(k,116) + 2.000_r8*rxt(k,220) &
2468 114070872 : *y(k,117) + 2.000_r8*rxt(k,226)*y(k,127)
2469 114070872 : mat(k,178) = mat(k,178) + 3.000_r8*rxt(k,304)*y(k,98)
2470 : mat(k,1344) = mat(k,1344) + rxt(k,212)*y(k,90) + 2.000_r8*rxt(k,217)*y(k,91) &
2471 : + rxt(k,205)*y(k,92) + rxt(k,204)*y(k,94) + 3.000_r8*rxt(k,211) &
2472 : *y(k,95) + 2.000_r8*rxt(k,213)*y(k,96) + rxt(k,209)*y(k,97) &
2473 : + rxt(k,308)*y(k,98) + rxt(k,207)*y(k,100) + rxt(k,219)*y(k,111) &
2474 : + 2.000_r8*rxt(k,215)*y(k,112) + rxt(k,206)*y(k,113) &
2475 : + 3.000_r8*rxt(k,218)*y(k,114) + 2.000_r8*rxt(k,210)*y(k,115) &
2476 : + rxt(k,216)*y(k,116) + rxt(k,202)*y(k,117) + rxt(k,208) &
2477 114070872 : *y(k,127)
2478 : mat(k,1578) = 3.000_r8*rxt(k,190)*y(k,103) + 4.000_r8*rxt(k,214)*y(k,105) &
2479 : + 5.000_r8*rxt(k,173)*y(k,107) + 2.000_r8*rxt(k,226)*y(k,119) &
2480 114070872 : + rxt(k,208)*y(k,122)
2481 : mat(k,1623) = mat(k,1623) + rxt(k,159)*y(k,91) + 2.000_r8*rxt(k,153)*y(k,95) &
2482 : + rxt(k,155)*y(k,96) + rxt(k,156)*y(k,112) + 2.000_r8*rxt(k,160) &
2483 114070872 : *y(k,114) + rxt(k,152)*y(k,115)
2484 114070872 : mat(k,299) = mat(k,299) + rxt(k,326)*y(k,98)
2485 : mat(k,1005) = rxt(k,514)*y(k,16) + rxt(k,532)*y(k,17) + rxt(k,516)*y(k,18) &
2486 : + rxt(k,517)*y(k,19) + rxt(k,519)*y(k,20) + rxt(k,535)*y(k,22) &
2487 : + rxt(k,536)*y(k,23) + rxt(k,415)*y(k,41) + rxt(k,416)*y(k,43) &
2488 : + rxt(k,500)*y(k,45) + rxt(k,524)*y(k,48) + rxt(k,471)*y(k,49) &
2489 : + rxt(k,447)*y(k,51) + rxt(k,423)*y(k,52) + rxt(k,474)*y(k,54) &
2490 : + rxt(k,340)*y(k,55) + rxt(k,417)*y(k,101) + 2.000_r8*rxt(k,420) &
2491 114070872 : *y(k,133)
2492 114070872 : mat(k,1866) = rxt(k,344)*y(k,40) + rxt(k,345)*y(k,49)
2493 117656469 : mat(k,1902) = mat(k,1902) + rxt(k,353)*y(k,41)
2494 : end do
2495 3585597 : end subroutine nlnmat10
2496 3585597 : subroutine nlnmat_finit( avec_len, mat, lmat, dti )
2497 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2498 : implicit none
2499 : !----------------------------------------------
2500 : ! ... dummy arguments
2501 : !----------------------------------------------
2502 : integer, intent(in) :: avec_len
2503 : real(r8), intent(in) :: dti(veclen)
2504 : real(r8), intent(in) :: lmat(veclen,nzcnt)
2505 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2506 : !----------------------------------------------
2507 : ! ... local variables
2508 : !----------------------------------------------
2509 : integer :: k
2510 : !----------------------------------------------
2511 : ! ... complete matrix entries implicit species
2512 : !----------------------------------------------
2513 117656469 : do k = 1,avec_len
2514 114070872 : mat(k, 1) = lmat(k, 1)
2515 114070872 : mat(k, 2) = lmat(k, 2)
2516 114070872 : mat(k, 3) = lmat(k, 3)
2517 114070872 : mat(k, 4) = lmat(k, 4)
2518 114070872 : mat(k, 5) = lmat(k, 5)
2519 114070872 : mat(k, 6) = lmat(k, 6)
2520 114070872 : mat(k, 7) = lmat(k, 7)
2521 114070872 : mat(k, 8) = lmat(k, 8)
2522 114070872 : mat(k, 9) = lmat(k, 9)
2523 114070872 : mat(k, 10) = lmat(k, 10)
2524 114070872 : mat(k, 11) = lmat(k, 11)
2525 114070872 : mat(k, 12) = lmat(k, 12)
2526 114070872 : mat(k, 13) = lmat(k, 13)
2527 114070872 : mat(k, 14) = lmat(k, 14)
2528 114070872 : mat(k, 15) = lmat(k, 15)
2529 114070872 : mat(k, 16) = lmat(k, 16)
2530 114070872 : mat(k, 17) = lmat(k, 17)
2531 114070872 : mat(k, 18) = lmat(k, 18)
2532 114070872 : mat(k, 19) = lmat(k, 19)
2533 114070872 : mat(k, 20) = lmat(k, 20)
2534 114070872 : mat(k, 21) = lmat(k, 21)
2535 114070872 : mat(k, 22) = lmat(k, 22)
2536 114070872 : mat(k, 23) = lmat(k, 23)
2537 114070872 : mat(k, 24) = lmat(k, 24)
2538 114070872 : mat(k, 25) = lmat(k, 25)
2539 114070872 : mat(k, 26) = lmat(k, 26)
2540 114070872 : mat(k, 27) = lmat(k, 27)
2541 114070872 : mat(k, 28) = lmat(k, 28)
2542 114070872 : mat(k, 29) = mat(k, 29) + lmat(k, 29)
2543 114070872 : mat(k, 31) = mat(k, 31) + lmat(k, 31)
2544 114070872 : mat(k, 32) = mat(k, 32) + lmat(k, 32)
2545 114070872 : mat(k, 33) = mat(k, 33) + lmat(k, 33)
2546 114070872 : mat(k, 34) = mat(k, 34) + lmat(k, 34)
2547 114070872 : mat(k, 36) = mat(k, 36) + lmat(k, 36)
2548 114070872 : mat(k, 37) = mat(k, 37) + lmat(k, 37)
2549 114070872 : mat(k, 39) = mat(k, 39) + lmat(k, 39)
2550 114070872 : mat(k, 40) = mat(k, 40) + lmat(k, 40)
2551 114070872 : mat(k, 41) = mat(k, 41) + lmat(k, 41)
2552 114070872 : mat(k, 43) = mat(k, 43) + lmat(k, 43)
2553 114070872 : mat(k, 44) = mat(k, 44) + lmat(k, 44)
2554 114070872 : mat(k, 45) = mat(k, 45) + lmat(k, 45)
2555 114070872 : mat(k, 47) = mat(k, 47) + lmat(k, 47)
2556 114070872 : mat(k, 48) = mat(k, 48) + lmat(k, 48)
2557 114070872 : mat(k, 50) = mat(k, 50) + lmat(k, 50)
2558 114070872 : mat(k, 52) = lmat(k, 52)
2559 114070872 : mat(k, 53) = lmat(k, 53)
2560 114070872 : mat(k, 54) = lmat(k, 54)
2561 114070872 : mat(k, 55) = mat(k, 55) + lmat(k, 55)
2562 114070872 : mat(k, 56) = mat(k, 56) + lmat(k, 56)
2563 114070872 : mat(k, 57) = mat(k, 57) + lmat(k, 57)
2564 114070872 : mat(k, 59) = mat(k, 59) + lmat(k, 59)
2565 114070872 : mat(k, 60) = mat(k, 60) + lmat(k, 60)
2566 114070872 : mat(k, 61) = mat(k, 61) + lmat(k, 61)
2567 114070872 : mat(k, 62) = mat(k, 62) + lmat(k, 62)
2568 114070872 : mat(k, 63) = mat(k, 63) + lmat(k, 63)
2569 114070872 : mat(k, 65) = mat(k, 65) + lmat(k, 65)
2570 114070872 : mat(k, 66) = mat(k, 66) + lmat(k, 66)
2571 114070872 : mat(k, 67) = mat(k, 67) + lmat(k, 67)
2572 114070872 : mat(k, 69) = mat(k, 69) + lmat(k, 69)
2573 114070872 : mat(k, 70) = mat(k, 70) + lmat(k, 70)
2574 114070872 : mat(k, 71) = mat(k, 71) + lmat(k, 71)
2575 114070872 : mat(k, 72) = mat(k, 72) + lmat(k, 72)
2576 114070872 : mat(k, 74) = mat(k, 74) + lmat(k, 74)
2577 114070872 : mat(k, 75) = lmat(k, 75)
2578 114070872 : mat(k, 76) = lmat(k, 76)
2579 114070872 : mat(k, 77) = mat(k, 77) + lmat(k, 77)
2580 114070872 : mat(k, 78) = mat(k, 78) + lmat(k, 78)
2581 114070872 : mat(k, 80) = mat(k, 80) + lmat(k, 80)
2582 114070872 : mat(k, 81) = mat(k, 81) + lmat(k, 81)
2583 114070872 : mat(k, 84) = mat(k, 84) + lmat(k, 84)
2584 114070872 : mat(k, 85) = mat(k, 85) + lmat(k, 85)
2585 114070872 : mat(k, 86) = mat(k, 86) + lmat(k, 86)
2586 114070872 : mat(k, 88) = mat(k, 88) + lmat(k, 88)
2587 114070872 : mat(k, 89) = mat(k, 89) + lmat(k, 89)
2588 114070872 : mat(k, 90) = mat(k, 90) + lmat(k, 90)
2589 114070872 : mat(k, 94) = mat(k, 94) + lmat(k, 94)
2590 114070872 : mat(k, 95) = lmat(k, 95)
2591 114070872 : mat(k, 96) = lmat(k, 96)
2592 114070872 : mat(k, 97) = lmat(k, 97)
2593 114070872 : mat(k, 98) = mat(k, 98) + lmat(k, 98)
2594 114070872 : mat(k, 99) = mat(k, 99) + lmat(k, 99)
2595 114070872 : mat(k, 103) = mat(k, 103) + lmat(k, 103)
2596 114070872 : mat(k, 104) = lmat(k, 104)
2597 114070872 : mat(k, 105) = lmat(k, 105)
2598 114070872 : mat(k, 107) = mat(k, 107) + lmat(k, 107)
2599 114070872 : mat(k, 111) = mat(k, 111) + lmat(k, 111)
2600 114070872 : mat(k, 115) = mat(k, 115) + lmat(k, 115)
2601 114070872 : mat(k, 116) = mat(k, 116) + lmat(k, 116)
2602 114070872 : mat(k, 120) = mat(k, 120) + lmat(k, 120)
2603 114070872 : mat(k, 122) = lmat(k, 122)
2604 114070872 : mat(k, 123) = lmat(k, 123)
2605 114070872 : mat(k, 124) = lmat(k, 124)
2606 114070872 : mat(k, 125) = mat(k, 125) + lmat(k, 125)
2607 114070872 : mat(k, 131) = mat(k, 131) + lmat(k, 131)
2608 114070872 : mat(k, 132) = mat(k, 132) + lmat(k, 132)
2609 114070872 : mat(k, 133) = lmat(k, 133)
2610 114070872 : mat(k, 134) = mat(k, 134) + lmat(k, 134)
2611 114070872 : mat(k, 137) = mat(k, 137) + lmat(k, 137)
2612 114070872 : mat(k, 138) = lmat(k, 138)
2613 114070872 : mat(k, 139) = mat(k, 139) + lmat(k, 139)
2614 114070872 : mat(k, 140) = mat(k, 140) + lmat(k, 140)
2615 114070872 : mat(k, 141) = lmat(k, 141)
2616 114070872 : mat(k, 147) = mat(k, 147) + lmat(k, 147)
2617 114070872 : mat(k, 149) = lmat(k, 149)
2618 114070872 : mat(k, 152) = mat(k, 152) + lmat(k, 152)
2619 114070872 : mat(k, 155) = mat(k, 155) + lmat(k, 155)
2620 114070872 : mat(k, 157) = mat(k, 157) + lmat(k, 157)
2621 114070872 : mat(k, 158) = mat(k, 158) + lmat(k, 158)
2622 114070872 : mat(k, 159) = lmat(k, 159)
2623 114070872 : mat(k, 161) = mat(k, 161) + lmat(k, 161)
2624 114070872 : mat(k, 162) = mat(k, 162) + lmat(k, 162)
2625 114070872 : mat(k, 167) = mat(k, 167) + lmat(k, 167)
2626 114070872 : mat(k, 173) = mat(k, 173) + lmat(k, 173)
2627 114070872 : mat(k, 179) = mat(k, 179) + lmat(k, 179)
2628 114070872 : mat(k, 180) = lmat(k, 180)
2629 114070872 : mat(k, 181) = mat(k, 181) + lmat(k, 181)
2630 114070872 : mat(k, 183) = lmat(k, 183)
2631 114070872 : mat(k, 184) = mat(k, 184) + lmat(k, 184)
2632 114070872 : mat(k, 186) = mat(k, 186) + lmat(k, 186)
2633 114070872 : mat(k, 187) = mat(k, 187) + lmat(k, 187)
2634 114070872 : mat(k, 193) = mat(k, 193) + lmat(k, 193)
2635 114070872 : mat(k, 194) = mat(k, 194) + lmat(k, 194)
2636 114070872 : mat(k, 195) = lmat(k, 195)
2637 114070872 : mat(k, 196) = lmat(k, 196)
2638 114070872 : mat(k, 197) = mat(k, 197) + lmat(k, 197)
2639 114070872 : mat(k, 198) = lmat(k, 198)
2640 114070872 : mat(k, 199) = lmat(k, 199)
2641 114070872 : mat(k, 200) = mat(k, 200) + lmat(k, 200)
2642 114070872 : mat(k, 201) = lmat(k, 201)
2643 114070872 : mat(k, 202) = mat(k, 202) + lmat(k, 202)
2644 114070872 : mat(k, 203) = mat(k, 203) + lmat(k, 203)
2645 114070872 : mat(k, 206) = mat(k, 206) + lmat(k, 206)
2646 114070872 : mat(k, 207) = lmat(k, 207)
2647 114070872 : mat(k, 208) = lmat(k, 208)
2648 114070872 : mat(k, 209) = mat(k, 209) + lmat(k, 209)
2649 114070872 : mat(k, 211) = lmat(k, 211)
2650 114070872 : mat(k, 212) = mat(k, 212) + lmat(k, 212)
2651 114070872 : mat(k, 213) = lmat(k, 213)
2652 114070872 : mat(k, 214) = mat(k, 214) + lmat(k, 214)
2653 114070872 : mat(k, 216) = mat(k, 216) + lmat(k, 216)
2654 114070872 : mat(k, 221) = mat(k, 221) + lmat(k, 221)
2655 114070872 : mat(k, 222) = lmat(k, 222)
2656 114070872 : mat(k, 223) = mat(k, 223) + lmat(k, 223)
2657 114070872 : mat(k, 230) = mat(k, 230) + lmat(k, 230)
2658 114070872 : mat(k, 239) = mat(k, 239) + lmat(k, 239)
2659 114070872 : mat(k, 244) = mat(k, 244) + lmat(k, 244)
2660 114070872 : mat(k, 245) = lmat(k, 245)
2661 114070872 : mat(k, 246) = mat(k, 246) + lmat(k, 246)
2662 114070872 : mat(k, 247) = lmat(k, 247)
2663 114070872 : mat(k, 251) = mat(k, 251) + lmat(k, 251)
2664 114070872 : mat(k, 252) = mat(k, 252) + lmat(k, 252)
2665 114070872 : mat(k, 256) = mat(k, 256) + lmat(k, 256)
2666 114070872 : mat(k, 259) = lmat(k, 259)
2667 114070872 : mat(k, 264) = mat(k, 264) + lmat(k, 264)
2668 114070872 : mat(k, 266) = lmat(k, 266)
2669 114070872 : mat(k, 267) = mat(k, 267) + lmat(k, 267)
2670 114070872 : mat(k, 271) = mat(k, 271) + lmat(k, 271)
2671 114070872 : mat(k, 278) = mat(k, 278) + lmat(k, 278)
2672 114070872 : mat(k, 279) = mat(k, 279) + lmat(k, 279)
2673 114070872 : mat(k, 281) = lmat(k, 281)
2674 114070872 : mat(k, 284) = mat(k, 284) + lmat(k, 284)
2675 114070872 : mat(k, 292) = mat(k, 292) + lmat(k, 292)
2676 114070872 : mat(k, 297) = lmat(k, 297)
2677 114070872 : mat(k, 299) = mat(k, 299) + lmat(k, 299)
2678 114070872 : mat(k, 300) = mat(k, 300) + lmat(k, 300)
2679 114070872 : mat(k, 309) = mat(k, 309) + lmat(k, 309)
2680 114070872 : mat(k, 310) = lmat(k, 310)
2681 114070872 : mat(k, 312) = mat(k, 312) + lmat(k, 312)
2682 114070872 : mat(k, 317) = mat(k, 317) + lmat(k, 317)
2683 114070872 : mat(k, 324) = mat(k, 324) + lmat(k, 324)
2684 114070872 : mat(k, 325) = mat(k, 325) + lmat(k, 325)
2685 114070872 : mat(k, 330) = mat(k, 330) + lmat(k, 330)
2686 114070872 : mat(k, 333) = mat(k, 333) + lmat(k, 333)
2687 114070872 : mat(k, 334) = mat(k, 334) + lmat(k, 334)
2688 114070872 : mat(k, 337) = mat(k, 337) + lmat(k, 337)
2689 114070872 : mat(k, 341) = mat(k, 341) + lmat(k, 341)
2690 114070872 : mat(k, 351) = mat(k, 351) + lmat(k, 351)
2691 114070872 : mat(k, 352) = lmat(k, 352)
2692 114070872 : mat(k, 355) = lmat(k, 355)
2693 114070872 : mat(k, 358) = mat(k, 358) + lmat(k, 358)
2694 114070872 : mat(k, 359) = mat(k, 359) + lmat(k, 359)
2695 114070872 : mat(k, 361) = mat(k, 361) + lmat(k, 361)
2696 114070872 : mat(k, 363) = mat(k, 363) + lmat(k, 363)
2697 114070872 : mat(k, 364) = mat(k, 364) + lmat(k, 364)
2698 114070872 : mat(k, 365) = mat(k, 365) + lmat(k, 365)
2699 114070872 : mat(k, 366) = lmat(k, 366)
2700 114070872 : mat(k, 369) = mat(k, 369) + lmat(k, 369)
2701 114070872 : mat(k, 377) = mat(k, 377) + lmat(k, 377)
2702 114070872 : mat(k, 380) = mat(k, 380) + lmat(k, 380)
2703 114070872 : mat(k, 388) = mat(k, 388) + lmat(k, 388)
2704 114070872 : mat(k, 389) = lmat(k, 389)
2705 114070872 : mat(k, 393) = lmat(k, 393)
2706 114070872 : mat(k, 401) = mat(k, 401) + lmat(k, 401)
2707 114070872 : mat(k, 405) = lmat(k, 405)
2708 114070872 : mat(k, 406) = mat(k, 406) + lmat(k, 406)
2709 114070872 : mat(k, 409) = lmat(k, 409)
2710 114070872 : mat(k, 410) = lmat(k, 410)
2711 114070872 : mat(k, 411) = lmat(k, 411)
2712 114070872 : mat(k, 414) = lmat(k, 414)
2713 114070872 : mat(k, 416) = mat(k, 416) + lmat(k, 416)
2714 114070872 : mat(k, 417) = mat(k, 417) + lmat(k, 417)
2715 114070872 : mat(k, 418) = mat(k, 418) + lmat(k, 418)
2716 114070872 : mat(k, 419) = mat(k, 419) + lmat(k, 419)
2717 114070872 : mat(k, 422) = mat(k, 422) + lmat(k, 422)
2718 114070872 : mat(k, 423) = lmat(k, 423)
2719 114070872 : mat(k, 424) = lmat(k, 424)
2720 114070872 : mat(k, 428) = mat(k, 428) + lmat(k, 428)
2721 114070872 : mat(k, 430) = mat(k, 430) + lmat(k, 430)
2722 114070872 : mat(k, 432) = mat(k, 432) + lmat(k, 432)
2723 114070872 : mat(k, 444) = lmat(k, 444)
2724 114070872 : mat(k, 446) = mat(k, 446) + lmat(k, 446)
2725 114070872 : mat(k, 450) = lmat(k, 450)
2726 114070872 : mat(k, 461) = mat(k, 461) + lmat(k, 461)
2727 114070872 : mat(k, 474) = lmat(k, 474)
2728 114070872 : mat(k, 476) = mat(k, 476) + lmat(k, 476)
2729 114070872 : mat(k, 482) = mat(k, 482) + lmat(k, 482)
2730 114070872 : mat(k, 490) = mat(k, 490) + lmat(k, 490)
2731 114070872 : mat(k, 504) = mat(k, 504) + lmat(k, 504)
2732 114070872 : mat(k, 505) = lmat(k, 505)
2733 114070872 : mat(k, 518) = mat(k, 518) + lmat(k, 518)
2734 114070872 : mat(k, 519) = mat(k, 519) + lmat(k, 519)
2735 114070872 : mat(k, 520) = lmat(k, 520)
2736 114070872 : mat(k, 532) = mat(k, 532) + lmat(k, 532)
2737 114070872 : mat(k, 535) = mat(k, 535) + lmat(k, 535)
2738 114070872 : mat(k, 536) = lmat(k, 536)
2739 114070872 : mat(k, 549) = mat(k, 549) + lmat(k, 549)
2740 114070872 : mat(k, 550) = mat(k, 550) + lmat(k, 550)
2741 114070872 : mat(k, 551) = lmat(k, 551)
2742 114070872 : mat(k, 563) = mat(k, 563) + lmat(k, 563)
2743 114070872 : mat(k, 564) = mat(k, 564) + lmat(k, 564)
2744 114070872 : mat(k, 582) = mat(k, 582) + lmat(k, 582)
2745 114070872 : mat(k, 594) = mat(k, 594) + lmat(k, 594)
2746 114070872 : mat(k, 598) = mat(k, 598) + lmat(k, 598)
2747 114070872 : mat(k, 601) = mat(k, 601) + lmat(k, 601)
2748 114070872 : mat(k, 606) = lmat(k, 606)
2749 114070872 : mat(k, 607) = mat(k, 607) + lmat(k, 607)
2750 114070872 : mat(k, 609) = mat(k, 609) + lmat(k, 609)
2751 114070872 : mat(k, 610) = lmat(k, 610)
2752 114070872 : mat(k, 616) = mat(k, 616) + lmat(k, 616)
2753 114070872 : mat(k, 625) = mat(k, 625) + lmat(k, 625)
2754 114070872 : mat(k, 626) = lmat(k, 626)
2755 114070872 : mat(k, 642) = mat(k, 642) + lmat(k, 642)
2756 114070872 : mat(k, 647) = mat(k, 647) + lmat(k, 647)
2757 114070872 : mat(k, 669) = mat(k, 669) + lmat(k, 669)
2758 114070872 : mat(k, 673) = lmat(k, 673)
2759 114070872 : mat(k, 687) = mat(k, 687) + lmat(k, 687)
2760 114070872 : mat(k, 691) = mat(k, 691) + lmat(k, 691)
2761 114070872 : mat(k, 692) = lmat(k, 692)
2762 114070872 : mat(k, 707) = mat(k, 707) + lmat(k, 707)
2763 114070872 : mat(k, 714) = mat(k, 714) + lmat(k, 714)
2764 114070872 : mat(k, 715) = mat(k, 715) + lmat(k, 715)
2765 114070872 : mat(k, 722) = mat(k, 722) + lmat(k, 722)
2766 114070872 : mat(k, 733) = mat(k, 733) + lmat(k, 733)
2767 114070872 : mat(k, 736) = lmat(k, 736)
2768 114070872 : mat(k, 738) = mat(k, 738) + lmat(k, 738)
2769 114070872 : mat(k, 750) = mat(k, 750) + lmat(k, 750)
2770 114070872 : mat(k, 787) = mat(k, 787) + lmat(k, 787)
2771 114070872 : mat(k, 794) = mat(k, 794) + lmat(k, 794)
2772 114070872 : mat(k, 811) = mat(k, 811) + lmat(k, 811)
2773 114070872 : mat(k, 833) = mat(k, 833) + lmat(k, 833)
2774 114070872 : mat(k, 844) = mat(k, 844) + lmat(k, 844)
2775 114070872 : mat(k, 850) = lmat(k, 850)
2776 114070872 : mat(k, 866) = mat(k, 866) + lmat(k, 866)
2777 114070872 : mat(k, 868) = lmat(k, 868)
2778 114070872 : mat(k, 880) = mat(k, 880) + lmat(k, 880)
2779 114070872 : mat(k, 889) = mat(k, 889) + lmat(k, 889)
2780 114070872 : mat(k, 900) = mat(k, 900) + lmat(k, 900)
2781 114070872 : mat(k, 926) = mat(k, 926) + lmat(k, 926)
2782 114070872 : mat(k, 928) = lmat(k, 928)
2783 114070872 : mat(k, 943) = mat(k, 943) + lmat(k, 943)
2784 114070872 : mat(k, 984) = mat(k, 984) + lmat(k, 984)
2785 114070872 : mat(k,1014) = mat(k,1014) + lmat(k,1014)
2786 114070872 : mat(k,1020) = mat(k,1020) + lmat(k,1020)
2787 114070872 : mat(k,1034) = lmat(k,1034)
2788 114070872 : mat(k,1058) = mat(k,1058) + lmat(k,1058)
2789 114070872 : mat(k,1104) = mat(k,1104) + lmat(k,1104)
2790 114070872 : mat(k,1110) = mat(k,1110) + lmat(k,1110)
2791 114070872 : mat(k,1112) = mat(k,1112) + lmat(k,1112)
2792 114070872 : mat(k,1127) = lmat(k,1127)
2793 114070872 : mat(k,1153) = mat(k,1153) + lmat(k,1153)
2794 114070872 : mat(k,1197) = mat(k,1197) + lmat(k,1197)
2795 114070872 : mat(k,1218) = lmat(k,1218)
2796 114070872 : mat(k,1241) = mat(k,1241) + lmat(k,1241)
2797 114070872 : mat(k,1260) = mat(k,1260) + lmat(k,1260)
2798 114070872 : mat(k,1263) = mat(k,1263) + lmat(k,1263)
2799 114070872 : mat(k,1284) = mat(k,1284) + lmat(k,1284)
2800 114070872 : mat(k,1286) = lmat(k,1286)
2801 114070872 : mat(k,1327) = mat(k,1327) + lmat(k,1327)
2802 114070872 : mat(k,1347) = mat(k,1347) + lmat(k,1347)
2803 114070872 : mat(k,1348) = mat(k,1348) + lmat(k,1348)
2804 114070872 : mat(k,1364) = mat(k,1364) + lmat(k,1364)
2805 114070872 : mat(k,1381) = mat(k,1381) + lmat(k,1381)
2806 114070872 : mat(k,1388) = mat(k,1388) + lmat(k,1388)
2807 114070872 : mat(k,1406) = lmat(k,1406)
2808 114070872 : mat(k,1407) = mat(k,1407) + lmat(k,1407)
2809 114070872 : mat(k,1415) = mat(k,1415) + lmat(k,1415)
2810 114070872 : mat(k,1423) = mat(k,1423) + lmat(k,1423)
2811 114070872 : mat(k,1430) = mat(k,1430) + lmat(k,1430)
2812 114070872 : mat(k,1437) = mat(k,1437) + lmat(k,1437)
2813 114070872 : mat(k,1438) = mat(k,1438) + lmat(k,1438)
2814 114070872 : mat(k,1442) = mat(k,1442) + lmat(k,1442)
2815 114070872 : mat(k,1487) = mat(k,1487) + lmat(k,1487)
2816 114070872 : mat(k,1517) = mat(k,1517) + lmat(k,1517)
2817 114070872 : mat(k,1529) = mat(k,1529) + lmat(k,1529)
2818 114070872 : mat(k,1536) = lmat(k,1536)
2819 114070872 : mat(k,1555) = mat(k,1555) + lmat(k,1555)
2820 114070872 : mat(k,1563) = mat(k,1563) + lmat(k,1563)
2821 114070872 : mat(k,1566) = mat(k,1566) + lmat(k,1566)
2822 114070872 : mat(k,1602) = mat(k,1602) + lmat(k,1602)
2823 114070872 : mat(k,1612) = mat(k,1612) + lmat(k,1612)
2824 114070872 : mat(k,1621) = mat(k,1621) + lmat(k,1621)
2825 114070872 : mat(k,1656) = mat(k,1656) + lmat(k,1656)
2826 114070872 : mat(k,1657) = lmat(k,1657)
2827 114070872 : mat(k,1666) = mat(k,1666) + lmat(k,1666)
2828 114070872 : mat(k,1690) = lmat(k,1690)
2829 114070872 : mat(k,1700) = mat(k,1700) + lmat(k,1700)
2830 114070872 : mat(k,1709) = mat(k,1709) + lmat(k,1709)
2831 114070872 : mat(k,1733) = mat(k,1733) + lmat(k,1733)
2832 114070872 : mat(k,1734) = mat(k,1734) + lmat(k,1734)
2833 114070872 : mat(k,1736) = mat(k,1736) + lmat(k,1736)
2834 114070872 : mat(k,1741) = mat(k,1741) + lmat(k,1741)
2835 114070872 : mat(k,1743) = mat(k,1743) + lmat(k,1743)
2836 114070872 : mat(k,1747) = mat(k,1747) + lmat(k,1747)
2837 114070872 : mat(k,1778) = mat(k,1778) + lmat(k,1778)
2838 114070872 : mat(k,1808) = mat(k,1808) + lmat(k,1808)
2839 114070872 : mat(k,1817) = mat(k,1817) + lmat(k,1817)
2840 114070872 : mat(k,1820) = mat(k,1820) + lmat(k,1820)
2841 114070872 : mat(k,1827) = mat(k,1827) + lmat(k,1827)
2842 114070872 : mat(k,1831) = mat(k,1831) + lmat(k,1831)
2843 114070872 : mat(k,1841) = mat(k,1841) + lmat(k,1841)
2844 114070872 : mat(k,1843) = mat(k,1843) + lmat(k,1843)
2845 114070872 : mat(k,1861) = mat(k,1861) + lmat(k,1861)
2846 114070872 : mat(k,1879) = mat(k,1879) + lmat(k,1879)
2847 114070872 : mat(k,1886) = mat(k,1886) + lmat(k,1886)
2848 114070872 : mat(k,1898) = mat(k,1898) + lmat(k,1898)
2849 114070872 : mat(k,1906) = mat(k,1906) + lmat(k,1906)
2850 114070872 : mat(k,1913) = mat(k,1913) + lmat(k,1913)
2851 114070872 : mat(k,1927) = mat(k,1927) + lmat(k,1927)
2852 114070872 : mat(k,1928) = mat(k,1928) + lmat(k,1928)
2853 114070872 : mat(k,1940) = mat(k,1940) + lmat(k,1940)
2854 114070872 : mat(k,1947) = mat(k,1947) + lmat(k,1947)
2855 114070872 : mat(k,1962) = mat(k,1962) + lmat(k,1962)
2856 114070872 : mat(k,1964) = mat(k,1964) + lmat(k,1964)
2857 114070872 : mat(k,1969) = mat(k,1969) + lmat(k,1969)
2858 114070872 : mat(k,1983) = mat(k,1983) + lmat(k,1983)
2859 114070872 : mat(k,2016) = mat(k,2016) + lmat(k,2016)
2860 114070872 : mat(k,2023) = mat(k,2023) + lmat(k,2023)
2861 114070872 : mat(k,2029) = mat(k,2029) + lmat(k,2029)
2862 114070872 : mat(k,2055) = lmat(k,2055)
2863 114070872 : mat(k,2060) = mat(k,2060) + lmat(k,2060)
2864 114070872 : mat(k,2065) = mat(k,2065) + lmat(k,2065)
2865 114070872 : mat(k,2074) = lmat(k,2074)
2866 114070872 : mat(k,2083) = lmat(k,2083)
2867 114070872 : mat(k,2090) = mat(k,2090) + lmat(k,2090)
2868 114070872 : mat(k, 91) = 0._r8
2869 114070872 : mat(k, 117) = 0._r8
2870 114070872 : mat(k, 286) = 0._r8
2871 114070872 : mat(k, 290) = 0._r8
2872 114070872 : mat(k, 295) = 0._r8
2873 114070872 : mat(k, 298) = 0._r8
2874 114070872 : mat(k, 314) = 0._r8
2875 114070872 : mat(k, 356) = 0._r8
2876 114070872 : mat(k, 368) = 0._r8
2877 114070872 : mat(k, 390) = 0._r8
2878 114070872 : mat(k, 391) = 0._r8
2879 114070872 : mat(k, 392) = 0._r8
2880 114070872 : mat(k, 398) = 0._r8
2881 114070872 : mat(k, 426) = 0._r8
2882 114070872 : mat(k, 427) = 0._r8
2883 114070872 : mat(k, 435) = 0._r8
2884 114070872 : mat(k, 439) = 0._r8
2885 114070872 : mat(k, 442) = 0._r8
2886 114070872 : mat(k, 445) = 0._r8
2887 114070872 : mat(k, 447) = 0._r8
2888 114070872 : mat(k, 448) = 0._r8
2889 114070872 : mat(k, 452) = 0._r8
2890 114070872 : mat(k, 462) = 0._r8
2891 114070872 : mat(k, 464) = 0._r8
2892 114070872 : mat(k, 467) = 0._r8
2893 114070872 : mat(k, 469) = 0._r8
2894 114070872 : mat(k, 470) = 0._r8
2895 114070872 : mat(k, 479) = 0._r8
2896 114070872 : mat(k, 489) = 0._r8
2897 114070872 : mat(k, 585) = 0._r8
2898 114070872 : mat(k, 587) = 0._r8
2899 114070872 : mat(k, 588) = 0._r8
2900 114070872 : mat(k, 589) = 0._r8
2901 114070872 : mat(k, 591) = 0._r8
2902 114070872 : mat(k, 593) = 0._r8
2903 114070872 : mat(k, 627) = 0._r8
2904 114070872 : mat(k, 632) = 0._r8
2905 114070872 : mat(k, 640) = 0._r8
2906 114070872 : mat(k, 645) = 0._r8
2907 114070872 : mat(k, 646) = 0._r8
2908 114070872 : mat(k, 648) = 0._r8
2909 114070872 : mat(k, 650) = 0._r8
2910 114070872 : mat(k, 653) = 0._r8
2911 114070872 : mat(k, 654) = 0._r8
2912 114070872 : mat(k, 656) = 0._r8
2913 114070872 : mat(k, 658) = 0._r8
2914 114070872 : mat(k, 659) = 0._r8
2915 114070872 : mat(k, 661) = 0._r8
2916 114070872 : mat(k, 664) = 0._r8
2917 114070872 : mat(k, 697) = 0._r8
2918 114070872 : mat(k, 705) = 0._r8
2919 114070872 : mat(k, 716) = 0._r8
2920 114070872 : mat(k, 717) = 0._r8
2921 114070872 : mat(k, 721) = 0._r8
2922 114070872 : mat(k, 725) = 0._r8
2923 114070872 : mat(k, 726) = 0._r8
2924 114070872 : mat(k, 727) = 0._r8
2925 114070872 : mat(k, 729) = 0._r8
2926 114070872 : mat(k, 731) = 0._r8
2927 114070872 : mat(k, 732) = 0._r8
2928 114070872 : mat(k, 737) = 0._r8
2929 114070872 : mat(k, 739) = 0._r8
2930 114070872 : mat(k, 742) = 0._r8
2931 114070872 : mat(k, 743) = 0._r8
2932 114070872 : mat(k, 744) = 0._r8
2933 114070872 : mat(k, 746) = 0._r8
2934 114070872 : mat(k, 751) = 0._r8
2935 114070872 : mat(k, 752) = 0._r8
2936 114070872 : mat(k, 753) = 0._r8
2937 114070872 : mat(k, 754) = 0._r8
2938 114070872 : mat(k, 755) = 0._r8
2939 114070872 : mat(k, 779) = 0._r8
2940 114070872 : mat(k, 782) = 0._r8
2941 114070872 : mat(k, 790) = 0._r8
2942 114070872 : mat(k, 792) = 0._r8
2943 114070872 : mat(k, 793) = 0._r8
2944 114070872 : mat(k, 797) = 0._r8
2945 114070872 : mat(k, 798) = 0._r8
2946 114070872 : mat(k, 799) = 0._r8
2947 114070872 : mat(k, 800) = 0._r8
2948 114070872 : mat(k, 802) = 0._r8
2949 114070872 : mat(k, 803) = 0._r8
2950 114070872 : mat(k, 804) = 0._r8
2951 114070872 : mat(k, 834) = 0._r8
2952 114070872 : mat(k, 836) = 0._r8
2953 114070872 : mat(k, 839) = 0._r8
2954 114070872 : mat(k, 849) = 0._r8
2955 114070872 : mat(k, 855) = 0._r8
2956 114070872 : mat(k, 856) = 0._r8
2957 114070872 : mat(k, 857) = 0._r8
2958 114070872 : mat(k, 875) = 0._r8
2959 114070872 : mat(k, 881) = 0._r8
2960 114070872 : mat(k, 882) = 0._r8
2961 114070872 : mat(k, 898) = 0._r8
2962 114070872 : mat(k, 899) = 0._r8
2963 114070872 : mat(k, 902) = 0._r8
2964 114070872 : mat(k, 904) = 0._r8
2965 114070872 : mat(k, 905) = 0._r8
2966 114070872 : mat(k, 910) = 0._r8
2967 114070872 : mat(k, 911) = 0._r8
2968 114070872 : mat(k, 912) = 0._r8
2969 114070872 : mat(k, 916) = 0._r8
2970 114070872 : mat(k, 917) = 0._r8
2971 114070872 : mat(k, 927) = 0._r8
2972 114070872 : mat(k, 934) = 0._r8
2973 114070872 : mat(k, 971) = 0._r8
2974 114070872 : mat(k, 982) = 0._r8
2975 114070872 : mat(k, 985) = 0._r8
2976 114070872 : mat(k, 987) = 0._r8
2977 114070872 : mat(k, 988) = 0._r8
2978 114070872 : mat(k, 995) = 0._r8
2979 114070872 : mat(k, 996) = 0._r8
2980 114070872 : mat(k,1000) = 0._r8
2981 114070872 : mat(k,1001) = 0._r8
2982 114070872 : mat(k,1009) = 0._r8
2983 114070872 : mat(k,1015) = 0._r8
2984 114070872 : mat(k,1030) = 0._r8
2985 114070872 : mat(k,1035) = 0._r8
2986 114070872 : mat(k,1037) = 0._r8
2987 114070872 : mat(k,1047) = 0._r8
2988 114070872 : mat(k,1051) = 0._r8
2989 114070872 : mat(k,1056) = 0._r8
2990 114070872 : mat(k,1059) = 0._r8
2991 114070872 : mat(k,1067) = 0._r8
2992 114070872 : mat(k,1068) = 0._r8
2993 114070872 : mat(k,1073) = 0._r8
2994 114070872 : mat(k,1075) = 0._r8
2995 114070872 : mat(k,1076) = 0._r8
2996 114070872 : mat(k,1080) = 0._r8
2997 114070872 : mat(k,1095) = 0._r8
2998 114070872 : mat(k,1098) = 0._r8
2999 114070872 : mat(k,1103) = 0._r8
3000 114070872 : mat(k,1105) = 0._r8
3001 114070872 : mat(k,1106) = 0._r8
3002 114070872 : mat(k,1107) = 0._r8
3003 114070872 : mat(k,1109) = 0._r8
3004 114070872 : mat(k,1113) = 0._r8
3005 114070872 : mat(k,1115) = 0._r8
3006 114070872 : mat(k,1116) = 0._r8
3007 114070872 : mat(k,1117) = 0._r8
3008 114070872 : mat(k,1119) = 0._r8
3009 114070872 : mat(k,1123) = 0._r8
3010 114070872 : mat(k,1126) = 0._r8
3011 114070872 : mat(k,1130) = 0._r8
3012 114070872 : mat(k,1131) = 0._r8
3013 114070872 : mat(k,1143) = 0._r8
3014 114070872 : mat(k,1147) = 0._r8
3015 114070872 : mat(k,1152) = 0._r8
3016 114070872 : mat(k,1154) = 0._r8
3017 114070872 : mat(k,1155) = 0._r8
3018 114070872 : mat(k,1163) = 0._r8
3019 114070872 : mat(k,1164) = 0._r8
3020 114070872 : mat(k,1165) = 0._r8
3021 114070872 : mat(k,1167) = 0._r8
3022 114070872 : mat(k,1169) = 0._r8
3023 114070872 : mat(k,1170) = 0._r8
3024 114070872 : mat(k,1171) = 0._r8
3025 114070872 : mat(k,1176) = 0._r8
3026 114070872 : mat(k,1190) = 0._r8
3027 114070872 : mat(k,1195) = 0._r8
3028 114070872 : mat(k,1196) = 0._r8
3029 114070872 : mat(k,1198) = 0._r8
3030 114070872 : mat(k,1200) = 0._r8
3031 114070872 : mat(k,1206) = 0._r8
3032 114070872 : mat(k,1207) = 0._r8
3033 114070872 : mat(k,1208) = 0._r8
3034 114070872 : mat(k,1210) = 0._r8
3035 114070872 : mat(k,1212) = 0._r8
3036 114070872 : mat(k,1213) = 0._r8
3037 114070872 : mat(k,1214) = 0._r8
3038 114070872 : mat(k,1219) = 0._r8
3039 114070872 : mat(k,1233) = 0._r8
3040 114070872 : mat(k,1238) = 0._r8
3041 114070872 : mat(k,1239) = 0._r8
3042 114070872 : mat(k,1240) = 0._r8
3043 114070872 : mat(k,1243) = 0._r8
3044 114070872 : mat(k,1249) = 0._r8
3045 114070872 : mat(k,1250) = 0._r8
3046 114070872 : mat(k,1255) = 0._r8
3047 114070872 : mat(k,1256) = 0._r8
3048 114070872 : mat(k,1257) = 0._r8
3049 114070872 : mat(k,1258) = 0._r8
3050 114070872 : mat(k,1268) = 0._r8
3051 114070872 : mat(k,1269) = 0._r8
3052 114070872 : mat(k,1272) = 0._r8
3053 114070872 : mat(k,1274) = 0._r8
3054 114070872 : mat(k,1275) = 0._r8
3055 114070872 : mat(k,1276) = 0._r8
3056 114070872 : mat(k,1277) = 0._r8
3057 114070872 : mat(k,1279) = 0._r8
3058 114070872 : mat(k,1280) = 0._r8
3059 114070872 : mat(k,1282) = 0._r8
3060 114070872 : mat(k,1283) = 0._r8
3061 114070872 : mat(k,1285) = 0._r8
3062 114070872 : mat(k,1288) = 0._r8
3063 114070872 : mat(k,1289) = 0._r8
3064 114070872 : mat(k,1292) = 0._r8
3065 114070872 : mat(k,1293) = 0._r8
3066 114070872 : mat(k,1294) = 0._r8
3067 114070872 : mat(k,1295) = 0._r8
3068 114070872 : mat(k,1296) = 0._r8
3069 114070872 : mat(k,1299) = 0._r8
3070 114070872 : mat(k,1300) = 0._r8
3071 114070872 : mat(k,1301) = 0._r8
3072 114070872 : mat(k,1302) = 0._r8
3073 114070872 : mat(k,1322) = 0._r8
3074 114070872 : mat(k,1323) = 0._r8
3075 114070872 : mat(k,1325) = 0._r8
3076 114070872 : mat(k,1333) = 0._r8
3077 114070872 : mat(k,1334) = 0._r8
3078 114070872 : mat(k,1335) = 0._r8
3079 114070872 : mat(k,1339) = 0._r8
3080 114070872 : mat(k,1340) = 0._r8
3081 114070872 : mat(k,1341) = 0._r8
3082 114070872 : mat(k,1354) = 0._r8
3083 114070872 : mat(k,1360) = 0._r8
3084 114070872 : mat(k,1373) = 0._r8
3085 114070872 : mat(k,1384) = 0._r8
3086 114070872 : mat(k,1385) = 0._r8
3087 114070872 : mat(k,1387) = 0._r8
3088 114070872 : mat(k,1391) = 0._r8
3089 114070872 : mat(k,1394) = 0._r8
3090 114070872 : mat(k,1395) = 0._r8
3091 114070872 : mat(k,1404) = 0._r8
3092 114070872 : mat(k,1419) = 0._r8
3093 114070872 : mat(k,1421) = 0._r8
3094 114070872 : mat(k,1422) = 0._r8
3095 114070872 : mat(k,1424) = 0._r8
3096 114070872 : mat(k,1425) = 0._r8
3097 114070872 : mat(k,1427) = 0._r8
3098 114070872 : mat(k,1428) = 0._r8
3099 114070872 : mat(k,1431) = 0._r8
3100 114070872 : mat(k,1433) = 0._r8
3101 114070872 : mat(k,1434) = 0._r8
3102 114070872 : mat(k,1436) = 0._r8
3103 114070872 : mat(k,1439) = 0._r8
3104 114070872 : mat(k,1440) = 0._r8
3105 114070872 : mat(k,1443) = 0._r8
3106 114070872 : mat(k,1444) = 0._r8
3107 114070872 : mat(k,1445) = 0._r8
3108 114070872 : mat(k,1447) = 0._r8
3109 114070872 : mat(k,1448) = 0._r8
3110 114070872 : mat(k,1452) = 0._r8
3111 114070872 : mat(k,1453) = 0._r8
3112 114070872 : mat(k,1468) = 0._r8
3113 114070872 : mat(k,1470) = 0._r8
3114 114070872 : mat(k,1473) = 0._r8
3115 114070872 : mat(k,1478) = 0._r8
3116 114070872 : mat(k,1480) = 0._r8
3117 114070872 : mat(k,1481) = 0._r8
3118 114070872 : mat(k,1482) = 0._r8
3119 114070872 : mat(k,1484) = 0._r8
3120 114070872 : mat(k,1488) = 0._r8
3121 114070872 : mat(k,1490) = 0._r8
3122 114070872 : mat(k,1491) = 0._r8
3123 114070872 : mat(k,1492) = 0._r8
3124 114070872 : mat(k,1499) = 0._r8
3125 114070872 : mat(k,1501) = 0._r8
3126 114070872 : mat(k,1505) = 0._r8
3127 114070872 : mat(k,1506) = 0._r8
3128 114070872 : mat(k,1509) = 0._r8
3129 114070872 : mat(k,1511) = 0._r8
3130 114070872 : mat(k,1512) = 0._r8
3131 114070872 : mat(k,1519) = 0._r8
3132 114070872 : mat(k,1520) = 0._r8
3133 114070872 : mat(k,1521) = 0._r8
3134 114070872 : mat(k,1522) = 0._r8
3135 114070872 : mat(k,1523) = 0._r8
3136 114070872 : mat(k,1525) = 0._r8
3137 114070872 : mat(k,1526) = 0._r8
3138 114070872 : mat(k,1527) = 0._r8
3139 114070872 : mat(k,1528) = 0._r8
3140 114070872 : mat(k,1531) = 0._r8
3141 114070872 : mat(k,1532) = 0._r8
3142 114070872 : mat(k,1533) = 0._r8
3143 114070872 : mat(k,1535) = 0._r8
3144 114070872 : mat(k,1537) = 0._r8
3145 114070872 : mat(k,1539) = 0._r8
3146 114070872 : mat(k,1540) = 0._r8
3147 114070872 : mat(k,1546) = 0._r8
3148 114070872 : mat(k,1553) = 0._r8
3149 114070872 : mat(k,1554) = 0._r8
3150 114070872 : mat(k,1570) = 0._r8
3151 114070872 : mat(k,1573) = 0._r8
3152 114070872 : mat(k,1596) = 0._r8
3153 114070872 : mat(k,1601) = 0._r8
3154 114070872 : mat(k,1603) = 0._r8
3155 114070872 : mat(k,1604) = 0._r8
3156 114070872 : mat(k,1606) = 0._r8
3157 114070872 : mat(k,1613) = 0._r8
3158 114070872 : mat(k,1614) = 0._r8
3159 114070872 : mat(k,1616) = 0._r8
3160 114070872 : mat(k,1618) = 0._r8
3161 114070872 : mat(k,1619) = 0._r8
3162 114070872 : mat(k,1620) = 0._r8
3163 114070872 : mat(k,1639) = 0._r8
3164 114070872 : mat(k,1644) = 0._r8
3165 114070872 : mat(k,1645) = 0._r8
3166 114070872 : mat(k,1646) = 0._r8
3167 114070872 : mat(k,1647) = 0._r8
3168 114070872 : mat(k,1649) = 0._r8
3169 114070872 : mat(k,1655) = 0._r8
3170 114070872 : mat(k,1661) = 0._r8
3171 114070872 : mat(k,1662) = 0._r8
3172 114070872 : mat(k,1663) = 0._r8
3173 114070872 : mat(k,1664) = 0._r8
3174 114070872 : mat(k,1682) = 0._r8
3175 114070872 : mat(k,1687) = 0._r8
3176 114070872 : mat(k,1688) = 0._r8
3177 114070872 : mat(k,1689) = 0._r8
3178 114070872 : mat(k,1692) = 0._r8
3179 114070872 : mat(k,1698) = 0._r8
3180 114070872 : mat(k,1704) = 0._r8
3181 114070872 : mat(k,1705) = 0._r8
3182 114070872 : mat(k,1706) = 0._r8
3183 114070872 : mat(k,1707) = 0._r8
3184 114070872 : mat(k,1714) = 0._r8
3185 114070872 : mat(k,1715) = 0._r8
3186 114070872 : mat(k,1716) = 0._r8
3187 114070872 : mat(k,1717) = 0._r8
3188 114070872 : mat(k,1718) = 0._r8
3189 114070872 : mat(k,1719) = 0._r8
3190 114070872 : mat(k,1721) = 0._r8
3191 114070872 : mat(k,1722) = 0._r8
3192 114070872 : mat(k,1724) = 0._r8
3193 114070872 : mat(k,1726) = 0._r8
3194 114070872 : mat(k,1727) = 0._r8
3195 114070872 : mat(k,1728) = 0._r8
3196 114070872 : mat(k,1729) = 0._r8
3197 114070872 : mat(k,1730) = 0._r8
3198 114070872 : mat(k,1731) = 0._r8
3199 114070872 : mat(k,1732) = 0._r8
3200 114070872 : mat(k,1735) = 0._r8
3201 114070872 : mat(k,1737) = 0._r8
3202 114070872 : mat(k,1738) = 0._r8
3203 114070872 : mat(k,1739) = 0._r8
3204 114070872 : mat(k,1740) = 0._r8
3205 114070872 : mat(k,1742) = 0._r8
3206 114070872 : mat(k,1744) = 0._r8
3207 114070872 : mat(k,1745) = 0._r8
3208 114070872 : mat(k,1746) = 0._r8
3209 114070872 : mat(k,1748) = 0._r8
3210 114070872 : mat(k,1749) = 0._r8
3211 114070872 : mat(k,1753) = 0._r8
3212 114070872 : mat(k,1754) = 0._r8
3213 114070872 : mat(k,1757) = 0._r8
3214 114070872 : mat(k,1763) = 0._r8
3215 114070872 : mat(k,1764) = 0._r8
3216 114070872 : mat(k,1765) = 0._r8
3217 114070872 : mat(k,1766) = 0._r8
3218 114070872 : mat(k,1771) = 0._r8
3219 114070872 : mat(k,1772) = 0._r8
3220 114070872 : mat(k,1774) = 0._r8
3221 114070872 : mat(k,1775) = 0._r8
3222 114070872 : mat(k,1776) = 0._r8
3223 114070872 : mat(k,1777) = 0._r8
3224 114070872 : mat(k,1779) = 0._r8
3225 114070872 : mat(k,1781) = 0._r8
3226 114070872 : mat(k,1789) = 0._r8
3227 114070872 : mat(k,1795) = 0._r8
3228 114070872 : mat(k,1797) = 0._r8
3229 114070872 : mat(k,1798) = 0._r8
3230 114070872 : mat(k,1802) = 0._r8
3231 114070872 : mat(k,1803) = 0._r8
3232 114070872 : mat(k,1810) = 0._r8
3233 114070872 : mat(k,1812) = 0._r8
3234 114070872 : mat(k,1813) = 0._r8
3235 114070872 : mat(k,1814) = 0._r8
3236 114070872 : mat(k,1816) = 0._r8
3237 114070872 : mat(k,1822) = 0._r8
3238 114070872 : mat(k,1823) = 0._r8
3239 114070872 : mat(k,1824) = 0._r8
3240 114070872 : mat(k,1826) = 0._r8
3241 114070872 : mat(k,1832) = 0._r8
3242 114070872 : mat(k,1838) = 0._r8
3243 114070872 : mat(k,1842) = 0._r8
3244 114070872 : mat(k,1845) = 0._r8
3245 114070872 : mat(k,1846) = 0._r8
3246 114070872 : mat(k,1847) = 0._r8
3247 114070872 : mat(k,1849) = 0._r8
3248 114070872 : mat(k,1851) = 0._r8
3249 114070872 : mat(k,1853) = 0._r8
3250 114070872 : mat(k,1854) = 0._r8
3251 114070872 : mat(k,1855) = 0._r8
3252 114070872 : mat(k,1856) = 0._r8
3253 114070872 : mat(k,1857) = 0._r8
3254 114070872 : mat(k,1858) = 0._r8
3255 114070872 : mat(k,1862) = 0._r8
3256 114070872 : mat(k,1864) = 0._r8
3257 114070872 : mat(k,1868) = 0._r8
3258 114070872 : mat(k,1871) = 0._r8
3259 114070872 : mat(k,1872) = 0._r8
3260 114070872 : mat(k,1875) = 0._r8
3261 114070872 : mat(k,1881) = 0._r8
3262 114070872 : mat(k,1882) = 0._r8
3263 114070872 : mat(k,1883) = 0._r8
3264 114070872 : mat(k,1885) = 0._r8
3265 114070872 : mat(k,1890) = 0._r8
3266 114070872 : mat(k,1891) = 0._r8
3267 114070872 : mat(k,1892) = 0._r8
3268 114070872 : mat(k,1893) = 0._r8
3269 114070872 : mat(k,1894) = 0._r8
3270 114070872 : mat(k,1907) = 0._r8
3271 114070872 : mat(k,1912) = 0._r8
3272 114070872 : mat(k,1919) = 0._r8
3273 114070872 : mat(k,1922) = 0._r8
3274 114070872 : mat(k,1923) = 0._r8
3275 114070872 : mat(k,1924) = 0._r8
3276 114070872 : mat(k,1926) = 0._r8
3277 114070872 : mat(k,1930) = 0._r8
3278 114070872 : mat(k,1932) = 0._r8
3279 114070872 : mat(k,1933) = 0._r8
3280 114070872 : mat(k,1934) = 0._r8
3281 114070872 : mat(k,1942) = 0._r8
3282 114070872 : mat(k,1943) = 0._r8
3283 114070872 : mat(k,1952) = 0._r8
3284 114070872 : mat(k,1955) = 0._r8
3285 114070872 : mat(k,1965) = 0._r8
3286 114070872 : mat(k,1966) = 0._r8
3287 114070872 : mat(k,1968) = 0._r8
3288 114070872 : mat(k,1972) = 0._r8
3289 114070872 : mat(k,1973) = 0._r8
3290 114070872 : mat(k,1975) = 0._r8
3291 114070872 : mat(k,1976) = 0._r8
3292 114070872 : mat(k,1978) = 0._r8
3293 114070872 : mat(k,1980) = 0._r8
3294 114070872 : mat(k,1984) = 0._r8
3295 114070872 : mat(k,1995) = 0._r8
3296 114070872 : mat(k,1996) = 0._r8
3297 114070872 : mat(k,1997) = 0._r8
3298 114070872 : mat(k,1998) = 0._r8
3299 114070872 : mat(k,2006) = 0._r8
3300 114070872 : mat(k,2007) = 0._r8
3301 114070872 : mat(k,2009) = 0._r8
3302 114070872 : mat(k,2010) = 0._r8
3303 114070872 : mat(k,2011) = 0._r8
3304 114070872 : mat(k,2013) = 0._r8
3305 114070872 : mat(k,2015) = 0._r8
3306 114070872 : mat(k,2019) = 0._r8
3307 114070872 : mat(k,2020) = 0._r8
3308 114070872 : mat(k,2021) = 0._r8
3309 114070872 : mat(k,2022) = 0._r8
3310 114070872 : mat(k,2024) = 0._r8
3311 114070872 : mat(k,2027) = 0._r8
3312 114070872 : mat(k,2028) = 0._r8
3313 114070872 : mat(k,2045) = 0._r8
3314 114070872 : mat(k,2046) = 0._r8
3315 114070872 : mat(k,2047) = 0._r8
3316 114070872 : mat(k,2049) = 0._r8
3317 114070872 : mat(k,2053) = 0._r8
3318 114070872 : mat(k,2058) = 0._r8
3319 114070872 : mat(k,2059) = 0._r8
3320 114070872 : mat(k,2063) = 0._r8
3321 114070872 : mat(k,2067) = 0._r8
3322 114070872 : mat(k,2068) = 0._r8
3323 114070872 : mat(k,2076) = 0._r8
3324 114070872 : mat(k,2078) = 0._r8
3325 114070872 : mat(k,2082) = 0._r8
3326 114070872 : mat(k,2084) = 0._r8
3327 114070872 : mat(k,2087) = 0._r8
3328 114070872 : mat(k,2088) = 0._r8
3329 114070872 : mat(k,2089) = 0._r8
3330 114070872 : mat(k, 1) = mat(k, 1) - dti(k)
3331 114070872 : mat(k, 2) = mat(k, 2) - dti(k)
3332 114070872 : mat(k, 3) = mat(k, 3) - dti(k)
3333 114070872 : mat(k, 4) = mat(k, 4) - dti(k)
3334 114070872 : mat(k, 5) = mat(k, 5) - dti(k)
3335 114070872 : mat(k, 6) = mat(k, 6) - dti(k)
3336 114070872 : mat(k, 7) = mat(k, 7) - dti(k)
3337 114070872 : mat(k, 8) = mat(k, 8) - dti(k)
3338 114070872 : mat(k, 9) = mat(k, 9) - dti(k)
3339 114070872 : mat(k, 10) = mat(k, 10) - dti(k)
3340 114070872 : mat(k, 11) = mat(k, 11) - dti(k)
3341 114070872 : mat(k, 12) = mat(k, 12) - dti(k)
3342 114070872 : mat(k, 13) = mat(k, 13) - dti(k)
3343 114070872 : mat(k, 14) = mat(k, 14) - dti(k)
3344 114070872 : mat(k, 15) = mat(k, 15) - dti(k)
3345 114070872 : mat(k, 16) = mat(k, 16) - dti(k)
3346 114070872 : mat(k, 17) = mat(k, 17) - dti(k)
3347 114070872 : mat(k, 18) = mat(k, 18) - dti(k)
3348 114070872 : mat(k, 19) = mat(k, 19) - dti(k)
3349 114070872 : mat(k, 20) = mat(k, 20) - dti(k)
3350 114070872 : mat(k, 21) = mat(k, 21) - dti(k)
3351 114070872 : mat(k, 22) = mat(k, 22) - dti(k)
3352 114070872 : mat(k, 23) = mat(k, 23) - dti(k)
3353 114070872 : mat(k, 24) = mat(k, 24) - dti(k)
3354 114070872 : mat(k, 25) = mat(k, 25) - dti(k)
3355 114070872 : mat(k, 26) = mat(k, 26) - dti(k)
3356 114070872 : mat(k, 29) = mat(k, 29) - dti(k)
3357 114070872 : mat(k, 32) = mat(k, 32) - dti(k)
3358 114070872 : mat(k, 36) = mat(k, 36) - dti(k)
3359 114070872 : mat(k, 40) = mat(k, 40) - dti(k)
3360 114070872 : mat(k, 44) = mat(k, 44) - dti(k)
3361 114070872 : mat(k, 48) = mat(k, 48) - dti(k)
3362 114070872 : mat(k, 52) = mat(k, 52) - dti(k)
3363 114070872 : mat(k, 55) = mat(k, 55) - dti(k)
3364 114070872 : mat(k, 60) = mat(k, 60) - dti(k)
3365 114070872 : mat(k, 65) = mat(k, 65) - dti(k)
3366 114070872 : mat(k, 70) = mat(k, 70) - dti(k)
3367 114070872 : mat(k, 75) = mat(k, 75) - dti(k)
3368 114070872 : mat(k, 77) = mat(k, 77) - dti(k)
3369 114070872 : mat(k, 80) = mat(k, 80) - dti(k)
3370 114070872 : mat(k, 85) = mat(k, 85) - dti(k)
3371 114070872 : mat(k, 90) = mat(k, 90) - dti(k)
3372 114070872 : mat(k, 95) = mat(k, 95) - dti(k)
3373 114070872 : mat(k, 98) = mat(k, 98) - dti(k)
3374 114070872 : mat(k, 103) = mat(k, 103) - dti(k)
3375 114070872 : mat(k, 107) = mat(k, 107) - dti(k)
3376 114070872 : mat(k, 111) = mat(k, 111) - dti(k)
3377 114070872 : mat(k, 116) = mat(k, 116) - dti(k)
3378 114070872 : mat(k, 122) = mat(k, 122) - dti(k)
3379 114070872 : mat(k, 125) = mat(k, 125) - dti(k)
3380 114070872 : mat(k, 131) = mat(k, 131) - dti(k)
3381 114070872 : mat(k, 134) = mat(k, 134) - dti(k)
3382 114070872 : mat(k, 139) = mat(k, 139) - dti(k)
3383 114070872 : mat(k, 147) = mat(k, 147) - dti(k)
3384 114070872 : mat(k, 155) = mat(k, 155) - dti(k)
3385 114070872 : mat(k, 161) = mat(k, 161) - dti(k)
3386 114070872 : mat(k, 167) = mat(k, 167) - dti(k)
3387 114070872 : mat(k, 173) = mat(k, 173) - dti(k)
3388 114070872 : mat(k, 179) = mat(k, 179) - dti(k)
3389 114070872 : mat(k, 186) = mat(k, 186) - dti(k)
3390 114070872 : mat(k, 193) = mat(k, 193) - dti(k)
3391 114070872 : mat(k, 200) = mat(k, 200) - dti(k)
3392 114070872 : mat(k, 206) = mat(k, 206) - dti(k)
3393 114070872 : mat(k, 214) = mat(k, 214) - dti(k)
3394 114070872 : mat(k, 221) = mat(k, 221) - dti(k)
3395 114070872 : mat(k, 230) = mat(k, 230) - dti(k)
3396 114070872 : mat(k, 239) = mat(k, 239) - dti(k)
3397 114070872 : mat(k, 246) = mat(k, 246) - dti(k)
3398 114070872 : mat(k, 252) = mat(k, 252) - dti(k)
3399 114070872 : mat(k, 256) = mat(k, 256) - dti(k)
3400 114070872 : mat(k, 264) = mat(k, 264) - dti(k)
3401 114070872 : mat(k, 271) = mat(k, 271) - dti(k)
3402 114070872 : mat(k, 278) = mat(k, 278) - dti(k)
3403 114070872 : mat(k, 284) = mat(k, 284) - dti(k)
3404 114070872 : mat(k, 292) = mat(k, 292) - dti(k)
3405 114070872 : mat(k, 300) = mat(k, 300) - dti(k)
3406 114070872 : mat(k, 309) = mat(k, 309) - dti(k)
3407 114070872 : mat(k, 317) = mat(k, 317) - dti(k)
3408 114070872 : mat(k, 324) = mat(k, 324) - dti(k)
3409 114070872 : mat(k, 333) = mat(k, 333) - dti(k)
3410 114070872 : mat(k, 341) = mat(k, 341) - dti(k)
3411 114070872 : mat(k, 351) = mat(k, 351) - dti(k)
3412 114070872 : mat(k, 359) = mat(k, 359) - dti(k)
3413 114070872 : mat(k, 369) = mat(k, 369) - dti(k)
3414 114070872 : mat(k, 377) = mat(k, 377) - dti(k)
3415 114070872 : mat(k, 388) = mat(k, 388) - dti(k)
3416 114070872 : mat(k, 401) = mat(k, 401) - dti(k)
3417 114070872 : mat(k, 416) = mat(k, 416) - dti(k)
3418 114070872 : mat(k, 432) = mat(k, 432) - dti(k)
3419 114070872 : mat(k, 446) = mat(k, 446) - dti(k)
3420 114070872 : mat(k, 461) = mat(k, 461) - dti(k)
3421 114070872 : mat(k, 476) = mat(k, 476) - dti(k)
3422 114070872 : mat(k, 490) = mat(k, 490) - dti(k)
3423 114070872 : mat(k, 504) = mat(k, 504) - dti(k)
3424 114070872 : mat(k, 519) = mat(k, 519) - dti(k)
3425 114070872 : mat(k, 535) = mat(k, 535) - dti(k)
3426 114070872 : mat(k, 550) = mat(k, 550) - dti(k)
3427 114070872 : mat(k, 564) = mat(k, 564) - dti(k)
3428 114070872 : mat(k, 582) = mat(k, 582) - dti(k)
3429 114070872 : mat(k, 594) = mat(k, 594) - dti(k)
3430 114070872 : mat(k, 609) = mat(k, 609) - dti(k)
3431 114070872 : mat(k, 625) = mat(k, 625) - dti(k)
3432 114070872 : mat(k, 647) = mat(k, 647) - dti(k)
3433 114070872 : mat(k, 669) = mat(k, 669) - dti(k)
3434 114070872 : mat(k, 691) = mat(k, 691) - dti(k)
3435 114070872 : mat(k, 715) = mat(k, 715) - dti(k)
3436 114070872 : mat(k, 738) = mat(k, 738) - dti(k)
3437 114070872 : mat(k, 787) = mat(k, 787) - dti(k)
3438 114070872 : mat(k, 811) = mat(k, 811) - dti(k)
3439 114070872 : mat(k, 833) = mat(k, 833) - dti(k)
3440 114070872 : mat(k, 866) = mat(k, 866) - dti(k)
3441 114070872 : mat(k, 900) = mat(k, 900) - dti(k)
3442 114070872 : mat(k, 926) = mat(k, 926) - dti(k)
3443 114070872 : mat(k, 984) = mat(k, 984) - dti(k)
3444 114070872 : mat(k,1014) = mat(k,1014) - dti(k)
3445 114070872 : mat(k,1058) = mat(k,1058) - dti(k)
3446 114070872 : mat(k,1104) = mat(k,1104) - dti(k)
3447 114070872 : mat(k,1153) = mat(k,1153) - dti(k)
3448 114070872 : mat(k,1197) = mat(k,1197) - dti(k)
3449 114070872 : mat(k,1241) = mat(k,1241) - dti(k)
3450 114070872 : mat(k,1284) = mat(k,1284) - dti(k)
3451 114070872 : mat(k,1327) = mat(k,1327) - dti(k)
3452 114070872 : mat(k,1388) = mat(k,1388) - dti(k)
3453 114070872 : mat(k,1438) = mat(k,1438) - dti(k)
3454 114070872 : mat(k,1487) = mat(k,1487) - dti(k)
3455 114070872 : mat(k,1529) = mat(k,1529) - dti(k)
3456 114070872 : mat(k,1566) = mat(k,1566) - dti(k)
3457 114070872 : mat(k,1612) = mat(k,1612) - dti(k)
3458 114070872 : mat(k,1656) = mat(k,1656) - dti(k)
3459 114070872 : mat(k,1700) = mat(k,1700) - dti(k)
3460 114070872 : mat(k,1741) = mat(k,1741) - dti(k)
3461 114070872 : mat(k,1778) = mat(k,1778) - dti(k)
3462 114070872 : mat(k,1827) = mat(k,1827) - dti(k)
3463 114070872 : mat(k,1861) = mat(k,1861) - dti(k)
3464 114070872 : mat(k,1898) = mat(k,1898) - dti(k)
3465 114070872 : mat(k,1940) = mat(k,1940) - dti(k)
3466 114070872 : mat(k,1983) = mat(k,1983) - dti(k)
3467 114070872 : mat(k,2029) = mat(k,2029) - dti(k)
3468 117656469 : mat(k,2090) = mat(k,2090) - dti(k)
3469 : end do
3470 3585597 : end subroutine nlnmat_finit
3471 3585597 : subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti )
3472 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
3473 : implicit none
3474 : !----------------------------------------------
3475 : ! ... dummy arguments
3476 : !----------------------------------------------
3477 : integer, intent(in) :: avec_len
3478 : real(r8), intent(in) :: dti(veclen)
3479 : real(r8), intent(in) :: lmat(veclen,nzcnt)
3480 : real(r8), intent(in) :: y(veclen,gas_pcnst)
3481 : real(r8), intent(in) :: rxt(veclen,rxntot)
3482 : real(r8), intent(inout) :: mat(veclen,nzcnt)
3483 3585597 : call nlnmat01( avec_len, mat, y, rxt )
3484 3585597 : call nlnmat02( avec_len, mat, y, rxt )
3485 3585597 : call nlnmat03( avec_len, mat, y, rxt )
3486 3585597 : call nlnmat04( avec_len, mat, y, rxt )
3487 3585597 : call nlnmat05( avec_len, mat, y, rxt )
3488 3585597 : call nlnmat06( avec_len, mat, y, rxt )
3489 3585597 : call nlnmat07( avec_len, mat, y, rxt )
3490 3585597 : call nlnmat08( avec_len, mat, y, rxt )
3491 3585597 : call nlnmat09( avec_len, mat, y, rxt )
3492 3585597 : call nlnmat10( avec_len, mat, y, rxt )
3493 3585597 : call nlnmat_finit( avec_len, mat, lmat, dti )
3494 3585597 : end subroutine nlnmat
3495 : end module mo_nln_matrix
|