LCOV - code coverage report
Current view: top level - chemistry/pp_trop_strat_mam5_ts2 - mo_adjrxt.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 701 701 100.0 %
Date: 2025-03-14 01:18:36 Functions: 1 1 100.0 %

          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

Generated by: LCOV version 1.14