Line data Source code
1 : module mo_adjrxt
2 : private
3 : public :: adjrxt
4 : contains
5 72960 : subroutine adjrxt( rate, inv, m, ncol, nlev )
6 : use shr_kind_mod, only : r8 => shr_kind_r8
7 : use chem_mods, only : nfs, rxntot
8 : implicit none
9 : !--------------------------------------------------------------------
10 : ! ... dummy arguments
11 : !--------------------------------------------------------------------
12 : integer, intent(in) :: ncol, nlev
13 : real(r8), intent(in) :: inv(ncol,nlev,nfs)
14 : real(r8), intent(in) :: m(ncol,nlev)
15 : real(r8), intent(inout) :: rate(ncol,nlev,rxntot)
16 62993664 : rate(:,:, 170) = rate(:,:, 170) * inv(:,:, 3)
17 62993664 : rate(:,:, 171) = rate(:,:, 171) * inv(:,:, 2)
18 62993664 : rate(:,:, 174) = rate(:,:, 174) * inv(:,:, 1)
19 62993664 : rate(:,:, 191) = rate(:,:, 191) * inv(:,:, 1)
20 62993664 : rate(:,:, 198) = rate(:,:, 198) * inv(:,:, 2)
21 62993664 : rate(:,:, 201) = rate(:,:, 201) * inv(:,:, 1)
22 62993664 : rate(:,:, 209) = rate(:,:, 209) * inv(:,:, 1)
23 62993664 : rate(:,:, 212) = rate(:,:, 212) * inv(:,:, 1)
24 62993664 : rate(:,:, 213) = rate(:,:, 213) * inv(:,:, 1)
25 62993664 : rate(:,:, 214) = rate(:,:, 214) * inv(:,:, 1)
26 62993664 : rate(:,:, 216) = rate(:,:, 216) * inv(:,:, 1)
27 62993664 : rate(:,:, 217) = rate(:,:, 217) * inv(:,:, 1)
28 62993664 : rate(:,:, 232) = rate(:,:, 232) * inv(:,:, 1)
29 62993664 : rate(:,:, 252) = rate(:,:, 252) * inv(:,:, 1)
30 62993664 : rate(:,:, 253) = rate(:,:, 253) * inv(:,:, 1)
31 62993664 : rate(:,:, 263) = rate(:,:, 263) * inv(:,:, 1)
32 62993664 : rate(:,:, 309) = rate(:,:, 309) * inv(:,:, 1)
33 62993664 : rate(:,:, 320) = rate(:,:, 320) * inv(:,:, 1)
34 62993664 : rate(:,:, 321) = rate(:,:, 321) * inv(:,:, 1)
35 62993664 : rate(:,:, 322) = rate(:,:, 322) * inv(:,:, 1)
36 62993664 : rate(:,:, 344) = rate(:,:, 344) * inv(:,:, 2)
37 62993664 : rate(:,:, 350) = rate(:,:, 350) * inv(:,:, 1)
38 62993664 : rate(:,:, 351) = rate(:,:, 351) * inv(:,:, 1)
39 62993664 : rate(:,:, 352) = rate(:,:, 352) * inv(:,:, 1)
40 62993664 : rate(:,:, 372) = rate(:,:, 372) * inv(:,:, 1)
41 62993664 : rate(:,:, 398) = rate(:,:, 398) * inv(:,:, 1)
42 62993664 : rate(:,:, 406) = rate(:,:, 406) * inv(:,:, 1)
43 62993664 : rate(:,:, 407) = rate(:,:, 407) * inv(:,:, 1)
44 62993664 : rate(:,:, 436) = rate(:,:, 436) * inv(:,:, 2)
45 62993664 : rate(:,:, 437) = rate(:,:, 437) * inv(:,:, 2)
46 62993664 : rate(:,:, 438) = rate(:,:, 438) * inv(:,:, 2)
47 62993664 : rate(:,:, 439) = rate(:,:, 439) * inv(:,:, 2)
48 62993664 : rate(:,:, 440) = rate(:,:, 440) * inv(:,:, 2)
49 62993664 : rate(:,:, 441) = rate(:,:, 441) * inv(:,:, 2)
50 62993664 : rate(:,:, 442) = rate(:,:, 442) * inv(:,:, 2)
51 62993664 : rate(:,:, 443) = rate(:,:, 443) * inv(:,:, 2)
52 62993664 : rate(:,:, 557) = rate(:,:, 557) * inv(:,:, 1)
53 62993664 : rate(:,:, 560) = rate(:,:, 560) * inv(:,:, 1)
54 62993664 : rate(:,:, 563) = rate(:,:, 563) * inv(:,:, 1)
55 62993664 : rate(:,:, 570) = rate(:,:, 570) * inv(:,:, 1)
56 62993664 : rate(:,:, 575) = rate(:,:, 575) * inv(:,:, 1)
57 62993664 : rate(:,:, 684) = rate(:,:, 684) * inv(:,:, 1)
58 62993664 : rate(:,:, 685) = rate(:,:, 685) * inv(:,:, 1)
59 62993664 : rate(:,:, 686) = rate(:,:, 686) * inv(:,:, 1)
60 62993664 : rate(:,:, 790) = rate(:,:, 790) * inv(:,:, 1)
61 62993664 : rate(:,:, 791) = rate(:,:, 791) * inv(:,:, 1)
62 62993664 : rate(:,:, 792) = rate(:,:, 792) * inv(:,:, 1)
63 62993664 : rate(:,:, 797) = rate(:,:, 797) * inv(:,:, 2)
64 62993664 : rate(:,:, 798) = rate(:,:, 798) * inv(:,:, 1)
65 62993664 : rate(:,:, 804) = rate(:,:, 804) * inv(:,:, 2)
66 62993664 : rate(:,:, 175) = rate(:,:, 175) * inv(:,:, 2) * inv(:,:, 1)
67 62993664 : rate(:,:, 181) = rate(:,:, 181) * inv(:,:, 2) * inv(:,:, 1)
68 62993664 : rate(:,:, 168) = rate(:,:, 168) * m(:,:)
69 62993664 : rate(:,:, 169) = rate(:,:, 169) * m(:,:)
70 62993664 : rate(:,:, 172) = rate(:,:, 172) * m(:,:)
71 62993664 : rate(:,:, 173) = rate(:,:, 173) * m(:,:)
72 62993664 : rate(:,:, 174) = rate(:,:, 174) * m(:,:)
73 62993664 : rate(:,:, 176) = rate(:,:, 176) * m(:,:)
74 62993664 : rate(:,:, 177) = rate(:,:, 177) * m(:,:)
75 62993664 : rate(:,:, 178) = rate(:,:, 178) * m(:,:)
76 62993664 : rate(:,:, 179) = rate(:,:, 179) * m(:,:)
77 62993664 : rate(:,:, 180) = rate(:,:, 180) * m(:,:)
78 62993664 : rate(:,:, 182) = rate(:,:, 182) * m(:,:)
79 62993664 : rate(:,:, 183) = rate(:,:, 183) * m(:,:)
80 62993664 : rate(:,:, 184) = rate(:,:, 184) * m(:,:)
81 62993664 : rate(:,:, 185) = rate(:,:, 185) * m(:,:)
82 62993664 : rate(:,:, 186) = rate(:,:, 186) * m(:,:)
83 62993664 : rate(:,:, 187) = rate(:,:, 187) * m(:,:)
84 62993664 : rate(:,:, 188) = rate(:,:, 188) * m(:,:)
85 62993664 : rate(:,:, 189) = rate(:,:, 189) * m(:,:)
86 62993664 : rate(:,:, 190) = rate(:,:, 190) * m(:,:)
87 62993664 : rate(:,:, 191) = rate(:,:, 191) * m(:,:)
88 62993664 : rate(:,:, 192) = rate(:,:, 192) * m(:,:)
89 62993664 : rate(:,:, 193) = rate(:,:, 193) * m(:,:)
90 62993664 : rate(:,:, 194) = rate(:,:, 194) * m(:,:)
91 62993664 : rate(:,:, 195) = rate(:,:, 195) * m(:,:)
92 62993664 : rate(:,:, 196) = rate(:,:, 196) * m(:,:)
93 62993664 : rate(:,:, 197) = rate(:,:, 197) * m(:,:)
94 62993664 : rate(:,:, 199) = rate(:,:, 199) * m(:,:)
95 62993664 : rate(:,:, 200) = rate(:,:, 200) * m(:,:)
96 62993664 : rate(:,:, 201) = rate(:,:, 201) * m(:,:)
97 62993664 : rate(:,:, 202) = rate(:,:, 202) * m(:,:)
98 62993664 : rate(:,:, 203) = rate(:,:, 203) * m(:,:)
99 62993664 : rate(:,:, 204) = rate(:,:, 204) * m(:,:)
100 62993664 : rate(:,:, 205) = rate(:,:, 205) * m(:,:)
101 62993664 : rate(:,:, 206) = rate(:,:, 206) * m(:,:)
102 62993664 : rate(:,:, 207) = rate(:,:, 207) * m(:,:)
103 62993664 : rate(:,:, 208) = rate(:,:, 208) * m(:,:)
104 62993664 : rate(:,:, 209) = rate(:,:, 209) * m(:,:)
105 62993664 : rate(:,:, 210) = rate(:,:, 210) * m(:,:)
106 62993664 : rate(:,:, 211) = rate(:,:, 211) * m(:,:)
107 62993664 : rate(:,:, 212) = rate(:,:, 212) * m(:,:)
108 62993664 : rate(:,:, 213) = rate(:,:, 213) * m(:,:)
109 62993664 : rate(:,:, 214) = rate(:,:, 214) * m(:,:)
110 62993664 : rate(:,:, 215) = rate(:,:, 215) * m(:,:)
111 62993664 : rate(:,:, 218) = rate(:,:, 218) * m(:,:)
112 62993664 : rate(:,:, 219) = rate(:,:, 219) * m(:,:)
113 62993664 : rate(:,:, 220) = rate(:,:, 220) * m(:,:)
114 62993664 : rate(:,:, 221) = rate(:,:, 221) * m(:,:)
115 62993664 : rate(:,:, 222) = rate(:,:, 222) * m(:,:)
116 62993664 : rate(:,:, 223) = rate(:,:, 223) * m(:,:)
117 62993664 : rate(:,:, 224) = rate(:,:, 224) * m(:,:)
118 62993664 : rate(:,:, 225) = rate(:,:, 225) * m(:,:)
119 62993664 : rate(:,:, 226) = rate(:,:, 226) * m(:,:)
120 62993664 : rate(:,:, 227) = rate(:,:, 227) * m(:,:)
121 62993664 : rate(:,:, 228) = rate(:,:, 228) * m(:,:)
122 62993664 : rate(:,:, 229) = rate(:,:, 229) * m(:,:)
123 62993664 : rate(:,:, 230) = rate(:,:, 230) * m(:,:)
124 62993664 : rate(:,:, 231) = rate(:,:, 231) * m(:,:)
125 62993664 : rate(:,:, 232) = rate(:,:, 232) * m(:,:)
126 62993664 : rate(:,:, 233) = rate(:,:, 233) * m(:,:)
127 62993664 : rate(:,:, 234) = rate(:,:, 234) * m(:,:)
128 62993664 : rate(:,:, 235) = rate(:,:, 235) * m(:,:)
129 62993664 : rate(:,:, 236) = rate(:,:, 236) * m(:,:)
130 62993664 : rate(:,:, 237) = rate(:,:, 237) * m(:,:)
131 62993664 : rate(:,:, 238) = rate(:,:, 238) * m(:,:)
132 62993664 : rate(:,:, 239) = rate(:,:, 239) * m(:,:)
133 62993664 : rate(:,:, 240) = rate(:,:, 240) * m(:,:)
134 62993664 : rate(:,:, 241) = rate(:,:, 241) * m(:,:)
135 62993664 : rate(:,:, 242) = rate(:,:, 242) * m(:,:)
136 62993664 : rate(:,:, 243) = rate(:,:, 243) * m(:,:)
137 62993664 : rate(:,:, 244) = rate(:,:, 244) * m(:,:)
138 62993664 : rate(:,:, 245) = rate(:,:, 245) * m(:,:)
139 62993664 : rate(:,:, 246) = rate(:,:, 246) * m(:,:)
140 62993664 : rate(:,:, 247) = rate(:,:, 247) * m(:,:)
141 62993664 : rate(:,:, 248) = rate(:,:, 248) * m(:,:)
142 62993664 : rate(:,:, 249) = rate(:,:, 249) * m(:,:)
143 62993664 : rate(:,:, 250) = rate(:,:, 250) * m(:,:)
144 62993664 : rate(:,:, 251) = rate(:,:, 251) * m(:,:)
145 62993664 : rate(:,:, 252) = rate(:,:, 252) * m(:,:)
146 62993664 : rate(:,:, 254) = rate(:,:, 254) * m(:,:)
147 62993664 : rate(:,:, 255) = rate(:,:, 255) * m(:,:)
148 62993664 : rate(:,:, 256) = rate(:,:, 256) * m(:,:)
149 62993664 : rate(:,:, 257) = rate(:,:, 257) * m(:,:)
150 62993664 : rate(:,:, 258) = rate(:,:, 258) * m(:,:)
151 62993664 : rate(:,:, 259) = rate(:,:, 259) * m(:,:)
152 62993664 : rate(:,:, 260) = rate(:,:, 260) * m(:,:)
153 62993664 : rate(:,:, 261) = rate(:,:, 261) * m(:,:)
154 62993664 : rate(:,:, 262) = rate(:,:, 262) * m(:,:)
155 62993664 : rate(:,:, 263) = rate(:,:, 263) * m(:,:)
156 62993664 : rate(:,:, 264) = rate(:,:, 264) * m(:,:)
157 62993664 : rate(:,:, 265) = rate(:,:, 265) * m(:,:)
158 62993664 : rate(:,:, 266) = rate(:,:, 266) * m(:,:)
159 62993664 : rate(:,:, 267) = rate(:,:, 267) * m(:,:)
160 62993664 : rate(:,:, 268) = rate(:,:, 268) * m(:,:)
161 62993664 : rate(:,:, 269) = rate(:,:, 269) * m(:,:)
162 62993664 : rate(:,:, 270) = rate(:,:, 270) * m(:,:)
163 62993664 : rate(:,:, 271) = rate(:,:, 271) * m(:,:)
164 62993664 : rate(:,:, 272) = rate(:,:, 272) * m(:,:)
165 62993664 : rate(:,:, 273) = rate(:,:, 273) * m(:,:)
166 62993664 : rate(:,:, 274) = rate(:,:, 274) * m(:,:)
167 62993664 : rate(:,:, 275) = rate(:,:, 275) * m(:,:)
168 62993664 : rate(:,:, 276) = rate(:,:, 276) * m(:,:)
169 62993664 : rate(:,:, 277) = rate(:,:, 277) * m(:,:)
170 62993664 : rate(:,:, 278) = rate(:,:, 278) * m(:,:)
171 62993664 : rate(:,:, 279) = rate(:,:, 279) * m(:,:)
172 62993664 : rate(:,:, 280) = rate(:,:, 280) * m(:,:)
173 62993664 : rate(:,:, 281) = rate(:,:, 281) * m(:,:)
174 62993664 : rate(:,:, 282) = rate(:,:, 282) * m(:,:)
175 62993664 : rate(:,:, 283) = rate(:,:, 283) * m(:,:)
176 62993664 : rate(:,:, 284) = rate(:,:, 284) * m(:,:)
177 62993664 : rate(:,:, 285) = rate(:,:, 285) * m(:,:)
178 62993664 : rate(:,:, 286) = rate(:,:, 286) * m(:,:)
179 62993664 : rate(:,:, 287) = rate(:,:, 287) * m(:,:)
180 62993664 : rate(:,:, 288) = rate(:,:, 288) * m(:,:)
181 62993664 : rate(:,:, 289) = rate(:,:, 289) * m(:,:)
182 62993664 : rate(:,:, 290) = rate(:,:, 290) * m(:,:)
183 62993664 : rate(:,:, 291) = rate(:,:, 291) * m(:,:)
184 62993664 : rate(:,:, 292) = rate(:,:, 292) * m(:,:)
185 62993664 : rate(:,:, 293) = rate(:,:, 293) * m(:,:)
186 62993664 : rate(:,:, 294) = rate(:,:, 294) * m(:,:)
187 62993664 : rate(:,:, 295) = rate(:,:, 295) * m(:,:)
188 62993664 : rate(:,:, 296) = rate(:,:, 296) * m(:,:)
189 62993664 : rate(:,:, 297) = rate(:,:, 297) * m(:,:)
190 62993664 : rate(:,:, 298) = rate(:,:, 298) * m(:,:)
191 62993664 : rate(:,:, 299) = rate(:,:, 299) * m(:,:)
192 62993664 : rate(:,:, 300) = rate(:,:, 300) * m(:,:)
193 62993664 : rate(:,:, 301) = rate(:,:, 301) * m(:,:)
194 62993664 : rate(:,:, 302) = rate(:,:, 302) * m(:,:)
195 62993664 : rate(:,:, 303) = rate(:,:, 303) * m(:,:)
196 62993664 : rate(:,:, 304) = rate(:,:, 304) * m(:,:)
197 62993664 : rate(:,:, 305) = rate(:,:, 305) * m(:,:)
198 62993664 : rate(:,:, 306) = rate(:,:, 306) * m(:,:)
199 62993664 : rate(:,:, 307) = rate(:,:, 307) * m(:,:)
200 62993664 : rate(:,:, 308) = rate(:,:, 308) * m(:,:)
201 62993664 : rate(:,:, 309) = rate(:,:, 309) * m(:,:)
202 62993664 : rate(:,:, 310) = rate(:,:, 310) * m(:,:)
203 62993664 : rate(:,:, 311) = rate(:,:, 311) * m(:,:)
204 62993664 : rate(:,:, 312) = rate(:,:, 312) * m(:,:)
205 62993664 : rate(:,:, 314) = rate(:,:, 314) * m(:,:)
206 62993664 : rate(:,:, 315) = rate(:,:, 315) * m(:,:)
207 62993664 : rate(:,:, 316) = rate(:,:, 316) * m(:,:)
208 62993664 : rate(:,:, 317) = rate(:,:, 317) * m(:,:)
209 62993664 : rate(:,:, 318) = rate(:,:, 318) * m(:,:)
210 62993664 : rate(:,:, 319) = rate(:,:, 319) * m(:,:)
211 62993664 : rate(:,:, 320) = rate(:,:, 320) * m(:,:)
212 62993664 : rate(:,:, 321) = rate(:,:, 321) * m(:,:)
213 62993664 : rate(:,:, 322) = rate(:,:, 322) * m(:,:)
214 62993664 : rate(:,:, 323) = rate(:,:, 323) * m(:,:)
215 62993664 : rate(:,:, 324) = rate(:,:, 324) * m(:,:)
216 62993664 : rate(:,:, 325) = rate(:,:, 325) * m(:,:)
217 62993664 : rate(:,:, 326) = rate(:,:, 326) * m(:,:)
218 62993664 : rate(:,:, 327) = rate(:,:, 327) * m(:,:)
219 62993664 : rate(:,:, 328) = rate(:,:, 328) * m(:,:)
220 62993664 : rate(:,:, 329) = rate(:,:, 329) * m(:,:)
221 62993664 : rate(:,:, 330) = rate(:,:, 330) * m(:,:)
222 62993664 : rate(:,:, 331) = rate(:,:, 331) * m(:,:)
223 62993664 : rate(:,:, 332) = rate(:,:, 332) * m(:,:)
224 62993664 : rate(:,:, 333) = rate(:,:, 333) * m(:,:)
225 62993664 : rate(:,:, 334) = rate(:,:, 334) * m(:,:)
226 62993664 : rate(:,:, 335) = rate(:,:, 335) * m(:,:)
227 62993664 : rate(:,:, 336) = rate(:,:, 336) * m(:,:)
228 62993664 : rate(:,:, 337) = rate(:,:, 337) * m(:,:)
229 62993664 : rate(:,:, 338) = rate(:,:, 338) * m(:,:)
230 62993664 : rate(:,:, 339) = rate(:,:, 339) * m(:,:)
231 62993664 : rate(:,:, 340) = rate(:,:, 340) * m(:,:)
232 62993664 : rate(:,:, 341) = rate(:,:, 341) * m(:,:)
233 62993664 : rate(:,:, 342) = rate(:,:, 342) * m(:,:)
234 62993664 : rate(:,:, 345) = rate(:,:, 345) * m(:,:)
235 62993664 : rate(:,:, 346) = rate(:,:, 346) * m(:,:)
236 62993664 : rate(:,:, 347) = rate(:,:, 347) * m(:,:)
237 62993664 : rate(:,:, 348) = rate(:,:, 348) * m(:,:)
238 62993664 : rate(:,:, 349) = rate(:,:, 349) * m(:,:)
239 62993664 : rate(:,:, 350) = rate(:,:, 350) * m(:,:)
240 62993664 : rate(:,:, 351) = rate(:,:, 351) * m(:,:)
241 62993664 : rate(:,:, 353) = rate(:,:, 353) * m(:,:)
242 62993664 : rate(:,:, 354) = rate(:,:, 354) * m(:,:)
243 62993664 : rate(:,:, 355) = rate(:,:, 355) * m(:,:)
244 62993664 : rate(:,:, 356) = rate(:,:, 356) * m(:,:)
245 62993664 : rate(:,:, 357) = rate(:,:, 357) * m(:,:)
246 62993664 : rate(:,:, 358) = rate(:,:, 358) * m(:,:)
247 62993664 : rate(:,:, 359) = rate(:,:, 359) * m(:,:)
248 62993664 : rate(:,:, 360) = rate(:,:, 360) * m(:,:)
249 62993664 : rate(:,:, 361) = rate(:,:, 361) * m(:,:)
250 62993664 : rate(:,:, 362) = rate(:,:, 362) * m(:,:)
251 62993664 : rate(:,:, 363) = rate(:,:, 363) * m(:,:)
252 62993664 : rate(:,:, 364) = rate(:,:, 364) * m(:,:)
253 62993664 : rate(:,:, 365) = rate(:,:, 365) * m(:,:)
254 62993664 : rate(:,:, 366) = rate(:,:, 366) * m(:,:)
255 62993664 : rate(:,:, 367) = rate(:,:, 367) * m(:,:)
256 62993664 : rate(:,:, 368) = rate(:,:, 368) * m(:,:)
257 62993664 : rate(:,:, 369) = rate(:,:, 369) * m(:,:)
258 62993664 : rate(:,:, 370) = rate(:,:, 370) * m(:,:)
259 62993664 : rate(:,:, 371) = rate(:,:, 371) * m(:,:)
260 62993664 : rate(:,:, 372) = rate(:,:, 372) * m(:,:)
261 62993664 : rate(:,:, 373) = rate(:,:, 373) * m(:,:)
262 62993664 : rate(:,:, 374) = rate(:,:, 374) * m(:,:)
263 62993664 : rate(:,:, 375) = rate(:,:, 375) * m(:,:)
264 62993664 : rate(:,:, 376) = rate(:,:, 376) * m(:,:)
265 62993664 : rate(:,:, 377) = rate(:,:, 377) * m(:,:)
266 62993664 : rate(:,:, 378) = rate(:,:, 378) * m(:,:)
267 62993664 : rate(:,:, 379) = rate(:,:, 379) * m(:,:)
268 62993664 : rate(:,:, 380) = rate(:,:, 380) * m(:,:)
269 62993664 : rate(:,:, 381) = rate(:,:, 381) * m(:,:)
270 62993664 : rate(:,:, 382) = rate(:,:, 382) * m(:,:)
271 62993664 : rate(:,:, 383) = rate(:,:, 383) * m(:,:)
272 62993664 : rate(:,:, 385) = rate(:,:, 385) * m(:,:)
273 62993664 : rate(:,:, 386) = rate(:,:, 386) * m(:,:)
274 62993664 : rate(:,:, 387) = rate(:,:, 387) * m(:,:)
275 62993664 : rate(:,:, 388) = rate(:,:, 388) * m(:,:)
276 62993664 : rate(:,:, 389) = rate(:,:, 389) * m(:,:)
277 62993664 : rate(:,:, 390) = rate(:,:, 390) * m(:,:)
278 62993664 : rate(:,:, 391) = rate(:,:, 391) * m(:,:)
279 62993664 : rate(:,:, 392) = rate(:,:, 392) * m(:,:)
280 62993664 : rate(:,:, 393) = rate(:,:, 393) * m(:,:)
281 62993664 : rate(:,:, 394) = rate(:,:, 394) * m(:,:)
282 62993664 : rate(:,:, 395) = rate(:,:, 395) * m(:,:)
283 62993664 : rate(:,:, 396) = rate(:,:, 396) * m(:,:)
284 62993664 : rate(:,:, 397) = rate(:,:, 397) * m(:,:)
285 62993664 : rate(:,:, 398) = rate(:,:, 398) * m(:,:)
286 62993664 : rate(:,:, 399) = rate(:,:, 399) * m(:,:)
287 62993664 : rate(:,:, 400) = rate(:,:, 400) * m(:,:)
288 62993664 : rate(:,:, 401) = rate(:,:, 401) * m(:,:)
289 62993664 : rate(:,:, 402) = rate(:,:, 402) * m(:,:)
290 62993664 : rate(:,:, 403) = rate(:,:, 403) * m(:,:)
291 62993664 : rate(:,:, 404) = rate(:,:, 404) * m(:,:)
292 62993664 : rate(:,:, 405) = rate(:,:, 405) * m(:,:)
293 62993664 : rate(:,:, 406) = rate(:,:, 406) * m(:,:)
294 62993664 : rate(:,:, 408) = rate(:,:, 408) * m(:,:)
295 62993664 : rate(:,:, 409) = rate(:,:, 409) * m(:,:)
296 62993664 : rate(:,:, 410) = rate(:,:, 410) * m(:,:)
297 62993664 : rate(:,:, 411) = rate(:,:, 411) * m(:,:)
298 62993664 : rate(:,:, 412) = rate(:,:, 412) * m(:,:)
299 62993664 : rate(:,:, 413) = rate(:,:, 413) * m(:,:)
300 62993664 : rate(:,:, 414) = rate(:,:, 414) * m(:,:)
301 62993664 : rate(:,:, 415) = rate(:,:, 415) * m(:,:)
302 62993664 : rate(:,:, 416) = rate(:,:, 416) * m(:,:)
303 62993664 : rate(:,:, 417) = rate(:,:, 417) * m(:,:)
304 62993664 : rate(:,:, 418) = rate(:,:, 418) * m(:,:)
305 62993664 : rate(:,:, 419) = rate(:,:, 419) * m(:,:)
306 62993664 : rate(:,:, 420) = rate(:,:, 420) * m(:,:)
307 62993664 : rate(:,:, 421) = rate(:,:, 421) * m(:,:)
308 62993664 : rate(:,:, 422) = rate(:,:, 422) * m(:,:)
309 62993664 : rate(:,:, 423) = rate(:,:, 423) * m(:,:)
310 62993664 : rate(:,:, 424) = rate(:,:, 424) * m(:,:)
311 62993664 : rate(:,:, 425) = rate(:,:, 425) * m(:,:)
312 62993664 : rate(:,:, 426) = rate(:,:, 426) * m(:,:)
313 62993664 : rate(:,:, 430) = rate(:,:, 430) * m(:,:)
314 62993664 : rate(:,:, 431) = rate(:,:, 431) * m(:,:)
315 62993664 : rate(:,:, 432) = rate(:,:, 432) * m(:,:)
316 62993664 : rate(:,:, 444) = rate(:,:, 444) * m(:,:)
317 62993664 : rate(:,:, 445) = rate(:,:, 445) * m(:,:)
318 62993664 : rate(:,:, 446) = rate(:,:, 446) * m(:,:)
319 62993664 : rate(:,:, 448) = rate(:,:, 448) * m(:,:)
320 62993664 : rate(:,:, 449) = rate(:,:, 449) * m(:,:)
321 62993664 : rate(:,:, 450) = rate(:,:, 450) * m(:,:)
322 62993664 : rate(:,:, 452) = rate(:,:, 452) * m(:,:)
323 62993664 : rate(:,:, 453) = rate(:,:, 453) * m(:,:)
324 62993664 : rate(:,:, 454) = rate(:,:, 454) * m(:,:)
325 62993664 : rate(:,:, 455) = rate(:,:, 455) * m(:,:)
326 62993664 : rate(:,:, 456) = rate(:,:, 456) * m(:,:)
327 62993664 : rate(:,:, 457) = rate(:,:, 457) * m(:,:)
328 62993664 : rate(:,:, 459) = rate(:,:, 459) * m(:,:)
329 62993664 : rate(:,:, 460) = rate(:,:, 460) * m(:,:)
330 62993664 : rate(:,:, 461) = rate(:,:, 461) * m(:,:)
331 62993664 : rate(:,:, 463) = rate(:,:, 463) * m(:,:)
332 62993664 : rate(:,:, 464) = rate(:,:, 464) * m(:,:)
333 62993664 : rate(:,:, 466) = rate(:,:, 466) * m(:,:)
334 62993664 : rate(:,:, 467) = rate(:,:, 467) * m(:,:)
335 62993664 : rate(:,:, 469) = rate(:,:, 469) * m(:,:)
336 62993664 : rate(:,:, 470) = rate(:,:, 470) * m(:,:)
337 62993664 : rate(:,:, 471) = rate(:,:, 471) * m(:,:)
338 62993664 : rate(:,:, 472) = rate(:,:, 472) * m(:,:)
339 62993664 : rate(:,:, 473) = rate(:,:, 473) * m(:,:)
340 62993664 : rate(:,:, 474) = rate(:,:, 474) * m(:,:)
341 62993664 : rate(:,:, 475) = rate(:,:, 475) * m(:,:)
342 62993664 : rate(:,:, 476) = rate(:,:, 476) * m(:,:)
343 62993664 : rate(:,:, 477) = rate(:,:, 477) * m(:,:)
344 62993664 : rate(:,:, 478) = rate(:,:, 478) * m(:,:)
345 62993664 : rate(:,:, 479) = rate(:,:, 479) * m(:,:)
346 62993664 : rate(:,:, 481) = rate(:,:, 481) * m(:,:)
347 62993664 : rate(:,:, 482) = rate(:,:, 482) * m(:,:)
348 62993664 : rate(:,:, 484) = rate(:,:, 484) * m(:,:)
349 62993664 : rate(:,:, 485) = rate(:,:, 485) * m(:,:)
350 62993664 : rate(:,:, 486) = rate(:,:, 486) * m(:,:)
351 62993664 : rate(:,:, 487) = rate(:,:, 487) * m(:,:)
352 62993664 : rate(:,:, 488) = rate(:,:, 488) * m(:,:)
353 62993664 : rate(:,:, 489) = rate(:,:, 489) * m(:,:)
354 62993664 : rate(:,:, 490) = rate(:,:, 490) * m(:,:)
355 62993664 : rate(:,:, 491) = rate(:,:, 491) * m(:,:)
356 62993664 : rate(:,:, 492) = rate(:,:, 492) * m(:,:)
357 62993664 : rate(:,:, 493) = rate(:,:, 493) * m(:,:)
358 62993664 : rate(:,:, 495) = rate(:,:, 495) * m(:,:)
359 62993664 : rate(:,:, 496) = rate(:,:, 496) * m(:,:)
360 62993664 : rate(:,:, 497) = rate(:,:, 497) * m(:,:)
361 62993664 : rate(:,:, 499) = rate(:,:, 499) * m(:,:)
362 62993664 : rate(:,:, 501) = rate(:,:, 501) * m(:,:)
363 62993664 : rate(:,:, 502) = rate(:,:, 502) * m(:,:)
364 62993664 : rate(:,:, 503) = rate(:,:, 503) * m(:,:)
365 62993664 : rate(:,:, 504) = rate(:,:, 504) * m(:,:)
366 62993664 : rate(:,:, 505) = rate(:,:, 505) * m(:,:)
367 62993664 : rate(:,:, 506) = rate(:,:, 506) * m(:,:)
368 62993664 : rate(:,:, 507) = rate(:,:, 507) * m(:,:)
369 62993664 : rate(:,:, 508) = rate(:,:, 508) * m(:,:)
370 62993664 : rate(:,:, 509) = rate(:,:, 509) * m(:,:)
371 62993664 : rate(:,:, 510) = rate(:,:, 510) * m(:,:)
372 62993664 : rate(:,:, 511) = rate(:,:, 511) * m(:,:)
373 62993664 : rate(:,:, 512) = rate(:,:, 512) * m(:,:)
374 62993664 : rate(:,:, 513) = rate(:,:, 513) * m(:,:)
375 62993664 : rate(:,:, 514) = rate(:,:, 514) * m(:,:)
376 62993664 : rate(:,:, 515) = rate(:,:, 515) * m(:,:)
377 62993664 : rate(:,:, 516) = rate(:,:, 516) * m(:,:)
378 62993664 : rate(:,:, 517) = rate(:,:, 517) * m(:,:)
379 62993664 : rate(:,:, 518) = rate(:,:, 518) * m(:,:)
380 62993664 : rate(:,:, 519) = rate(:,:, 519) * m(:,:)
381 62993664 : rate(:,:, 520) = rate(:,:, 520) * m(:,:)
382 62993664 : rate(:,:, 521) = rate(:,:, 521) * m(:,:)
383 62993664 : rate(:,:, 522) = rate(:,:, 522) * m(:,:)
384 62993664 : rate(:,:, 523) = rate(:,:, 523) * m(:,:)
385 62993664 : rate(:,:, 524) = rate(:,:, 524) * m(:,:)
386 62993664 : rate(:,:, 525) = rate(:,:, 525) * m(:,:)
387 62993664 : rate(:,:, 526) = rate(:,:, 526) * m(:,:)
388 62993664 : rate(:,:, 527) = rate(:,:, 527) * m(:,:)
389 62993664 : rate(:,:, 528) = rate(:,:, 528) * m(:,:)
390 62993664 : rate(:,:, 530) = rate(:,:, 530) * m(:,:)
391 62993664 : rate(:,:, 531) = rate(:,:, 531) * m(:,:)
392 62993664 : rate(:,:, 533) = rate(:,:, 533) * m(:,:)
393 62993664 : rate(:,:, 534) = rate(:,:, 534) * m(:,:)
394 62993664 : rate(:,:, 535) = rate(:,:, 535) * m(:,:)
395 62993664 : rate(:,:, 536) = rate(:,:, 536) * m(:,:)
396 62993664 : rate(:,:, 537) = rate(:,:, 537) * m(:,:)
397 62993664 : rate(:,:, 538) = rate(:,:, 538) * m(:,:)
398 62993664 : rate(:,:, 539) = rate(:,:, 539) * m(:,:)
399 62993664 : rate(:,:, 540) = rate(:,:, 540) * m(:,:)
400 62993664 : rate(:,:, 541) = rate(:,:, 541) * m(:,:)
401 62993664 : rate(:,:, 542) = rate(:,:, 542) * m(:,:)
402 62993664 : rate(:,:, 543) = rate(:,:, 543) * m(:,:)
403 62993664 : rate(:,:, 544) = rate(:,:, 544) * m(:,:)
404 62993664 : rate(:,:, 545) = rate(:,:, 545) * m(:,:)
405 62993664 : rate(:,:, 546) = rate(:,:, 546) * m(:,:)
406 62993664 : rate(:,:, 547) = rate(:,:, 547) * m(:,:)
407 62993664 : rate(:,:, 548) = rate(:,:, 548) * m(:,:)
408 62993664 : rate(:,:, 549) = rate(:,:, 549) * m(:,:)
409 62993664 : rate(:,:, 550) = rate(:,:, 550) * m(:,:)
410 62993664 : rate(:,:, 551) = rate(:,:, 551) * m(:,:)
411 62993664 : rate(:,:, 552) = rate(:,:, 552) * m(:,:)
412 62993664 : rate(:,:, 553) = rate(:,:, 553) * m(:,:)
413 62993664 : rate(:,:, 554) = rate(:,:, 554) * m(:,:)
414 62993664 : rate(:,:, 555) = rate(:,:, 555) * m(:,:)
415 62993664 : rate(:,:, 556) = rate(:,:, 556) * m(:,:)
416 62993664 : rate(:,:, 557) = rate(:,:, 557) * m(:,:)
417 62993664 : rate(:,:, 558) = rate(:,:, 558) * m(:,:)
418 62993664 : rate(:,:, 559) = rate(:,:, 559) * m(:,:)
419 62993664 : rate(:,:, 560) = rate(:,:, 560) * m(:,:)
420 62993664 : rate(:,:, 561) = rate(:,:, 561) * m(:,:)
421 62993664 : rate(:,:, 562) = rate(:,:, 562) * m(:,:)
422 62993664 : rate(:,:, 563) = rate(:,:, 563) * m(:,:)
423 62993664 : rate(:,:, 564) = rate(:,:, 564) * m(:,:)
424 62993664 : rate(:,:, 565) = rate(:,:, 565) * m(:,:)
425 62993664 : rate(:,:, 566) = rate(:,:, 566) * m(:,:)
426 62993664 : rate(:,:, 567) = rate(:,:, 567) * m(:,:)
427 62993664 : rate(:,:, 568) = rate(:,:, 568) * m(:,:)
428 62993664 : rate(:,:, 569) = rate(:,:, 569) * m(:,:)
429 62993664 : rate(:,:, 570) = rate(:,:, 570) * m(:,:)
430 62993664 : rate(:,:, 571) = rate(:,:, 571) * m(:,:)
431 62993664 : rate(:,:, 572) = rate(:,:, 572) * m(:,:)
432 62993664 : rate(:,:, 573) = rate(:,:, 573) * m(:,:)
433 62993664 : rate(:,:, 574) = rate(:,:, 574) * m(:,:)
434 62993664 : rate(:,:, 576) = rate(:,:, 576) * m(:,:)
435 62993664 : rate(:,:, 577) = rate(:,:, 577) * m(:,:)
436 62993664 : rate(:,:, 578) = rate(:,:, 578) * m(:,:)
437 62993664 : rate(:,:, 579) = rate(:,:, 579) * m(:,:)
438 62993664 : rate(:,:, 580) = rate(:,:, 580) * m(:,:)
439 62993664 : rate(:,:, 581) = rate(:,:, 581) * m(:,:)
440 62993664 : rate(:,:, 582) = rate(:,:, 582) * m(:,:)
441 62993664 : rate(:,:, 583) = rate(:,:, 583) * m(:,:)
442 62993664 : rate(:,:, 584) = rate(:,:, 584) * m(:,:)
443 62993664 : rate(:,:, 585) = rate(:,:, 585) * m(:,:)
444 62993664 : rate(:,:, 586) = rate(:,:, 586) * m(:,:)
445 62993664 : rate(:,:, 587) = rate(:,:, 587) * m(:,:)
446 62993664 : rate(:,:, 588) = rate(:,:, 588) * m(:,:)
447 62993664 : rate(:,:, 589) = rate(:,:, 589) * m(:,:)
448 62993664 : rate(:,:, 590) = rate(:,:, 590) * m(:,:)
449 62993664 : rate(:,:, 591) = rate(:,:, 591) * m(:,:)
450 62993664 : rate(:,:, 592) = rate(:,:, 592) * m(:,:)
451 62993664 : rate(:,:, 593) = rate(:,:, 593) * m(:,:)
452 62993664 : rate(:,:, 594) = rate(:,:, 594) * m(:,:)
453 62993664 : rate(:,:, 595) = rate(:,:, 595) * m(:,:)
454 62993664 : rate(:,:, 596) = rate(:,:, 596) * m(:,:)
455 62993664 : rate(:,:, 597) = rate(:,:, 597) * m(:,:)
456 62993664 : rate(:,:, 598) = rate(:,:, 598) * m(:,:)
457 62993664 : rate(:,:, 599) = rate(:,:, 599) * m(:,:)
458 62993664 : rate(:,:, 600) = rate(:,:, 600) * m(:,:)
459 62993664 : rate(:,:, 601) = rate(:,:, 601) * m(:,:)
460 62993664 : rate(:,:, 602) = rate(:,:, 602) * m(:,:)
461 62993664 : rate(:,:, 603) = rate(:,:, 603) * m(:,:)
462 62993664 : rate(:,:, 604) = rate(:,:, 604) * m(:,:)
463 62993664 : rate(:,:, 605) = rate(:,:, 605) * m(:,:)
464 62993664 : rate(:,:, 606) = rate(:,:, 606) * m(:,:)
465 62993664 : rate(:,:, 607) = rate(:,:, 607) * m(:,:)
466 62993664 : rate(:,:, 608) = rate(:,:, 608) * m(:,:)
467 62993664 : rate(:,:, 609) = rate(:,:, 609) * m(:,:)
468 62993664 : rate(:,:, 610) = rate(:,:, 610) * m(:,:)
469 62993664 : rate(:,:, 611) = rate(:,:, 611) * m(:,:)
470 62993664 : rate(:,:, 612) = rate(:,:, 612) * m(:,:)
471 62993664 : rate(:,:, 613) = rate(:,:, 613) * m(:,:)
472 62993664 : rate(:,:, 614) = rate(:,:, 614) * m(:,:)
473 62993664 : rate(:,:, 615) = rate(:,:, 615) * m(:,:)
474 62993664 : rate(:,:, 616) = rate(:,:, 616) * m(:,:)
475 62993664 : rate(:,:, 617) = rate(:,:, 617) * m(:,:)
476 62993664 : rate(:,:, 618) = rate(:,:, 618) * m(:,:)
477 62993664 : rate(:,:, 619) = rate(:,:, 619) * m(:,:)
478 62993664 : rate(:,:, 620) = rate(:,:, 620) * m(:,:)
479 62993664 : rate(:,:, 621) = rate(:,:, 621) * m(:,:)
480 62993664 : rate(:,:, 622) = rate(:,:, 622) * m(:,:)
481 62993664 : rate(:,:, 623) = rate(:,:, 623) * m(:,:)
482 62993664 : rate(:,:, 624) = rate(:,:, 624) * m(:,:)
483 62993664 : rate(:,:, 625) = rate(:,:, 625) * m(:,:)
484 62993664 : rate(:,:, 626) = rate(:,:, 626) * m(:,:)
485 62993664 : rate(:,:, 627) = rate(:,:, 627) * m(:,:)
486 62993664 : rate(:,:, 628) = rate(:,:, 628) * m(:,:)
487 62993664 : rate(:,:, 629) = rate(:,:, 629) * m(:,:)
488 62993664 : rate(:,:, 630) = rate(:,:, 630) * m(:,:)
489 62993664 : rate(:,:, 631) = rate(:,:, 631) * m(:,:)
490 62993664 : rate(:,:, 632) = rate(:,:, 632) * m(:,:)
491 62993664 : rate(:,:, 633) = rate(:,:, 633) * m(:,:)
492 62993664 : rate(:,:, 634) = rate(:,:, 634) * m(:,:)
493 62993664 : rate(:,:, 635) = rate(:,:, 635) * m(:,:)
494 62993664 : rate(:,:, 636) = rate(:,:, 636) * m(:,:)
495 62993664 : rate(:,:, 637) = rate(:,:, 637) * m(:,:)
496 62993664 : rate(:,:, 638) = rate(:,:, 638) * m(:,:)
497 62993664 : rate(:,:, 639) = rate(:,:, 639) * m(:,:)
498 62993664 : rate(:,:, 640) = rate(:,:, 640) * m(:,:)
499 62993664 : rate(:,:, 641) = rate(:,:, 641) * m(:,:)
500 62993664 : rate(:,:, 642) = rate(:,:, 642) * m(:,:)
501 62993664 : rate(:,:, 643) = rate(:,:, 643) * m(:,:)
502 62993664 : rate(:,:, 644) = rate(:,:, 644) * m(:,:)
503 62993664 : rate(:,:, 645) = rate(:,:, 645) * m(:,:)
504 62993664 : rate(:,:, 646) = rate(:,:, 646) * m(:,:)
505 62993664 : rate(:,:, 647) = rate(:,:, 647) * m(:,:)
506 62993664 : rate(:,:, 648) = rate(:,:, 648) * m(:,:)
507 62993664 : rate(:,:, 649) = rate(:,:, 649) * m(:,:)
508 62993664 : rate(:,:, 650) = rate(:,:, 650) * m(:,:)
509 62993664 : rate(:,:, 651) = rate(:,:, 651) * m(:,:)
510 62993664 : rate(:,:, 652) = rate(:,:, 652) * m(:,:)
511 62993664 : rate(:,:, 653) = rate(:,:, 653) * m(:,:)
512 62993664 : rate(:,:, 654) = rate(:,:, 654) * m(:,:)
513 62993664 : rate(:,:, 655) = rate(:,:, 655) * m(:,:)
514 62993664 : rate(:,:, 656) = rate(:,:, 656) * m(:,:)
515 62993664 : rate(:,:, 657) = rate(:,:, 657) * m(:,:)
516 62993664 : rate(:,:, 658) = rate(:,:, 658) * m(:,:)
517 62993664 : rate(:,:, 659) = rate(:,:, 659) * m(:,:)
518 62993664 : rate(:,:, 660) = rate(:,:, 660) * m(:,:)
519 62993664 : rate(:,:, 661) = rate(:,:, 661) * m(:,:)
520 62993664 : rate(:,:, 662) = rate(:,:, 662) * m(:,:)
521 62993664 : rate(:,:, 663) = rate(:,:, 663) * m(:,:)
522 62993664 : rate(:,:, 664) = rate(:,:, 664) * m(:,:)
523 62993664 : rate(:,:, 665) = rate(:,:, 665) * m(:,:)
524 62993664 : rate(:,:, 666) = rate(:,:, 666) * m(:,:)
525 62993664 : rate(:,:, 667) = rate(:,:, 667) * m(:,:)
526 62993664 : rate(:,:, 668) = rate(:,:, 668) * m(:,:)
527 62993664 : rate(:,:, 669) = rate(:,:, 669) * m(:,:)
528 62993664 : rate(:,:, 670) = rate(:,:, 670) * m(:,:)
529 62993664 : rate(:,:, 671) = rate(:,:, 671) * m(:,:)
530 62993664 : rate(:,:, 672) = rate(:,:, 672) * m(:,:)
531 62993664 : rate(:,:, 673) = rate(:,:, 673) * m(:,:)
532 62993664 : rate(:,:, 674) = rate(:,:, 674) * m(:,:)
533 62993664 : rate(:,:, 675) = rate(:,:, 675) * m(:,:)
534 62993664 : rate(:,:, 676) = rate(:,:, 676) * m(:,:)
535 62993664 : rate(:,:, 677) = rate(:,:, 677) * m(:,:)
536 62993664 : rate(:,:, 678) = rate(:,:, 678) * m(:,:)
537 62993664 : rate(:,:, 679) = rate(:,:, 679) * m(:,:)
538 62993664 : rate(:,:, 680) = rate(:,:, 680) * m(:,:)
539 62993664 : rate(:,:, 681) = rate(:,:, 681) * m(:,:)
540 62993664 : rate(:,:, 682) = rate(:,:, 682) * m(:,:)
541 62993664 : rate(:,:, 683) = rate(:,:, 683) * m(:,:)
542 62993664 : rate(:,:, 684) = rate(:,:, 684) * m(:,:)
543 62993664 : rate(:,:, 685) = rate(:,:, 685) * m(:,:)
544 62993664 : rate(:,:, 686) = rate(:,:, 686) * m(:,:)
545 62993664 : rate(:,:, 687) = rate(:,:, 687) * m(:,:)
546 62993664 : rate(:,:, 688) = rate(:,:, 688) * m(:,:)
547 62993664 : rate(:,:, 689) = rate(:,:, 689) * m(:,:)
548 62993664 : rate(:,:, 690) = rate(:,:, 690) * m(:,:)
549 62993664 : rate(:,:, 691) = rate(:,:, 691) * m(:,:)
550 62993664 : rate(:,:, 692) = rate(:,:, 692) * m(:,:)
551 62993664 : rate(:,:, 693) = rate(:,:, 693) * m(:,:)
552 62993664 : rate(:,:, 694) = rate(:,:, 694) * m(:,:)
553 62993664 : rate(:,:, 695) = rate(:,:, 695) * m(:,:)
554 62993664 : rate(:,:, 696) = rate(:,:, 696) * m(:,:)
555 62993664 : rate(:,:, 697) = rate(:,:, 697) * m(:,:)
556 62993664 : rate(:,:, 698) = rate(:,:, 698) * m(:,:)
557 62993664 : rate(:,:, 699) = rate(:,:, 699) * m(:,:)
558 62993664 : rate(:,:, 700) = rate(:,:, 700) * m(:,:)
559 62993664 : rate(:,:, 701) = rate(:,:, 701) * m(:,:)
560 62993664 : rate(:,:, 702) = rate(:,:, 702) * m(:,:)
561 62993664 : rate(:,:, 703) = rate(:,:, 703) * m(:,:)
562 62993664 : rate(:,:, 704) = rate(:,:, 704) * m(:,:)
563 62993664 : rate(:,:, 705) = rate(:,:, 705) * m(:,:)
564 62993664 : rate(:,:, 706) = rate(:,:, 706) * m(:,:)
565 62993664 : rate(:,:, 707) = rate(:,:, 707) * m(:,:)
566 62993664 : rate(:,:, 708) = rate(:,:, 708) * m(:,:)
567 62993664 : rate(:,:, 709) = rate(:,:, 709) * m(:,:)
568 62993664 : rate(:,:, 710) = rate(:,:, 710) * m(:,:)
569 62993664 : rate(:,:, 711) = rate(:,:, 711) * m(:,:)
570 62993664 : rate(:,:, 712) = rate(:,:, 712) * m(:,:)
571 62993664 : rate(:,:, 713) = rate(:,:, 713) * m(:,:)
572 62993664 : rate(:,:, 714) = rate(:,:, 714) * m(:,:)
573 62993664 : rate(:,:, 715) = rate(:,:, 715) * m(:,:)
574 62993664 : rate(:,:, 716) = rate(:,:, 716) * m(:,:)
575 62993664 : rate(:,:, 717) = rate(:,:, 717) * m(:,:)
576 62993664 : rate(:,:, 718) = rate(:,:, 718) * m(:,:)
577 62993664 : rate(:,:, 719) = rate(:,:, 719) * m(:,:)
578 62993664 : rate(:,:, 720) = rate(:,:, 720) * m(:,:)
579 62993664 : rate(:,:, 721) = rate(:,:, 721) * m(:,:)
580 62993664 : rate(:,:, 722) = rate(:,:, 722) * m(:,:)
581 62993664 : rate(:,:, 723) = rate(:,:, 723) * m(:,:)
582 62993664 : rate(:,:, 724) = rate(:,:, 724) * m(:,:)
583 62993664 : rate(:,:, 725) = rate(:,:, 725) * m(:,:)
584 62993664 : rate(:,:, 726) = rate(:,:, 726) * m(:,:)
585 62993664 : rate(:,:, 727) = rate(:,:, 727) * m(:,:)
586 62993664 : rate(:,:, 728) = rate(:,:, 728) * m(:,:)
587 62993664 : rate(:,:, 729) = rate(:,:, 729) * m(:,:)
588 62993664 : rate(:,:, 730) = rate(:,:, 730) * m(:,:)
589 62993664 : rate(:,:, 731) = rate(:,:, 731) * m(:,:)
590 62993664 : rate(:,:, 732) = rate(:,:, 732) * m(:,:)
591 62993664 : rate(:,:, 733) = rate(:,:, 733) * m(:,:)
592 62993664 : rate(:,:, 734) = rate(:,:, 734) * m(:,:)
593 62993664 : rate(:,:, 735) = rate(:,:, 735) * m(:,:)
594 62993664 : rate(:,:, 736) = rate(:,:, 736) * m(:,:)
595 62993664 : rate(:,:, 737) = rate(:,:, 737) * m(:,:)
596 62993664 : rate(:,:, 738) = rate(:,:, 738) * m(:,:)
597 62993664 : rate(:,:, 739) = rate(:,:, 739) * m(:,:)
598 62993664 : rate(:,:, 740) = rate(:,:, 740) * m(:,:)
599 62993664 : rate(:,:, 741) = rate(:,:, 741) * m(:,:)
600 62993664 : rate(:,:, 742) = rate(:,:, 742) * m(:,:)
601 62993664 : rate(:,:, 743) = rate(:,:, 743) * m(:,:)
602 62993664 : rate(:,:, 744) = rate(:,:, 744) * m(:,:)
603 62993664 : rate(:,:, 745) = rate(:,:, 745) * m(:,:)
604 62993664 : rate(:,:, 746) = rate(:,:, 746) * m(:,:)
605 62993664 : rate(:,:, 747) = rate(:,:, 747) * m(:,:)
606 62993664 : rate(:,:, 748) = rate(:,:, 748) * m(:,:)
607 62993664 : rate(:,:, 749) = rate(:,:, 749) * m(:,:)
608 62993664 : rate(:,:, 750) = rate(:,:, 750) * m(:,:)
609 62993664 : rate(:,:, 751) = rate(:,:, 751) * m(:,:)
610 62993664 : rate(:,:, 752) = rate(:,:, 752) * m(:,:)
611 62993664 : rate(:,:, 753) = rate(:,:, 753) * m(:,:)
612 62993664 : rate(:,:, 754) = rate(:,:, 754) * m(:,:)
613 62993664 : rate(:,:, 755) = rate(:,:, 755) * m(:,:)
614 62993664 : rate(:,:, 756) = rate(:,:, 756) * m(:,:)
615 62993664 : rate(:,:, 757) = rate(:,:, 757) * m(:,:)
616 62993664 : rate(:,:, 758) = rate(:,:, 758) * m(:,:)
617 62993664 : rate(:,:, 759) = rate(:,:, 759) * m(:,:)
618 62993664 : rate(:,:, 760) = rate(:,:, 760) * m(:,:)
619 62993664 : rate(:,:, 761) = rate(:,:, 761) * m(:,:)
620 62993664 : rate(:,:, 762) = rate(:,:, 762) * m(:,:)
621 62993664 : rate(:,:, 763) = rate(:,:, 763) * m(:,:)
622 62993664 : rate(:,:, 764) = rate(:,:, 764) * m(:,:)
623 62993664 : rate(:,:, 765) = rate(:,:, 765) * m(:,:)
624 62993664 : rate(:,:, 766) = rate(:,:, 766) * m(:,:)
625 62993664 : rate(:,:, 767) = rate(:,:, 767) * m(:,:)
626 62993664 : rate(:,:, 768) = rate(:,:, 768) * m(:,:)
627 62993664 : rate(:,:, 769) = rate(:,:, 769) * m(:,:)
628 62993664 : rate(:,:, 770) = rate(:,:, 770) * m(:,:)
629 62993664 : rate(:,:, 771) = rate(:,:, 771) * m(:,:)
630 62993664 : rate(:,:, 772) = rate(:,:, 772) * m(:,:)
631 62993664 : rate(:,:, 773) = rate(:,:, 773) * m(:,:)
632 62993664 : rate(:,:, 774) = rate(:,:, 774) * m(:,:)
633 62993664 : rate(:,:, 775) = rate(:,:, 775) * m(:,:)
634 62993664 : rate(:,:, 776) = rate(:,:, 776) * m(:,:)
635 62993664 : rate(:,:, 777) = rate(:,:, 777) * m(:,:)
636 62993664 : rate(:,:, 778) = rate(:,:, 778) * m(:,:)
637 62993664 : rate(:,:, 779) = rate(:,:, 779) * m(:,:)
638 62993664 : rate(:,:, 780) = rate(:,:, 780) * m(:,:)
639 62993664 : rate(:,:, 781) = rate(:,:, 781) * m(:,:)
640 62993664 : rate(:,:, 782) = rate(:,:, 782) * m(:,:)
641 62993664 : rate(:,:, 783) = rate(:,:, 783) * m(:,:)
642 62993664 : rate(:,:, 784) = rate(:,:, 784) * m(:,:)
643 62993664 : rate(:,:, 785) = rate(:,:, 785) * m(:,:)
644 62993664 : rate(:,:, 786) = rate(:,:, 786) * m(:,:)
645 62993664 : rate(:,:, 787) = rate(:,:, 787) * m(:,:)
646 62993664 : rate(:,:, 788) = rate(:,:, 788) * m(:,:)
647 62993664 : rate(:,:, 789) = rate(:,:, 789) * m(:,:)
648 62993664 : rate(:,:, 793) = rate(:,:, 793) * m(:,:)
649 62993664 : rate(:,:, 794) = rate(:,:, 794) * m(:,:)
650 62993664 : rate(:,:, 795) = rate(:,:, 795) * m(:,:)
651 62993664 : rate(:,:, 796) = rate(:,:, 796) * m(:,:)
652 62993664 : rate(:,:, 798) = rate(:,:, 798) * m(:,:)
653 62993664 : rate(:,:, 799) = rate(:,:, 799) * m(:,:)
654 62993664 : rate(:,:, 800) = rate(:,:, 800) * m(:,:)
655 62993664 : rate(:,:, 801) = rate(:,:, 801) * m(:,:)
656 62993664 : rate(:,:, 802) = rate(:,:, 802) * m(:,:)
657 62993664 : rate(:,:, 803) = rate(:,:, 803) * m(:,:)
658 62993664 : rate(:,:, 805) = rate(:,:, 805) * m(:,:)
659 62993664 : rate(:,:, 806) = rate(:,:, 806) * m(:,:)
660 62993664 : rate(:,:, 807) = rate(:,:, 807) * m(:,:)
661 62993664 : rate(:,:, 808) = rate(:,:, 808) * m(:,:)
662 62993664 : rate(:,:, 809) = rate(:,:, 809) * m(:,:)
663 62993664 : rate(:,:, 810) = rate(:,:, 810) * m(:,:)
664 62993664 : rate(:,:, 841) = rate(:,:, 841) * m(:,:)
665 62993664 : rate(:,:, 842) = rate(:,:, 842) * m(:,:)
666 62993664 : rate(:,:, 843) = rate(:,:, 843) * m(:,:)
667 62993664 : rate(:,:, 844) = rate(:,:, 844) * m(:,:)
668 62993664 : rate(:,:, 845) = rate(:,:, 845) * m(:,:)
669 62993664 : rate(:,:, 846) = rate(:,:, 846) * m(:,:)
670 62993664 : rate(:,:, 847) = rate(:,:, 847) * m(:,:)
671 62993664 : rate(:,:, 848) = rate(:,:, 848) * m(:,:)
672 62993664 : rate(:,:, 849) = rate(:,:, 849) * m(:,:)
673 62993664 : rate(:,:, 850) = rate(:,:, 850) * m(:,:)
674 62993664 : rate(:,:, 851) = rate(:,:, 851) * m(:,:)
675 62993664 : rate(:,:, 852) = rate(:,:, 852) * m(:,:)
676 62993664 : rate(:,:, 853) = rate(:,:, 853) * m(:,:)
677 62993664 : rate(:,:, 854) = rate(:,:, 854) * m(:,:)
678 62993664 : rate(:,:, 855) = rate(:,:, 855) * m(:,:)
679 62993664 : rate(:,:, 856) = rate(:,:, 856) * m(:,:)
680 62993664 : rate(:,:, 857) = rate(:,:, 857) * m(:,:)
681 62993664 : rate(:,:, 858) = rate(:,:, 858) * m(:,:)
682 62993664 : rate(:,:, 859) = rate(:,:, 859) * m(:,:)
683 62993664 : rate(:,:, 860) = rate(:,:, 860) * m(:,:)
684 62993664 : rate(:,:, 861) = rate(:,:, 861) * m(:,:)
685 62993664 : rate(:,:, 862) = rate(:,:, 862) * m(:,:)
686 62993664 : rate(:,:, 863) = rate(:,:, 863) * m(:,:)
687 62993664 : rate(:,:, 864) = rate(:,:, 864) * m(:,:)
688 62993664 : rate(:,:, 865) = rate(:,:, 865) * m(:,:)
689 62993664 : rate(:,:, 866) = rate(:,:, 866) * m(:,:)
690 62993664 : rate(:,:, 867) = rate(:,:, 867) * m(:,:)
691 62993664 : rate(:,:, 868) = rate(:,:, 868) * m(:,:)
692 62993664 : rate(:,:, 869) = rate(:,:, 869) * m(:,:)
693 62993664 : rate(:,:, 870) = rate(:,:, 870) * m(:,:)
694 62993664 : rate(:,:, 871) = rate(:,:, 871) * m(:,:)
695 62993664 : rate(:,:, 872) = rate(:,:, 872) * m(:,:)
696 62993664 : rate(:,:, 873) = rate(:,:, 873) * m(:,:)
697 62993664 : rate(:,:, 874) = rate(:,:, 874) * m(:,:)
698 62993664 : rate(:,:, 875) = rate(:,:, 875) * m(:,:)
699 62993664 : rate(:,:, 876) = rate(:,:, 876) * m(:,:)
700 62993664 : rate(:,:, 877) = rate(:,:, 877) * m(:,:)
701 62993664 : rate(:,:, 878) = rate(:,:, 878) * m(:,:)
702 62993664 : rate(:,:, 879) = rate(:,:, 879) * m(:,:)
703 62993664 : rate(:,:, 880) = rate(:,:, 880) * m(:,:)
704 62993664 : rate(:,:, 881) = rate(:,:, 881) * m(:,:)
705 62993664 : rate(:,:, 882) = rate(:,:, 882) * m(:,:)
706 62993664 : rate(:,:, 883) = rate(:,:, 883) * m(:,:)
707 62993664 : rate(:,:, 885) = rate(:,:, 885) * m(:,:)
708 62993664 : rate(:,:, 890) = rate(:,:, 890) * m(:,:)
709 62993664 : rate(:,:, 891) = rate(:,:, 891) * m(:,:)
710 62993664 : rate(:,:, 892) = rate(:,:, 892) * m(:,:)
711 62993664 : rate(:,:, 895) = rate(:,:, 895) * m(:,:)
712 62993664 : rate(:,:, 896) = rate(:,:, 896) * m(:,:)
713 62993664 : rate(:,:, 897) = rate(:,:, 897) * m(:,:)
714 62993664 : rate(:,:, 900) = rate(:,:, 900) * m(:,:)
715 72960 : end subroutine adjrxt
716 : end module mo_adjrxt
|