Line data Source code
1 : module mo_adjrxt
2 : private
3 : public :: adjrxt
4 : contains
5 46080 : 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 77921280 : rate(:,:, 107) = rate(:,:, 107) * inv(:,:, 1)
17 77921280 : rate(:,:, 108) = rate(:,:, 108) * inv(:,:, 1)
18 77921280 : rate(:,:, 118) = rate(:,:, 118) * inv(:,:, 1)
19 77921280 : rate(:,:, 119) = rate(:,:, 119) * inv(:,:, 1)
20 77921280 : rate(:,:, 133) = rate(:,:, 133) * inv(:,:, 2)
21 77921280 : rate(:,:, 135) = rate(:,:, 135) * inv(:,:, 1)
22 77921280 : rate(:,:, 137) = rate(:,:, 137) * inv(:,:, 2)
23 77921280 : rate(:,:, 258) = rate(:,:, 258) * inv(:,:, 1)
24 77921280 : rate(:,:, 259) = rate(:,:, 259) * inv(:,:, 1)
25 77921280 : rate(:,:, 260) = rate(:,:, 260) * inv(:,:, 1)
26 77921280 : rate(:,:, 261) = rate(:,:, 261) * inv(:,:, 1)
27 77921280 : rate(:,:, 262) = rate(:,:, 262) * inv(:,:, 1)
28 77921280 : rate(:,:, 263) = rate(:,:, 263) * inv(:,:, 1)
29 77921280 : rate(:,:, 264) = rate(:,:, 264) * inv(:,:, 1)
30 77921280 : rate(:,:, 265) = rate(:,:, 265) * inv(:,:, 1)
31 77921280 : rate(:,:, 266) = rate(:,:, 266) * inv(:,:, 1)
32 77921280 : rate(:,:, 267) = rate(:,:, 267) * inv(:,:, 1)
33 77921280 : rate(:,:, 268) = rate(:,:, 268) * inv(:,:, 1)
34 77921280 : rate(:,:, 269) = rate(:,:, 269) * inv(:,:, 1)
35 77921280 : rate(:,:, 270) = rate(:,:, 270) * inv(:,:, 1)
36 77921280 : rate(:,:, 271) = rate(:,:, 271) * inv(:,:, 1)
37 77921280 : rate(:,:, 273) = rate(:,:, 273) * inv(:,:, 1)
38 77921280 : rate(:,:, 274) = rate(:,:, 274) * inv(:,:, 1)
39 77921280 : rate(:,:, 275) = rate(:,:, 275) * inv(:,:, 1)
40 77921280 : rate(:,:, 276) = rate(:,:, 276) * inv(:,:, 1)
41 77921280 : rate(:,:, 282) = rate(:,:, 282) * inv(:,:, 1)
42 77921280 : rate(:,:, 283) = rate(:,:, 283) * inv(:,:, 1)
43 77921280 : rate(:,:, 284) = rate(:,:, 284) * inv(:,:, 1)
44 77921280 : rate(:,:, 288) = rate(:,:, 288) * inv(:,:, 1)
45 77921280 : rate(:,:, 294) = rate(:,:, 294) * inv(:,:, 1)
46 77921280 : rate(:,:, 296) = rate(:,:, 296) * inv(:,:, 1)
47 77921280 : rate(:,:, 300) = rate(:,:, 300) * inv(:,:, 1)
48 77921280 : rate(:,:, 316) = rate(:,:, 316) * inv(:,:, 1)
49 77921280 : rate(:,:, 322) = rate(:,:, 322) * inv(:,:, 1)
50 77921280 : rate(:,:, 329) = rate(:,:, 329) * inv(:,:, 1)
51 77921280 : rate(:,:, 343) = rate(:,:, 343) * inv(:,:, 1)
52 77921280 : rate(:,:, 349) = rate(:,:, 349) * inv(:,:, 1)
53 77921280 : rate(:,:, 352) = rate(:,:, 352) * inv(:,:, 1)
54 77921280 : rate(:,:, 358) = rate(:,:, 358) * inv(:,:, 1)
55 77921280 : rate(:,:, 362) = rate(:,:, 362) * inv(:,:, 1)
56 77921280 : rate(:,:, 364) = rate(:,:, 364) * inv(:,:, 1)
57 77921280 : rate(:,:, 365) = rate(:,:, 365) * inv(:,:, 1)
58 77921280 : rate(:,:, 366) = rate(:,:, 366) * inv(:,:, 1)
59 77921280 : rate(:,:, 367) = rate(:,:, 367) * inv(:,:, 1)
60 77921280 : rate(:,:, 368) = rate(:,:, 368) * inv(:,:, 1)
61 77921280 : rate(:,:, 369) = rate(:,:, 369) * inv(:,:, 1)
62 77921280 : rate(:,:, 371) = rate(:,:, 371) * inv(:,:, 1)
63 77921280 : rate(:,:, 372) = rate(:,:, 372) * inv(:,:, 1)
64 77921280 : rate(:,:, 373) = rate(:,:, 373) * inv(:,:, 1)
65 77921280 : rate(:,:, 374) = rate(:,:, 374) * inv(:,:, 1)
66 77921280 : rate(:,:, 375) = rate(:,:, 375) * inv(:,:, 1)
67 77921280 : rate(:,:, 376) = rate(:,:, 376) * inv(:,:, 1)
68 77921280 : rate(:,:, 377) = rate(:,:, 377) * inv(:,:, 1)
69 77921280 : rate(:,:, 378) = rate(:,:, 378) * inv(:,:, 1)
70 77921280 : rate(:,:, 379) = rate(:,:, 379) * inv(:,:, 1)
71 77921280 : rate(:,:, 385) = rate(:,:, 385) * inv(:,:, 1)
72 77921280 : rate(:,:, 386) = rate(:,:, 386) * inv(:,:, 1)
73 77921280 : rate(:,:, 391) = rate(:,:, 391) * inv(:,:, 2)
74 77921280 : rate(:,:, 395) = rate(:,:, 395) * inv(:,:, 2)
75 77921280 : rate(:,:, 399) = rate(:,:, 399) * inv(:,:, 2)
76 77921280 : rate(:,:, 404) = rate(:,:, 404) * inv(:,:, 1)
77 77921280 : rate(:,:, 405) = rate(:,:, 405) * inv(:,:, 1)
78 77921280 : rate(:,:, 411) = rate(:,:, 411) * inv(:,:, 1)
79 77921280 : rate(:,:, 421) = rate(:,:, 421) * inv(:,:, 1)
80 77921280 : rate(:,:, 433) = rate(:,:, 433) * inv(:,:, 1)
81 77921280 : rate(:,:, 441) = rate(:,:, 441) * inv(:,:, 1)
82 77921280 : rate(:,:, 444) = rate(:,:, 444) * inv(:,:, 1)
83 77921280 : rate(:,:, 445) = rate(:,:, 445) * inv(:,:, 1)
84 77921280 : rate(:,:, 446) = rate(:,:, 446) * inv(:,:, 1)
85 77921280 : rate(:,:, 448) = rate(:,:, 448) * inv(:,:, 1)
86 77921280 : rate(:,:, 449) = rate(:,:, 449) * inv(:,:, 1)
87 77921280 : rate(:,:, 464) = rate(:,:, 464) * inv(:,:, 1)
88 77921280 : rate(:,:, 484) = rate(:,:, 484) * inv(:,:, 1)
89 77921280 : rate(:,:, 485) = rate(:,:, 485) * inv(:,:, 1)
90 77921280 : rate(:,:, 495) = rate(:,:, 495) * inv(:,:, 1)
91 77921280 : rate(:,:, 546) = rate(:,:, 546) * inv(:,:, 1)
92 77921280 : rate(:,:, 592) = rate(:,:, 592) * inv(:,:, 2)
93 77921280 : rate(:,:, 595) = rate(:,:, 595) * inv(:,:, 2)
94 77921280 : rate(:,:, 599) = rate(:,:, 599) * inv(:,:, 2)
95 77921280 : rate(:,:, 604) = rate(:,:, 604) * inv(:,:, 2)
96 77921280 : rate(:,:, 605) = rate(:,:, 605) * inv(:,:, 2)
97 77921280 : rate(:,:, 370) = rate(:,:, 370) * inv(:,:, 2) * inv(:,:, 1)
98 77921280 : rate(:,:, 105) = rate(:,:, 105) * m(:,:)
99 77921280 : rate(:,:, 106) = rate(:,:, 106) * m(:,:)
100 77921280 : rate(:,:, 107) = rate(:,:, 107) * m(:,:)
101 77921280 : rate(:,:, 108) = rate(:,:, 108) * m(:,:)
102 77921280 : rate(:,:, 109) = rate(:,:, 109) * m(:,:)
103 77921280 : rate(:,:, 110) = rate(:,:, 110) * m(:,:)
104 77921280 : rate(:,:, 111) = rate(:,:, 111) * m(:,:)
105 77921280 : rate(:,:, 112) = rate(:,:, 112) * m(:,:)
106 77921280 : rate(:,:, 113) = rate(:,:, 113) * m(:,:)
107 77921280 : rate(:,:, 114) = rate(:,:, 114) * m(:,:)
108 77921280 : rate(:,:, 115) = rate(:,:, 115) * m(:,:)
109 77921280 : rate(:,:, 116) = rate(:,:, 116) * m(:,:)
110 77921280 : rate(:,:, 117) = rate(:,:, 117) * m(:,:)
111 77921280 : rate(:,:, 118) = rate(:,:, 118) * m(:,:)
112 77921280 : rate(:,:, 119) = rate(:,:, 119) * m(:,:)
113 77921280 : rate(:,:, 120) = rate(:,:, 120) * m(:,:)
114 77921280 : rate(:,:, 121) = rate(:,:, 121) * m(:,:)
115 77921280 : rate(:,:, 122) = rate(:,:, 122) * m(:,:)
116 77921280 : rate(:,:, 123) = rate(:,:, 123) * m(:,:)
117 77921280 : rate(:,:, 124) = rate(:,:, 124) * m(:,:)
118 77921280 : rate(:,:, 125) = rate(:,:, 125) * m(:,:)
119 77921280 : rate(:,:, 126) = rate(:,:, 126) * m(:,:)
120 77921280 : rate(:,:, 127) = rate(:,:, 127) * m(:,:)
121 77921280 : rate(:,:, 128) = rate(:,:, 128) * m(:,:)
122 77921280 : rate(:,:, 129) = rate(:,:, 129) * m(:,:)
123 77921280 : rate(:,:, 130) = rate(:,:, 130) * m(:,:)
124 77921280 : rate(:,:, 131) = rate(:,:, 131) * m(:,:)
125 77921280 : rate(:,:, 132) = rate(:,:, 132) * m(:,:)
126 77921280 : rate(:,:, 133) = rate(:,:, 133) * m(:,:)
127 77921280 : rate(:,:, 134) = rate(:,:, 134) * m(:,:)
128 77921280 : rate(:,:, 135) = rate(:,:, 135) * m(:,:)
129 77921280 : rate(:,:, 136) = rate(:,:, 136) * m(:,:)
130 77921280 : rate(:,:, 138) = rate(:,:, 138) * m(:,:)
131 77921280 : rate(:,:, 139) = rate(:,:, 139) * m(:,:)
132 77921280 : rate(:,:, 140) = rate(:,:, 140) * m(:,:)
133 77921280 : rate(:,:, 141) = rate(:,:, 141) * m(:,:)
134 77921280 : rate(:,:, 142) = rate(:,:, 142) * m(:,:)
135 77921280 : rate(:,:, 143) = rate(:,:, 143) * m(:,:)
136 77921280 : rate(:,:, 144) = rate(:,:, 144) * m(:,:)
137 77921280 : rate(:,:, 145) = rate(:,:, 145) * m(:,:)
138 77921280 : rate(:,:, 146) = rate(:,:, 146) * m(:,:)
139 77921280 : rate(:,:, 147) = rate(:,:, 147) * m(:,:)
140 77921280 : rate(:,:, 148) = rate(:,:, 148) * m(:,:)
141 77921280 : rate(:,:, 149) = rate(:,:, 149) * m(:,:)
142 77921280 : rate(:,:, 150) = rate(:,:, 150) * m(:,:)
143 77921280 : rate(:,:, 151) = rate(:,:, 151) * m(:,:)
144 77921280 : rate(:,:, 152) = rate(:,:, 152) * m(:,:)
145 77921280 : rate(:,:, 153) = rate(:,:, 153) * m(:,:)
146 77921280 : rate(:,:, 154) = rate(:,:, 154) * m(:,:)
147 77921280 : rate(:,:, 155) = rate(:,:, 155) * m(:,:)
148 77921280 : rate(:,:, 156) = rate(:,:, 156) * m(:,:)
149 77921280 : rate(:,:, 157) = rate(:,:, 157) * m(:,:)
150 77921280 : rate(:,:, 158) = rate(:,:, 158) * m(:,:)
151 77921280 : rate(:,:, 159) = rate(:,:, 159) * m(:,:)
152 77921280 : rate(:,:, 160) = rate(:,:, 160) * m(:,:)
153 77921280 : rate(:,:, 161) = rate(:,:, 161) * m(:,:)
154 77921280 : rate(:,:, 162) = rate(:,:, 162) * m(:,:)
155 77921280 : rate(:,:, 163) = rate(:,:, 163) * m(:,:)
156 77921280 : rate(:,:, 164) = rate(:,:, 164) * m(:,:)
157 77921280 : rate(:,:, 165) = rate(:,:, 165) * m(:,:)
158 77921280 : rate(:,:, 166) = rate(:,:, 166) * m(:,:)
159 77921280 : rate(:,:, 167) = rate(:,:, 167) * m(:,:)
160 77921280 : rate(:,:, 168) = rate(:,:, 168) * m(:,:)
161 77921280 : rate(:,:, 169) = rate(:,:, 169) * m(:,:)
162 77921280 : rate(:,:, 170) = rate(:,:, 170) * m(:,:)
163 77921280 : rate(:,:, 171) = rate(:,:, 171) * m(:,:)
164 77921280 : rate(:,:, 172) = rate(:,:, 172) * m(:,:)
165 77921280 : rate(:,:, 173) = rate(:,:, 173) * m(:,:)
166 77921280 : rate(:,:, 174) = rate(:,:, 174) * m(:,:)
167 77921280 : rate(:,:, 175) = rate(:,:, 175) * m(:,:)
168 77921280 : rate(:,:, 176) = rate(:,:, 176) * m(:,:)
169 77921280 : rate(:,:, 177) = rate(:,:, 177) * m(:,:)
170 77921280 : rate(:,:, 178) = rate(:,:, 178) * m(:,:)
171 77921280 : rate(:,:, 179) = rate(:,:, 179) * m(:,:)
172 77921280 : rate(:,:, 180) = rate(:,:, 180) * m(:,:)
173 77921280 : rate(:,:, 181) = rate(:,:, 181) * m(:,:)
174 77921280 : rate(:,:, 182) = rate(:,:, 182) * m(:,:)
175 77921280 : rate(:,:, 183) = rate(:,:, 183) * m(:,:)
176 77921280 : rate(:,:, 184) = rate(:,:, 184) * m(:,:)
177 77921280 : rate(:,:, 185) = rate(:,:, 185) * m(:,:)
178 77921280 : rate(:,:, 186) = rate(:,:, 186) * m(:,:)
179 77921280 : rate(:,:, 187) = rate(:,:, 187) * m(:,:)
180 77921280 : rate(:,:, 188) = rate(:,:, 188) * m(:,:)
181 77921280 : rate(:,:, 189) = rate(:,:, 189) * m(:,:)
182 77921280 : rate(:,:, 190) = rate(:,:, 190) * m(:,:)
183 77921280 : rate(:,:, 191) = rate(:,:, 191) * m(:,:)
184 77921280 : rate(:,:, 192) = rate(:,:, 192) * m(:,:)
185 77921280 : rate(:,:, 193) = rate(:,:, 193) * m(:,:)
186 77921280 : rate(:,:, 194) = rate(:,:, 194) * m(:,:)
187 77921280 : rate(:,:, 195) = rate(:,:, 195) * m(:,:)
188 77921280 : rate(:,:, 196) = rate(:,:, 196) * m(:,:)
189 77921280 : rate(:,:, 197) = rate(:,:, 197) * m(:,:)
190 77921280 : rate(:,:, 198) = rate(:,:, 198) * m(:,:)
191 77921280 : rate(:,:, 199) = rate(:,:, 199) * m(:,:)
192 77921280 : rate(:,:, 200) = rate(:,:, 200) * m(:,:)
193 77921280 : rate(:,:, 201) = rate(:,:, 201) * m(:,:)
194 77921280 : rate(:,:, 202) = rate(:,:, 202) * m(:,:)
195 77921280 : rate(:,:, 203) = rate(:,:, 203) * m(:,:)
196 77921280 : rate(:,:, 204) = rate(:,:, 204) * m(:,:)
197 77921280 : rate(:,:, 205) = rate(:,:, 205) * m(:,:)
198 77921280 : rate(:,:, 206) = rate(:,:, 206) * m(:,:)
199 77921280 : rate(:,:, 207) = rate(:,:, 207) * m(:,:)
200 77921280 : rate(:,:, 208) = rate(:,:, 208) * m(:,:)
201 77921280 : rate(:,:, 209) = rate(:,:, 209) * m(:,:)
202 77921280 : rate(:,:, 210) = rate(:,:, 210) * m(:,:)
203 77921280 : rate(:,:, 211) = rate(:,:, 211) * m(:,:)
204 77921280 : rate(:,:, 212) = rate(:,:, 212) * m(:,:)
205 77921280 : rate(:,:, 213) = rate(:,:, 213) * m(:,:)
206 77921280 : rate(:,:, 214) = rate(:,:, 214) * m(:,:)
207 77921280 : rate(:,:, 215) = rate(:,:, 215) * m(:,:)
208 77921280 : rate(:,:, 216) = rate(:,:, 216) * m(:,:)
209 77921280 : rate(:,:, 217) = rate(:,:, 217) * m(:,:)
210 77921280 : rate(:,:, 218) = rate(:,:, 218) * m(:,:)
211 77921280 : rate(:,:, 219) = rate(:,:, 219) * m(:,:)
212 77921280 : rate(:,:, 220) = rate(:,:, 220) * m(:,:)
213 77921280 : rate(:,:, 221) = rate(:,:, 221) * m(:,:)
214 77921280 : rate(:,:, 222) = rate(:,:, 222) * m(:,:)
215 77921280 : rate(:,:, 223) = rate(:,:, 223) * m(:,:)
216 77921280 : rate(:,:, 224) = rate(:,:, 224) * m(:,:)
217 77921280 : rate(:,:, 225) = rate(:,:, 225) * m(:,:)
218 77921280 : rate(:,:, 226) = rate(:,:, 226) * m(:,:)
219 77921280 : rate(:,:, 227) = rate(:,:, 227) * m(:,:)
220 77921280 : rate(:,:, 228) = rate(:,:, 228) * m(:,:)
221 77921280 : rate(:,:, 229) = rate(:,:, 229) * m(:,:)
222 77921280 : rate(:,:, 230) = rate(:,:, 230) * m(:,:)
223 77921280 : rate(:,:, 231) = rate(:,:, 231) * m(:,:)
224 77921280 : rate(:,:, 232) = rate(:,:, 232) * m(:,:)
225 77921280 : rate(:,:, 233) = rate(:,:, 233) * m(:,:)
226 77921280 : rate(:,:, 234) = rate(:,:, 234) * m(:,:)
227 77921280 : rate(:,:, 235) = rate(:,:, 235) * m(:,:)
228 77921280 : rate(:,:, 236) = rate(:,:, 236) * m(:,:)
229 77921280 : rate(:,:, 237) = rate(:,:, 237) * m(:,:)
230 77921280 : rate(:,:, 238) = rate(:,:, 238) * m(:,:)
231 77921280 : rate(:,:, 239) = rate(:,:, 239) * m(:,:)
232 77921280 : rate(:,:, 240) = rate(:,:, 240) * m(:,:)
233 77921280 : rate(:,:, 241) = rate(:,:, 241) * m(:,:)
234 77921280 : rate(:,:, 242) = rate(:,:, 242) * m(:,:)
235 77921280 : rate(:,:, 243) = rate(:,:, 243) * m(:,:)
236 77921280 : rate(:,:, 244) = rate(:,:, 244) * m(:,:)
237 77921280 : rate(:,:, 245) = rate(:,:, 245) * m(:,:)
238 77921280 : rate(:,:, 246) = rate(:,:, 246) * m(:,:)
239 77921280 : rate(:,:, 247) = rate(:,:, 247) * m(:,:)
240 77921280 : rate(:,:, 248) = rate(:,:, 248) * m(:,:)
241 77921280 : rate(:,:, 249) = rate(:,:, 249) * m(:,:)
242 77921280 : rate(:,:, 250) = rate(:,:, 250) * m(:,:)
243 77921280 : rate(:,:, 251) = rate(:,:, 251) * m(:,:)
244 77921280 : rate(:,:, 252) = rate(:,:, 252) * m(:,:)
245 77921280 : rate(:,:, 253) = rate(:,:, 253) * m(:,:)
246 77921280 : rate(:,:, 254) = rate(:,:, 254) * m(:,:)
247 77921280 : rate(:,:, 255) = rate(:,:, 255) * m(:,:)
248 77921280 : rate(:,:, 256) = rate(:,:, 256) * m(:,:)
249 77921280 : rate(:,:, 257) = rate(:,:, 257) * m(:,:)
250 77921280 : rate(:,:, 258) = rate(:,:, 258) * m(:,:)
251 77921280 : rate(:,:, 259) = rate(:,:, 259) * m(:,:)
252 77921280 : rate(:,:, 260) = rate(:,:, 260) * m(:,:)
253 77921280 : rate(:,:, 261) = rate(:,:, 261) * m(:,:)
254 77921280 : rate(:,:, 262) = rate(:,:, 262) * m(:,:)
255 77921280 : rate(:,:, 263) = rate(:,:, 263) * m(:,:)
256 77921280 : rate(:,:, 264) = rate(:,:, 264) * m(:,:)
257 77921280 : rate(:,:, 265) = rate(:,:, 265) * m(:,:)
258 77921280 : rate(:,:, 266) = rate(:,:, 266) * m(:,:)
259 77921280 : rate(:,:, 267) = rate(:,:, 267) * m(:,:)
260 77921280 : rate(:,:, 268) = rate(:,:, 268) * m(:,:)
261 77921280 : rate(:,:, 269) = rate(:,:, 269) * m(:,:)
262 77921280 : rate(:,:, 270) = rate(:,:, 270) * m(:,:)
263 77921280 : rate(:,:, 271) = rate(:,:, 271) * m(:,:)
264 77921280 : rate(:,:, 272) = rate(:,:, 272) * m(:,:)
265 77921280 : rate(:,:, 276) = rate(:,:, 276) * m(:,:)
266 77921280 : rate(:,:, 277) = rate(:,:, 277) * m(:,:)
267 77921280 : rate(:,:, 278) = rate(:,:, 278) * m(:,:)
268 77921280 : rate(:,:, 279) = rate(:,:, 279) * m(:,:)
269 77921280 : rate(:,:, 280) = rate(:,:, 280) * m(:,:)
270 77921280 : rate(:,:, 281) = rate(:,:, 281) * m(:,:)
271 77921280 : rate(:,:, 285) = rate(:,:, 285) * m(:,:)
272 77921280 : rate(:,:, 286) = rate(:,:, 286) * m(:,:)
273 77921280 : rate(:,:, 287) = rate(:,:, 287) * m(:,:)
274 77921280 : rate(:,:, 288) = rate(:,:, 288) * m(:,:)
275 77921280 : rate(:,:, 289) = rate(:,:, 289) * m(:,:)
276 77921280 : rate(:,:, 290) = rate(:,:, 290) * m(:,:)
277 77921280 : rate(:,:, 291) = rate(:,:, 291) * m(:,:)
278 77921280 : rate(:,:, 292) = rate(:,:, 292) * m(:,:)
279 77921280 : rate(:,:, 293) = rate(:,:, 293) * m(:,:)
280 77921280 : rate(:,:, 294) = rate(:,:, 294) * m(:,:)
281 77921280 : rate(:,:, 295) = rate(:,:, 295) * m(:,:)
282 77921280 : rate(:,:, 296) = rate(:,:, 296) * m(:,:)
283 77921280 : rate(:,:, 297) = rate(:,:, 297) * m(:,:)
284 77921280 : rate(:,:, 298) = rate(:,:, 298) * m(:,:)
285 77921280 : rate(:,:, 299) = rate(:,:, 299) * m(:,:)
286 77921280 : rate(:,:, 300) = rate(:,:, 300) * m(:,:)
287 77921280 : rate(:,:, 301) = rate(:,:, 301) * m(:,:)
288 77921280 : rate(:,:, 302) = rate(:,:, 302) * m(:,:)
289 77921280 : rate(:,:, 303) = rate(:,:, 303) * m(:,:)
290 77921280 : rate(:,:, 304) = rate(:,:, 304) * m(:,:)
291 77921280 : rate(:,:, 305) = rate(:,:, 305) * m(:,:)
292 77921280 : rate(:,:, 306) = rate(:,:, 306) * m(:,:)
293 77921280 : rate(:,:, 307) = rate(:,:, 307) * m(:,:)
294 77921280 : rate(:,:, 308) = rate(:,:, 308) * m(:,:)
295 77921280 : rate(:,:, 309) = rate(:,:, 309) * m(:,:)
296 77921280 : rate(:,:, 310) = rate(:,:, 310) * m(:,:)
297 77921280 : rate(:,:, 311) = rate(:,:, 311) * m(:,:)
298 77921280 : rate(:,:, 312) = rate(:,:, 312) * m(:,:)
299 77921280 : rate(:,:, 313) = rate(:,:, 313) * m(:,:)
300 77921280 : rate(:,:, 314) = rate(:,:, 314) * m(:,:)
301 77921280 : rate(:,:, 315) = rate(:,:, 315) * m(:,:)
302 77921280 : rate(:,:, 316) = rate(:,:, 316) * m(:,:)
303 77921280 : rate(:,:, 317) = rate(:,:, 317) * m(:,:)
304 77921280 : rate(:,:, 318) = rate(:,:, 318) * m(:,:)
305 77921280 : rate(:,:, 319) = rate(:,:, 319) * m(:,:)
306 77921280 : rate(:,:, 320) = rate(:,:, 320) * m(:,:)
307 77921280 : rate(:,:, 321) = rate(:,:, 321) * m(:,:)
308 77921280 : rate(:,:, 322) = rate(:,:, 322) * m(:,:)
309 77921280 : rate(:,:, 323) = rate(:,:, 323) * m(:,:)
310 77921280 : rate(:,:, 324) = rate(:,:, 324) * m(:,:)
311 77921280 : rate(:,:, 325) = rate(:,:, 325) * m(:,:)
312 77921280 : rate(:,:, 326) = rate(:,:, 326) * m(:,:)
313 77921280 : rate(:,:, 327) = rate(:,:, 327) * m(:,:)
314 77921280 : rate(:,:, 328) = rate(:,:, 328) * m(:,:)
315 77921280 : rate(:,:, 329) = rate(:,:, 329) * m(:,:)
316 77921280 : rate(:,:, 330) = rate(:,:, 330) * m(:,:)
317 77921280 : rate(:,:, 331) = rate(:,:, 331) * m(:,:)
318 77921280 : rate(:,:, 332) = rate(:,:, 332) * m(:,:)
319 77921280 : rate(:,:, 333) = rate(:,:, 333) * m(:,:)
320 77921280 : rate(:,:, 334) = rate(:,:, 334) * m(:,:)
321 77921280 : rate(:,:, 335) = rate(:,:, 335) * m(:,:)
322 77921280 : rate(:,:, 336) = rate(:,:, 336) * m(:,:)
323 77921280 : rate(:,:, 337) = rate(:,:, 337) * m(:,:)
324 77921280 : rate(:,:, 338) = rate(:,:, 338) * m(:,:)
325 77921280 : rate(:,:, 339) = rate(:,:, 339) * m(:,:)
326 77921280 : rate(:,:, 340) = rate(:,:, 340) * m(:,:)
327 77921280 : rate(:,:, 341) = rate(:,:, 341) * m(:,:)
328 77921280 : rate(:,:, 342) = rate(:,:, 342) * m(:,:)
329 77921280 : rate(:,:, 343) = rate(:,:, 343) * m(:,:)
330 77921280 : rate(:,:, 344) = rate(:,:, 344) * m(:,:)
331 77921280 : rate(:,:, 345) = rate(:,:, 345) * m(:,:)
332 77921280 : rate(:,:, 346) = rate(:,:, 346) * m(:,:)
333 77921280 : rate(:,:, 347) = rate(:,:, 347) * m(:,:)
334 77921280 : rate(:,:, 348) = rate(:,:, 348) * m(:,:)
335 77921280 : rate(:,:, 349) = rate(:,:, 349) * m(:,:)
336 77921280 : rate(:,:, 350) = rate(:,:, 350) * m(:,:)
337 77921280 : rate(:,:, 351) = rate(:,:, 351) * m(:,:)
338 77921280 : rate(:,:, 352) = rate(:,:, 352) * m(:,:)
339 77921280 : rate(:,:, 353) = rate(:,:, 353) * m(:,:)
340 77921280 : rate(:,:, 354) = rate(:,:, 354) * m(:,:)
341 77921280 : rate(:,:, 355) = rate(:,:, 355) * m(:,:)
342 77921280 : rate(:,:, 356) = rate(:,:, 356) * m(:,:)
343 77921280 : rate(:,:, 357) = rate(:,:, 357) * m(:,:)
344 77921280 : rate(:,:, 359) = rate(:,:, 359) * m(:,:)
345 77921280 : rate(:,:, 360) = rate(:,:, 360) * m(:,:)
346 77921280 : rate(:,:, 361) = rate(:,:, 361) * m(:,:)
347 77921280 : rate(:,:, 362) = rate(:,:, 362) * m(:,:)
348 77921280 : rate(:,:, 363) = rate(:,:, 363) * m(:,:)
349 77921280 : rate(:,:, 364) = rate(:,:, 364) * m(:,:)
350 77921280 : rate(:,:, 365) = rate(:,:, 365) * m(:,:)
351 77921280 : rate(:,:, 366) = rate(:,:, 366) * m(:,:)
352 77921280 : rate(:,:, 367) = rate(:,:, 367) * m(:,:)
353 77921280 : rate(:,:, 368) = rate(:,:, 368) * m(:,:)
354 77921280 : rate(:,:, 372) = rate(:,:, 372) * m(:,:)
355 77921280 : rate(:,:, 374) = rate(:,:, 374) * m(:,:)
356 77921280 : rate(:,:, 376) = rate(:,:, 376) * m(:,:)
357 77921280 : rate(:,:, 378) = rate(:,:, 378) * m(:,:)
358 77921280 : rate(:,:, 380) = rate(:,:, 380) * m(:,:)
359 77921280 : rate(:,:, 381) = rate(:,:, 381) * m(:,:)
360 77921280 : rate(:,:, 382) = rate(:,:, 382) * m(:,:)
361 77921280 : rate(:,:, 383) = rate(:,:, 383) * m(:,:)
362 77921280 : rate(:,:, 384) = rate(:,:, 384) * m(:,:)
363 77921280 : rate(:,:, 389) = rate(:,:, 389) * m(:,:)
364 77921280 : rate(:,:, 390) = rate(:,:, 390) * m(:,:)
365 77921280 : rate(:,:, 392) = rate(:,:, 392) * m(:,:)
366 77921280 : rate(:,:, 393) = rate(:,:, 393) * m(:,:)
367 77921280 : rate(:,:, 394) = rate(:,:, 394) * m(:,:)
368 77921280 : rate(:,:, 396) = rate(:,:, 396) * m(:,:)
369 77921280 : rate(:,:, 397) = rate(:,:, 397) * m(:,:)
370 77921280 : rate(:,:, 398) = rate(:,:, 398) * m(:,:)
371 77921280 : rate(:,:, 400) = rate(:,:, 400) * m(:,:)
372 77921280 : rate(:,:, 401) = rate(:,:, 401) * m(:,:)
373 77921280 : rate(:,:, 402) = rate(:,:, 402) * m(:,:)
374 77921280 : rate(:,:, 403) = rate(:,:, 403) * m(:,:)
375 77921280 : rate(:,:, 404) = rate(:,:, 404) * m(:,:)
376 77921280 : rate(:,:, 405) = rate(:,:, 405) * m(:,:)
377 77921280 : rate(:,:, 406) = rate(:,:, 406) * m(:,:)
378 77921280 : rate(:,:, 407) = rate(:,:, 407) * m(:,:)
379 77921280 : rate(:,:, 408) = rate(:,:, 408) * m(:,:)
380 77921280 : rate(:,:, 409) = rate(:,:, 409) * m(:,:)
381 77921280 : rate(:,:, 410) = rate(:,:, 410) * m(:,:)
382 77921280 : rate(:,:, 411) = rate(:,:, 411) * m(:,:)
383 77921280 : rate(:,:, 412) = rate(:,:, 412) * m(:,:)
384 77921280 : rate(:,:, 413) = rate(:,:, 413) * m(:,:)
385 77921280 : rate(:,:, 414) = rate(:,:, 414) * m(:,:)
386 77921280 : rate(:,:, 415) = rate(:,:, 415) * m(:,:)
387 77921280 : rate(:,:, 416) = rate(:,:, 416) * m(:,:)
388 77921280 : rate(:,:, 417) = rate(:,:, 417) * m(:,:)
389 77921280 : rate(:,:, 418) = rate(:,:, 418) * m(:,:)
390 77921280 : rate(:,:, 419) = rate(:,:, 419) * m(:,:)
391 77921280 : rate(:,:, 420) = rate(:,:, 420) * m(:,:)
392 77921280 : rate(:,:, 421) = rate(:,:, 421) * m(:,:)
393 77921280 : rate(:,:, 422) = rate(:,:, 422) * m(:,:)
394 77921280 : rate(:,:, 423) = rate(:,:, 423) * m(:,:)
395 77921280 : rate(:,:, 424) = rate(:,:, 424) * m(:,:)
396 77921280 : rate(:,:, 425) = rate(:,:, 425) * m(:,:)
397 77921280 : rate(:,:, 426) = rate(:,:, 426) * m(:,:)
398 77921280 : rate(:,:, 427) = rate(:,:, 427) * m(:,:)
399 77921280 : rate(:,:, 428) = rate(:,:, 428) * m(:,:)
400 77921280 : rate(:,:, 429) = rate(:,:, 429) * m(:,:)
401 77921280 : rate(:,:, 430) = rate(:,:, 430) * m(:,:)
402 77921280 : rate(:,:, 431) = rate(:,:, 431) * m(:,:)
403 77921280 : rate(:,:, 432) = rate(:,:, 432) * m(:,:)
404 77921280 : rate(:,:, 433) = rate(:,:, 433) * m(:,:)
405 77921280 : rate(:,:, 434) = rate(:,:, 434) * m(:,:)
406 77921280 : rate(:,:, 435) = rate(:,:, 435) * m(:,:)
407 77921280 : rate(:,:, 436) = rate(:,:, 436) * m(:,:)
408 77921280 : rate(:,:, 437) = rate(:,:, 437) * m(:,:)
409 77921280 : rate(:,:, 438) = rate(:,:, 438) * m(:,:)
410 77921280 : rate(:,:, 439) = rate(:,:, 439) * m(:,:)
411 77921280 : rate(:,:, 440) = rate(:,:, 440) * m(:,:)
412 77921280 : rate(:,:, 441) = rate(:,:, 441) * m(:,:)
413 77921280 : rate(:,:, 442) = rate(:,:, 442) * m(:,:)
414 77921280 : rate(:,:, 443) = rate(:,:, 443) * m(:,:)
415 77921280 : rate(:,:, 444) = rate(:,:, 444) * m(:,:)
416 77921280 : rate(:,:, 445) = rate(:,:, 445) * m(:,:)
417 77921280 : rate(:,:, 446) = rate(:,:, 446) * m(:,:)
418 77921280 : rate(:,:, 447) = rate(:,:, 447) * m(:,:)
419 77921280 : rate(:,:, 450) = rate(:,:, 450) * m(:,:)
420 77921280 : rate(:,:, 451) = rate(:,:, 451) * m(:,:)
421 77921280 : rate(:,:, 452) = rate(:,:, 452) * m(:,:)
422 77921280 : rate(:,:, 453) = rate(:,:, 453) * m(:,:)
423 77921280 : rate(:,:, 454) = rate(:,:, 454) * m(:,:)
424 77921280 : rate(:,:, 455) = rate(:,:, 455) * m(:,:)
425 77921280 : rate(:,:, 456) = rate(:,:, 456) * m(:,:)
426 77921280 : rate(:,:, 457) = rate(:,:, 457) * m(:,:)
427 77921280 : rate(:,:, 458) = rate(:,:, 458) * m(:,:)
428 77921280 : rate(:,:, 459) = rate(:,:, 459) * m(:,:)
429 77921280 : rate(:,:, 460) = rate(:,:, 460) * m(:,:)
430 77921280 : rate(:,:, 461) = rate(:,:, 461) * m(:,:)
431 77921280 : rate(:,:, 462) = rate(:,:, 462) * m(:,:)
432 77921280 : rate(:,:, 463) = rate(:,:, 463) * m(:,:)
433 77921280 : rate(:,:, 464) = rate(:,:, 464) * m(:,:)
434 77921280 : rate(:,:, 465) = rate(:,:, 465) * m(:,:)
435 77921280 : rate(:,:, 466) = rate(:,:, 466) * m(:,:)
436 77921280 : rate(:,:, 467) = rate(:,:, 467) * m(:,:)
437 77921280 : rate(:,:, 468) = rate(:,:, 468) * m(:,:)
438 77921280 : rate(:,:, 469) = rate(:,:, 469) * m(:,:)
439 77921280 : rate(:,:, 470) = rate(:,:, 470) * m(:,:)
440 77921280 : rate(:,:, 471) = rate(:,:, 471) * m(:,:)
441 77921280 : rate(:,:, 472) = rate(:,:, 472) * m(:,:)
442 77921280 : rate(:,:, 473) = rate(:,:, 473) * m(:,:)
443 77921280 : rate(:,:, 474) = rate(:,:, 474) * m(:,:)
444 77921280 : rate(:,:, 475) = rate(:,:, 475) * m(:,:)
445 77921280 : rate(:,:, 476) = rate(:,:, 476) * m(:,:)
446 77921280 : rate(:,:, 477) = rate(:,:, 477) * m(:,:)
447 77921280 : rate(:,:, 478) = rate(:,:, 478) * m(:,:)
448 77921280 : rate(:,:, 479) = rate(:,:, 479) * m(:,:)
449 77921280 : rate(:,:, 480) = rate(:,:, 480) * m(:,:)
450 77921280 : rate(:,:, 481) = rate(:,:, 481) * m(:,:)
451 77921280 : rate(:,:, 482) = rate(:,:, 482) * m(:,:)
452 77921280 : rate(:,:, 483) = rate(:,:, 483) * m(:,:)
453 77921280 : rate(:,:, 484) = rate(:,:, 484) * m(:,:)
454 77921280 : rate(:,:, 486) = rate(:,:, 486) * m(:,:)
455 77921280 : rate(:,:, 487) = rate(:,:, 487) * m(:,:)
456 77921280 : rate(:,:, 488) = rate(:,:, 488) * m(:,:)
457 77921280 : rate(:,:, 489) = rate(:,:, 489) * m(:,:)
458 77921280 : rate(:,:, 490) = rate(:,:, 490) * m(:,:)
459 77921280 : rate(:,:, 491) = rate(:,:, 491) * m(:,:)
460 77921280 : rate(:,:, 492) = rate(:,:, 492) * m(:,:)
461 77921280 : rate(:,:, 493) = rate(:,:, 493) * m(:,:)
462 77921280 : rate(:,:, 494) = rate(:,:, 494) * m(:,:)
463 77921280 : rate(:,:, 495) = rate(:,:, 495) * m(:,:)
464 77921280 : rate(:,:, 496) = rate(:,:, 496) * m(:,:)
465 77921280 : rate(:,:, 497) = rate(:,:, 497) * m(:,:)
466 77921280 : rate(:,:, 498) = rate(:,:, 498) * m(:,:)
467 77921280 : rate(:,:, 499) = rate(:,:, 499) * m(:,:)
468 77921280 : rate(:,:, 500) = rate(:,:, 500) * m(:,:)
469 77921280 : rate(:,:, 501) = rate(:,:, 501) * m(:,:)
470 77921280 : rate(:,:, 502) = rate(:,:, 502) * m(:,:)
471 77921280 : rate(:,:, 503) = rate(:,:, 503) * m(:,:)
472 77921280 : rate(:,:, 504) = rate(:,:, 504) * m(:,:)
473 77921280 : rate(:,:, 505) = rate(:,:, 505) * m(:,:)
474 77921280 : rate(:,:, 506) = rate(:,:, 506) * m(:,:)
475 77921280 : rate(:,:, 507) = rate(:,:, 507) * m(:,:)
476 77921280 : rate(:,:, 508) = rate(:,:, 508) * m(:,:)
477 77921280 : rate(:,:, 509) = rate(:,:, 509) * m(:,:)
478 77921280 : rate(:,:, 510) = rate(:,:, 510) * m(:,:)
479 77921280 : rate(:,:, 511) = rate(:,:, 511) * m(:,:)
480 77921280 : rate(:,:, 512) = rate(:,:, 512) * m(:,:)
481 77921280 : rate(:,:, 513) = rate(:,:, 513) * m(:,:)
482 77921280 : rate(:,:, 514) = rate(:,:, 514) * m(:,:)
483 77921280 : rate(:,:, 515) = rate(:,:, 515) * m(:,:)
484 77921280 : rate(:,:, 516) = rate(:,:, 516) * m(:,:)
485 77921280 : rate(:,:, 517) = rate(:,:, 517) * m(:,:)
486 77921280 : rate(:,:, 518) = rate(:,:, 518) * m(:,:)
487 77921280 : rate(:,:, 519) = rate(:,:, 519) * m(:,:)
488 77921280 : rate(:,:, 520) = rate(:,:, 520) * m(:,:)
489 77921280 : rate(:,:, 521) = rate(:,:, 521) * m(:,:)
490 77921280 : rate(:,:, 522) = rate(:,:, 522) * m(:,:)
491 77921280 : rate(:,:, 523) = rate(:,:, 523) * m(:,:)
492 77921280 : rate(:,:, 524) = rate(:,:, 524) * m(:,:)
493 77921280 : rate(:,:, 525) = rate(:,:, 525) * m(:,:)
494 77921280 : rate(:,:, 526) = rate(:,:, 526) * m(:,:)
495 77921280 : rate(:,:, 527) = rate(:,:, 527) * m(:,:)
496 77921280 : rate(:,:, 528) = rate(:,:, 528) * m(:,:)
497 77921280 : rate(:,:, 529) = rate(:,:, 529) * m(:,:)
498 77921280 : rate(:,:, 530) = rate(:,:, 530) * m(:,:)
499 77921280 : rate(:,:, 531) = rate(:,:, 531) * m(:,:)
500 77921280 : rate(:,:, 532) = rate(:,:, 532) * m(:,:)
501 77921280 : rate(:,:, 533) = rate(:,:, 533) * m(:,:)
502 77921280 : rate(:,:, 534) = rate(:,:, 534) * m(:,:)
503 77921280 : rate(:,:, 535) = rate(:,:, 535) * m(:,:)
504 77921280 : rate(:,:, 536) = rate(:,:, 536) * m(:,:)
505 77921280 : rate(:,:, 537) = rate(:,:, 537) * m(:,:)
506 77921280 : rate(:,:, 538) = rate(:,:, 538) * m(:,:)
507 77921280 : rate(:,:, 539) = rate(:,:, 539) * m(:,:)
508 77921280 : rate(:,:, 540) = rate(:,:, 540) * m(:,:)
509 77921280 : rate(:,:, 541) = rate(:,:, 541) * m(:,:)
510 77921280 : rate(:,:, 542) = rate(:,:, 542) * m(:,:)
511 77921280 : rate(:,:, 543) = rate(:,:, 543) * m(:,:)
512 77921280 : rate(:,:, 544) = rate(:,:, 544) * m(:,:)
513 77921280 : rate(:,:, 545) = rate(:,:, 545) * m(:,:)
514 77921280 : rate(:,:, 546) = rate(:,:, 546) * m(:,:)
515 77921280 : rate(:,:, 547) = rate(:,:, 547) * m(:,:)
516 77921280 : rate(:,:, 548) = rate(:,:, 548) * m(:,:)
517 77921280 : rate(:,:, 549) = rate(:,:, 549) * m(:,:)
518 77921280 : rate(:,:, 550) = rate(:,:, 550) * m(:,:)
519 77921280 : rate(:,:, 551) = rate(:,:, 551) * m(:,:)
520 77921280 : rate(:,:, 552) = rate(:,:, 552) * m(:,:)
521 77921280 : rate(:,:, 553) = rate(:,:, 553) * m(:,:)
522 77921280 : rate(:,:, 554) = rate(:,:, 554) * m(:,:)
523 77921280 : rate(:,:, 555) = rate(:,:, 555) * m(:,:)
524 77921280 : rate(:,:, 556) = rate(:,:, 556) * m(:,:)
525 77921280 : rate(:,:, 557) = rate(:,:, 557) * m(:,:)
526 77921280 : rate(:,:, 563) = rate(:,:, 563) * m(:,:)
527 77921280 : rate(:,:, 568) = rate(:,:, 568) * m(:,:)
528 77921280 : rate(:,:, 569) = rate(:,:, 569) * m(:,:)
529 77921280 : rate(:,:, 570) = rate(:,:, 570) * m(:,:)
530 77921280 : rate(:,:, 573) = rate(:,:, 573) * m(:,:)
531 77921280 : rate(:,:, 574) = rate(:,:, 574) * m(:,:)
532 77921280 : rate(:,:, 575) = rate(:,:, 575) * m(:,:)
533 77921280 : rate(:,:, 578) = rate(:,:, 578) * m(:,:)
534 77921280 : rate(:,:, 582) = rate(:,:, 582) * m(:,:)
535 77921280 : rate(:,:, 583) = rate(:,:, 583) * m(:,:)
536 77921280 : rate(:,:, 584) = rate(:,:, 584) * m(:,:)
537 77921280 : rate(:,:, 585) = rate(:,:, 585) * m(:,:)
538 77921280 : rate(:,:, 586) = rate(:,:, 586) * m(:,:)
539 77921280 : rate(:,:, 587) = rate(:,:, 587) * m(:,:)
540 77921280 : rate(:,:, 588) = rate(:,:, 588) * m(:,:)
541 77921280 : rate(:,:, 589) = rate(:,:, 589) * m(:,:)
542 77921280 : rate(:,:, 590) = rate(:,:, 590) * m(:,:)
543 77921280 : rate(:,:, 591) = rate(:,:, 591) * m(:,:)
544 77921280 : rate(:,:, 593) = rate(:,:, 593) * m(:,:)
545 77921280 : rate(:,:, 594) = rate(:,:, 594) * m(:,:)
546 77921280 : rate(:,:, 596) = rate(:,:, 596) * m(:,:)
547 77921280 : rate(:,:, 597) = rate(:,:, 597) * m(:,:)
548 77921280 : rate(:,:, 598) = rate(:,:, 598) * m(:,:)
549 77921280 : rate(:,:, 600) = rate(:,:, 600) * m(:,:)
550 77921280 : rate(:,:, 601) = rate(:,:, 601) * m(:,:)
551 77921280 : rate(:,:, 602) = rate(:,:, 602) * m(:,:)
552 77921280 : rate(:,:, 603) = rate(:,:, 603) * m(:,:)
553 77921280 : rate(:,:, 606) = rate(:,:, 606) * m(:,:)
554 46080 : end subroutine adjrxt
555 : end module mo_adjrxt
|
