C *** THIS FILE IS AUTOMATICALLY GENERATED *** SUBROUTINE W2_E2SETUP C Tile toplogy settings data structures #include "W2_EXCH2_TOPOLOGY.h" C Tile settings table CALL W2_E2SETUP_1 CALL W2_E2SETUP_2 CALL W2_E2SETUP_3 CALL W2_E2SETUP_4 CALL W2_E2SETUP_5 CALL W2_E2SETUP_6 CALL W2_E2SETUP_7 CALL W2_E2SETUP_8 CALL W2_E2SETUP_9 CALL W2_E2SETUP_10 CALL W2_E2SETUP_11 CALL W2_E2SETUP_12 CALL W2_E2SETUP_13 CALL W2_E2SETUP_14 CALL W2_E2SETUP_15 CALL W2_E2SETUP_16 CALL W2_E2SETUP_17 CALL W2_E2SETUP_18 CALL W2_E2SETUP_19 CALL W2_E2SETUP_20 CALL W2_E2SETUP_21 CALL W2_E2SETUP_22 CALL W2_E2SETUP_23 CALL W2_E2SETUP_24 CALL W2_E2SETUP_25 CALL W2_E2SETUP_26 CALL W2_E2SETUP_27 CALL W2_E2SETUP_28 CALL W2_E2SETUP_29 CALL W2_E2SETUP_30 CALL W2_E2SETUP_31 CALL W2_E2SETUP_32 CALL W2_E2SETUP_33 CALL W2_E2SETUP_34 CALL W2_E2SETUP_35 CALL W2_E2SETUP_36 CALL W2_E2SETUP_37 CALL W2_E2SETUP_38 CALL W2_E2SETUP_39 CALL W2_E2SETUP_40 CALL W2_E2SETUP_41 CALL W2_E2SETUP_42 CALL W2_E2SETUP_43 CALL W2_E2SETUP_44 CALL W2_E2SETUP_45 CALL W2_E2SETUP_46 CALL W2_E2SETUP_47 CALL W2_E2SETUP_48 CALL W2_E2SETUP_49 CALL W2_E2SETUP_50 CALL W2_E2SETUP_51 CALL W2_E2SETUP_52 CALL W2_E2SETUP_53 CALL W2_E2SETUP_54 CALL W2_E2SETUP_55 CALL W2_E2SETUP_56 CALL W2_E2SETUP_57 CALL W2_E2SETUP_58 CALL W2_E2SETUP_59 CALL W2_E2SETUP_60 CALL W2_E2SETUP_61 CALL W2_E2SETUP_62 CALL W2_E2SETUP_63 CALL W2_E2SETUP_64 CALL W2_E2SETUP_65 CALL W2_E2SETUP_66 CALL W2_E2SETUP_67 CALL W2_E2SETUP_68 CALL W2_E2SETUP_69 CALL W2_E2SETUP_70 CALL W2_E2SETUP_71 CALL W2_E2SETUP_72 CALL W2_E2SETUP_73 CALL W2_E2SETUP_74 CALL W2_E2SETUP_75 CALL W2_E2SETUP_76 CALL W2_E2SETUP_77 CALL W2_E2SETUP_78 CALL W2_E2SETUP_79 CALL W2_E2SETUP_80 CALL W2_E2SETUP_81 CALL W2_E2SETUP_82 CALL W2_E2SETUP_83 CALL W2_E2SETUP_84 CALL W2_E2SETUP_85 CALL W2_E2SETUP_86 CALL W2_E2SETUP_87 CALL W2_E2SETUP_88 CALL W2_E2SETUP_89 CALL W2_E2SETUP_90 CALL W2_E2SETUP_91 CALL W2_E2SETUP_92 CALL W2_E2SETUP_93 CALL W2_E2SETUP_94 CALL W2_E2SETUP_95 CALL W2_E2SETUP_96 CALL W2_E2SETUP_97 CALL W2_E2SETUP_98 CALL W2_E2SETUP_99 CALL W2_E2SETUP_100 CALL W2_E2SETUP_101 CALL W2_E2SETUP_102 CALL W2_E2SETUP_103 CALL W2_E2SETUP_104 CALL W2_E2SETUP_105 CALL W2_E2SETUP_106 CALL W2_E2SETUP_107 CALL W2_E2SETUP_108 CALL W2_E2SETUP_109 CALL W2_E2SETUP_110 CALL W2_E2SETUP_111 CALL W2_E2SETUP_112 CALL W2_E2SETUP_113 CALL W2_E2SETUP_114 CALL W2_E2SETUP_115 CALL W2_E2SETUP_116 CALL W2_E2SETUP_117 CALL W2_E2SETUP_118 CALL W2_E2SETUP_119 CALL W2_E2SETUP_120 CALL W2_E2SETUP_121 CALL W2_E2SETUP_122 CALL W2_E2SETUP_123 CALL W2_E2SETUP_124 CALL W2_E2SETUP_125 CALL W2_E2SETUP_126 CALL W2_E2SETUP_127 CALL W2_E2SETUP_128 CALL W2_E2SETUP_129 CALL W2_E2SETUP_130 CALL W2_E2SETUP_131 CALL W2_E2SETUP_132 CALL W2_E2SETUP_133 CALL W2_E2SETUP_134 CALL W2_E2SETUP_135 CALL W2_E2SETUP_136 CALL W2_E2SETUP_137 CALL W2_E2SETUP_138 CALL W2_E2SETUP_139 CALL W2_E2SETUP_140 CALL W2_E2SETUP_141 CALL W2_E2SETUP_142 CALL W2_E2SETUP_143 CALL W2_E2SETUP_144 CALL W2_E2SETUP_145 CALL W2_E2SETUP_146 CALL W2_E2SETUP_147 CALL W2_E2SETUP_148 CALL W2_E2SETUP_149 CALL W2_E2SETUP_150 CALL W2_E2SETUP_151 CALL W2_E2SETUP_152 CALL W2_E2SETUP_153 CALL W2_E2SETUP_154 CALL W2_E2SETUP_155 CALL W2_E2SETUP_156 CALL W2_E2SETUP_157 CALL W2_E2SETUP_158 CALL W2_E2SETUP_159 CALL W2_E2SETUP_160 CALL W2_E2SETUP_161 CALL W2_E2SETUP_162 CALL W2_E2SETUP_163 CALL W2_E2SETUP_164 CALL W2_E2SETUP_165 CALL W2_E2SETUP_166 CALL W2_E2SETUP_167 CALL W2_E2SETUP_168 CALL W2_E2SETUP_169 CALL W2_E2SETUP_170 CALL W2_E2SETUP_171 CALL W2_E2SETUP_172 CALL W2_E2SETUP_173 CALL W2_E2SETUP_174 CALL W2_E2SETUP_175 CALL W2_E2SETUP_176 CALL W2_E2SETUP_177 CALL W2_E2SETUP_178 CALL W2_E2SETUP_179 CALL W2_E2SETUP_180 CALL W2_E2SETUP_181 CALL W2_E2SETUP_182 CALL W2_E2SETUP_183 CALL W2_E2SETUP_184 CALL W2_E2SETUP_185 CALL W2_E2SETUP_186 CALL W2_E2SETUP_187 CALL W2_E2SETUP_188 CALL W2_E2SETUP_189 CALL W2_E2SETUP_190 CALL W2_E2SETUP_191 CALL W2_E2SETUP_192 CALL W2_E2SETUP_193 CALL W2_E2SETUP_194 CALL W2_E2SETUP_195 CALL W2_E2SETUP_196 CALL W2_E2SETUP_197 CALL W2_E2SETUP_198 CALL W2_E2SETUP_199 CALL W2_E2SETUP_200 CALL W2_E2SETUP_201 CALL W2_E2SETUP_202 CALL W2_E2SETUP_203 CALL W2_E2SETUP_204 CALL W2_E2SETUP_205 CALL W2_E2SETUP_206 CALL W2_E2SETUP_207 CALL W2_E2SETUP_208 CALL W2_E2SETUP_209 CALL W2_E2SETUP_210 CALL W2_E2SETUP_211 CALL W2_E2SETUP_212 CALL W2_E2SETUP_213 CALL W2_E2SETUP_214 CALL W2_E2SETUP_215 CALL W2_E2SETUP_216 CALL W2_E2SETUP_217 CALL W2_E2SETUP_218 CALL W2_E2SETUP_219 CALL W2_E2SETUP_220 CALL W2_E2SETUP_221 CALL W2_E2SETUP_222 CALL W2_E2SETUP_223 CALL W2_E2SETUP_224 CALL W2_E2SETUP_225 CALL W2_E2SETUP_226 CALL W2_E2SETUP_227 CALL W2_E2SETUP_228 CALL W2_E2SETUP_229 CALL W2_E2SETUP_230 CALL W2_E2SETUP_231 CALL W2_E2SETUP_232 CALL W2_E2SETUP_233 CALL W2_E2SETUP_234 CALL W2_E2SETUP_235 CALL W2_E2SETUP_236 CALL W2_E2SETUP_237 CALL W2_E2SETUP_238 CALL W2_E2SETUP_239 CALL W2_E2SETUP_240 CALL W2_E2SETUP_241 CALL W2_E2SETUP_242 CALL W2_E2SETUP_243 CALL W2_E2SETUP_244 CALL W2_E2SETUP_245 CALL W2_E2SETUP_246 CALL W2_E2SETUP_247 CALL W2_E2SETUP_248 CALL W2_E2SETUP_249 CALL W2_E2SETUP_250 CALL W2_E2SETUP_251 CALL W2_E2SETUP_252 CALL W2_E2SETUP_253 CALL W2_E2SETUP_254 CALL W2_E2SETUP_255 CALL W2_E2SETUP_256 CALL W2_E2SETUP_257 CALL W2_E2SETUP_258 CALL W2_E2SETUP_259 CALL W2_E2SETUP_260 CALL W2_E2SETUP_261 CALL W2_E2SETUP_262 CALL W2_E2SETUP_263 CALL W2_E2SETUP_264 CALL W2_E2SETUP_265 CALL W2_E2SETUP_266 CALL W2_E2SETUP_267 CALL W2_E2SETUP_268 CALL W2_E2SETUP_269 CALL W2_E2SETUP_270 CALL W2_E2SETUP_271 CALL W2_E2SETUP_272 CALL W2_E2SETUP_273 CALL W2_E2SETUP_274 CALL W2_E2SETUP_275 CALL W2_E2SETUP_276 CALL W2_E2SETUP_277 CALL W2_E2SETUP_278 CALL W2_E2SETUP_279 CALL W2_E2SETUP_280 CALL W2_E2SETUP_281 CALL W2_E2SETUP_282 CALL W2_E2SETUP_283 CALL W2_E2SETUP_284 CALL W2_E2SETUP_285 CALL W2_E2SETUP_286 CALL W2_E2SETUP_287 CALL W2_E2SETUP_288 CALL W2_E2SETUP_289 CALL W2_E2SETUP_290 CALL W2_E2SETUP_291 CALL W2_E2SETUP_292 CALL W2_E2SETUP_293 CALL W2_E2SETUP_294 CALL W2_E2SETUP_295 CALL W2_E2SETUP_296 CALL W2_E2SETUP_297 CALL W2_E2SETUP_298 CALL W2_E2SETUP_299 CALL W2_E2SETUP_300 CALL W2_E2SETUP_301 CALL W2_E2SETUP_302 CALL W2_E2SETUP_303 CALL W2_E2SETUP_304 CALL W2_E2SETUP_305 CALL W2_E2SETUP_306 CALL W2_E2SETUP_307 CALL W2_E2SETUP_308 CALL W2_E2SETUP_309 CALL W2_E2SETUP_310 CALL W2_E2SETUP_311 CALL W2_E2SETUP_312 CALL W2_E2SETUP_313 CALL W2_E2SETUP_314 CALL W2_E2SETUP_315 CALL W2_E2SETUP_316 CALL W2_E2SETUP_317 CALL W2_E2SETUP_318 CALL W2_E2SETUP_319 CALL W2_E2SETUP_320 CALL W2_E2SETUP_321 CALL W2_E2SETUP_322 CALL W2_E2SETUP_323 CALL W2_E2SETUP_324 CALL W2_E2SETUP_325 CALL W2_E2SETUP_326 CALL W2_E2SETUP_327 CALL W2_E2SETUP_328 CALL W2_E2SETUP_329 CALL W2_E2SETUP_330 CALL W2_E2SETUP_331 CALL W2_E2SETUP_332 CALL W2_E2SETUP_333 CALL W2_E2SETUP_334 CALL W2_E2SETUP_335 CALL W2_E2SETUP_336 CALL W2_E2SETUP_337 CALL W2_E2SETUP_338 CALL W2_E2SETUP_339 CALL W2_E2SETUP_340 CALL W2_E2SETUP_341 CALL W2_E2SETUP_342 CALL W2_E2SETUP_343 CALL W2_E2SETUP_344 CALL W2_E2SETUP_345 CALL W2_E2SETUP_346 CALL W2_E2SETUP_347 CALL W2_E2SETUP_348 CALL W2_E2SETUP_349 CALL W2_E2SETUP_350 CALL W2_E2SETUP_351 CALL W2_E2SETUP_352 CALL W2_E2SETUP_353 CALL W2_E2SETUP_354 CALL W2_E2SETUP_355 CALL W2_E2SETUP_356 CALL W2_E2SETUP_357 CALL W2_E2SETUP_358 CALL W2_E2SETUP_359 CALL W2_E2SETUP_360 CALL W2_E2SETUP_361 CALL W2_E2SETUP_362 CALL W2_E2SETUP_363 CALL W2_E2SETUP_364 CALL W2_E2SETUP_365 CALL W2_E2SETUP_366 CALL W2_E2SETUP_367 CALL W2_E2SETUP_368 CALL W2_E2SETUP_369 CALL W2_E2SETUP_370 CALL W2_E2SETUP_371 CALL W2_E2SETUP_372 CALL W2_E2SETUP_373 CALL W2_E2SETUP_374 CALL W2_E2SETUP_375 CALL W2_E2SETUP_376 CALL W2_E2SETUP_377 CALL W2_E2SETUP_378 CALL W2_E2SETUP_379 CALL W2_E2SETUP_380 CALL W2_E2SETUP_381 CALL W2_E2SETUP_382 CALL W2_E2SETUP_383 CALL W2_E2SETUP_384 CALL W2_E2SETUP_385 CALL W2_E2SETUP_386 CALL W2_E2SETUP_387 CALL W2_E2SETUP_388 CALL W2_E2SETUP_389 CALL W2_E2SETUP_390 CALL W2_E2SETUP_391 CALL W2_E2SETUP_392 CALL W2_E2SETUP_393 CALL W2_E2SETUP_394 CALL W2_E2SETUP_395 CALL W2_E2SETUP_396 CALL W2_E2SETUP_397 CALL W2_E2SETUP_398 CALL W2_E2SETUP_399 CALL W2_E2SETUP_400 CALL W2_E2SETUP_401 CALL W2_E2SETUP_402 CALL W2_E2SETUP_403 CALL W2_E2SETUP_404 CALL W2_E2SETUP_405 CALL W2_E2SETUP_406 CALL W2_E2SETUP_407 CALL W2_E2SETUP_408 CALL W2_E2SETUP_409 CALL W2_E2SETUP_410 CALL W2_E2SETUP_411 CALL W2_E2SETUP_412 CALL W2_E2SETUP_413 CALL W2_E2SETUP_414 CALL W2_E2SETUP_415 CALL W2_E2SETUP_416 CALL W2_E2SETUP_417 CALL W2_E2SETUP_418 CALL W2_E2SETUP_419 CALL W2_E2SETUP_420 CALL W2_E2SETUP_421 CALL W2_E2SETUP_422 CALL W2_E2SETUP_423 CALL W2_E2SETUP_424 CALL W2_E2SETUP_425 CALL W2_E2SETUP_426 CALL W2_E2SETUP_427 CALL W2_E2SETUP_428 CALL W2_E2SETUP_429 CALL W2_E2SETUP_430 CALL W2_E2SETUP_431 CALL W2_E2SETUP_432 CALL W2_E2SETUP_433 CALL W2_E2SETUP_434 CALL W2_E2SETUP_435 CALL W2_E2SETUP_436 CALL W2_E2SETUP_437 CALL W2_E2SETUP_438 CALL W2_E2SETUP_439 CALL W2_E2SETUP_440 CALL W2_E2SETUP_441 CALL W2_E2SETUP_442 CALL W2_E2SETUP_443 CALL W2_E2SETUP_444 CALL W2_E2SETUP_445 CALL W2_E2SETUP_446 CALL W2_E2SETUP_447 CALL W2_E2SETUP_448 CALL W2_E2SETUP_449 CALL W2_E2SETUP_450 RETURN END SUBROUTINE W2_E2SETUP_1 C Topology for tile 1 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(1)=34 exch2_tNy(1)=102 exch2_tBasex(1)=0 exch2_tBasey(1)=0 exch2_txGlobalo(1)=1 exch2_tyGlobalo(1)=1 exch2_isWedge(1)=1 exch2_isNedge(1)=0 exch2_isEedge(1)=0 exch2_isSedge(1)=1 exch2_myFace(1)=1 exch2_mydNx(1)=510 exch2_mydNy(1)=510 exch2_nNeighbours(1)=6 exch2_neighbourId(1,1)=16 exch2_iLo(1,1)=0 exch2_iHi(1,1)=35 exch2_jLo(1,1)=103 exch2_jHi(1,1)=103 exch2_opposingSend(1,1)=2 exch2_pij(1,1,1)=1 exch2_pij(2,1,1)=0 exch2_pij(3,1,1)=0 exch2_pij(4,1,1)=1 exch2_oi(1,1)=0 exch2_oj(1,1)=0 exch2_neighbourId(2,1)=436 exch2_iLo(2,1)=0 exch2_iHi(2,1)=35 exch2_jLo(2,1)=0 exch2_jHi(2,1)=0 exch2_opposingSend(2,1)=1 exch2_pij(1,2,1)=1 exch2_pij(2,2,1)=0 exch2_pij(3,2,1)=0 exch2_pij(4,2,1)=1 exch2_oi(2,1)=0 exch2_oj(2,1)=-510 exch2_neighbourId(3,1)=2 exch2_iLo(3,1)=35 exch2_iHi(3,1)=35 exch2_jLo(3,1)=0 exch2_jHi(3,1)=103 exch2_opposingSend(3,1)=4 exch2_pij(1,3,1)=1 exch2_pij(2,3,1)=0 exch2_pij(3,3,1)=0 exch2_pij(4,3,1)=1 exch2_oi(3,1)=0 exch2_oj(3,1)=0 exch2_neighbourId(4,1)=373 exch2_iLo(4,1)=0 exch2_iHi(4,1)=0 exch2_jLo(4,1)=68 exch2_jHi(4,1)=103 exch2_opposingSend(4,1)=1 exch2_pij(1,4,1)=0 exch2_pij(2,4,1)=1 exch2_pij(3,4,1)=-1 exch2_pij(4,4,1)=0 exch2_oi(4,1)=-510 exch2_oj(4,1)=511 exch2_neighbourId(5,1)=374 exch2_iLo(5,1)=0 exch2_iHi(5,1)=0 exch2_jLo(5,1)=34 exch2_jHi(5,1)=69 exch2_opposingSend(5,1)=1 exch2_pij(1,5,1)=0 exch2_pij(2,5,1)=1 exch2_pij(3,5,1)=-1 exch2_pij(4,5,1)=0 exch2_oi(5,1)=-510 exch2_oj(5,1)=511 exch2_neighbourId(6,1)=375 exch2_iLo(6,1)=0 exch2_iHi(6,1)=0 exch2_jLo(6,1)=0 exch2_jHi(6,1)=35 exch2_opposingSend(6,1)=1 exch2_pij(1,6,1)=0 exch2_pij(2,6,1)=1 exch2_pij(3,6,1)=-1 exch2_pij(4,6,1)=0 exch2_oi(6,1)=-510 exch2_oj(6,1)=511 RETURN END SUBROUTINE W2_E2SETUP_2 C Topology for tile 2 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(2)=34 exch2_tNy(2)=102 exch2_tBasex(2)=34 exch2_tBasey(2)=0 exch2_txGlobalo(2)=35 exch2_tyGlobalo(2)=1 exch2_isWedge(2)=0 exch2_isNedge(2)=0 exch2_isEedge(2)=0 exch2_isSedge(2)=1 exch2_myFace(2)=1 exch2_mydNx(2)=510 exch2_mydNy(2)=510 exch2_nNeighbours(2)=4 exch2_neighbourId(1,2)=17 exch2_iLo(1,2)=0 exch2_iHi(1,2)=35 exch2_jLo(1,2)=103 exch2_jHi(1,2)=103 exch2_opposingSend(1,2)=2 exch2_pij(1,1,2)=1 exch2_pij(2,1,2)=0 exch2_pij(3,1,2)=0 exch2_pij(4,1,2)=1 exch2_oi(1,2)=0 exch2_oj(1,2)=0 exch2_neighbourId(2,2)=437 exch2_iLo(2,2)=0 exch2_iHi(2,2)=35 exch2_jLo(2,2)=0 exch2_jHi(2,2)=0 exch2_opposingSend(2,2)=1 exch2_pij(1,2,2)=1 exch2_pij(2,2,2)=0 exch2_pij(3,2,2)=0 exch2_pij(4,2,2)=1 exch2_oi(2,2)=0 exch2_oj(2,2)=-510 exch2_neighbourId(3,2)=3 exch2_iLo(3,2)=35 exch2_iHi(3,2)=35 exch2_jLo(3,2)=0 exch2_jHi(3,2)=103 exch2_opposingSend(3,2)=4 exch2_pij(1,3,2)=1 exch2_pij(2,3,2)=0 exch2_pij(3,3,2)=0 exch2_pij(4,3,2)=1 exch2_oi(3,2)=0 exch2_oj(3,2)=0 exch2_neighbourId(4,2)=1 exch2_iLo(4,2)=0 exch2_iHi(4,2)=0 exch2_jLo(4,2)=0 exch2_jHi(4,2)=103 exch2_opposingSend(4,2)=3 exch2_pij(1,4,2)=1 exch2_pij(2,4,2)=0 exch2_pij(3,4,2)=0 exch2_pij(4,4,2)=1 exch2_oi(4,2)=0 exch2_oj(4,2)=0 RETURN END SUBROUTINE W2_E2SETUP_3 C Topology for tile 3 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(3)=34 exch2_tNy(3)=102 exch2_tBasex(3)=68 exch2_tBasey(3)=0 exch2_txGlobalo(3)=69 exch2_tyGlobalo(3)=1 exch2_isWedge(3)=0 exch2_isNedge(3)=0 exch2_isEedge(3)=0 exch2_isSedge(3)=1 exch2_myFace(3)=1 exch2_mydNx(3)=510 exch2_mydNy(3)=510 exch2_nNeighbours(3)=4 exch2_neighbourId(1,3)=18 exch2_iLo(1,3)=0 exch2_iHi(1,3)=35 exch2_jLo(1,3)=103 exch2_jHi(1,3)=103 exch2_opposingSend(1,3)=2 exch2_pij(1,1,3)=1 exch2_pij(2,1,3)=0 exch2_pij(3,1,3)=0 exch2_pij(4,1,3)=1 exch2_oi(1,3)=0 exch2_oj(1,3)=0 exch2_neighbourId(2,3)=438 exch2_iLo(2,3)=0 exch2_iHi(2,3)=35 exch2_jLo(2,3)=0 exch2_jHi(2,3)=0 exch2_opposingSend(2,3)=1 exch2_pij(1,2,3)=1 exch2_pij(2,2,3)=0 exch2_pij(3,2,3)=0 exch2_pij(4,2,3)=1 exch2_oi(2,3)=0 exch2_oj(2,3)=-510 exch2_neighbourId(3,3)=4 exch2_iLo(3,3)=35 exch2_iHi(3,3)=35 exch2_jLo(3,3)=0 exch2_jHi(3,3)=103 exch2_opposingSend(3,3)=4 exch2_pij(1,3,3)=1 exch2_pij(2,3,3)=0 exch2_pij(3,3,3)=0 exch2_pij(4,3,3)=1 exch2_oi(3,3)=0 exch2_oj(3,3)=0 exch2_neighbourId(4,3)=2 exch2_iLo(4,3)=0 exch2_iHi(4,3)=0 exch2_jLo(4,3)=0 exch2_jHi(4,3)=103 exch2_opposingSend(4,3)=3 exch2_pij(1,4,3)=1 exch2_pij(2,4,3)=0 exch2_pij(3,4,3)=0 exch2_pij(4,4,3)=1 exch2_oi(4,3)=0 exch2_oj(4,3)=0 RETURN END SUBROUTINE W2_E2SETUP_4 C Topology for tile 4 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(4)=34 exch2_tNy(4)=102 exch2_tBasex(4)=102 exch2_tBasey(4)=0 exch2_txGlobalo(4)=103 exch2_tyGlobalo(4)=1 exch2_isWedge(4)=0 exch2_isNedge(4)=0 exch2_isEedge(4)=0 exch2_isSedge(4)=1 exch2_myFace(4)=1 exch2_mydNx(4)=510 exch2_mydNy(4)=510 exch2_nNeighbours(4)=4 exch2_neighbourId(1,4)=19 exch2_iLo(1,4)=0 exch2_iHi(1,4)=35 exch2_jLo(1,4)=103 exch2_jHi(1,4)=103 exch2_opposingSend(1,4)=2 exch2_pij(1,1,4)=1 exch2_pij(2,1,4)=0 exch2_pij(3,1,4)=0 exch2_pij(4,1,4)=1 exch2_oi(1,4)=0 exch2_oj(1,4)=0 exch2_neighbourId(2,4)=439 exch2_iLo(2,4)=0 exch2_iHi(2,4)=35 exch2_jLo(2,4)=0 exch2_jHi(2,4)=0 exch2_opposingSend(2,4)=1 exch2_pij(1,2,4)=1 exch2_pij(2,2,4)=0 exch2_pij(3,2,4)=0 exch2_pij(4,2,4)=1 exch2_oi(2,4)=0 exch2_oj(2,4)=-510 exch2_neighbourId(3,4)=5 exch2_iLo(3,4)=35 exch2_iHi(3,4)=35 exch2_jLo(3,4)=0 exch2_jHi(3,4)=103 exch2_opposingSend(3,4)=4 exch2_pij(1,3,4)=1 exch2_pij(2,3,4)=0 exch2_pij(3,3,4)=0 exch2_pij(4,3,4)=1 exch2_oi(3,4)=0 exch2_oj(3,4)=0 exch2_neighbourId(4,4)=3 exch2_iLo(4,4)=0 exch2_iHi(4,4)=0 exch2_jLo(4,4)=0 exch2_jHi(4,4)=103 exch2_opposingSend(4,4)=3 exch2_pij(1,4,4)=1 exch2_pij(2,4,4)=0 exch2_pij(3,4,4)=0 exch2_pij(4,4,4)=1 exch2_oi(4,4)=0 exch2_oj(4,4)=0 RETURN END SUBROUTINE W2_E2SETUP_5 C Topology for tile 5 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(5)=34 exch2_tNy(5)=102 exch2_tBasex(5)=136 exch2_tBasey(5)=0 exch2_txGlobalo(5)=137 exch2_tyGlobalo(5)=1 exch2_isWedge(5)=0 exch2_isNedge(5)=0 exch2_isEedge(5)=0 exch2_isSedge(5)=1 exch2_myFace(5)=1 exch2_mydNx(5)=510 exch2_mydNy(5)=510 exch2_nNeighbours(5)=4 exch2_neighbourId(1,5)=20 exch2_iLo(1,5)=0 exch2_iHi(1,5)=35 exch2_jLo(1,5)=103 exch2_jHi(1,5)=103 exch2_opposingSend(1,5)=2 exch2_pij(1,1,5)=1 exch2_pij(2,1,5)=0 exch2_pij(3,1,5)=0 exch2_pij(4,1,5)=1 exch2_oi(1,5)=0 exch2_oj(1,5)=0 exch2_neighbourId(2,5)=440 exch2_iLo(2,5)=0 exch2_iHi(2,5)=35 exch2_jLo(2,5)=0 exch2_jHi(2,5)=0 exch2_opposingSend(2,5)=1 exch2_pij(1,2,5)=1 exch2_pij(2,2,5)=0 exch2_pij(3,2,5)=0 exch2_pij(4,2,5)=1 exch2_oi(2,5)=0 exch2_oj(2,5)=-510 exch2_neighbourId(3,5)=6 exch2_iLo(3,5)=35 exch2_iHi(3,5)=35 exch2_jLo(3,5)=0 exch2_jHi(3,5)=103 exch2_opposingSend(3,5)=4 exch2_pij(1,3,5)=1 exch2_pij(2,3,5)=0 exch2_pij(3,3,5)=0 exch2_pij(4,3,5)=1 exch2_oi(3,5)=0 exch2_oj(3,5)=0 exch2_neighbourId(4,5)=4 exch2_iLo(4,5)=0 exch2_iHi(4,5)=0 exch2_jLo(4,5)=0 exch2_jHi(4,5)=103 exch2_opposingSend(4,5)=3 exch2_pij(1,4,5)=1 exch2_pij(2,4,5)=0 exch2_pij(3,4,5)=0 exch2_pij(4,4,5)=1 exch2_oi(4,5)=0 exch2_oj(4,5)=0 RETURN END SUBROUTINE W2_E2SETUP_6 C Topology for tile 6 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(6)=34 exch2_tNy(6)=102 exch2_tBasex(6)=170 exch2_tBasey(6)=0 exch2_txGlobalo(6)=171 exch2_tyGlobalo(6)=1 exch2_isWedge(6)=0 exch2_isNedge(6)=0 exch2_isEedge(6)=0 exch2_isSedge(6)=1 exch2_myFace(6)=1 exch2_mydNx(6)=510 exch2_mydNy(6)=510 exch2_nNeighbours(6)=4 exch2_neighbourId(1,6)=21 exch2_iLo(1,6)=0 exch2_iHi(1,6)=35 exch2_jLo(1,6)=103 exch2_jHi(1,6)=103 exch2_opposingSend(1,6)=2 exch2_pij(1,1,6)=1 exch2_pij(2,1,6)=0 exch2_pij(3,1,6)=0 exch2_pij(4,1,6)=1 exch2_oi(1,6)=0 exch2_oj(1,6)=0 exch2_neighbourId(2,6)=441 exch2_iLo(2,6)=0 exch2_iHi(2,6)=35 exch2_jLo(2,6)=0 exch2_jHi(2,6)=0 exch2_opposingSend(2,6)=1 exch2_pij(1,2,6)=1 exch2_pij(2,2,6)=0 exch2_pij(3,2,6)=0 exch2_pij(4,2,6)=1 exch2_oi(2,6)=0 exch2_oj(2,6)=-510 exch2_neighbourId(3,6)=7 exch2_iLo(3,6)=35 exch2_iHi(3,6)=35 exch2_jLo(3,6)=0 exch2_jHi(3,6)=103 exch2_opposingSend(3,6)=4 exch2_pij(1,3,6)=1 exch2_pij(2,3,6)=0 exch2_pij(3,3,6)=0 exch2_pij(4,3,6)=1 exch2_oi(3,6)=0 exch2_oj(3,6)=0 exch2_neighbourId(4,6)=5 exch2_iLo(4,6)=0 exch2_iHi(4,6)=0 exch2_jLo(4,6)=0 exch2_jHi(4,6)=103 exch2_opposingSend(4,6)=3 exch2_pij(1,4,6)=1 exch2_pij(2,4,6)=0 exch2_pij(3,4,6)=0 exch2_pij(4,4,6)=1 exch2_oi(4,6)=0 exch2_oj(4,6)=0 RETURN END SUBROUTINE W2_E2SETUP_7 C Topology for tile 7 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(7)=34 exch2_tNy(7)=102 exch2_tBasex(7)=204 exch2_tBasey(7)=0 exch2_txGlobalo(7)=205 exch2_tyGlobalo(7)=1 exch2_isWedge(7)=0 exch2_isNedge(7)=0 exch2_isEedge(7)=0 exch2_isSedge(7)=1 exch2_myFace(7)=1 exch2_mydNx(7)=510 exch2_mydNy(7)=510 exch2_nNeighbours(7)=4 exch2_neighbourId(1,7)=22 exch2_iLo(1,7)=0 exch2_iHi(1,7)=35 exch2_jLo(1,7)=103 exch2_jHi(1,7)=103 exch2_opposingSend(1,7)=2 exch2_pij(1,1,7)=1 exch2_pij(2,1,7)=0 exch2_pij(3,1,7)=0 exch2_pij(4,1,7)=1 exch2_oi(1,7)=0 exch2_oj(1,7)=0 exch2_neighbourId(2,7)=442 exch2_iLo(2,7)=0 exch2_iHi(2,7)=35 exch2_jLo(2,7)=0 exch2_jHi(2,7)=0 exch2_opposingSend(2,7)=1 exch2_pij(1,2,7)=1 exch2_pij(2,2,7)=0 exch2_pij(3,2,7)=0 exch2_pij(4,2,7)=1 exch2_oi(2,7)=0 exch2_oj(2,7)=-510 exch2_neighbourId(3,7)=8 exch2_iLo(3,7)=35 exch2_iHi(3,7)=35 exch2_jLo(3,7)=0 exch2_jHi(3,7)=103 exch2_opposingSend(3,7)=4 exch2_pij(1,3,7)=1 exch2_pij(2,3,7)=0 exch2_pij(3,3,7)=0 exch2_pij(4,3,7)=1 exch2_oi(3,7)=0 exch2_oj(3,7)=0 exch2_neighbourId(4,7)=6 exch2_iLo(4,7)=0 exch2_iHi(4,7)=0 exch2_jLo(4,7)=0 exch2_jHi(4,7)=103 exch2_opposingSend(4,7)=3 exch2_pij(1,4,7)=1 exch2_pij(2,4,7)=0 exch2_pij(3,4,7)=0 exch2_pij(4,4,7)=1 exch2_oi(4,7)=0 exch2_oj(4,7)=0 RETURN END SUBROUTINE W2_E2SETUP_8 C Topology for tile 8 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(8)=34 exch2_tNy(8)=102 exch2_tBasex(8)=238 exch2_tBasey(8)=0 exch2_txGlobalo(8)=239 exch2_tyGlobalo(8)=1 exch2_isWedge(8)=0 exch2_isNedge(8)=0 exch2_isEedge(8)=0 exch2_isSedge(8)=1 exch2_myFace(8)=1 exch2_mydNx(8)=510 exch2_mydNy(8)=510 exch2_nNeighbours(8)=4 exch2_neighbourId(1,8)=23 exch2_iLo(1,8)=0 exch2_iHi(1,8)=35 exch2_jLo(1,8)=103 exch2_jHi(1,8)=103 exch2_opposingSend(1,8)=2 exch2_pij(1,1,8)=1 exch2_pij(2,1,8)=0 exch2_pij(3,1,8)=0 exch2_pij(4,1,8)=1 exch2_oi(1,8)=0 exch2_oj(1,8)=0 exch2_neighbourId(2,8)=443 exch2_iLo(2,8)=0 exch2_iHi(2,8)=35 exch2_jLo(2,8)=0 exch2_jHi(2,8)=0 exch2_opposingSend(2,8)=1 exch2_pij(1,2,8)=1 exch2_pij(2,2,8)=0 exch2_pij(3,2,8)=0 exch2_pij(4,2,8)=1 exch2_oi(2,8)=0 exch2_oj(2,8)=-510 exch2_neighbourId(3,8)=9 exch2_iLo(3,8)=35 exch2_iHi(3,8)=35 exch2_jLo(3,8)=0 exch2_jHi(3,8)=103 exch2_opposingSend(3,8)=4 exch2_pij(1,3,8)=1 exch2_pij(2,3,8)=0 exch2_pij(3,3,8)=0 exch2_pij(4,3,8)=1 exch2_oi(3,8)=0 exch2_oj(3,8)=0 exch2_neighbourId(4,8)=7 exch2_iLo(4,8)=0 exch2_iHi(4,8)=0 exch2_jLo(4,8)=0 exch2_jHi(4,8)=103 exch2_opposingSend(4,8)=3 exch2_pij(1,4,8)=1 exch2_pij(2,4,8)=0 exch2_pij(3,4,8)=0 exch2_pij(4,4,8)=1 exch2_oi(4,8)=0 exch2_oj(4,8)=0 RETURN END SUBROUTINE W2_E2SETUP_9 C Topology for tile 9 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(9)=34 exch2_tNy(9)=102 exch2_tBasex(9)=272 exch2_tBasey(9)=0 exch2_txGlobalo(9)=273 exch2_tyGlobalo(9)=1 exch2_isWedge(9)=0 exch2_isNedge(9)=0 exch2_isEedge(9)=0 exch2_isSedge(9)=1 exch2_myFace(9)=1 exch2_mydNx(9)=510 exch2_mydNy(9)=510 exch2_nNeighbours(9)=4 exch2_neighbourId(1,9)=24 exch2_iLo(1,9)=0 exch2_iHi(1,9)=35 exch2_jLo(1,9)=103 exch2_jHi(1,9)=103 exch2_opposingSend(1,9)=2 exch2_pij(1,1,9)=1 exch2_pij(2,1,9)=0 exch2_pij(3,1,9)=0 exch2_pij(4,1,9)=1 exch2_oi(1,9)=0 exch2_oj(1,9)=0 exch2_neighbourId(2,9)=444 exch2_iLo(2,9)=0 exch2_iHi(2,9)=35 exch2_jLo(2,9)=0 exch2_jHi(2,9)=0 exch2_opposingSend(2,9)=1 exch2_pij(1,2,9)=1 exch2_pij(2,2,9)=0 exch2_pij(3,2,9)=0 exch2_pij(4,2,9)=1 exch2_oi(2,9)=0 exch2_oj(2,9)=-510 exch2_neighbourId(3,9)=10 exch2_iLo(3,9)=35 exch2_iHi(3,9)=35 exch2_jLo(3,9)=0 exch2_jHi(3,9)=103 exch2_opposingSend(3,9)=4 exch2_pij(1,3,9)=1 exch2_pij(2,3,9)=0 exch2_pij(3,3,9)=0 exch2_pij(4,3,9)=1 exch2_oi(3,9)=0 exch2_oj(3,9)=0 exch2_neighbourId(4,9)=8 exch2_iLo(4,9)=0 exch2_iHi(4,9)=0 exch2_jLo(4,9)=0 exch2_jHi(4,9)=103 exch2_opposingSend(4,9)=3 exch2_pij(1,4,9)=1 exch2_pij(2,4,9)=0 exch2_pij(3,4,9)=0 exch2_pij(4,4,9)=1 exch2_oi(4,9)=0 exch2_oj(4,9)=0 RETURN END SUBROUTINE W2_E2SETUP_10 C Topology for tile 10 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(10)=34 exch2_tNy(10)=102 exch2_tBasex(10)=306 exch2_tBasey(10)=0 exch2_txGlobalo(10)=307 exch2_tyGlobalo(10)=1 exch2_isWedge(10)=0 exch2_isNedge(10)=0 exch2_isEedge(10)=0 exch2_isSedge(10)=1 exch2_myFace(10)=1 exch2_mydNx(10)=510 exch2_mydNy(10)=510 exch2_nNeighbours(10)=4 exch2_neighbourId(1,10)=25 exch2_iLo(1,10)=0 exch2_iHi(1,10)=35 exch2_jLo(1,10)=103 exch2_jHi(1,10)=103 exch2_opposingSend(1,10)=2 exch2_pij(1,1,10)=1 exch2_pij(2,1,10)=0 exch2_pij(3,1,10)=0 exch2_pij(4,1,10)=1 exch2_oi(1,10)=0 exch2_oj(1,10)=0 exch2_neighbourId(2,10)=445 exch2_iLo(2,10)=0 exch2_iHi(2,10)=35 exch2_jLo(2,10)=0 exch2_jHi(2,10)=0 exch2_opposingSend(2,10)=1 exch2_pij(1,2,10)=1 exch2_pij(2,2,10)=0 exch2_pij(3,2,10)=0 exch2_pij(4,2,10)=1 exch2_oi(2,10)=0 exch2_oj(2,10)=-510 exch2_neighbourId(3,10)=11 exch2_iLo(3,10)=35 exch2_iHi(3,10)=35 exch2_jLo(3,10)=0 exch2_jHi(3,10)=103 exch2_opposingSend(3,10)=4 exch2_pij(1,3,10)=1 exch2_pij(2,3,10)=0 exch2_pij(3,3,10)=0 exch2_pij(4,3,10)=1 exch2_oi(3,10)=0 exch2_oj(3,10)=0 exch2_neighbourId(4,10)=9 exch2_iLo(4,10)=0 exch2_iHi(4,10)=0 exch2_jLo(4,10)=0 exch2_jHi(4,10)=103 exch2_opposingSend(4,10)=3 exch2_pij(1,4,10)=1 exch2_pij(2,4,10)=0 exch2_pij(3,4,10)=0 exch2_pij(4,4,10)=1 exch2_oi(4,10)=0 exch2_oj(4,10)=0 RETURN END SUBROUTINE W2_E2SETUP_11 C Topology for tile 11 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(11)=34 exch2_tNy(11)=102 exch2_tBasex(11)=340 exch2_tBasey(11)=0 exch2_txGlobalo(11)=341 exch2_tyGlobalo(11)=1 exch2_isWedge(11)=0 exch2_isNedge(11)=0 exch2_isEedge(11)=0 exch2_isSedge(11)=1 exch2_myFace(11)=1 exch2_mydNx(11)=510 exch2_mydNy(11)=510 exch2_nNeighbours(11)=4 exch2_neighbourId(1,11)=26 exch2_iLo(1,11)=0 exch2_iHi(1,11)=35 exch2_jLo(1,11)=103 exch2_jHi(1,11)=103 exch2_opposingSend(1,11)=2 exch2_pij(1,1,11)=1 exch2_pij(2,1,11)=0 exch2_pij(3,1,11)=0 exch2_pij(4,1,11)=1 exch2_oi(1,11)=0 exch2_oj(1,11)=0 exch2_neighbourId(2,11)=446 exch2_iLo(2,11)=0 exch2_iHi(2,11)=35 exch2_jLo(2,11)=0 exch2_jHi(2,11)=0 exch2_opposingSend(2,11)=1 exch2_pij(1,2,11)=1 exch2_pij(2,2,11)=0 exch2_pij(3,2,11)=0 exch2_pij(4,2,11)=1 exch2_oi(2,11)=0 exch2_oj(2,11)=-510 exch2_neighbourId(3,11)=12 exch2_iLo(3,11)=35 exch2_iHi(3,11)=35 exch2_jLo(3,11)=0 exch2_jHi(3,11)=103 exch2_opposingSend(3,11)=4 exch2_pij(1,3,11)=1 exch2_pij(2,3,11)=0 exch2_pij(3,3,11)=0 exch2_pij(4,3,11)=1 exch2_oi(3,11)=0 exch2_oj(3,11)=0 exch2_neighbourId(4,11)=10 exch2_iLo(4,11)=0 exch2_iHi(4,11)=0 exch2_jLo(4,11)=0 exch2_jHi(4,11)=103 exch2_opposingSend(4,11)=3 exch2_pij(1,4,11)=1 exch2_pij(2,4,11)=0 exch2_pij(3,4,11)=0 exch2_pij(4,4,11)=1 exch2_oi(4,11)=0 exch2_oj(4,11)=0 RETURN END SUBROUTINE W2_E2SETUP_12 C Topology for tile 12 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(12)=34 exch2_tNy(12)=102 exch2_tBasex(12)=374 exch2_tBasey(12)=0 exch2_txGlobalo(12)=375 exch2_tyGlobalo(12)=1 exch2_isWedge(12)=0 exch2_isNedge(12)=0 exch2_isEedge(12)=0 exch2_isSedge(12)=1 exch2_myFace(12)=1 exch2_mydNx(12)=510 exch2_mydNy(12)=510 exch2_nNeighbours(12)=4 exch2_neighbourId(1,12)=27 exch2_iLo(1,12)=0 exch2_iHi(1,12)=35 exch2_jLo(1,12)=103 exch2_jHi(1,12)=103 exch2_opposingSend(1,12)=2 exch2_pij(1,1,12)=1 exch2_pij(2,1,12)=0 exch2_pij(3,1,12)=0 exch2_pij(4,1,12)=1 exch2_oi(1,12)=0 exch2_oj(1,12)=0 exch2_neighbourId(2,12)=447 exch2_iLo(2,12)=0 exch2_iHi(2,12)=35 exch2_jLo(2,12)=0 exch2_jHi(2,12)=0 exch2_opposingSend(2,12)=1 exch2_pij(1,2,12)=1 exch2_pij(2,2,12)=0 exch2_pij(3,2,12)=0 exch2_pij(4,2,12)=1 exch2_oi(2,12)=0 exch2_oj(2,12)=-510 exch2_neighbourId(3,12)=13 exch2_iLo(3,12)=35 exch2_iHi(3,12)=35 exch2_jLo(3,12)=0 exch2_jHi(3,12)=103 exch2_opposingSend(3,12)=4 exch2_pij(1,3,12)=1 exch2_pij(2,3,12)=0 exch2_pij(3,3,12)=0 exch2_pij(4,3,12)=1 exch2_oi(3,12)=0 exch2_oj(3,12)=0 exch2_neighbourId(4,12)=11 exch2_iLo(4,12)=0 exch2_iHi(4,12)=0 exch2_jLo(4,12)=0 exch2_jHi(4,12)=103 exch2_opposingSend(4,12)=3 exch2_pij(1,4,12)=1 exch2_pij(2,4,12)=0 exch2_pij(3,4,12)=0 exch2_pij(4,4,12)=1 exch2_oi(4,12)=0 exch2_oj(4,12)=0 RETURN END SUBROUTINE W2_E2SETUP_13 C Topology for tile 13 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(13)=34 exch2_tNy(13)=102 exch2_tBasex(13)=408 exch2_tBasey(13)=0 exch2_txGlobalo(13)=409 exch2_tyGlobalo(13)=1 exch2_isWedge(13)=0 exch2_isNedge(13)=0 exch2_isEedge(13)=0 exch2_isSedge(13)=1 exch2_myFace(13)=1 exch2_mydNx(13)=510 exch2_mydNy(13)=510 exch2_nNeighbours(13)=4 exch2_neighbourId(1,13)=28 exch2_iLo(1,13)=0 exch2_iHi(1,13)=35 exch2_jLo(1,13)=103 exch2_jHi(1,13)=103 exch2_opposingSend(1,13)=2 exch2_pij(1,1,13)=1 exch2_pij(2,1,13)=0 exch2_pij(3,1,13)=0 exch2_pij(4,1,13)=1 exch2_oi(1,13)=0 exch2_oj(1,13)=0 exch2_neighbourId(2,13)=448 exch2_iLo(2,13)=0 exch2_iHi(2,13)=35 exch2_jLo(2,13)=0 exch2_jHi(2,13)=0 exch2_opposingSend(2,13)=1 exch2_pij(1,2,13)=1 exch2_pij(2,2,13)=0 exch2_pij(3,2,13)=0 exch2_pij(4,2,13)=1 exch2_oi(2,13)=0 exch2_oj(2,13)=-510 exch2_neighbourId(3,13)=14 exch2_iLo(3,13)=35 exch2_iHi(3,13)=35 exch2_jLo(3,13)=0 exch2_jHi(3,13)=103 exch2_opposingSend(3,13)=4 exch2_pij(1,3,13)=1 exch2_pij(2,3,13)=0 exch2_pij(3,3,13)=0 exch2_pij(4,3,13)=1 exch2_oi(3,13)=0 exch2_oj(3,13)=0 exch2_neighbourId(4,13)=12 exch2_iLo(4,13)=0 exch2_iHi(4,13)=0 exch2_jLo(4,13)=0 exch2_jHi(4,13)=103 exch2_opposingSend(4,13)=3 exch2_pij(1,4,13)=1 exch2_pij(2,4,13)=0 exch2_pij(3,4,13)=0 exch2_pij(4,4,13)=1 exch2_oi(4,13)=0 exch2_oj(4,13)=0 RETURN END SUBROUTINE W2_E2SETUP_14 C Topology for tile 14 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(14)=34 exch2_tNy(14)=102 exch2_tBasex(14)=442 exch2_tBasey(14)=0 exch2_txGlobalo(14)=443 exch2_tyGlobalo(14)=1 exch2_isWedge(14)=0 exch2_isNedge(14)=0 exch2_isEedge(14)=0 exch2_isSedge(14)=1 exch2_myFace(14)=1 exch2_mydNx(14)=510 exch2_mydNy(14)=510 exch2_nNeighbours(14)=4 exch2_neighbourId(1,14)=29 exch2_iLo(1,14)=0 exch2_iHi(1,14)=35 exch2_jLo(1,14)=103 exch2_jHi(1,14)=103 exch2_opposingSend(1,14)=2 exch2_pij(1,1,14)=1 exch2_pij(2,1,14)=0 exch2_pij(3,1,14)=0 exch2_pij(4,1,14)=1 exch2_oi(1,14)=0 exch2_oj(1,14)=0 exch2_neighbourId(2,14)=449 exch2_iLo(2,14)=0 exch2_iHi(2,14)=35 exch2_jLo(2,14)=0 exch2_jHi(2,14)=0 exch2_opposingSend(2,14)=1 exch2_pij(1,2,14)=1 exch2_pij(2,2,14)=0 exch2_pij(3,2,14)=0 exch2_pij(4,2,14)=1 exch2_oi(2,14)=0 exch2_oj(2,14)=-510 exch2_neighbourId(3,14)=15 exch2_iLo(3,14)=35 exch2_iHi(3,14)=35 exch2_jLo(3,14)=0 exch2_jHi(3,14)=103 exch2_opposingSend(3,14)=4 exch2_pij(1,3,14)=1 exch2_pij(2,3,14)=0 exch2_pij(3,3,14)=0 exch2_pij(4,3,14)=1 exch2_oi(3,14)=0 exch2_oj(3,14)=0 exch2_neighbourId(4,14)=13 exch2_iLo(4,14)=0 exch2_iHi(4,14)=0 exch2_jLo(4,14)=0 exch2_jHi(4,14)=103 exch2_opposingSend(4,14)=3 exch2_pij(1,4,14)=1 exch2_pij(2,4,14)=0 exch2_pij(3,4,14)=0 exch2_pij(4,4,14)=1 exch2_oi(4,14)=0 exch2_oj(4,14)=0 RETURN END SUBROUTINE W2_E2SETUP_15 C Topology for tile 15 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(15)=34 exch2_tNy(15)=102 exch2_tBasex(15)=476 exch2_tBasey(15)=0 exch2_txGlobalo(15)=477 exch2_tyGlobalo(15)=1 exch2_isWedge(15)=0 exch2_isNedge(15)=0 exch2_isEedge(15)=1 exch2_isSedge(15)=1 exch2_myFace(15)=1 exch2_mydNx(15)=510 exch2_mydNy(15)=510 exch2_nNeighbours(15)=4 exch2_neighbourId(1,15)=30 exch2_iLo(1,15)=0 exch2_iHi(1,15)=35 exch2_jLo(1,15)=103 exch2_jHi(1,15)=103 exch2_opposingSend(1,15)=2 exch2_pij(1,1,15)=1 exch2_pij(2,1,15)=0 exch2_pij(3,1,15)=0 exch2_pij(4,1,15)=1 exch2_oi(1,15)=0 exch2_oj(1,15)=0 exch2_neighbourId(2,15)=450 exch2_iLo(2,15)=0 exch2_iHi(2,15)=35 exch2_jLo(2,15)=0 exch2_jHi(2,15)=0 exch2_opposingSend(2,15)=1 exch2_pij(1,2,15)=1 exch2_pij(2,2,15)=0 exch2_pij(3,2,15)=0 exch2_pij(4,2,15)=1 exch2_oi(2,15)=0 exch2_oj(2,15)=-510 exch2_neighbourId(3,15)=76 exch2_iLo(3,15)=35 exch2_iHi(3,15)=35 exch2_jLo(3,15)=0 exch2_jHi(3,15)=103 exch2_opposingSend(3,15)=4 exch2_pij(1,3,15)=1 exch2_pij(2,3,15)=0 exch2_pij(3,3,15)=0 exch2_pij(4,3,15)=1 exch2_oi(3,15)=510 exch2_oj(3,15)=0 exch2_neighbourId(4,15)=14 exch2_iLo(4,15)=0 exch2_iHi(4,15)=0 exch2_jLo(4,15)=0 exch2_jHi(4,15)=103 exch2_opposingSend(4,15)=3 exch2_pij(1,4,15)=1 exch2_pij(2,4,15)=0 exch2_pij(3,4,15)=0 exch2_pij(4,4,15)=1 exch2_oi(4,15)=0 exch2_oj(4,15)=0 RETURN END SUBROUTINE W2_E2SETUP_16 C Topology for tile 16 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(16)=34 exch2_tNy(16)=102 exch2_tBasex(16)=0 exch2_tBasey(16)=102 exch2_txGlobalo(16)=1 exch2_tyGlobalo(16)=103 exch2_isWedge(16)=1 exch2_isNedge(16)=0 exch2_isEedge(16)=0 exch2_isSedge(16)=0 exch2_myFace(16)=1 exch2_mydNx(16)=510 exch2_mydNy(16)=510 exch2_nNeighbours(16)=6 exch2_neighbourId(1,16)=31 exch2_iLo(1,16)=0 exch2_iHi(1,16)=35 exch2_jLo(1,16)=103 exch2_jHi(1,16)=103 exch2_opposingSend(1,16)=2 exch2_pij(1,1,16)=1 exch2_pij(2,1,16)=0 exch2_pij(3,1,16)=0 exch2_pij(4,1,16)=1 exch2_oi(1,16)=0 exch2_oj(1,16)=0 exch2_neighbourId(2,16)=1 exch2_iLo(2,16)=0 exch2_iHi(2,16)=35 exch2_jLo(2,16)=0 exch2_jHi(2,16)=0 exch2_opposingSend(2,16)=1 exch2_pij(1,2,16)=1 exch2_pij(2,2,16)=0 exch2_pij(3,2,16)=0 exch2_pij(4,2,16)=1 exch2_oi(2,16)=0 exch2_oj(2,16)=0 exch2_neighbourId(3,16)=17 exch2_iLo(3,16)=35 exch2_iHi(3,16)=35 exch2_jLo(3,16)=0 exch2_jHi(3,16)=103 exch2_opposingSend(3,16)=4 exch2_pij(1,3,16)=1 exch2_pij(2,3,16)=0 exch2_pij(3,3,16)=0 exch2_pij(4,3,16)=1 exch2_oi(3,16)=0 exch2_oj(3,16)=0 exch2_neighbourId(4,16)=370 exch2_iLo(4,16)=0 exch2_iHi(4,16)=0 exch2_jLo(4,16)=68 exch2_jHi(4,16)=103 exch2_opposingSend(4,16)=1 exch2_pij(1,4,16)=0 exch2_pij(2,4,16)=1 exch2_pij(3,4,16)=-1 exch2_pij(4,4,16)=0 exch2_oi(4,16)=-510 exch2_oj(4,16)=511 exch2_neighbourId(5,16)=371 exch2_iLo(5,16)=0 exch2_iHi(5,16)=0 exch2_jLo(5,16)=34 exch2_jHi(5,16)=69 exch2_opposingSend(5,16)=1 exch2_pij(1,5,16)=0 exch2_pij(2,5,16)=1 exch2_pij(3,5,16)=-1 exch2_pij(4,5,16)=0 exch2_oi(5,16)=-510 exch2_oj(5,16)=511 exch2_neighbourId(6,16)=372 exch2_iLo(6,16)=0 exch2_iHi(6,16)=0 exch2_jLo(6,16)=0 exch2_jHi(6,16)=35 exch2_opposingSend(6,16)=1 exch2_pij(1,6,16)=0 exch2_pij(2,6,16)=1 exch2_pij(3,6,16)=-1 exch2_pij(4,6,16)=0 exch2_oi(6,16)=-510 exch2_oj(6,16)=511 RETURN END SUBROUTINE W2_E2SETUP_17 C Topology for tile 17 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(17)=34 exch2_tNy(17)=102 exch2_tBasex(17)=34 exch2_tBasey(17)=102 exch2_txGlobalo(17)=35 exch2_tyGlobalo(17)=103 exch2_isWedge(17)=0 exch2_isNedge(17)=0 exch2_isEedge(17)=0 exch2_isSedge(17)=0 exch2_myFace(17)=1 exch2_mydNx(17)=510 exch2_mydNy(17)=510 exch2_nNeighbours(17)=4 exch2_neighbourId(1,17)=32 exch2_iLo(1,17)=0 exch2_iHi(1,17)=35 exch2_jLo(1,17)=103 exch2_jHi(1,17)=103 exch2_opposingSend(1,17)=2 exch2_pij(1,1,17)=1 exch2_pij(2,1,17)=0 exch2_pij(3,1,17)=0 exch2_pij(4,1,17)=1 exch2_oi(1,17)=0 exch2_oj(1,17)=0 exch2_neighbourId(2,17)=2 exch2_iLo(2,17)=0 exch2_iHi(2,17)=35 exch2_jLo(2,17)=0 exch2_jHi(2,17)=0 exch2_opposingSend(2,17)=1 exch2_pij(1,2,17)=1 exch2_pij(2,2,17)=0 exch2_pij(3,2,17)=0 exch2_pij(4,2,17)=1 exch2_oi(2,17)=0 exch2_oj(2,17)=0 exch2_neighbourId(3,17)=18 exch2_iLo(3,17)=35 exch2_iHi(3,17)=35 exch2_jLo(3,17)=0 exch2_jHi(3,17)=103 exch2_opposingSend(3,17)=4 exch2_pij(1,3,17)=1 exch2_pij(2,3,17)=0 exch2_pij(3,3,17)=0 exch2_pij(4,3,17)=1 exch2_oi(3,17)=0 exch2_oj(3,17)=0 exch2_neighbourId(4,17)=16 exch2_iLo(4,17)=0 exch2_iHi(4,17)=0 exch2_jLo(4,17)=0 exch2_jHi(4,17)=103 exch2_opposingSend(4,17)=3 exch2_pij(1,4,17)=1 exch2_pij(2,4,17)=0 exch2_pij(3,4,17)=0 exch2_pij(4,4,17)=1 exch2_oi(4,17)=0 exch2_oj(4,17)=0 RETURN END SUBROUTINE W2_E2SETUP_18 C Topology for tile 18 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(18)=34 exch2_tNy(18)=102 exch2_tBasex(18)=68 exch2_tBasey(18)=102 exch2_txGlobalo(18)=69 exch2_tyGlobalo(18)=103 exch2_isWedge(18)=0 exch2_isNedge(18)=0 exch2_isEedge(18)=0 exch2_isSedge(18)=0 exch2_myFace(18)=1 exch2_mydNx(18)=510 exch2_mydNy(18)=510 exch2_nNeighbours(18)=4 exch2_neighbourId(1,18)=33 exch2_iLo(1,18)=0 exch2_iHi(1,18)=35 exch2_jLo(1,18)=103 exch2_jHi(1,18)=103 exch2_opposingSend(1,18)=2 exch2_pij(1,1,18)=1 exch2_pij(2,1,18)=0 exch2_pij(3,1,18)=0 exch2_pij(4,1,18)=1 exch2_oi(1,18)=0 exch2_oj(1,18)=0 exch2_neighbourId(2,18)=3 exch2_iLo(2,18)=0 exch2_iHi(2,18)=35 exch2_jLo(2,18)=0 exch2_jHi(2,18)=0 exch2_opposingSend(2,18)=1 exch2_pij(1,2,18)=1 exch2_pij(2,2,18)=0 exch2_pij(3,2,18)=0 exch2_pij(4,2,18)=1 exch2_oi(2,18)=0 exch2_oj(2,18)=0 exch2_neighbourId(3,18)=19 exch2_iLo(3,18)=35 exch2_iHi(3,18)=35 exch2_jLo(3,18)=0 exch2_jHi(3,18)=103 exch2_opposingSend(3,18)=4 exch2_pij(1,3,18)=1 exch2_pij(2,3,18)=0 exch2_pij(3,3,18)=0 exch2_pij(4,3,18)=1 exch2_oi(3,18)=0 exch2_oj(3,18)=0 exch2_neighbourId(4,18)=17 exch2_iLo(4,18)=0 exch2_iHi(4,18)=0 exch2_jLo(4,18)=0 exch2_jHi(4,18)=103 exch2_opposingSend(4,18)=3 exch2_pij(1,4,18)=1 exch2_pij(2,4,18)=0 exch2_pij(3,4,18)=0 exch2_pij(4,4,18)=1 exch2_oi(4,18)=0 exch2_oj(4,18)=0 RETURN END SUBROUTINE W2_E2SETUP_19 C Topology for tile 19 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(19)=34 exch2_tNy(19)=102 exch2_tBasex(19)=102 exch2_tBasey(19)=102 exch2_txGlobalo(19)=103 exch2_tyGlobalo(19)=103 exch2_isWedge(19)=0 exch2_isNedge(19)=0 exch2_isEedge(19)=0 exch2_isSedge(19)=0 exch2_myFace(19)=1 exch2_mydNx(19)=510 exch2_mydNy(19)=510 exch2_nNeighbours(19)=4 exch2_neighbourId(1,19)=34 exch2_iLo(1,19)=0 exch2_iHi(1,19)=35 exch2_jLo(1,19)=103 exch2_jHi(1,19)=103 exch2_opposingSend(1,19)=2 exch2_pij(1,1,19)=1 exch2_pij(2,1,19)=0 exch2_pij(3,1,19)=0 exch2_pij(4,1,19)=1 exch2_oi(1,19)=0 exch2_oj(1,19)=0 exch2_neighbourId(2,19)=4 exch2_iLo(2,19)=0 exch2_iHi(2,19)=35 exch2_jLo(2,19)=0 exch2_jHi(2,19)=0 exch2_opposingSend(2,19)=1 exch2_pij(1,2,19)=1 exch2_pij(2,2,19)=0 exch2_pij(3,2,19)=0 exch2_pij(4,2,19)=1 exch2_oi(2,19)=0 exch2_oj(2,19)=0 exch2_neighbourId(3,19)=20 exch2_iLo(3,19)=35 exch2_iHi(3,19)=35 exch2_jLo(3,19)=0 exch2_jHi(3,19)=103 exch2_opposingSend(3,19)=4 exch2_pij(1,3,19)=1 exch2_pij(2,3,19)=0 exch2_pij(3,3,19)=0 exch2_pij(4,3,19)=1 exch2_oi(3,19)=0 exch2_oj(3,19)=0 exch2_neighbourId(4,19)=18 exch2_iLo(4,19)=0 exch2_iHi(4,19)=0 exch2_jLo(4,19)=0 exch2_jHi(4,19)=103 exch2_opposingSend(4,19)=3 exch2_pij(1,4,19)=1 exch2_pij(2,4,19)=0 exch2_pij(3,4,19)=0 exch2_pij(4,4,19)=1 exch2_oi(4,19)=0 exch2_oj(4,19)=0 RETURN END SUBROUTINE W2_E2SETUP_20 C Topology for tile 20 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(20)=34 exch2_tNy(20)=102 exch2_tBasex(20)=136 exch2_tBasey(20)=102 exch2_txGlobalo(20)=137 exch2_tyGlobalo(20)=103 exch2_isWedge(20)=0 exch2_isNedge(20)=0 exch2_isEedge(20)=0 exch2_isSedge(20)=0 exch2_myFace(20)=1 exch2_mydNx(20)=510 exch2_mydNy(20)=510 exch2_nNeighbours(20)=4 exch2_neighbourId(1,20)=35 exch2_iLo(1,20)=0 exch2_iHi(1,20)=35 exch2_jLo(1,20)=103 exch2_jHi(1,20)=103 exch2_opposingSend(1,20)=2 exch2_pij(1,1,20)=1 exch2_pij(2,1,20)=0 exch2_pij(3,1,20)=0 exch2_pij(4,1,20)=1 exch2_oi(1,20)=0 exch2_oj(1,20)=0 exch2_neighbourId(2,20)=5 exch2_iLo(2,20)=0 exch2_iHi(2,20)=35 exch2_jLo(2,20)=0 exch2_jHi(2,20)=0 exch2_opposingSend(2,20)=1 exch2_pij(1,2,20)=1 exch2_pij(2,2,20)=0 exch2_pij(3,2,20)=0 exch2_pij(4,2,20)=1 exch2_oi(2,20)=0 exch2_oj(2,20)=0 exch2_neighbourId(3,20)=21 exch2_iLo(3,20)=35 exch2_iHi(3,20)=35 exch2_jLo(3,20)=0 exch2_jHi(3,20)=103 exch2_opposingSend(3,20)=4 exch2_pij(1,3,20)=1 exch2_pij(2,3,20)=0 exch2_pij(3,3,20)=0 exch2_pij(4,3,20)=1 exch2_oi(3,20)=0 exch2_oj(3,20)=0 exch2_neighbourId(4,20)=19 exch2_iLo(4,20)=0 exch2_iHi(4,20)=0 exch2_jLo(4,20)=0 exch2_jHi(4,20)=103 exch2_opposingSend(4,20)=3 exch2_pij(1,4,20)=1 exch2_pij(2,4,20)=0 exch2_pij(3,4,20)=0 exch2_pij(4,4,20)=1 exch2_oi(4,20)=0 exch2_oj(4,20)=0 RETURN END SUBROUTINE W2_E2SETUP_21 C Topology for tile 21 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(21)=34 exch2_tNy(21)=102 exch2_tBasex(21)=170 exch2_tBasey(21)=102 exch2_txGlobalo(21)=171 exch2_tyGlobalo(21)=103 exch2_isWedge(21)=0 exch2_isNedge(21)=0 exch2_isEedge(21)=0 exch2_isSedge(21)=0 exch2_myFace(21)=1 exch2_mydNx(21)=510 exch2_mydNy(21)=510 exch2_nNeighbours(21)=4 exch2_neighbourId(1,21)=36 exch2_iLo(1,21)=0 exch2_iHi(1,21)=35 exch2_jLo(1,21)=103 exch2_jHi(1,21)=103 exch2_opposingSend(1,21)=2 exch2_pij(1,1,21)=1 exch2_pij(2,1,21)=0 exch2_pij(3,1,21)=0 exch2_pij(4,1,21)=1 exch2_oi(1,21)=0 exch2_oj(1,21)=0 exch2_neighbourId(2,21)=6 exch2_iLo(2,21)=0 exch2_iHi(2,21)=35 exch2_jLo(2,21)=0 exch2_jHi(2,21)=0 exch2_opposingSend(2,21)=1 exch2_pij(1,2,21)=1 exch2_pij(2,2,21)=0 exch2_pij(3,2,21)=0 exch2_pij(4,2,21)=1 exch2_oi(2,21)=0 exch2_oj(2,21)=0 exch2_neighbourId(3,21)=22 exch2_iLo(3,21)=35 exch2_iHi(3,21)=35 exch2_jLo(3,21)=0 exch2_jHi(3,21)=103 exch2_opposingSend(3,21)=4 exch2_pij(1,3,21)=1 exch2_pij(2,3,21)=0 exch2_pij(3,3,21)=0 exch2_pij(4,3,21)=1 exch2_oi(3,21)=0 exch2_oj(3,21)=0 exch2_neighbourId(4,21)=20 exch2_iLo(4,21)=0 exch2_iHi(4,21)=0 exch2_jLo(4,21)=0 exch2_jHi(4,21)=103 exch2_opposingSend(4,21)=3 exch2_pij(1,4,21)=1 exch2_pij(2,4,21)=0 exch2_pij(3,4,21)=0 exch2_pij(4,4,21)=1 exch2_oi(4,21)=0 exch2_oj(4,21)=0 RETURN END SUBROUTINE W2_E2SETUP_22 C Topology for tile 22 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(22)=34 exch2_tNy(22)=102 exch2_tBasex(22)=204 exch2_tBasey(22)=102 exch2_txGlobalo(22)=205 exch2_tyGlobalo(22)=103 exch2_isWedge(22)=0 exch2_isNedge(22)=0 exch2_isEedge(22)=0 exch2_isSedge(22)=0 exch2_myFace(22)=1 exch2_mydNx(22)=510 exch2_mydNy(22)=510 exch2_nNeighbours(22)=4 exch2_neighbourId(1,22)=37 exch2_iLo(1,22)=0 exch2_iHi(1,22)=35 exch2_jLo(1,22)=103 exch2_jHi(1,22)=103 exch2_opposingSend(1,22)=2 exch2_pij(1,1,22)=1 exch2_pij(2,1,22)=0 exch2_pij(3,1,22)=0 exch2_pij(4,1,22)=1 exch2_oi(1,22)=0 exch2_oj(1,22)=0 exch2_neighbourId(2,22)=7 exch2_iLo(2,22)=0 exch2_iHi(2,22)=35 exch2_jLo(2,22)=0 exch2_jHi(2,22)=0 exch2_opposingSend(2,22)=1 exch2_pij(1,2,22)=1 exch2_pij(2,2,22)=0 exch2_pij(3,2,22)=0 exch2_pij(4,2,22)=1 exch2_oi(2,22)=0 exch2_oj(2,22)=0 exch2_neighbourId(3,22)=23 exch2_iLo(3,22)=35 exch2_iHi(3,22)=35 exch2_jLo(3,22)=0 exch2_jHi(3,22)=103 exch2_opposingSend(3,22)=4 exch2_pij(1,3,22)=1 exch2_pij(2,3,22)=0 exch2_pij(3,3,22)=0 exch2_pij(4,3,22)=1 exch2_oi(3,22)=0 exch2_oj(3,22)=0 exch2_neighbourId(4,22)=21 exch2_iLo(4,22)=0 exch2_iHi(4,22)=0 exch2_jLo(4,22)=0 exch2_jHi(4,22)=103 exch2_opposingSend(4,22)=3 exch2_pij(1,4,22)=1 exch2_pij(2,4,22)=0 exch2_pij(3,4,22)=0 exch2_pij(4,4,22)=1 exch2_oi(4,22)=0 exch2_oj(4,22)=0 RETURN END SUBROUTINE W2_E2SETUP_23 C Topology for tile 23 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(23)=34 exch2_tNy(23)=102 exch2_tBasex(23)=238 exch2_tBasey(23)=102 exch2_txGlobalo(23)=239 exch2_tyGlobalo(23)=103 exch2_isWedge(23)=0 exch2_isNedge(23)=0 exch2_isEedge(23)=0 exch2_isSedge(23)=0 exch2_myFace(23)=1 exch2_mydNx(23)=510 exch2_mydNy(23)=510 exch2_nNeighbours(23)=4 exch2_neighbourId(1,23)=38 exch2_iLo(1,23)=0 exch2_iHi(1,23)=35 exch2_jLo(1,23)=103 exch2_jHi(1,23)=103 exch2_opposingSend(1,23)=2 exch2_pij(1,1,23)=1 exch2_pij(2,1,23)=0 exch2_pij(3,1,23)=0 exch2_pij(4,1,23)=1 exch2_oi(1,23)=0 exch2_oj(1,23)=0 exch2_neighbourId(2,23)=8 exch2_iLo(2,23)=0 exch2_iHi(2,23)=35 exch2_jLo(2,23)=0 exch2_jHi(2,23)=0 exch2_opposingSend(2,23)=1 exch2_pij(1,2,23)=1 exch2_pij(2,2,23)=0 exch2_pij(3,2,23)=0 exch2_pij(4,2,23)=1 exch2_oi(2,23)=0 exch2_oj(2,23)=0 exch2_neighbourId(3,23)=24 exch2_iLo(3,23)=35 exch2_iHi(3,23)=35 exch2_jLo(3,23)=0 exch2_jHi(3,23)=103 exch2_opposingSend(3,23)=4 exch2_pij(1,3,23)=1 exch2_pij(2,3,23)=0 exch2_pij(3,3,23)=0 exch2_pij(4,3,23)=1 exch2_oi(3,23)=0 exch2_oj(3,23)=0 exch2_neighbourId(4,23)=22 exch2_iLo(4,23)=0 exch2_iHi(4,23)=0 exch2_jLo(4,23)=0 exch2_jHi(4,23)=103 exch2_opposingSend(4,23)=3 exch2_pij(1,4,23)=1 exch2_pij(2,4,23)=0 exch2_pij(3,4,23)=0 exch2_pij(4,4,23)=1 exch2_oi(4,23)=0 exch2_oj(4,23)=0 RETURN END SUBROUTINE W2_E2SETUP_24 C Topology for tile 24 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(24)=34 exch2_tNy(24)=102 exch2_tBasex(24)=272 exch2_tBasey(24)=102 exch2_txGlobalo(24)=273 exch2_tyGlobalo(24)=103 exch2_isWedge(24)=0 exch2_isNedge(24)=0 exch2_isEedge(24)=0 exch2_isSedge(24)=0 exch2_myFace(24)=1 exch2_mydNx(24)=510 exch2_mydNy(24)=510 exch2_nNeighbours(24)=4 exch2_neighbourId(1,24)=39 exch2_iLo(1,24)=0 exch2_iHi(1,24)=35 exch2_jLo(1,24)=103 exch2_jHi(1,24)=103 exch2_opposingSend(1,24)=2 exch2_pij(1,1,24)=1 exch2_pij(2,1,24)=0 exch2_pij(3,1,24)=0 exch2_pij(4,1,24)=1 exch2_oi(1,24)=0 exch2_oj(1,24)=0 exch2_neighbourId(2,24)=9 exch2_iLo(2,24)=0 exch2_iHi(2,24)=35 exch2_jLo(2,24)=0 exch2_jHi(2,24)=0 exch2_opposingSend(2,24)=1 exch2_pij(1,2,24)=1 exch2_pij(2,2,24)=0 exch2_pij(3,2,24)=0 exch2_pij(4,2,24)=1 exch2_oi(2,24)=0 exch2_oj(2,24)=0 exch2_neighbourId(3,24)=25 exch2_iLo(3,24)=35 exch2_iHi(3,24)=35 exch2_jLo(3,24)=0 exch2_jHi(3,24)=103 exch2_opposingSend(3,24)=4 exch2_pij(1,3,24)=1 exch2_pij(2,3,24)=0 exch2_pij(3,3,24)=0 exch2_pij(4,3,24)=1 exch2_oi(3,24)=0 exch2_oj(3,24)=0 exch2_neighbourId(4,24)=23 exch2_iLo(4,24)=0 exch2_iHi(4,24)=0 exch2_jLo(4,24)=0 exch2_jHi(4,24)=103 exch2_opposingSend(4,24)=3 exch2_pij(1,4,24)=1 exch2_pij(2,4,24)=0 exch2_pij(3,4,24)=0 exch2_pij(4,4,24)=1 exch2_oi(4,24)=0 exch2_oj(4,24)=0 RETURN END SUBROUTINE W2_E2SETUP_25 C Topology for tile 25 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(25)=34 exch2_tNy(25)=102 exch2_tBasex(25)=306 exch2_tBasey(25)=102 exch2_txGlobalo(25)=307 exch2_tyGlobalo(25)=103 exch2_isWedge(25)=0 exch2_isNedge(25)=0 exch2_isEedge(25)=0 exch2_isSedge(25)=0 exch2_myFace(25)=1 exch2_mydNx(25)=510 exch2_mydNy(25)=510 exch2_nNeighbours(25)=4 exch2_neighbourId(1,25)=40 exch2_iLo(1,25)=0 exch2_iHi(1,25)=35 exch2_jLo(1,25)=103 exch2_jHi(1,25)=103 exch2_opposingSend(1,25)=2 exch2_pij(1,1,25)=1 exch2_pij(2,1,25)=0 exch2_pij(3,1,25)=0 exch2_pij(4,1,25)=1 exch2_oi(1,25)=0 exch2_oj(1,25)=0 exch2_neighbourId(2,25)=10 exch2_iLo(2,25)=0 exch2_iHi(2,25)=35 exch2_jLo(2,25)=0 exch2_jHi(2,25)=0 exch2_opposingSend(2,25)=1 exch2_pij(1,2,25)=1 exch2_pij(2,2,25)=0 exch2_pij(3,2,25)=0 exch2_pij(4,2,25)=1 exch2_oi(2,25)=0 exch2_oj(2,25)=0 exch2_neighbourId(3,25)=26 exch2_iLo(3,25)=35 exch2_iHi(3,25)=35 exch2_jLo(3,25)=0 exch2_jHi(3,25)=103 exch2_opposingSend(3,25)=4 exch2_pij(1,3,25)=1 exch2_pij(2,3,25)=0 exch2_pij(3,3,25)=0 exch2_pij(4,3,25)=1 exch2_oi(3,25)=0 exch2_oj(3,25)=0 exch2_neighbourId(4,25)=24 exch2_iLo(4,25)=0 exch2_iHi(4,25)=0 exch2_jLo(4,25)=0 exch2_jHi(4,25)=103 exch2_opposingSend(4,25)=3 exch2_pij(1,4,25)=1 exch2_pij(2,4,25)=0 exch2_pij(3,4,25)=0 exch2_pij(4,4,25)=1 exch2_oi(4,25)=0 exch2_oj(4,25)=0 RETURN END SUBROUTINE W2_E2SETUP_26 C Topology for tile 26 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(26)=34 exch2_tNy(26)=102 exch2_tBasex(26)=340 exch2_tBasey(26)=102 exch2_txGlobalo(26)=341 exch2_tyGlobalo(26)=103 exch2_isWedge(26)=0 exch2_isNedge(26)=0 exch2_isEedge(26)=0 exch2_isSedge(26)=0 exch2_myFace(26)=1 exch2_mydNx(26)=510 exch2_mydNy(26)=510 exch2_nNeighbours(26)=4 exch2_neighbourId(1,26)=41 exch2_iLo(1,26)=0 exch2_iHi(1,26)=35 exch2_jLo(1,26)=103 exch2_jHi(1,26)=103 exch2_opposingSend(1,26)=2 exch2_pij(1,1,26)=1 exch2_pij(2,1,26)=0 exch2_pij(3,1,26)=0 exch2_pij(4,1,26)=1 exch2_oi(1,26)=0 exch2_oj(1,26)=0 exch2_neighbourId(2,26)=11 exch2_iLo(2,26)=0 exch2_iHi(2,26)=35 exch2_jLo(2,26)=0 exch2_jHi(2,26)=0 exch2_opposingSend(2,26)=1 exch2_pij(1,2,26)=1 exch2_pij(2,2,26)=0 exch2_pij(3,2,26)=0 exch2_pij(4,2,26)=1 exch2_oi(2,26)=0 exch2_oj(2,26)=0 exch2_neighbourId(3,26)=27 exch2_iLo(3,26)=35 exch2_iHi(3,26)=35 exch2_jLo(3,26)=0 exch2_jHi(3,26)=103 exch2_opposingSend(3,26)=4 exch2_pij(1,3,26)=1 exch2_pij(2,3,26)=0 exch2_pij(3,3,26)=0 exch2_pij(4,3,26)=1 exch2_oi(3,26)=0 exch2_oj(3,26)=0 exch2_neighbourId(4,26)=25 exch2_iLo(4,26)=0 exch2_iHi(4,26)=0 exch2_jLo(4,26)=0 exch2_jHi(4,26)=103 exch2_opposingSend(4,26)=3 exch2_pij(1,4,26)=1 exch2_pij(2,4,26)=0 exch2_pij(3,4,26)=0 exch2_pij(4,4,26)=1 exch2_oi(4,26)=0 exch2_oj(4,26)=0 RETURN END SUBROUTINE W2_E2SETUP_27 C Topology for tile 27 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(27)=34 exch2_tNy(27)=102 exch2_tBasex(27)=374 exch2_tBasey(27)=102 exch2_txGlobalo(27)=375 exch2_tyGlobalo(27)=103 exch2_isWedge(27)=0 exch2_isNedge(27)=0 exch2_isEedge(27)=0 exch2_isSedge(27)=0 exch2_myFace(27)=1 exch2_mydNx(27)=510 exch2_mydNy(27)=510 exch2_nNeighbours(27)=4 exch2_neighbourId(1,27)=42 exch2_iLo(1,27)=0 exch2_iHi(1,27)=35 exch2_jLo(1,27)=103 exch2_jHi(1,27)=103 exch2_opposingSend(1,27)=2 exch2_pij(1,1,27)=1 exch2_pij(2,1,27)=0 exch2_pij(3,1,27)=0 exch2_pij(4,1,27)=1 exch2_oi(1,27)=0 exch2_oj(1,27)=0 exch2_neighbourId(2,27)=12 exch2_iLo(2,27)=0 exch2_iHi(2,27)=35 exch2_jLo(2,27)=0 exch2_jHi(2,27)=0 exch2_opposingSend(2,27)=1 exch2_pij(1,2,27)=1 exch2_pij(2,2,27)=0 exch2_pij(3,2,27)=0 exch2_pij(4,2,27)=1 exch2_oi(2,27)=0 exch2_oj(2,27)=0 exch2_neighbourId(3,27)=28 exch2_iLo(3,27)=35 exch2_iHi(3,27)=35 exch2_jLo(3,27)=0 exch2_jHi(3,27)=103 exch2_opposingSend(3,27)=4 exch2_pij(1,3,27)=1 exch2_pij(2,3,27)=0 exch2_pij(3,3,27)=0 exch2_pij(4,3,27)=1 exch2_oi(3,27)=0 exch2_oj(3,27)=0 exch2_neighbourId(4,27)=26 exch2_iLo(4,27)=0 exch2_iHi(4,27)=0 exch2_jLo(4,27)=0 exch2_jHi(4,27)=103 exch2_opposingSend(4,27)=3 exch2_pij(1,4,27)=1 exch2_pij(2,4,27)=0 exch2_pij(3,4,27)=0 exch2_pij(4,4,27)=1 exch2_oi(4,27)=0 exch2_oj(4,27)=0 RETURN END SUBROUTINE W2_E2SETUP_28 C Topology for tile 28 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(28)=34 exch2_tNy(28)=102 exch2_tBasex(28)=408 exch2_tBasey(28)=102 exch2_txGlobalo(28)=409 exch2_tyGlobalo(28)=103 exch2_isWedge(28)=0 exch2_isNedge(28)=0 exch2_isEedge(28)=0 exch2_isSedge(28)=0 exch2_myFace(28)=1 exch2_mydNx(28)=510 exch2_mydNy(28)=510 exch2_nNeighbours(28)=4 exch2_neighbourId(1,28)=43 exch2_iLo(1,28)=0 exch2_iHi(1,28)=35 exch2_jLo(1,28)=103 exch2_jHi(1,28)=103 exch2_opposingSend(1,28)=2 exch2_pij(1,1,28)=1 exch2_pij(2,1,28)=0 exch2_pij(3,1,28)=0 exch2_pij(4,1,28)=1 exch2_oi(1,28)=0 exch2_oj(1,28)=0 exch2_neighbourId(2,28)=13 exch2_iLo(2,28)=0 exch2_iHi(2,28)=35 exch2_jLo(2,28)=0 exch2_jHi(2,28)=0 exch2_opposingSend(2,28)=1 exch2_pij(1,2,28)=1 exch2_pij(2,2,28)=0 exch2_pij(3,2,28)=0 exch2_pij(4,2,28)=1 exch2_oi(2,28)=0 exch2_oj(2,28)=0 exch2_neighbourId(3,28)=29 exch2_iLo(3,28)=35 exch2_iHi(3,28)=35 exch2_jLo(3,28)=0 exch2_jHi(3,28)=103 exch2_opposingSend(3,28)=4 exch2_pij(1,3,28)=1 exch2_pij(2,3,28)=0 exch2_pij(3,3,28)=0 exch2_pij(4,3,28)=1 exch2_oi(3,28)=0 exch2_oj(3,28)=0 exch2_neighbourId(4,28)=27 exch2_iLo(4,28)=0 exch2_iHi(4,28)=0 exch2_jLo(4,28)=0 exch2_jHi(4,28)=103 exch2_opposingSend(4,28)=3 exch2_pij(1,4,28)=1 exch2_pij(2,4,28)=0 exch2_pij(3,4,28)=0 exch2_pij(4,4,28)=1 exch2_oi(4,28)=0 exch2_oj(4,28)=0 RETURN END SUBROUTINE W2_E2SETUP_29 C Topology for tile 29 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(29)=34 exch2_tNy(29)=102 exch2_tBasex(29)=442 exch2_tBasey(29)=102 exch2_txGlobalo(29)=443 exch2_tyGlobalo(29)=103 exch2_isWedge(29)=0 exch2_isNedge(29)=0 exch2_isEedge(29)=0 exch2_isSedge(29)=0 exch2_myFace(29)=1 exch2_mydNx(29)=510 exch2_mydNy(29)=510 exch2_nNeighbours(29)=4 exch2_neighbourId(1,29)=44 exch2_iLo(1,29)=0 exch2_iHi(1,29)=35 exch2_jLo(1,29)=103 exch2_jHi(1,29)=103 exch2_opposingSend(1,29)=2 exch2_pij(1,1,29)=1 exch2_pij(2,1,29)=0 exch2_pij(3,1,29)=0 exch2_pij(4,1,29)=1 exch2_oi(1,29)=0 exch2_oj(1,29)=0 exch2_neighbourId(2,29)=14 exch2_iLo(2,29)=0 exch2_iHi(2,29)=35 exch2_jLo(2,29)=0 exch2_jHi(2,29)=0 exch2_opposingSend(2,29)=1 exch2_pij(1,2,29)=1 exch2_pij(2,2,29)=0 exch2_pij(3,2,29)=0 exch2_pij(4,2,29)=1 exch2_oi(2,29)=0 exch2_oj(2,29)=0 exch2_neighbourId(3,29)=30 exch2_iLo(3,29)=35 exch2_iHi(3,29)=35 exch2_jLo(3,29)=0 exch2_jHi(3,29)=103 exch2_opposingSend(3,29)=4 exch2_pij(1,3,29)=1 exch2_pij(2,3,29)=0 exch2_pij(3,3,29)=0 exch2_pij(4,3,29)=1 exch2_oi(3,29)=0 exch2_oj(3,29)=0 exch2_neighbourId(4,29)=28 exch2_iLo(4,29)=0 exch2_iHi(4,29)=0 exch2_jLo(4,29)=0 exch2_jHi(4,29)=103 exch2_opposingSend(4,29)=3 exch2_pij(1,4,29)=1 exch2_pij(2,4,29)=0 exch2_pij(3,4,29)=0 exch2_pij(4,4,29)=1 exch2_oi(4,29)=0 exch2_oj(4,29)=0 RETURN END SUBROUTINE W2_E2SETUP_30 C Topology for tile 30 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(30)=34 exch2_tNy(30)=102 exch2_tBasex(30)=476 exch2_tBasey(30)=102 exch2_txGlobalo(30)=477 exch2_tyGlobalo(30)=103 exch2_isWedge(30)=0 exch2_isNedge(30)=0 exch2_isEedge(30)=1 exch2_isSedge(30)=0 exch2_myFace(30)=1 exch2_mydNx(30)=510 exch2_mydNy(30)=510 exch2_nNeighbours(30)=4 exch2_neighbourId(1,30)=45 exch2_iLo(1,30)=0 exch2_iHi(1,30)=35 exch2_jLo(1,30)=103 exch2_jHi(1,30)=103 exch2_opposingSend(1,30)=2 exch2_pij(1,1,30)=1 exch2_pij(2,1,30)=0 exch2_pij(3,1,30)=0 exch2_pij(4,1,30)=1 exch2_oi(1,30)=0 exch2_oj(1,30)=0 exch2_neighbourId(2,30)=15 exch2_iLo(2,30)=0 exch2_iHi(2,30)=35 exch2_jLo(2,30)=0 exch2_jHi(2,30)=0 exch2_opposingSend(2,30)=1 exch2_pij(1,2,30)=1 exch2_pij(2,2,30)=0 exch2_pij(3,2,30)=0 exch2_pij(4,2,30)=1 exch2_oi(2,30)=0 exch2_oj(2,30)=0 exch2_neighbourId(3,30)=91 exch2_iLo(3,30)=35 exch2_iHi(3,30)=35 exch2_jLo(3,30)=0 exch2_jHi(3,30)=103 exch2_opposingSend(3,30)=4 exch2_pij(1,3,30)=1 exch2_pij(2,3,30)=0 exch2_pij(3,3,30)=0 exch2_pij(4,3,30)=1 exch2_oi(3,30)=510 exch2_oj(3,30)=0 exch2_neighbourId(4,30)=29 exch2_iLo(4,30)=0 exch2_iHi(4,30)=0 exch2_jLo(4,30)=0 exch2_jHi(4,30)=103 exch2_opposingSend(4,30)=3 exch2_pij(1,4,30)=1 exch2_pij(2,4,30)=0 exch2_pij(3,4,30)=0 exch2_pij(4,4,30)=1 exch2_oi(4,30)=0 exch2_oj(4,30)=0 RETURN END SUBROUTINE W2_E2SETUP_31 C Topology for tile 31 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(31)=34 exch2_tNy(31)=102 exch2_tBasex(31)=0 exch2_tBasey(31)=204 exch2_txGlobalo(31)=1 exch2_tyGlobalo(31)=205 exch2_isWedge(31)=1 exch2_isNedge(31)=0 exch2_isEedge(31)=0 exch2_isSedge(31)=0 exch2_myFace(31)=1 exch2_mydNx(31)=510 exch2_mydNy(31)=510 exch2_nNeighbours(31)=6 exch2_neighbourId(1,31)=46 exch2_iLo(1,31)=0 exch2_iHi(1,31)=35 exch2_jLo(1,31)=103 exch2_jHi(1,31)=103 exch2_opposingSend(1,31)=2 exch2_pij(1,1,31)=1 exch2_pij(2,1,31)=0 exch2_pij(3,1,31)=0 exch2_pij(4,1,31)=1 exch2_oi(1,31)=0 exch2_oj(1,31)=0 exch2_neighbourId(2,31)=16 exch2_iLo(2,31)=0 exch2_iHi(2,31)=35 exch2_jLo(2,31)=0 exch2_jHi(2,31)=0 exch2_opposingSend(2,31)=1 exch2_pij(1,2,31)=1 exch2_pij(2,2,31)=0 exch2_pij(3,2,31)=0 exch2_pij(4,2,31)=1 exch2_oi(2,31)=0 exch2_oj(2,31)=0 exch2_neighbourId(3,31)=32 exch2_iLo(3,31)=35 exch2_iHi(3,31)=35 exch2_jLo(3,31)=0 exch2_jHi(3,31)=103 exch2_opposingSend(3,31)=4 exch2_pij(1,3,31)=1 exch2_pij(2,3,31)=0 exch2_pij(3,3,31)=0 exch2_pij(4,3,31)=1 exch2_oi(3,31)=0 exch2_oj(3,31)=0 exch2_neighbourId(4,31)=367 exch2_iLo(4,31)=0 exch2_iHi(4,31)=0 exch2_jLo(4,31)=68 exch2_jHi(4,31)=103 exch2_opposingSend(4,31)=1 exch2_pij(1,4,31)=0 exch2_pij(2,4,31)=1 exch2_pij(3,4,31)=-1 exch2_pij(4,4,31)=0 exch2_oi(4,31)=-510 exch2_oj(4,31)=511 exch2_neighbourId(5,31)=368 exch2_iLo(5,31)=0 exch2_iHi(5,31)=0 exch2_jLo(5,31)=34 exch2_jHi(5,31)=69 exch2_opposingSend(5,31)=1 exch2_pij(1,5,31)=0 exch2_pij(2,5,31)=1 exch2_pij(3,5,31)=-1 exch2_pij(4,5,31)=0 exch2_oi(5,31)=-510 exch2_oj(5,31)=511 exch2_neighbourId(6,31)=369 exch2_iLo(6,31)=0 exch2_iHi(6,31)=0 exch2_jLo(6,31)=0 exch2_jHi(6,31)=35 exch2_opposingSend(6,31)=1 exch2_pij(1,6,31)=0 exch2_pij(2,6,31)=1 exch2_pij(3,6,31)=-1 exch2_pij(4,6,31)=0 exch2_oi(6,31)=-510 exch2_oj(6,31)=511 RETURN END SUBROUTINE W2_E2SETUP_32 C Topology for tile 32 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(32)=34 exch2_tNy(32)=102 exch2_tBasex(32)=34 exch2_tBasey(32)=204 exch2_txGlobalo(32)=35 exch2_tyGlobalo(32)=205 exch2_isWedge(32)=0 exch2_isNedge(32)=0 exch2_isEedge(32)=0 exch2_isSedge(32)=0 exch2_myFace(32)=1 exch2_mydNx(32)=510 exch2_mydNy(32)=510 exch2_nNeighbours(32)=4 exch2_neighbourId(1,32)=47 exch2_iLo(1,32)=0 exch2_iHi(1,32)=35 exch2_jLo(1,32)=103 exch2_jHi(1,32)=103 exch2_opposingSend(1,32)=2 exch2_pij(1,1,32)=1 exch2_pij(2,1,32)=0 exch2_pij(3,1,32)=0 exch2_pij(4,1,32)=1 exch2_oi(1,32)=0 exch2_oj(1,32)=0 exch2_neighbourId(2,32)=17 exch2_iLo(2,32)=0 exch2_iHi(2,32)=35 exch2_jLo(2,32)=0 exch2_jHi(2,32)=0 exch2_opposingSend(2,32)=1 exch2_pij(1,2,32)=1 exch2_pij(2,2,32)=0 exch2_pij(3,2,32)=0 exch2_pij(4,2,32)=1 exch2_oi(2,32)=0 exch2_oj(2,32)=0 exch2_neighbourId(3,32)=33 exch2_iLo(3,32)=35 exch2_iHi(3,32)=35 exch2_jLo(3,32)=0 exch2_jHi(3,32)=103 exch2_opposingSend(3,32)=4 exch2_pij(1,3,32)=1 exch2_pij(2,3,32)=0 exch2_pij(3,3,32)=0 exch2_pij(4,3,32)=1 exch2_oi(3,32)=0 exch2_oj(3,32)=0 exch2_neighbourId(4,32)=31 exch2_iLo(4,32)=0 exch2_iHi(4,32)=0 exch2_jLo(4,32)=0 exch2_jHi(4,32)=103 exch2_opposingSend(4,32)=3 exch2_pij(1,4,32)=1 exch2_pij(2,4,32)=0 exch2_pij(3,4,32)=0 exch2_pij(4,4,32)=1 exch2_oi(4,32)=0 exch2_oj(4,32)=0 RETURN END SUBROUTINE W2_E2SETUP_33 C Topology for tile 33 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(33)=34 exch2_tNy(33)=102 exch2_tBasex(33)=68 exch2_tBasey(33)=204 exch2_txGlobalo(33)=69 exch2_tyGlobalo(33)=205 exch2_isWedge(33)=0 exch2_isNedge(33)=0 exch2_isEedge(33)=0 exch2_isSedge(33)=0 exch2_myFace(33)=1 exch2_mydNx(33)=510 exch2_mydNy(33)=510 exch2_nNeighbours(33)=4 exch2_neighbourId(1,33)=48 exch2_iLo(1,33)=0 exch2_iHi(1,33)=35 exch2_jLo(1,33)=103 exch2_jHi(1,33)=103 exch2_opposingSend(1,33)=2 exch2_pij(1,1,33)=1 exch2_pij(2,1,33)=0 exch2_pij(3,1,33)=0 exch2_pij(4,1,33)=1 exch2_oi(1,33)=0 exch2_oj(1,33)=0 exch2_neighbourId(2,33)=18 exch2_iLo(2,33)=0 exch2_iHi(2,33)=35 exch2_jLo(2,33)=0 exch2_jHi(2,33)=0 exch2_opposingSend(2,33)=1 exch2_pij(1,2,33)=1 exch2_pij(2,2,33)=0 exch2_pij(3,2,33)=0 exch2_pij(4,2,33)=1 exch2_oi(2,33)=0 exch2_oj(2,33)=0 exch2_neighbourId(3,33)=34 exch2_iLo(3,33)=35 exch2_iHi(3,33)=35 exch2_jLo(3,33)=0 exch2_jHi(3,33)=103 exch2_opposingSend(3,33)=4 exch2_pij(1,3,33)=1 exch2_pij(2,3,33)=0 exch2_pij(3,3,33)=0 exch2_pij(4,3,33)=1 exch2_oi(3,33)=0 exch2_oj(3,33)=0 exch2_neighbourId(4,33)=32 exch2_iLo(4,33)=0 exch2_iHi(4,33)=0 exch2_jLo(4,33)=0 exch2_jHi(4,33)=103 exch2_opposingSend(4,33)=3 exch2_pij(1,4,33)=1 exch2_pij(2,4,33)=0 exch2_pij(3,4,33)=0 exch2_pij(4,4,33)=1 exch2_oi(4,33)=0 exch2_oj(4,33)=0 RETURN END SUBROUTINE W2_E2SETUP_34 C Topology for tile 34 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(34)=34 exch2_tNy(34)=102 exch2_tBasex(34)=102 exch2_tBasey(34)=204 exch2_txGlobalo(34)=103 exch2_tyGlobalo(34)=205 exch2_isWedge(34)=0 exch2_isNedge(34)=0 exch2_isEedge(34)=0 exch2_isSedge(34)=0 exch2_myFace(34)=1 exch2_mydNx(34)=510 exch2_mydNy(34)=510 exch2_nNeighbours(34)=4 exch2_neighbourId(1,34)=49 exch2_iLo(1,34)=0 exch2_iHi(1,34)=35 exch2_jLo(1,34)=103 exch2_jHi(1,34)=103 exch2_opposingSend(1,34)=2 exch2_pij(1,1,34)=1 exch2_pij(2,1,34)=0 exch2_pij(3,1,34)=0 exch2_pij(4,1,34)=1 exch2_oi(1,34)=0 exch2_oj(1,34)=0 exch2_neighbourId(2,34)=19 exch2_iLo(2,34)=0 exch2_iHi(2,34)=35 exch2_jLo(2,34)=0 exch2_jHi(2,34)=0 exch2_opposingSend(2,34)=1 exch2_pij(1,2,34)=1 exch2_pij(2,2,34)=0 exch2_pij(3,2,34)=0 exch2_pij(4,2,34)=1 exch2_oi(2,34)=0 exch2_oj(2,34)=0 exch2_neighbourId(3,34)=35 exch2_iLo(3,34)=35 exch2_iHi(3,34)=35 exch2_jLo(3,34)=0 exch2_jHi(3,34)=103 exch2_opposingSend(3,34)=4 exch2_pij(1,3,34)=1 exch2_pij(2,3,34)=0 exch2_pij(3,3,34)=0 exch2_pij(4,3,34)=1 exch2_oi(3,34)=0 exch2_oj(3,34)=0 exch2_neighbourId(4,34)=33 exch2_iLo(4,34)=0 exch2_iHi(4,34)=0 exch2_jLo(4,34)=0 exch2_jHi(4,34)=103 exch2_opposingSend(4,34)=3 exch2_pij(1,4,34)=1 exch2_pij(2,4,34)=0 exch2_pij(3,4,34)=0 exch2_pij(4,4,34)=1 exch2_oi(4,34)=0 exch2_oj(4,34)=0 RETURN END SUBROUTINE W2_E2SETUP_35 C Topology for tile 35 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(35)=34 exch2_tNy(35)=102 exch2_tBasex(35)=136 exch2_tBasey(35)=204 exch2_txGlobalo(35)=137 exch2_tyGlobalo(35)=205 exch2_isWedge(35)=0 exch2_isNedge(35)=0 exch2_isEedge(35)=0 exch2_isSedge(35)=0 exch2_myFace(35)=1 exch2_mydNx(35)=510 exch2_mydNy(35)=510 exch2_nNeighbours(35)=4 exch2_neighbourId(1,35)=50 exch2_iLo(1,35)=0 exch2_iHi(1,35)=35 exch2_jLo(1,35)=103 exch2_jHi(1,35)=103 exch2_opposingSend(1,35)=2 exch2_pij(1,1,35)=1 exch2_pij(2,1,35)=0 exch2_pij(3,1,35)=0 exch2_pij(4,1,35)=1 exch2_oi(1,35)=0 exch2_oj(1,35)=0 exch2_neighbourId(2,35)=20 exch2_iLo(2,35)=0 exch2_iHi(2,35)=35 exch2_jLo(2,35)=0 exch2_jHi(2,35)=0 exch2_opposingSend(2,35)=1 exch2_pij(1,2,35)=1 exch2_pij(2,2,35)=0 exch2_pij(3,2,35)=0 exch2_pij(4,2,35)=1 exch2_oi(2,35)=0 exch2_oj(2,35)=0 exch2_neighbourId(3,35)=36 exch2_iLo(3,35)=35 exch2_iHi(3,35)=35 exch2_jLo(3,35)=0 exch2_jHi(3,35)=103 exch2_opposingSend(3,35)=4 exch2_pij(1,3,35)=1 exch2_pij(2,3,35)=0 exch2_pij(3,3,35)=0 exch2_pij(4,3,35)=1 exch2_oi(3,35)=0 exch2_oj(3,35)=0 exch2_neighbourId(4,35)=34 exch2_iLo(4,35)=0 exch2_iHi(4,35)=0 exch2_jLo(4,35)=0 exch2_jHi(4,35)=103 exch2_opposingSend(4,35)=3 exch2_pij(1,4,35)=1 exch2_pij(2,4,35)=0 exch2_pij(3,4,35)=0 exch2_pij(4,4,35)=1 exch2_oi(4,35)=0 exch2_oj(4,35)=0 RETURN END SUBROUTINE W2_E2SETUP_36 C Topology for tile 36 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(36)=34 exch2_tNy(36)=102 exch2_tBasex(36)=170 exch2_tBasey(36)=204 exch2_txGlobalo(36)=171 exch2_tyGlobalo(36)=205 exch2_isWedge(36)=0 exch2_isNedge(36)=0 exch2_isEedge(36)=0 exch2_isSedge(36)=0 exch2_myFace(36)=1 exch2_mydNx(36)=510 exch2_mydNy(36)=510 exch2_nNeighbours(36)=4 exch2_neighbourId(1,36)=51 exch2_iLo(1,36)=0 exch2_iHi(1,36)=35 exch2_jLo(1,36)=103 exch2_jHi(1,36)=103 exch2_opposingSend(1,36)=2 exch2_pij(1,1,36)=1 exch2_pij(2,1,36)=0 exch2_pij(3,1,36)=0 exch2_pij(4,1,36)=1 exch2_oi(1,36)=0 exch2_oj(1,36)=0 exch2_neighbourId(2,36)=21 exch2_iLo(2,36)=0 exch2_iHi(2,36)=35 exch2_jLo(2,36)=0 exch2_jHi(2,36)=0 exch2_opposingSend(2,36)=1 exch2_pij(1,2,36)=1 exch2_pij(2,2,36)=0 exch2_pij(3,2,36)=0 exch2_pij(4,2,36)=1 exch2_oi(2,36)=0 exch2_oj(2,36)=0 exch2_neighbourId(3,36)=37 exch2_iLo(3,36)=35 exch2_iHi(3,36)=35 exch2_jLo(3,36)=0 exch2_jHi(3,36)=103 exch2_opposingSend(3,36)=4 exch2_pij(1,3,36)=1 exch2_pij(2,3,36)=0 exch2_pij(3,3,36)=0 exch2_pij(4,3,36)=1 exch2_oi(3,36)=0 exch2_oj(3,36)=0 exch2_neighbourId(4,36)=35 exch2_iLo(4,36)=0 exch2_iHi(4,36)=0 exch2_jLo(4,36)=0 exch2_jHi(4,36)=103 exch2_opposingSend(4,36)=3 exch2_pij(1,4,36)=1 exch2_pij(2,4,36)=0 exch2_pij(3,4,36)=0 exch2_pij(4,4,36)=1 exch2_oi(4,36)=0 exch2_oj(4,36)=0 RETURN END SUBROUTINE W2_E2SETUP_37 C Topology for tile 37 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(37)=34 exch2_tNy(37)=102 exch2_tBasex(37)=204 exch2_tBasey(37)=204 exch2_txGlobalo(37)=205 exch2_tyGlobalo(37)=205 exch2_isWedge(37)=0 exch2_isNedge(37)=0 exch2_isEedge(37)=0 exch2_isSedge(37)=0 exch2_myFace(37)=1 exch2_mydNx(37)=510 exch2_mydNy(37)=510 exch2_nNeighbours(37)=4 exch2_neighbourId(1,37)=52 exch2_iLo(1,37)=0 exch2_iHi(1,37)=35 exch2_jLo(1,37)=103 exch2_jHi(1,37)=103 exch2_opposingSend(1,37)=2 exch2_pij(1,1,37)=1 exch2_pij(2,1,37)=0 exch2_pij(3,1,37)=0 exch2_pij(4,1,37)=1 exch2_oi(1,37)=0 exch2_oj(1,37)=0 exch2_neighbourId(2,37)=22 exch2_iLo(2,37)=0 exch2_iHi(2,37)=35 exch2_jLo(2,37)=0 exch2_jHi(2,37)=0 exch2_opposingSend(2,37)=1 exch2_pij(1,2,37)=1 exch2_pij(2,2,37)=0 exch2_pij(3,2,37)=0 exch2_pij(4,2,37)=1 exch2_oi(2,37)=0 exch2_oj(2,37)=0 exch2_neighbourId(3,37)=38 exch2_iLo(3,37)=35 exch2_iHi(3,37)=35 exch2_jLo(3,37)=0 exch2_jHi(3,37)=103 exch2_opposingSend(3,37)=4 exch2_pij(1,3,37)=1 exch2_pij(2,3,37)=0 exch2_pij(3,3,37)=0 exch2_pij(4,3,37)=1 exch2_oi(3,37)=0 exch2_oj(3,37)=0 exch2_neighbourId(4,37)=36 exch2_iLo(4,37)=0 exch2_iHi(4,37)=0 exch2_jLo(4,37)=0 exch2_jHi(4,37)=103 exch2_opposingSend(4,37)=3 exch2_pij(1,4,37)=1 exch2_pij(2,4,37)=0 exch2_pij(3,4,37)=0 exch2_pij(4,4,37)=1 exch2_oi(4,37)=0 exch2_oj(4,37)=0 RETURN END SUBROUTINE W2_E2SETUP_38 C Topology for tile 38 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(38)=34 exch2_tNy(38)=102 exch2_tBasex(38)=238 exch2_tBasey(38)=204 exch2_txGlobalo(38)=239 exch2_tyGlobalo(38)=205 exch2_isWedge(38)=0 exch2_isNedge(38)=0 exch2_isEedge(38)=0 exch2_isSedge(38)=0 exch2_myFace(38)=1 exch2_mydNx(38)=510 exch2_mydNy(38)=510 exch2_nNeighbours(38)=4 exch2_neighbourId(1,38)=53 exch2_iLo(1,38)=0 exch2_iHi(1,38)=35 exch2_jLo(1,38)=103 exch2_jHi(1,38)=103 exch2_opposingSend(1,38)=2 exch2_pij(1,1,38)=1 exch2_pij(2,1,38)=0 exch2_pij(3,1,38)=0 exch2_pij(4,1,38)=1 exch2_oi(1,38)=0 exch2_oj(1,38)=0 exch2_neighbourId(2,38)=23 exch2_iLo(2,38)=0 exch2_iHi(2,38)=35 exch2_jLo(2,38)=0 exch2_jHi(2,38)=0 exch2_opposingSend(2,38)=1 exch2_pij(1,2,38)=1 exch2_pij(2,2,38)=0 exch2_pij(3,2,38)=0 exch2_pij(4,2,38)=1 exch2_oi(2,38)=0 exch2_oj(2,38)=0 exch2_neighbourId(3,38)=39 exch2_iLo(3,38)=35 exch2_iHi(3,38)=35 exch2_jLo(3,38)=0 exch2_jHi(3,38)=103 exch2_opposingSend(3,38)=4 exch2_pij(1,3,38)=1 exch2_pij(2,3,38)=0 exch2_pij(3,3,38)=0 exch2_pij(4,3,38)=1 exch2_oi(3,38)=0 exch2_oj(3,38)=0 exch2_neighbourId(4,38)=37 exch2_iLo(4,38)=0 exch2_iHi(4,38)=0 exch2_jLo(4,38)=0 exch2_jHi(4,38)=103 exch2_opposingSend(4,38)=3 exch2_pij(1,4,38)=1 exch2_pij(2,4,38)=0 exch2_pij(3,4,38)=0 exch2_pij(4,4,38)=1 exch2_oi(4,38)=0 exch2_oj(4,38)=0 RETURN END SUBROUTINE W2_E2SETUP_39 C Topology for tile 39 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(39)=34 exch2_tNy(39)=102 exch2_tBasex(39)=272 exch2_tBasey(39)=204 exch2_txGlobalo(39)=273 exch2_tyGlobalo(39)=205 exch2_isWedge(39)=0 exch2_isNedge(39)=0 exch2_isEedge(39)=0 exch2_isSedge(39)=0 exch2_myFace(39)=1 exch2_mydNx(39)=510 exch2_mydNy(39)=510 exch2_nNeighbours(39)=4 exch2_neighbourId(1,39)=54 exch2_iLo(1,39)=0 exch2_iHi(1,39)=35 exch2_jLo(1,39)=103 exch2_jHi(1,39)=103 exch2_opposingSend(1,39)=2 exch2_pij(1,1,39)=1 exch2_pij(2,1,39)=0 exch2_pij(3,1,39)=0 exch2_pij(4,1,39)=1 exch2_oi(1,39)=0 exch2_oj(1,39)=0 exch2_neighbourId(2,39)=24 exch2_iLo(2,39)=0 exch2_iHi(2,39)=35 exch2_jLo(2,39)=0 exch2_jHi(2,39)=0 exch2_opposingSend(2,39)=1 exch2_pij(1,2,39)=1 exch2_pij(2,2,39)=0 exch2_pij(3,2,39)=0 exch2_pij(4,2,39)=1 exch2_oi(2,39)=0 exch2_oj(2,39)=0 exch2_neighbourId(3,39)=40 exch2_iLo(3,39)=35 exch2_iHi(3,39)=35 exch2_jLo(3,39)=0 exch2_jHi(3,39)=103 exch2_opposingSend(3,39)=4 exch2_pij(1,3,39)=1 exch2_pij(2,3,39)=0 exch2_pij(3,3,39)=0 exch2_pij(4,3,39)=1 exch2_oi(3,39)=0 exch2_oj(3,39)=0 exch2_neighbourId(4,39)=38 exch2_iLo(4,39)=0 exch2_iHi(4,39)=0 exch2_jLo(4,39)=0 exch2_jHi(4,39)=103 exch2_opposingSend(4,39)=3 exch2_pij(1,4,39)=1 exch2_pij(2,4,39)=0 exch2_pij(3,4,39)=0 exch2_pij(4,4,39)=1 exch2_oi(4,39)=0 exch2_oj(4,39)=0 RETURN END SUBROUTINE W2_E2SETUP_40 C Topology for tile 40 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(40)=34 exch2_tNy(40)=102 exch2_tBasex(40)=306 exch2_tBasey(40)=204 exch2_txGlobalo(40)=307 exch2_tyGlobalo(40)=205 exch2_isWedge(40)=0 exch2_isNedge(40)=0 exch2_isEedge(40)=0 exch2_isSedge(40)=0 exch2_myFace(40)=1 exch2_mydNx(40)=510 exch2_mydNy(40)=510 exch2_nNeighbours(40)=4 exch2_neighbourId(1,40)=55 exch2_iLo(1,40)=0 exch2_iHi(1,40)=35 exch2_jLo(1,40)=103 exch2_jHi(1,40)=103 exch2_opposingSend(1,40)=2 exch2_pij(1,1,40)=1 exch2_pij(2,1,40)=0 exch2_pij(3,1,40)=0 exch2_pij(4,1,40)=1 exch2_oi(1,40)=0 exch2_oj(1,40)=0 exch2_neighbourId(2,40)=25 exch2_iLo(2,40)=0 exch2_iHi(2,40)=35 exch2_jLo(2,40)=0 exch2_jHi(2,40)=0 exch2_opposingSend(2,40)=1 exch2_pij(1,2,40)=1 exch2_pij(2,2,40)=0 exch2_pij(3,2,40)=0 exch2_pij(4,2,40)=1 exch2_oi(2,40)=0 exch2_oj(2,40)=0 exch2_neighbourId(3,40)=41 exch2_iLo(3,40)=35 exch2_iHi(3,40)=35 exch2_jLo(3,40)=0 exch2_jHi(3,40)=103 exch2_opposingSend(3,40)=4 exch2_pij(1,3,40)=1 exch2_pij(2,3,40)=0 exch2_pij(3,3,40)=0 exch2_pij(4,3,40)=1 exch2_oi(3,40)=0 exch2_oj(3,40)=0 exch2_neighbourId(4,40)=39 exch2_iLo(4,40)=0 exch2_iHi(4,40)=0 exch2_jLo(4,40)=0 exch2_jHi(4,40)=103 exch2_opposingSend(4,40)=3 exch2_pij(1,4,40)=1 exch2_pij(2,4,40)=0 exch2_pij(3,4,40)=0 exch2_pij(4,4,40)=1 exch2_oi(4,40)=0 exch2_oj(4,40)=0 RETURN END SUBROUTINE W2_E2SETUP_41 C Topology for tile 41 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(41)=34 exch2_tNy(41)=102 exch2_tBasex(41)=340 exch2_tBasey(41)=204 exch2_txGlobalo(41)=341 exch2_tyGlobalo(41)=205 exch2_isWedge(41)=0 exch2_isNedge(41)=0 exch2_isEedge(41)=0 exch2_isSedge(41)=0 exch2_myFace(41)=1 exch2_mydNx(41)=510 exch2_mydNy(41)=510 exch2_nNeighbours(41)=4 exch2_neighbourId(1,41)=56 exch2_iLo(1,41)=0 exch2_iHi(1,41)=35 exch2_jLo(1,41)=103 exch2_jHi(1,41)=103 exch2_opposingSend(1,41)=2 exch2_pij(1,1,41)=1 exch2_pij(2,1,41)=0 exch2_pij(3,1,41)=0 exch2_pij(4,1,41)=1 exch2_oi(1,41)=0 exch2_oj(1,41)=0 exch2_neighbourId(2,41)=26 exch2_iLo(2,41)=0 exch2_iHi(2,41)=35 exch2_jLo(2,41)=0 exch2_jHi(2,41)=0 exch2_opposingSend(2,41)=1 exch2_pij(1,2,41)=1 exch2_pij(2,2,41)=0 exch2_pij(3,2,41)=0 exch2_pij(4,2,41)=1 exch2_oi(2,41)=0 exch2_oj(2,41)=0 exch2_neighbourId(3,41)=42 exch2_iLo(3,41)=35 exch2_iHi(3,41)=35 exch2_jLo(3,41)=0 exch2_jHi(3,41)=103 exch2_opposingSend(3,41)=4 exch2_pij(1,3,41)=1 exch2_pij(2,3,41)=0 exch2_pij(3,3,41)=0 exch2_pij(4,3,41)=1 exch2_oi(3,41)=0 exch2_oj(3,41)=0 exch2_neighbourId(4,41)=40 exch2_iLo(4,41)=0 exch2_iHi(4,41)=0 exch2_jLo(4,41)=0 exch2_jHi(4,41)=103 exch2_opposingSend(4,41)=3 exch2_pij(1,4,41)=1 exch2_pij(2,4,41)=0 exch2_pij(3,4,41)=0 exch2_pij(4,4,41)=1 exch2_oi(4,41)=0 exch2_oj(4,41)=0 RETURN END SUBROUTINE W2_E2SETUP_42 C Topology for tile 42 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(42)=34 exch2_tNy(42)=102 exch2_tBasex(42)=374 exch2_tBasey(42)=204 exch2_txGlobalo(42)=375 exch2_tyGlobalo(42)=205 exch2_isWedge(42)=0 exch2_isNedge(42)=0 exch2_isEedge(42)=0 exch2_isSedge(42)=0 exch2_myFace(42)=1 exch2_mydNx(42)=510 exch2_mydNy(42)=510 exch2_nNeighbours(42)=4 exch2_neighbourId(1,42)=57 exch2_iLo(1,42)=0 exch2_iHi(1,42)=35 exch2_jLo(1,42)=103 exch2_jHi(1,42)=103 exch2_opposingSend(1,42)=2 exch2_pij(1,1,42)=1 exch2_pij(2,1,42)=0 exch2_pij(3,1,42)=0 exch2_pij(4,1,42)=1 exch2_oi(1,42)=0 exch2_oj(1,42)=0 exch2_neighbourId(2,42)=27 exch2_iLo(2,42)=0 exch2_iHi(2,42)=35 exch2_jLo(2,42)=0 exch2_jHi(2,42)=0 exch2_opposingSend(2,42)=1 exch2_pij(1,2,42)=1 exch2_pij(2,2,42)=0 exch2_pij(3,2,42)=0 exch2_pij(4,2,42)=1 exch2_oi(2,42)=0 exch2_oj(2,42)=0 exch2_neighbourId(3,42)=43 exch2_iLo(3,42)=35 exch2_iHi(3,42)=35 exch2_jLo(3,42)=0 exch2_jHi(3,42)=103 exch2_opposingSend(3,42)=4 exch2_pij(1,3,42)=1 exch2_pij(2,3,42)=0 exch2_pij(3,3,42)=0 exch2_pij(4,3,42)=1 exch2_oi(3,42)=0 exch2_oj(3,42)=0 exch2_neighbourId(4,42)=41 exch2_iLo(4,42)=0 exch2_iHi(4,42)=0 exch2_jLo(4,42)=0 exch2_jHi(4,42)=103 exch2_opposingSend(4,42)=3 exch2_pij(1,4,42)=1 exch2_pij(2,4,42)=0 exch2_pij(3,4,42)=0 exch2_pij(4,4,42)=1 exch2_oi(4,42)=0 exch2_oj(4,42)=0 RETURN END SUBROUTINE W2_E2SETUP_43 C Topology for tile 43 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(43)=34 exch2_tNy(43)=102 exch2_tBasex(43)=408 exch2_tBasey(43)=204 exch2_txGlobalo(43)=409 exch2_tyGlobalo(43)=205 exch2_isWedge(43)=0 exch2_isNedge(43)=0 exch2_isEedge(43)=0 exch2_isSedge(43)=0 exch2_myFace(43)=1 exch2_mydNx(43)=510 exch2_mydNy(43)=510 exch2_nNeighbours(43)=4 exch2_neighbourId(1,43)=58 exch2_iLo(1,43)=0 exch2_iHi(1,43)=35 exch2_jLo(1,43)=103 exch2_jHi(1,43)=103 exch2_opposingSend(1,43)=2 exch2_pij(1,1,43)=1 exch2_pij(2,1,43)=0 exch2_pij(3,1,43)=0 exch2_pij(4,1,43)=1 exch2_oi(1,43)=0 exch2_oj(1,43)=0 exch2_neighbourId(2,43)=28 exch2_iLo(2,43)=0 exch2_iHi(2,43)=35 exch2_jLo(2,43)=0 exch2_jHi(2,43)=0 exch2_opposingSend(2,43)=1 exch2_pij(1,2,43)=1 exch2_pij(2,2,43)=0 exch2_pij(3,2,43)=0 exch2_pij(4,2,43)=1 exch2_oi(2,43)=0 exch2_oj(2,43)=0 exch2_neighbourId(3,43)=44 exch2_iLo(3,43)=35 exch2_iHi(3,43)=35 exch2_jLo(3,43)=0 exch2_jHi(3,43)=103 exch2_opposingSend(3,43)=4 exch2_pij(1,3,43)=1 exch2_pij(2,3,43)=0 exch2_pij(3,3,43)=0 exch2_pij(4,3,43)=1 exch2_oi(3,43)=0 exch2_oj(3,43)=0 exch2_neighbourId(4,43)=42 exch2_iLo(4,43)=0 exch2_iHi(4,43)=0 exch2_jLo(4,43)=0 exch2_jHi(4,43)=103 exch2_opposingSend(4,43)=3 exch2_pij(1,4,43)=1 exch2_pij(2,4,43)=0 exch2_pij(3,4,43)=0 exch2_pij(4,4,43)=1 exch2_oi(4,43)=0 exch2_oj(4,43)=0 RETURN END SUBROUTINE W2_E2SETUP_44 C Topology for tile 44 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(44)=34 exch2_tNy(44)=102 exch2_tBasex(44)=442 exch2_tBasey(44)=204 exch2_txGlobalo(44)=443 exch2_tyGlobalo(44)=205 exch2_isWedge(44)=0 exch2_isNedge(44)=0 exch2_isEedge(44)=0 exch2_isSedge(44)=0 exch2_myFace(44)=1 exch2_mydNx(44)=510 exch2_mydNy(44)=510 exch2_nNeighbours(44)=4 exch2_neighbourId(1,44)=59 exch2_iLo(1,44)=0 exch2_iHi(1,44)=35 exch2_jLo(1,44)=103 exch2_jHi(1,44)=103 exch2_opposingSend(1,44)=2 exch2_pij(1,1,44)=1 exch2_pij(2,1,44)=0 exch2_pij(3,1,44)=0 exch2_pij(4,1,44)=1 exch2_oi(1,44)=0 exch2_oj(1,44)=0 exch2_neighbourId(2,44)=29 exch2_iLo(2,44)=0 exch2_iHi(2,44)=35 exch2_jLo(2,44)=0 exch2_jHi(2,44)=0 exch2_opposingSend(2,44)=1 exch2_pij(1,2,44)=1 exch2_pij(2,2,44)=0 exch2_pij(3,2,44)=0 exch2_pij(4,2,44)=1 exch2_oi(2,44)=0 exch2_oj(2,44)=0 exch2_neighbourId(3,44)=45 exch2_iLo(3,44)=35 exch2_iHi(3,44)=35 exch2_jLo(3,44)=0 exch2_jHi(3,44)=103 exch2_opposingSend(3,44)=4 exch2_pij(1,3,44)=1 exch2_pij(2,3,44)=0 exch2_pij(3,3,44)=0 exch2_pij(4,3,44)=1 exch2_oi(3,44)=0 exch2_oj(3,44)=0 exch2_neighbourId(4,44)=43 exch2_iLo(4,44)=0 exch2_iHi(4,44)=0 exch2_jLo(4,44)=0 exch2_jHi(4,44)=103 exch2_opposingSend(4,44)=3 exch2_pij(1,4,44)=1 exch2_pij(2,4,44)=0 exch2_pij(3,4,44)=0 exch2_pij(4,4,44)=1 exch2_oi(4,44)=0 exch2_oj(4,44)=0 RETURN END SUBROUTINE W2_E2SETUP_45 C Topology for tile 45 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(45)=34 exch2_tNy(45)=102 exch2_tBasex(45)=476 exch2_tBasey(45)=204 exch2_txGlobalo(45)=477 exch2_tyGlobalo(45)=205 exch2_isWedge(45)=0 exch2_isNedge(45)=0 exch2_isEedge(45)=1 exch2_isSedge(45)=0 exch2_myFace(45)=1 exch2_mydNx(45)=510 exch2_mydNy(45)=510 exch2_nNeighbours(45)=4 exch2_neighbourId(1,45)=60 exch2_iLo(1,45)=0 exch2_iHi(1,45)=35 exch2_jLo(1,45)=103 exch2_jHi(1,45)=103 exch2_opposingSend(1,45)=2 exch2_pij(1,1,45)=1 exch2_pij(2,1,45)=0 exch2_pij(3,1,45)=0 exch2_pij(4,1,45)=1 exch2_oi(1,45)=0 exch2_oj(1,45)=0 exch2_neighbourId(2,45)=30 exch2_iLo(2,45)=0 exch2_iHi(2,45)=35 exch2_jLo(2,45)=0 exch2_jHi(2,45)=0 exch2_opposingSend(2,45)=1 exch2_pij(1,2,45)=1 exch2_pij(2,2,45)=0 exch2_pij(3,2,45)=0 exch2_pij(4,2,45)=1 exch2_oi(2,45)=0 exch2_oj(2,45)=0 exch2_neighbourId(3,45)=106 exch2_iLo(3,45)=35 exch2_iHi(3,45)=35 exch2_jLo(3,45)=0 exch2_jHi(3,45)=103 exch2_opposingSend(3,45)=4 exch2_pij(1,3,45)=1 exch2_pij(2,3,45)=0 exch2_pij(3,3,45)=0 exch2_pij(4,3,45)=1 exch2_oi(3,45)=510 exch2_oj(3,45)=0 exch2_neighbourId(4,45)=44 exch2_iLo(4,45)=0 exch2_iHi(4,45)=0 exch2_jLo(4,45)=0 exch2_jHi(4,45)=103 exch2_opposingSend(4,45)=3 exch2_pij(1,4,45)=1 exch2_pij(2,4,45)=0 exch2_pij(3,4,45)=0 exch2_pij(4,4,45)=1 exch2_oi(4,45)=0 exch2_oj(4,45)=0 RETURN END SUBROUTINE W2_E2SETUP_46 C Topology for tile 46 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(46)=34 exch2_tNy(46)=102 exch2_tBasex(46)=0 exch2_tBasey(46)=306 exch2_txGlobalo(46)=1 exch2_tyGlobalo(46)=307 exch2_isWedge(46)=1 exch2_isNedge(46)=0 exch2_isEedge(46)=0 exch2_isSedge(46)=0 exch2_myFace(46)=1 exch2_mydNx(46)=510 exch2_mydNy(46)=510 exch2_nNeighbours(46)=6 exch2_neighbourId(1,46)=61 exch2_iLo(1,46)=0 exch2_iHi(1,46)=35 exch2_jLo(1,46)=103 exch2_jHi(1,46)=103 exch2_opposingSend(1,46)=2 exch2_pij(1,1,46)=1 exch2_pij(2,1,46)=0 exch2_pij(3,1,46)=0 exch2_pij(4,1,46)=1 exch2_oi(1,46)=0 exch2_oj(1,46)=0 exch2_neighbourId(2,46)=31 exch2_iLo(2,46)=0 exch2_iHi(2,46)=35 exch2_jLo(2,46)=0 exch2_jHi(2,46)=0 exch2_opposingSend(2,46)=1 exch2_pij(1,2,46)=1 exch2_pij(2,2,46)=0 exch2_pij(3,2,46)=0 exch2_pij(4,2,46)=1 exch2_oi(2,46)=0 exch2_oj(2,46)=0 exch2_neighbourId(3,46)=47 exch2_iLo(3,46)=35 exch2_iHi(3,46)=35 exch2_jLo(3,46)=0 exch2_jHi(3,46)=103 exch2_opposingSend(3,46)=4 exch2_pij(1,3,46)=1 exch2_pij(2,3,46)=0 exch2_pij(3,3,46)=0 exch2_pij(4,3,46)=1 exch2_oi(3,46)=0 exch2_oj(3,46)=0 exch2_neighbourId(4,46)=364 exch2_iLo(4,46)=0 exch2_iHi(4,46)=0 exch2_jLo(4,46)=68 exch2_jHi(4,46)=103 exch2_opposingSend(4,46)=1 exch2_pij(1,4,46)=0 exch2_pij(2,4,46)=1 exch2_pij(3,4,46)=-1 exch2_pij(4,4,46)=0 exch2_oi(4,46)=-510 exch2_oj(4,46)=511 exch2_neighbourId(5,46)=365 exch2_iLo(5,46)=0 exch2_iHi(5,46)=0 exch2_jLo(5,46)=34 exch2_jHi(5,46)=69 exch2_opposingSend(5,46)=1 exch2_pij(1,5,46)=0 exch2_pij(2,5,46)=1 exch2_pij(3,5,46)=-1 exch2_pij(4,5,46)=0 exch2_oi(5,46)=-510 exch2_oj(5,46)=511 exch2_neighbourId(6,46)=366 exch2_iLo(6,46)=0 exch2_iHi(6,46)=0 exch2_jLo(6,46)=0 exch2_jHi(6,46)=35 exch2_opposingSend(6,46)=1 exch2_pij(1,6,46)=0 exch2_pij(2,6,46)=1 exch2_pij(3,6,46)=-1 exch2_pij(4,6,46)=0 exch2_oi(6,46)=-510 exch2_oj(6,46)=511 RETURN END SUBROUTINE W2_E2SETUP_47 C Topology for tile 47 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(47)=34 exch2_tNy(47)=102 exch2_tBasex(47)=34 exch2_tBasey(47)=306 exch2_txGlobalo(47)=35 exch2_tyGlobalo(47)=307 exch2_isWedge(47)=0 exch2_isNedge(47)=0 exch2_isEedge(47)=0 exch2_isSedge(47)=0 exch2_myFace(47)=1 exch2_mydNx(47)=510 exch2_mydNy(47)=510 exch2_nNeighbours(47)=4 exch2_neighbourId(1,47)=62 exch2_iLo(1,47)=0 exch2_iHi(1,47)=35 exch2_jLo(1,47)=103 exch2_jHi(1,47)=103 exch2_opposingSend(1,47)=2 exch2_pij(1,1,47)=1 exch2_pij(2,1,47)=0 exch2_pij(3,1,47)=0 exch2_pij(4,1,47)=1 exch2_oi(1,47)=0 exch2_oj(1,47)=0 exch2_neighbourId(2,47)=32 exch2_iLo(2,47)=0 exch2_iHi(2,47)=35 exch2_jLo(2,47)=0 exch2_jHi(2,47)=0 exch2_opposingSend(2,47)=1 exch2_pij(1,2,47)=1 exch2_pij(2,2,47)=0 exch2_pij(3,2,47)=0 exch2_pij(4,2,47)=1 exch2_oi(2,47)=0 exch2_oj(2,47)=0 exch2_neighbourId(3,47)=48 exch2_iLo(3,47)=35 exch2_iHi(3,47)=35 exch2_jLo(3,47)=0 exch2_jHi(3,47)=103 exch2_opposingSend(3,47)=4 exch2_pij(1,3,47)=1 exch2_pij(2,3,47)=0 exch2_pij(3,3,47)=0 exch2_pij(4,3,47)=1 exch2_oi(3,47)=0 exch2_oj(3,47)=0 exch2_neighbourId(4,47)=46 exch2_iLo(4,47)=0 exch2_iHi(4,47)=0 exch2_jLo(4,47)=0 exch2_jHi(4,47)=103 exch2_opposingSend(4,47)=3 exch2_pij(1,4,47)=1 exch2_pij(2,4,47)=0 exch2_pij(3,4,47)=0 exch2_pij(4,4,47)=1 exch2_oi(4,47)=0 exch2_oj(4,47)=0 RETURN END SUBROUTINE W2_E2SETUP_48 C Topology for tile 48 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(48)=34 exch2_tNy(48)=102 exch2_tBasex(48)=68 exch2_tBasey(48)=306 exch2_txGlobalo(48)=69 exch2_tyGlobalo(48)=307 exch2_isWedge(48)=0 exch2_isNedge(48)=0 exch2_isEedge(48)=0 exch2_isSedge(48)=0 exch2_myFace(48)=1 exch2_mydNx(48)=510 exch2_mydNy(48)=510 exch2_nNeighbours(48)=4 exch2_neighbourId(1,48)=63 exch2_iLo(1,48)=0 exch2_iHi(1,48)=35 exch2_jLo(1,48)=103 exch2_jHi(1,48)=103 exch2_opposingSend(1,48)=2 exch2_pij(1,1,48)=1 exch2_pij(2,1,48)=0 exch2_pij(3,1,48)=0 exch2_pij(4,1,48)=1 exch2_oi(1,48)=0 exch2_oj(1,48)=0 exch2_neighbourId(2,48)=33 exch2_iLo(2,48)=0 exch2_iHi(2,48)=35 exch2_jLo(2,48)=0 exch2_jHi(2,48)=0 exch2_opposingSend(2,48)=1 exch2_pij(1,2,48)=1 exch2_pij(2,2,48)=0 exch2_pij(3,2,48)=0 exch2_pij(4,2,48)=1 exch2_oi(2,48)=0 exch2_oj(2,48)=0 exch2_neighbourId(3,48)=49 exch2_iLo(3,48)=35 exch2_iHi(3,48)=35 exch2_jLo(3,48)=0 exch2_jHi(3,48)=103 exch2_opposingSend(3,48)=4 exch2_pij(1,3,48)=1 exch2_pij(2,3,48)=0 exch2_pij(3,3,48)=0 exch2_pij(4,3,48)=1 exch2_oi(3,48)=0 exch2_oj(3,48)=0 exch2_neighbourId(4,48)=47 exch2_iLo(4,48)=0 exch2_iHi(4,48)=0 exch2_jLo(4,48)=0 exch2_jHi(4,48)=103 exch2_opposingSend(4,48)=3 exch2_pij(1,4,48)=1 exch2_pij(2,4,48)=0 exch2_pij(3,4,48)=0 exch2_pij(4,4,48)=1 exch2_oi(4,48)=0 exch2_oj(4,48)=0 RETURN END SUBROUTINE W2_E2SETUP_49 C Topology for tile 49 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(49)=34 exch2_tNy(49)=102 exch2_tBasex(49)=102 exch2_tBasey(49)=306 exch2_txGlobalo(49)=103 exch2_tyGlobalo(49)=307 exch2_isWedge(49)=0 exch2_isNedge(49)=0 exch2_isEedge(49)=0 exch2_isSedge(49)=0 exch2_myFace(49)=1 exch2_mydNx(49)=510 exch2_mydNy(49)=510 exch2_nNeighbours(49)=4 exch2_neighbourId(1,49)=64 exch2_iLo(1,49)=0 exch2_iHi(1,49)=35 exch2_jLo(1,49)=103 exch2_jHi(1,49)=103 exch2_opposingSend(1,49)=2 exch2_pij(1,1,49)=1 exch2_pij(2,1,49)=0 exch2_pij(3,1,49)=0 exch2_pij(4,1,49)=1 exch2_oi(1,49)=0 exch2_oj(1,49)=0 exch2_neighbourId(2,49)=34 exch2_iLo(2,49)=0 exch2_iHi(2,49)=35 exch2_jLo(2,49)=0 exch2_jHi(2,49)=0 exch2_opposingSend(2,49)=1 exch2_pij(1,2,49)=1 exch2_pij(2,2,49)=0 exch2_pij(3,2,49)=0 exch2_pij(4,2,49)=1 exch2_oi(2,49)=0 exch2_oj(2,49)=0 exch2_neighbourId(3,49)=50 exch2_iLo(3,49)=35 exch2_iHi(3,49)=35 exch2_jLo(3,49)=0 exch2_jHi(3,49)=103 exch2_opposingSend(3,49)=4 exch2_pij(1,3,49)=1 exch2_pij(2,3,49)=0 exch2_pij(3,3,49)=0 exch2_pij(4,3,49)=1 exch2_oi(3,49)=0 exch2_oj(3,49)=0 exch2_neighbourId(4,49)=48 exch2_iLo(4,49)=0 exch2_iHi(4,49)=0 exch2_jLo(4,49)=0 exch2_jHi(4,49)=103 exch2_opposingSend(4,49)=3 exch2_pij(1,4,49)=1 exch2_pij(2,4,49)=0 exch2_pij(3,4,49)=0 exch2_pij(4,4,49)=1 exch2_oi(4,49)=0 exch2_oj(4,49)=0 RETURN END SUBROUTINE W2_E2SETUP_50 C Topology for tile 50 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(50)=34 exch2_tNy(50)=102 exch2_tBasex(50)=136 exch2_tBasey(50)=306 exch2_txGlobalo(50)=137 exch2_tyGlobalo(50)=307 exch2_isWedge(50)=0 exch2_isNedge(50)=0 exch2_isEedge(50)=0 exch2_isSedge(50)=0 exch2_myFace(50)=1 exch2_mydNx(50)=510 exch2_mydNy(50)=510 exch2_nNeighbours(50)=4 exch2_neighbourId(1,50)=65 exch2_iLo(1,50)=0 exch2_iHi(1,50)=35 exch2_jLo(1,50)=103 exch2_jHi(1,50)=103 exch2_opposingSend(1,50)=2 exch2_pij(1,1,50)=1 exch2_pij(2,1,50)=0 exch2_pij(3,1,50)=0 exch2_pij(4,1,50)=1 exch2_oi(1,50)=0 exch2_oj(1,50)=0 exch2_neighbourId(2,50)=35 exch2_iLo(2,50)=0 exch2_iHi(2,50)=35 exch2_jLo(2,50)=0 exch2_jHi(2,50)=0 exch2_opposingSend(2,50)=1 exch2_pij(1,2,50)=1 exch2_pij(2,2,50)=0 exch2_pij(3,2,50)=0 exch2_pij(4,2,50)=1 exch2_oi(2,50)=0 exch2_oj(2,50)=0 exch2_neighbourId(3,50)=51 exch2_iLo(3,50)=35 exch2_iHi(3,50)=35 exch2_jLo(3,50)=0 exch2_jHi(3,50)=103 exch2_opposingSend(3,50)=4 exch2_pij(1,3,50)=1 exch2_pij(2,3,50)=0 exch2_pij(3,3,50)=0 exch2_pij(4,3,50)=1 exch2_oi(3,50)=0 exch2_oj(3,50)=0 exch2_neighbourId(4,50)=49 exch2_iLo(4,50)=0 exch2_iHi(4,50)=0 exch2_jLo(4,50)=0 exch2_jHi(4,50)=103 exch2_opposingSend(4,50)=3 exch2_pij(1,4,50)=1 exch2_pij(2,4,50)=0 exch2_pij(3,4,50)=0 exch2_pij(4,4,50)=1 exch2_oi(4,50)=0 exch2_oj(4,50)=0 RETURN END SUBROUTINE W2_E2SETUP_51 C Topology for tile 51 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(51)=34 exch2_tNy(51)=102 exch2_tBasex(51)=170 exch2_tBasey(51)=306 exch2_txGlobalo(51)=171 exch2_tyGlobalo(51)=307 exch2_isWedge(51)=0 exch2_isNedge(51)=0 exch2_isEedge(51)=0 exch2_isSedge(51)=0 exch2_myFace(51)=1 exch2_mydNx(51)=510 exch2_mydNy(51)=510 exch2_nNeighbours(51)=4 exch2_neighbourId(1,51)=66 exch2_iLo(1,51)=0 exch2_iHi(1,51)=35 exch2_jLo(1,51)=103 exch2_jHi(1,51)=103 exch2_opposingSend(1,51)=2 exch2_pij(1,1,51)=1 exch2_pij(2,1,51)=0 exch2_pij(3,1,51)=0 exch2_pij(4,1,51)=1 exch2_oi(1,51)=0 exch2_oj(1,51)=0 exch2_neighbourId(2,51)=36 exch2_iLo(2,51)=0 exch2_iHi(2,51)=35 exch2_jLo(2,51)=0 exch2_jHi(2,51)=0 exch2_opposingSend(2,51)=1 exch2_pij(1,2,51)=1 exch2_pij(2,2,51)=0 exch2_pij(3,2,51)=0 exch2_pij(4,2,51)=1 exch2_oi(2,51)=0 exch2_oj(2,51)=0 exch2_neighbourId(3,51)=52 exch2_iLo(3,51)=35 exch2_iHi(3,51)=35 exch2_jLo(3,51)=0 exch2_jHi(3,51)=103 exch2_opposingSend(3,51)=4 exch2_pij(1,3,51)=1 exch2_pij(2,3,51)=0 exch2_pij(3,3,51)=0 exch2_pij(4,3,51)=1 exch2_oi(3,51)=0 exch2_oj(3,51)=0 exch2_neighbourId(4,51)=50 exch2_iLo(4,51)=0 exch2_iHi(4,51)=0 exch2_jLo(4,51)=0 exch2_jHi(4,51)=103 exch2_opposingSend(4,51)=3 exch2_pij(1,4,51)=1 exch2_pij(2,4,51)=0 exch2_pij(3,4,51)=0 exch2_pij(4,4,51)=1 exch2_oi(4,51)=0 exch2_oj(4,51)=0 RETURN END SUBROUTINE W2_E2SETUP_52 C Topology for tile 52 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(52)=34 exch2_tNy(52)=102 exch2_tBasex(52)=204 exch2_tBasey(52)=306 exch2_txGlobalo(52)=205 exch2_tyGlobalo(52)=307 exch2_isWedge(52)=0 exch2_isNedge(52)=0 exch2_isEedge(52)=0 exch2_isSedge(52)=0 exch2_myFace(52)=1 exch2_mydNx(52)=510 exch2_mydNy(52)=510 exch2_nNeighbours(52)=4 exch2_neighbourId(1,52)=67 exch2_iLo(1,52)=0 exch2_iHi(1,52)=35 exch2_jLo(1,52)=103 exch2_jHi(1,52)=103 exch2_opposingSend(1,52)=2 exch2_pij(1,1,52)=1 exch2_pij(2,1,52)=0 exch2_pij(3,1,52)=0 exch2_pij(4,1,52)=1 exch2_oi(1,52)=0 exch2_oj(1,52)=0 exch2_neighbourId(2,52)=37 exch2_iLo(2,52)=0 exch2_iHi(2,52)=35 exch2_jLo(2,52)=0 exch2_jHi(2,52)=0 exch2_opposingSend(2,52)=1 exch2_pij(1,2,52)=1 exch2_pij(2,2,52)=0 exch2_pij(3,2,52)=0 exch2_pij(4,2,52)=1 exch2_oi(2,52)=0 exch2_oj(2,52)=0 exch2_neighbourId(3,52)=53 exch2_iLo(3,52)=35 exch2_iHi(3,52)=35 exch2_jLo(3,52)=0 exch2_jHi(3,52)=103 exch2_opposingSend(3,52)=4 exch2_pij(1,3,52)=1 exch2_pij(2,3,52)=0 exch2_pij(3,3,52)=0 exch2_pij(4,3,52)=1 exch2_oi(3,52)=0 exch2_oj(3,52)=0 exch2_neighbourId(4,52)=51 exch2_iLo(4,52)=0 exch2_iHi(4,52)=0 exch2_jLo(4,52)=0 exch2_jHi(4,52)=103 exch2_opposingSend(4,52)=3 exch2_pij(1,4,52)=1 exch2_pij(2,4,52)=0 exch2_pij(3,4,52)=0 exch2_pij(4,4,52)=1 exch2_oi(4,52)=0 exch2_oj(4,52)=0 RETURN END SUBROUTINE W2_E2SETUP_53 C Topology for tile 53 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(53)=34 exch2_tNy(53)=102 exch2_tBasex(53)=238 exch2_tBasey(53)=306 exch2_txGlobalo(53)=239 exch2_tyGlobalo(53)=307 exch2_isWedge(53)=0 exch2_isNedge(53)=0 exch2_isEedge(53)=0 exch2_isSedge(53)=0 exch2_myFace(53)=1 exch2_mydNx(53)=510 exch2_mydNy(53)=510 exch2_nNeighbours(53)=4 exch2_neighbourId(1,53)=68 exch2_iLo(1,53)=0 exch2_iHi(1,53)=35 exch2_jLo(1,53)=103 exch2_jHi(1,53)=103 exch2_opposingSend(1,53)=2 exch2_pij(1,1,53)=1 exch2_pij(2,1,53)=0 exch2_pij(3,1,53)=0 exch2_pij(4,1,53)=1 exch2_oi(1,53)=0 exch2_oj(1,53)=0 exch2_neighbourId(2,53)=38 exch2_iLo(2,53)=0 exch2_iHi(2,53)=35 exch2_jLo(2,53)=0 exch2_jHi(2,53)=0 exch2_opposingSend(2,53)=1 exch2_pij(1,2,53)=1 exch2_pij(2,2,53)=0 exch2_pij(3,2,53)=0 exch2_pij(4,2,53)=1 exch2_oi(2,53)=0 exch2_oj(2,53)=0 exch2_neighbourId(3,53)=54 exch2_iLo(3,53)=35 exch2_iHi(3,53)=35 exch2_jLo(3,53)=0 exch2_jHi(3,53)=103 exch2_opposingSend(3,53)=4 exch2_pij(1,3,53)=1 exch2_pij(2,3,53)=0 exch2_pij(3,3,53)=0 exch2_pij(4,3,53)=1 exch2_oi(3,53)=0 exch2_oj(3,53)=0 exch2_neighbourId(4,53)=52 exch2_iLo(4,53)=0 exch2_iHi(4,53)=0 exch2_jLo(4,53)=0 exch2_jHi(4,53)=103 exch2_opposingSend(4,53)=3 exch2_pij(1,4,53)=1 exch2_pij(2,4,53)=0 exch2_pij(3,4,53)=0 exch2_pij(4,4,53)=1 exch2_oi(4,53)=0 exch2_oj(4,53)=0 RETURN END SUBROUTINE W2_E2SETUP_54 C Topology for tile 54 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(54)=34 exch2_tNy(54)=102 exch2_tBasex(54)=272 exch2_tBasey(54)=306 exch2_txGlobalo(54)=273 exch2_tyGlobalo(54)=307 exch2_isWedge(54)=0 exch2_isNedge(54)=0 exch2_isEedge(54)=0 exch2_isSedge(54)=0 exch2_myFace(54)=1 exch2_mydNx(54)=510 exch2_mydNy(54)=510 exch2_nNeighbours(54)=4 exch2_neighbourId(1,54)=69 exch2_iLo(1,54)=0 exch2_iHi(1,54)=35 exch2_jLo(1,54)=103 exch2_jHi(1,54)=103 exch2_opposingSend(1,54)=2 exch2_pij(1,1,54)=1 exch2_pij(2,1,54)=0 exch2_pij(3,1,54)=0 exch2_pij(4,1,54)=1 exch2_oi(1,54)=0 exch2_oj(1,54)=0 exch2_neighbourId(2,54)=39 exch2_iLo(2,54)=0 exch2_iHi(2,54)=35 exch2_jLo(2,54)=0 exch2_jHi(2,54)=0 exch2_opposingSend(2,54)=1 exch2_pij(1,2,54)=1 exch2_pij(2,2,54)=0 exch2_pij(3,2,54)=0 exch2_pij(4,2,54)=1 exch2_oi(2,54)=0 exch2_oj(2,54)=0 exch2_neighbourId(3,54)=55 exch2_iLo(3,54)=35 exch2_iHi(3,54)=35 exch2_jLo(3,54)=0 exch2_jHi(3,54)=103 exch2_opposingSend(3,54)=4 exch2_pij(1,3,54)=1 exch2_pij(2,3,54)=0 exch2_pij(3,3,54)=0 exch2_pij(4,3,54)=1 exch2_oi(3,54)=0 exch2_oj(3,54)=0 exch2_neighbourId(4,54)=53 exch2_iLo(4,54)=0 exch2_iHi(4,54)=0 exch2_jLo(4,54)=0 exch2_jHi(4,54)=103 exch2_opposingSend(4,54)=3 exch2_pij(1,4,54)=1 exch2_pij(2,4,54)=0 exch2_pij(3,4,54)=0 exch2_pij(4,4,54)=1 exch2_oi(4,54)=0 exch2_oj(4,54)=0 RETURN END SUBROUTINE W2_E2SETUP_55 C Topology for tile 55 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(55)=34 exch2_tNy(55)=102 exch2_tBasex(55)=306 exch2_tBasey(55)=306 exch2_txGlobalo(55)=307 exch2_tyGlobalo(55)=307 exch2_isWedge(55)=0 exch2_isNedge(55)=0 exch2_isEedge(55)=0 exch2_isSedge(55)=0 exch2_myFace(55)=1 exch2_mydNx(55)=510 exch2_mydNy(55)=510 exch2_nNeighbours(55)=4 exch2_neighbourId(1,55)=70 exch2_iLo(1,55)=0 exch2_iHi(1,55)=35 exch2_jLo(1,55)=103 exch2_jHi(1,55)=103 exch2_opposingSend(1,55)=2 exch2_pij(1,1,55)=1 exch2_pij(2,1,55)=0 exch2_pij(3,1,55)=0 exch2_pij(4,1,55)=1 exch2_oi(1,55)=0 exch2_oj(1,55)=0 exch2_neighbourId(2,55)=40 exch2_iLo(2,55)=0 exch2_iHi(2,55)=35 exch2_jLo(2,55)=0 exch2_jHi(2,55)=0 exch2_opposingSend(2,55)=1 exch2_pij(1,2,55)=1 exch2_pij(2,2,55)=0 exch2_pij(3,2,55)=0 exch2_pij(4,2,55)=1 exch2_oi(2,55)=0 exch2_oj(2,55)=0 exch2_neighbourId(3,55)=56 exch2_iLo(3,55)=35 exch2_iHi(3,55)=35 exch2_jLo(3,55)=0 exch2_jHi(3,55)=103 exch2_opposingSend(3,55)=4 exch2_pij(1,3,55)=1 exch2_pij(2,3,55)=0 exch2_pij(3,3,55)=0 exch2_pij(4,3,55)=1 exch2_oi(3,55)=0 exch2_oj(3,55)=0 exch2_neighbourId(4,55)=54 exch2_iLo(4,55)=0 exch2_iHi(4,55)=0 exch2_jLo(4,55)=0 exch2_jHi(4,55)=103 exch2_opposingSend(4,55)=3 exch2_pij(1,4,55)=1 exch2_pij(2,4,55)=0 exch2_pij(3,4,55)=0 exch2_pij(4,4,55)=1 exch2_oi(4,55)=0 exch2_oj(4,55)=0 RETURN END SUBROUTINE W2_E2SETUP_56 C Topology for tile 56 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(56)=34 exch2_tNy(56)=102 exch2_tBasex(56)=340 exch2_tBasey(56)=306 exch2_txGlobalo(56)=341 exch2_tyGlobalo(56)=307 exch2_isWedge(56)=0 exch2_isNedge(56)=0 exch2_isEedge(56)=0 exch2_isSedge(56)=0 exch2_myFace(56)=1 exch2_mydNx(56)=510 exch2_mydNy(56)=510 exch2_nNeighbours(56)=4 exch2_neighbourId(1,56)=71 exch2_iLo(1,56)=0 exch2_iHi(1,56)=35 exch2_jLo(1,56)=103 exch2_jHi(1,56)=103 exch2_opposingSend(1,56)=2 exch2_pij(1,1,56)=1 exch2_pij(2,1,56)=0 exch2_pij(3,1,56)=0 exch2_pij(4,1,56)=1 exch2_oi(1,56)=0 exch2_oj(1,56)=0 exch2_neighbourId(2,56)=41 exch2_iLo(2,56)=0 exch2_iHi(2,56)=35 exch2_jLo(2,56)=0 exch2_jHi(2,56)=0 exch2_opposingSend(2,56)=1 exch2_pij(1,2,56)=1 exch2_pij(2,2,56)=0 exch2_pij(3,2,56)=0 exch2_pij(4,2,56)=1 exch2_oi(2,56)=0 exch2_oj(2,56)=0 exch2_neighbourId(3,56)=57 exch2_iLo(3,56)=35 exch2_iHi(3,56)=35 exch2_jLo(3,56)=0 exch2_jHi(3,56)=103 exch2_opposingSend(3,56)=4 exch2_pij(1,3,56)=1 exch2_pij(2,3,56)=0 exch2_pij(3,3,56)=0 exch2_pij(4,3,56)=1 exch2_oi(3,56)=0 exch2_oj(3,56)=0 exch2_neighbourId(4,56)=55 exch2_iLo(4,56)=0 exch2_iHi(4,56)=0 exch2_jLo(4,56)=0 exch2_jHi(4,56)=103 exch2_opposingSend(4,56)=3 exch2_pij(1,4,56)=1 exch2_pij(2,4,56)=0 exch2_pij(3,4,56)=0 exch2_pij(4,4,56)=1 exch2_oi(4,56)=0 exch2_oj(4,56)=0 RETURN END SUBROUTINE W2_E2SETUP_57 C Topology for tile 57 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(57)=34 exch2_tNy(57)=102 exch2_tBasex(57)=374 exch2_tBasey(57)=306 exch2_txGlobalo(57)=375 exch2_tyGlobalo(57)=307 exch2_isWedge(57)=0 exch2_isNedge(57)=0 exch2_isEedge(57)=0 exch2_isSedge(57)=0 exch2_myFace(57)=1 exch2_mydNx(57)=510 exch2_mydNy(57)=510 exch2_nNeighbours(57)=4 exch2_neighbourId(1,57)=72 exch2_iLo(1,57)=0 exch2_iHi(1,57)=35 exch2_jLo(1,57)=103 exch2_jHi(1,57)=103 exch2_opposingSend(1,57)=2 exch2_pij(1,1,57)=1 exch2_pij(2,1,57)=0 exch2_pij(3,1,57)=0 exch2_pij(4,1,57)=1 exch2_oi(1,57)=0 exch2_oj(1,57)=0 exch2_neighbourId(2,57)=42 exch2_iLo(2,57)=0 exch2_iHi(2,57)=35 exch2_jLo(2,57)=0 exch2_jHi(2,57)=0 exch2_opposingSend(2,57)=1 exch2_pij(1,2,57)=1 exch2_pij(2,2,57)=0 exch2_pij(3,2,57)=0 exch2_pij(4,2,57)=1 exch2_oi(2,57)=0 exch2_oj(2,57)=0 exch2_neighbourId(3,57)=58 exch2_iLo(3,57)=35 exch2_iHi(3,57)=35 exch2_jLo(3,57)=0 exch2_jHi(3,57)=103 exch2_opposingSend(3,57)=4 exch2_pij(1,3,57)=1 exch2_pij(2,3,57)=0 exch2_pij(3,3,57)=0 exch2_pij(4,3,57)=1 exch2_oi(3,57)=0 exch2_oj(3,57)=0 exch2_neighbourId(4,57)=56 exch2_iLo(4,57)=0 exch2_iHi(4,57)=0 exch2_jLo(4,57)=0 exch2_jHi(4,57)=103 exch2_opposingSend(4,57)=3 exch2_pij(1,4,57)=1 exch2_pij(2,4,57)=0 exch2_pij(3,4,57)=0 exch2_pij(4,4,57)=1 exch2_oi(4,57)=0 exch2_oj(4,57)=0 RETURN END SUBROUTINE W2_E2SETUP_58 C Topology for tile 58 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(58)=34 exch2_tNy(58)=102 exch2_tBasex(58)=408 exch2_tBasey(58)=306 exch2_txGlobalo(58)=409 exch2_tyGlobalo(58)=307 exch2_isWedge(58)=0 exch2_isNedge(58)=0 exch2_isEedge(58)=0 exch2_isSedge(58)=0 exch2_myFace(58)=1 exch2_mydNx(58)=510 exch2_mydNy(58)=510 exch2_nNeighbours(58)=4 exch2_neighbourId(1,58)=73 exch2_iLo(1,58)=0 exch2_iHi(1,58)=35 exch2_jLo(1,58)=103 exch2_jHi(1,58)=103 exch2_opposingSend(1,58)=2 exch2_pij(1,1,58)=1 exch2_pij(2,1,58)=0 exch2_pij(3,1,58)=0 exch2_pij(4,1,58)=1 exch2_oi(1,58)=0 exch2_oj(1,58)=0 exch2_neighbourId(2,58)=43 exch2_iLo(2,58)=0 exch2_iHi(2,58)=35 exch2_jLo(2,58)=0 exch2_jHi(2,58)=0 exch2_opposingSend(2,58)=1 exch2_pij(1,2,58)=1 exch2_pij(2,2,58)=0 exch2_pij(3,2,58)=0 exch2_pij(4,2,58)=1 exch2_oi(2,58)=0 exch2_oj(2,58)=0 exch2_neighbourId(3,58)=59 exch2_iLo(3,58)=35 exch2_iHi(3,58)=35 exch2_jLo(3,58)=0 exch2_jHi(3,58)=103 exch2_opposingSend(3,58)=4 exch2_pij(1,3,58)=1 exch2_pij(2,3,58)=0 exch2_pij(3,3,58)=0 exch2_pij(4,3,58)=1 exch2_oi(3,58)=0 exch2_oj(3,58)=0 exch2_neighbourId(4,58)=57 exch2_iLo(4,58)=0 exch2_iHi(4,58)=0 exch2_jLo(4,58)=0 exch2_jHi(4,58)=103 exch2_opposingSend(4,58)=3 exch2_pij(1,4,58)=1 exch2_pij(2,4,58)=0 exch2_pij(3,4,58)=0 exch2_pij(4,4,58)=1 exch2_oi(4,58)=0 exch2_oj(4,58)=0 RETURN END SUBROUTINE W2_E2SETUP_59 C Topology for tile 59 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(59)=34 exch2_tNy(59)=102 exch2_tBasex(59)=442 exch2_tBasey(59)=306 exch2_txGlobalo(59)=443 exch2_tyGlobalo(59)=307 exch2_isWedge(59)=0 exch2_isNedge(59)=0 exch2_isEedge(59)=0 exch2_isSedge(59)=0 exch2_myFace(59)=1 exch2_mydNx(59)=510 exch2_mydNy(59)=510 exch2_nNeighbours(59)=4 exch2_neighbourId(1,59)=74 exch2_iLo(1,59)=0 exch2_iHi(1,59)=35 exch2_jLo(1,59)=103 exch2_jHi(1,59)=103 exch2_opposingSend(1,59)=2 exch2_pij(1,1,59)=1 exch2_pij(2,1,59)=0 exch2_pij(3,1,59)=0 exch2_pij(4,1,59)=1 exch2_oi(1,59)=0 exch2_oj(1,59)=0 exch2_neighbourId(2,59)=44 exch2_iLo(2,59)=0 exch2_iHi(2,59)=35 exch2_jLo(2,59)=0 exch2_jHi(2,59)=0 exch2_opposingSend(2,59)=1 exch2_pij(1,2,59)=1 exch2_pij(2,2,59)=0 exch2_pij(3,2,59)=0 exch2_pij(4,2,59)=1 exch2_oi(2,59)=0 exch2_oj(2,59)=0 exch2_neighbourId(3,59)=60 exch2_iLo(3,59)=35 exch2_iHi(3,59)=35 exch2_jLo(3,59)=0 exch2_jHi(3,59)=103 exch2_opposingSend(3,59)=4 exch2_pij(1,3,59)=1 exch2_pij(2,3,59)=0 exch2_pij(3,3,59)=0 exch2_pij(4,3,59)=1 exch2_oi(3,59)=0 exch2_oj(3,59)=0 exch2_neighbourId(4,59)=58 exch2_iLo(4,59)=0 exch2_iHi(4,59)=0 exch2_jLo(4,59)=0 exch2_jHi(4,59)=103 exch2_opposingSend(4,59)=3 exch2_pij(1,4,59)=1 exch2_pij(2,4,59)=0 exch2_pij(3,4,59)=0 exch2_pij(4,4,59)=1 exch2_oi(4,59)=0 exch2_oj(4,59)=0 RETURN END SUBROUTINE W2_E2SETUP_60 C Topology for tile 60 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(60)=34 exch2_tNy(60)=102 exch2_tBasex(60)=476 exch2_tBasey(60)=306 exch2_txGlobalo(60)=477 exch2_tyGlobalo(60)=307 exch2_isWedge(60)=0 exch2_isNedge(60)=0 exch2_isEedge(60)=1 exch2_isSedge(60)=0 exch2_myFace(60)=1 exch2_mydNx(60)=510 exch2_mydNy(60)=510 exch2_nNeighbours(60)=4 exch2_neighbourId(1,60)=75 exch2_iLo(1,60)=0 exch2_iHi(1,60)=35 exch2_jLo(1,60)=103 exch2_jHi(1,60)=103 exch2_opposingSend(1,60)=2 exch2_pij(1,1,60)=1 exch2_pij(2,1,60)=0 exch2_pij(3,1,60)=0 exch2_pij(4,1,60)=1 exch2_oi(1,60)=0 exch2_oj(1,60)=0 exch2_neighbourId(2,60)=45 exch2_iLo(2,60)=0 exch2_iHi(2,60)=35 exch2_jLo(2,60)=0 exch2_jHi(2,60)=0 exch2_opposingSend(2,60)=1 exch2_pij(1,2,60)=1 exch2_pij(2,2,60)=0 exch2_pij(3,2,60)=0 exch2_pij(4,2,60)=1 exch2_oi(2,60)=0 exch2_oj(2,60)=0 exch2_neighbourId(3,60)=121 exch2_iLo(3,60)=35 exch2_iHi(3,60)=35 exch2_jLo(3,60)=0 exch2_jHi(3,60)=103 exch2_opposingSend(3,60)=4 exch2_pij(1,3,60)=1 exch2_pij(2,3,60)=0 exch2_pij(3,3,60)=0 exch2_pij(4,3,60)=1 exch2_oi(3,60)=510 exch2_oj(3,60)=0 exch2_neighbourId(4,60)=59 exch2_iLo(4,60)=0 exch2_iHi(4,60)=0 exch2_jLo(4,60)=0 exch2_jHi(4,60)=103 exch2_opposingSend(4,60)=3 exch2_pij(1,4,60)=1 exch2_pij(2,4,60)=0 exch2_pij(3,4,60)=0 exch2_pij(4,4,60)=1 exch2_oi(4,60)=0 exch2_oj(4,60)=0 RETURN END SUBROUTINE W2_E2SETUP_61 C Topology for tile 61 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(61)=34 exch2_tNy(61)=102 exch2_tBasex(61)=0 exch2_tBasey(61)=408 exch2_txGlobalo(61)=1 exch2_tyGlobalo(61)=409 exch2_isWedge(61)=1 exch2_isNedge(61)=1 exch2_isEedge(61)=0 exch2_isSedge(61)=0 exch2_myFace(61)=1 exch2_mydNx(61)=510 exch2_mydNy(61)=510 exch2_nNeighbours(61)=6 exch2_neighbourId(1,61)=211 exch2_iLo(1,61)=0 exch2_iHi(1,61)=35 exch2_jLo(1,61)=103 exch2_jHi(1,61)=103 exch2_opposingSend(1,61)=4 exch2_pij(1,1,61)=0 exch2_pij(2,1,61)=-1 exch2_pij(3,1,61)=1 exch2_pij(4,1,61)=0 exch2_oi(1,61)=511 exch2_oj(1,61)=510 exch2_neighbourId(2,61)=46 exch2_iLo(2,61)=0 exch2_iHi(2,61)=35 exch2_jLo(2,61)=0 exch2_jHi(2,61)=0 exch2_opposingSend(2,61)=1 exch2_pij(1,2,61)=1 exch2_pij(2,2,61)=0 exch2_pij(3,2,61)=0 exch2_pij(4,2,61)=1 exch2_oi(2,61)=0 exch2_oj(2,61)=0 exch2_neighbourId(3,61)=62 exch2_iLo(3,61)=35 exch2_iHi(3,61)=35 exch2_jLo(3,61)=0 exch2_jHi(3,61)=103 exch2_opposingSend(3,61)=4 exch2_pij(1,3,61)=1 exch2_pij(2,3,61)=0 exch2_pij(3,3,61)=0 exch2_pij(4,3,61)=1 exch2_oi(3,61)=0 exch2_oj(3,61)=0 exch2_neighbourId(4,61)=361 exch2_iLo(4,61)=0 exch2_iHi(4,61)=0 exch2_jLo(4,61)=68 exch2_jHi(4,61)=103 exch2_opposingSend(4,61)=1 exch2_pij(1,4,61)=0 exch2_pij(2,4,61)=1 exch2_pij(3,4,61)=-1 exch2_pij(4,4,61)=0 exch2_oi(4,61)=-510 exch2_oj(4,61)=511 exch2_neighbourId(5,61)=362 exch2_iLo(5,61)=0 exch2_iHi(5,61)=0 exch2_jLo(5,61)=34 exch2_jHi(5,61)=69 exch2_opposingSend(5,61)=1 exch2_pij(1,5,61)=0 exch2_pij(2,5,61)=1 exch2_pij(3,5,61)=-1 exch2_pij(4,5,61)=0 exch2_oi(5,61)=-510 exch2_oj(5,61)=511 exch2_neighbourId(6,61)=363 exch2_iLo(6,61)=0 exch2_iHi(6,61)=0 exch2_jLo(6,61)=0 exch2_jHi(6,61)=35 exch2_opposingSend(6,61)=1 exch2_pij(1,6,61)=0 exch2_pij(2,6,61)=1 exch2_pij(3,6,61)=-1 exch2_pij(4,6,61)=0 exch2_oi(6,61)=-510 exch2_oj(6,61)=511 RETURN END SUBROUTINE W2_E2SETUP_62 C Topology for tile 62 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(62)=34 exch2_tNy(62)=102 exch2_tBasex(62)=34 exch2_tBasey(62)=408 exch2_txGlobalo(62)=35 exch2_tyGlobalo(62)=409 exch2_isWedge(62)=0 exch2_isNedge(62)=1 exch2_isEedge(62)=0 exch2_isSedge(62)=0 exch2_myFace(62)=1 exch2_mydNx(62)=510 exch2_mydNy(62)=510 exch2_nNeighbours(62)=4 exch2_neighbourId(1,62)=211 exch2_iLo(1,62)=0 exch2_iHi(1,62)=35 exch2_jLo(1,62)=103 exch2_jHi(1,62)=103 exch2_opposingSend(1,62)=5 exch2_pij(1,1,62)=0 exch2_pij(2,1,62)=-1 exch2_pij(3,1,62)=1 exch2_pij(4,1,62)=0 exch2_oi(1,62)=511 exch2_oj(1,62)=510 exch2_neighbourId(2,62)=47 exch2_iLo(2,62)=0 exch2_iHi(2,62)=35 exch2_jLo(2,62)=0 exch2_jHi(2,62)=0 exch2_opposingSend(2,62)=1 exch2_pij(1,2,62)=1 exch2_pij(2,2,62)=0 exch2_pij(3,2,62)=0 exch2_pij(4,2,62)=1 exch2_oi(2,62)=0 exch2_oj(2,62)=0 exch2_neighbourId(3,62)=63 exch2_iLo(3,62)=35 exch2_iHi(3,62)=35 exch2_jLo(3,62)=0 exch2_jHi(3,62)=103 exch2_opposingSend(3,62)=4 exch2_pij(1,3,62)=1 exch2_pij(2,3,62)=0 exch2_pij(3,3,62)=0 exch2_pij(4,3,62)=1 exch2_oi(3,62)=0 exch2_oj(3,62)=0 exch2_neighbourId(4,62)=61 exch2_iLo(4,62)=0 exch2_iHi(4,62)=0 exch2_jLo(4,62)=0 exch2_jHi(4,62)=103 exch2_opposingSend(4,62)=3 exch2_pij(1,4,62)=1 exch2_pij(2,4,62)=0 exch2_pij(3,4,62)=0 exch2_pij(4,4,62)=1 exch2_oi(4,62)=0 exch2_oj(4,62)=0 RETURN END SUBROUTINE W2_E2SETUP_63 C Topology for tile 63 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(63)=34 exch2_tNy(63)=102 exch2_tBasex(63)=68 exch2_tBasey(63)=408 exch2_txGlobalo(63)=69 exch2_tyGlobalo(63)=409 exch2_isWedge(63)=0 exch2_isNedge(63)=1 exch2_isEedge(63)=0 exch2_isSedge(63)=0 exch2_myFace(63)=1 exch2_mydNx(63)=510 exch2_mydNy(63)=510 exch2_nNeighbours(63)=4 exch2_neighbourId(1,63)=211 exch2_iLo(1,63)=0 exch2_iHi(1,63)=35 exch2_jLo(1,63)=103 exch2_jHi(1,63)=103 exch2_opposingSend(1,63)=6 exch2_pij(1,1,63)=0 exch2_pij(2,1,63)=-1 exch2_pij(3,1,63)=1 exch2_pij(4,1,63)=0 exch2_oi(1,63)=511 exch2_oj(1,63)=510 exch2_neighbourId(2,63)=48 exch2_iLo(2,63)=0 exch2_iHi(2,63)=35 exch2_jLo(2,63)=0 exch2_jHi(2,63)=0 exch2_opposingSend(2,63)=1 exch2_pij(1,2,63)=1 exch2_pij(2,2,63)=0 exch2_pij(3,2,63)=0 exch2_pij(4,2,63)=1 exch2_oi(2,63)=0 exch2_oj(2,63)=0 exch2_neighbourId(3,63)=64 exch2_iLo(3,63)=35 exch2_iHi(3,63)=35 exch2_jLo(3,63)=0 exch2_jHi(3,63)=103 exch2_opposingSend(3,63)=4 exch2_pij(1,3,63)=1 exch2_pij(2,3,63)=0 exch2_pij(3,3,63)=0 exch2_pij(4,3,63)=1 exch2_oi(3,63)=0 exch2_oj(3,63)=0 exch2_neighbourId(4,63)=62 exch2_iLo(4,63)=0 exch2_iHi(4,63)=0 exch2_jLo(4,63)=0 exch2_jHi(4,63)=103 exch2_opposingSend(4,63)=3 exch2_pij(1,4,63)=1 exch2_pij(2,4,63)=0 exch2_pij(3,4,63)=0 exch2_pij(4,4,63)=1 exch2_oi(4,63)=0 exch2_oj(4,63)=0 RETURN END SUBROUTINE W2_E2SETUP_64 C Topology for tile 64 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(64)=34 exch2_tNy(64)=102 exch2_tBasex(64)=102 exch2_tBasey(64)=408 exch2_txGlobalo(64)=103 exch2_tyGlobalo(64)=409 exch2_isWedge(64)=0 exch2_isNedge(64)=1 exch2_isEedge(64)=0 exch2_isSedge(64)=0 exch2_myFace(64)=1 exch2_mydNx(64)=510 exch2_mydNy(64)=510 exch2_nNeighbours(64)=4 exch2_neighbourId(1,64)=196 exch2_iLo(1,64)=0 exch2_iHi(1,64)=35 exch2_jLo(1,64)=103 exch2_jHi(1,64)=103 exch2_opposingSend(1,64)=4 exch2_pij(1,1,64)=0 exch2_pij(2,1,64)=-1 exch2_pij(3,1,64)=1 exch2_pij(4,1,64)=0 exch2_oi(1,64)=511 exch2_oj(1,64)=510 exch2_neighbourId(2,64)=49 exch2_iLo(2,64)=0 exch2_iHi(2,64)=35 exch2_jLo(2,64)=0 exch2_jHi(2,64)=0 exch2_opposingSend(2,64)=1 exch2_pij(1,2,64)=1 exch2_pij(2,2,64)=0 exch2_pij(3,2,64)=0 exch2_pij(4,2,64)=1 exch2_oi(2,64)=0 exch2_oj(2,64)=0 exch2_neighbourId(3,64)=65 exch2_iLo(3,64)=35 exch2_iHi(3,64)=35 exch2_jLo(3,64)=0 exch2_jHi(3,64)=103 exch2_opposingSend(3,64)=4 exch2_pij(1,3,64)=1 exch2_pij(2,3,64)=0 exch2_pij(3,3,64)=0 exch2_pij(4,3,64)=1 exch2_oi(3,64)=0 exch2_oj(3,64)=0 exch2_neighbourId(4,64)=63 exch2_iLo(4,64)=0 exch2_iHi(4,64)=0 exch2_jLo(4,64)=0 exch2_jHi(4,64)=103 exch2_opposingSend(4,64)=3 exch2_pij(1,4,64)=1 exch2_pij(2,4,64)=0 exch2_pij(3,4,64)=0 exch2_pij(4,4,64)=1 exch2_oi(4,64)=0 exch2_oj(4,64)=0 RETURN END SUBROUTINE W2_E2SETUP_65 C Topology for tile 65 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(65)=34 exch2_tNy(65)=102 exch2_tBasex(65)=136 exch2_tBasey(65)=408 exch2_txGlobalo(65)=137 exch2_tyGlobalo(65)=409 exch2_isWedge(65)=0 exch2_isNedge(65)=1 exch2_isEedge(65)=0 exch2_isSedge(65)=0 exch2_myFace(65)=1 exch2_mydNx(65)=510 exch2_mydNy(65)=510 exch2_nNeighbours(65)=4 exch2_neighbourId(1,65)=196 exch2_iLo(1,65)=0 exch2_iHi(1,65)=35 exch2_jLo(1,65)=103 exch2_jHi(1,65)=103 exch2_opposingSend(1,65)=5 exch2_pij(1,1,65)=0 exch2_pij(2,1,65)=-1 exch2_pij(3,1,65)=1 exch2_pij(4,1,65)=0 exch2_oi(1,65)=511 exch2_oj(1,65)=510 exch2_neighbourId(2,65)=50 exch2_iLo(2,65)=0 exch2_iHi(2,65)=35 exch2_jLo(2,65)=0 exch2_jHi(2,65)=0 exch2_opposingSend(2,65)=1 exch2_pij(1,2,65)=1 exch2_pij(2,2,65)=0 exch2_pij(3,2,65)=0 exch2_pij(4,2,65)=1 exch2_oi(2,65)=0 exch2_oj(2,65)=0 exch2_neighbourId(3,65)=66 exch2_iLo(3,65)=35 exch2_iHi(3,65)=35 exch2_jLo(3,65)=0 exch2_jHi(3,65)=103 exch2_opposingSend(3,65)=4 exch2_pij(1,3,65)=1 exch2_pij(2,3,65)=0 exch2_pij(3,3,65)=0 exch2_pij(4,3,65)=1 exch2_oi(3,65)=0 exch2_oj(3,65)=0 exch2_neighbourId(4,65)=64 exch2_iLo(4,65)=0 exch2_iHi(4,65)=0 exch2_jLo(4,65)=0 exch2_jHi(4,65)=103 exch2_opposingSend(4,65)=3 exch2_pij(1,4,65)=1 exch2_pij(2,4,65)=0 exch2_pij(3,4,65)=0 exch2_pij(4,4,65)=1 exch2_oi(4,65)=0 exch2_oj(4,65)=0 RETURN END SUBROUTINE W2_E2SETUP_66 C Topology for tile 66 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(66)=34 exch2_tNy(66)=102 exch2_tBasex(66)=170 exch2_tBasey(66)=408 exch2_txGlobalo(66)=171 exch2_tyGlobalo(66)=409 exch2_isWedge(66)=0 exch2_isNedge(66)=1 exch2_isEedge(66)=0 exch2_isSedge(66)=0 exch2_myFace(66)=1 exch2_mydNx(66)=510 exch2_mydNy(66)=510 exch2_nNeighbours(66)=4 exch2_neighbourId(1,66)=196 exch2_iLo(1,66)=0 exch2_iHi(1,66)=35 exch2_jLo(1,66)=103 exch2_jHi(1,66)=103 exch2_opposingSend(1,66)=6 exch2_pij(1,1,66)=0 exch2_pij(2,1,66)=-1 exch2_pij(3,1,66)=1 exch2_pij(4,1,66)=0 exch2_oi(1,66)=511 exch2_oj(1,66)=510 exch2_neighbourId(2,66)=51 exch2_iLo(2,66)=0 exch2_iHi(2,66)=35 exch2_jLo(2,66)=0 exch2_jHi(2,66)=0 exch2_opposingSend(2,66)=1 exch2_pij(1,2,66)=1 exch2_pij(2,2,66)=0 exch2_pij(3,2,66)=0 exch2_pij(4,2,66)=1 exch2_oi(2,66)=0 exch2_oj(2,66)=0 exch2_neighbourId(3,66)=67 exch2_iLo(3,66)=35 exch2_iHi(3,66)=35 exch2_jLo(3,66)=0 exch2_jHi(3,66)=103 exch2_opposingSend(3,66)=4 exch2_pij(1,3,66)=1 exch2_pij(2,3,66)=0 exch2_pij(3,3,66)=0 exch2_pij(4,3,66)=1 exch2_oi(3,66)=0 exch2_oj(3,66)=0 exch2_neighbourId(4,66)=65 exch2_iLo(4,66)=0 exch2_iHi(4,66)=0 exch2_jLo(4,66)=0 exch2_jHi(4,66)=103 exch2_opposingSend(4,66)=3 exch2_pij(1,4,66)=1 exch2_pij(2,4,66)=0 exch2_pij(3,4,66)=0 exch2_pij(4,4,66)=1 exch2_oi(4,66)=0 exch2_oj(4,66)=0 RETURN END SUBROUTINE W2_E2SETUP_67 C Topology for tile 67 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(67)=34 exch2_tNy(67)=102 exch2_tBasex(67)=204 exch2_tBasey(67)=408 exch2_txGlobalo(67)=205 exch2_tyGlobalo(67)=409 exch2_isWedge(67)=0 exch2_isNedge(67)=1 exch2_isEedge(67)=0 exch2_isSedge(67)=0 exch2_myFace(67)=1 exch2_mydNx(67)=510 exch2_mydNy(67)=510 exch2_nNeighbours(67)=4 exch2_neighbourId(1,67)=181 exch2_iLo(1,67)=0 exch2_iHi(1,67)=35 exch2_jLo(1,67)=103 exch2_jHi(1,67)=103 exch2_opposingSend(1,67)=4 exch2_pij(1,1,67)=0 exch2_pij(2,1,67)=-1 exch2_pij(3,1,67)=1 exch2_pij(4,1,67)=0 exch2_oi(1,67)=511 exch2_oj(1,67)=510 exch2_neighbourId(2,67)=52 exch2_iLo(2,67)=0 exch2_iHi(2,67)=35 exch2_jLo(2,67)=0 exch2_jHi(2,67)=0 exch2_opposingSend(2,67)=1 exch2_pij(1,2,67)=1 exch2_pij(2,2,67)=0 exch2_pij(3,2,67)=0 exch2_pij(4,2,67)=1 exch2_oi(2,67)=0 exch2_oj(2,67)=0 exch2_neighbourId(3,67)=68 exch2_iLo(3,67)=35 exch2_iHi(3,67)=35 exch2_jLo(3,67)=0 exch2_jHi(3,67)=103 exch2_opposingSend(3,67)=4 exch2_pij(1,3,67)=1 exch2_pij(2,3,67)=0 exch2_pij(3,3,67)=0 exch2_pij(4,3,67)=1 exch2_oi(3,67)=0 exch2_oj(3,67)=0 exch2_neighbourId(4,67)=66 exch2_iLo(4,67)=0 exch2_iHi(4,67)=0 exch2_jLo(4,67)=0 exch2_jHi(4,67)=103 exch2_opposingSend(4,67)=3 exch2_pij(1,4,67)=1 exch2_pij(2,4,67)=0 exch2_pij(3,4,67)=0 exch2_pij(4,4,67)=1 exch2_oi(4,67)=0 exch2_oj(4,67)=0 RETURN END SUBROUTINE W2_E2SETUP_68 C Topology for tile 68 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(68)=34 exch2_tNy(68)=102 exch2_tBasex(68)=238 exch2_tBasey(68)=408 exch2_txGlobalo(68)=239 exch2_tyGlobalo(68)=409 exch2_isWedge(68)=0 exch2_isNedge(68)=1 exch2_isEedge(68)=0 exch2_isSedge(68)=0 exch2_myFace(68)=1 exch2_mydNx(68)=510 exch2_mydNy(68)=510 exch2_nNeighbours(68)=4 exch2_neighbourId(1,68)=181 exch2_iLo(1,68)=0 exch2_iHi(1,68)=35 exch2_jLo(1,68)=103 exch2_jHi(1,68)=103 exch2_opposingSend(1,68)=5 exch2_pij(1,1,68)=0 exch2_pij(2,1,68)=-1 exch2_pij(3,1,68)=1 exch2_pij(4,1,68)=0 exch2_oi(1,68)=511 exch2_oj(1,68)=510 exch2_neighbourId(2,68)=53 exch2_iLo(2,68)=0 exch2_iHi(2,68)=35 exch2_jLo(2,68)=0 exch2_jHi(2,68)=0 exch2_opposingSend(2,68)=1 exch2_pij(1,2,68)=1 exch2_pij(2,2,68)=0 exch2_pij(3,2,68)=0 exch2_pij(4,2,68)=1 exch2_oi(2,68)=0 exch2_oj(2,68)=0 exch2_neighbourId(3,68)=69 exch2_iLo(3,68)=35 exch2_iHi(3,68)=35 exch2_jLo(3,68)=0 exch2_jHi(3,68)=103 exch2_opposingSend(3,68)=4 exch2_pij(1,3,68)=1 exch2_pij(2,3,68)=0 exch2_pij(3,3,68)=0 exch2_pij(4,3,68)=1 exch2_oi(3,68)=0 exch2_oj(3,68)=0 exch2_neighbourId(4,68)=67 exch2_iLo(4,68)=0 exch2_iHi(4,68)=0 exch2_jLo(4,68)=0 exch2_jHi(4,68)=103 exch2_opposingSend(4,68)=3 exch2_pij(1,4,68)=1 exch2_pij(2,4,68)=0 exch2_pij(3,4,68)=0 exch2_pij(4,4,68)=1 exch2_oi(4,68)=0 exch2_oj(4,68)=0 RETURN END SUBROUTINE W2_E2SETUP_69 C Topology for tile 69 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(69)=34 exch2_tNy(69)=102 exch2_tBasex(69)=272 exch2_tBasey(69)=408 exch2_txGlobalo(69)=273 exch2_tyGlobalo(69)=409 exch2_isWedge(69)=0 exch2_isNedge(69)=1 exch2_isEedge(69)=0 exch2_isSedge(69)=0 exch2_myFace(69)=1 exch2_mydNx(69)=510 exch2_mydNy(69)=510 exch2_nNeighbours(69)=4 exch2_neighbourId(1,69)=181 exch2_iLo(1,69)=0 exch2_iHi(1,69)=35 exch2_jLo(1,69)=103 exch2_jHi(1,69)=103 exch2_opposingSend(1,69)=6 exch2_pij(1,1,69)=0 exch2_pij(2,1,69)=-1 exch2_pij(3,1,69)=1 exch2_pij(4,1,69)=0 exch2_oi(1,69)=511 exch2_oj(1,69)=510 exch2_neighbourId(2,69)=54 exch2_iLo(2,69)=0 exch2_iHi(2,69)=35 exch2_jLo(2,69)=0 exch2_jHi(2,69)=0 exch2_opposingSend(2,69)=1 exch2_pij(1,2,69)=1 exch2_pij(2,2,69)=0 exch2_pij(3,2,69)=0 exch2_pij(4,2,69)=1 exch2_oi(2,69)=0 exch2_oj(2,69)=0 exch2_neighbourId(3,69)=70 exch2_iLo(3,69)=35 exch2_iHi(3,69)=35 exch2_jLo(3,69)=0 exch2_jHi(3,69)=103 exch2_opposingSend(3,69)=4 exch2_pij(1,3,69)=1 exch2_pij(2,3,69)=0 exch2_pij(3,3,69)=0 exch2_pij(4,3,69)=1 exch2_oi(3,69)=0 exch2_oj(3,69)=0 exch2_neighbourId(4,69)=68 exch2_iLo(4,69)=0 exch2_iHi(4,69)=0 exch2_jLo(4,69)=0 exch2_jHi(4,69)=103 exch2_opposingSend(4,69)=3 exch2_pij(1,4,69)=1 exch2_pij(2,4,69)=0 exch2_pij(3,4,69)=0 exch2_pij(4,4,69)=1 exch2_oi(4,69)=0 exch2_oj(4,69)=0 RETURN END SUBROUTINE W2_E2SETUP_70 C Topology for tile 70 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(70)=34 exch2_tNy(70)=102 exch2_tBasex(70)=306 exch2_tBasey(70)=408 exch2_txGlobalo(70)=307 exch2_tyGlobalo(70)=409 exch2_isWedge(70)=0 exch2_isNedge(70)=1 exch2_isEedge(70)=0 exch2_isSedge(70)=0 exch2_myFace(70)=1 exch2_mydNx(70)=510 exch2_mydNy(70)=510 exch2_nNeighbours(70)=4 exch2_neighbourId(1,70)=166 exch2_iLo(1,70)=0 exch2_iHi(1,70)=35 exch2_jLo(1,70)=103 exch2_jHi(1,70)=103 exch2_opposingSend(1,70)=4 exch2_pij(1,1,70)=0 exch2_pij(2,1,70)=-1 exch2_pij(3,1,70)=1 exch2_pij(4,1,70)=0 exch2_oi(1,70)=511 exch2_oj(1,70)=510 exch2_neighbourId(2,70)=55 exch2_iLo(2,70)=0 exch2_iHi(2,70)=35 exch2_jLo(2,70)=0 exch2_jHi(2,70)=0 exch2_opposingSend(2,70)=1 exch2_pij(1,2,70)=1 exch2_pij(2,2,70)=0 exch2_pij(3,2,70)=0 exch2_pij(4,2,70)=1 exch2_oi(2,70)=0 exch2_oj(2,70)=0 exch2_neighbourId(3,70)=71 exch2_iLo(3,70)=35 exch2_iHi(3,70)=35 exch2_jLo(3,70)=0 exch2_jHi(3,70)=103 exch2_opposingSend(3,70)=4 exch2_pij(1,3,70)=1 exch2_pij(2,3,70)=0 exch2_pij(3,3,70)=0 exch2_pij(4,3,70)=1 exch2_oi(3,70)=0 exch2_oj(3,70)=0 exch2_neighbourId(4,70)=69 exch2_iLo(4,70)=0 exch2_iHi(4,70)=0 exch2_jLo(4,70)=0 exch2_jHi(4,70)=103 exch2_opposingSend(4,70)=3 exch2_pij(1,4,70)=1 exch2_pij(2,4,70)=0 exch2_pij(3,4,70)=0 exch2_pij(4,4,70)=1 exch2_oi(4,70)=0 exch2_oj(4,70)=0 RETURN END SUBROUTINE W2_E2SETUP_71 C Topology for tile 71 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(71)=34 exch2_tNy(71)=102 exch2_tBasex(71)=340 exch2_tBasey(71)=408 exch2_txGlobalo(71)=341 exch2_tyGlobalo(71)=409 exch2_isWedge(71)=0 exch2_isNedge(71)=1 exch2_isEedge(71)=0 exch2_isSedge(71)=0 exch2_myFace(71)=1 exch2_mydNx(71)=510 exch2_mydNy(71)=510 exch2_nNeighbours(71)=4 exch2_neighbourId(1,71)=166 exch2_iLo(1,71)=0 exch2_iHi(1,71)=35 exch2_jLo(1,71)=103 exch2_jHi(1,71)=103 exch2_opposingSend(1,71)=5 exch2_pij(1,1,71)=0 exch2_pij(2,1,71)=-1 exch2_pij(3,1,71)=1 exch2_pij(4,1,71)=0 exch2_oi(1,71)=511 exch2_oj(1,71)=510 exch2_neighbourId(2,71)=56 exch2_iLo(2,71)=0 exch2_iHi(2,71)=35 exch2_jLo(2,71)=0 exch2_jHi(2,71)=0 exch2_opposingSend(2,71)=1 exch2_pij(1,2,71)=1 exch2_pij(2,2,71)=0 exch2_pij(3,2,71)=0 exch2_pij(4,2,71)=1 exch2_oi(2,71)=0 exch2_oj(2,71)=0 exch2_neighbourId(3,71)=72 exch2_iLo(3,71)=35 exch2_iHi(3,71)=35 exch2_jLo(3,71)=0 exch2_jHi(3,71)=103 exch2_opposingSend(3,71)=4 exch2_pij(1,3,71)=1 exch2_pij(2,3,71)=0 exch2_pij(3,3,71)=0 exch2_pij(4,3,71)=1 exch2_oi(3,71)=0 exch2_oj(3,71)=0 exch2_neighbourId(4,71)=70 exch2_iLo(4,71)=0 exch2_iHi(4,71)=0 exch2_jLo(4,71)=0 exch2_jHi(4,71)=103 exch2_opposingSend(4,71)=3 exch2_pij(1,4,71)=1 exch2_pij(2,4,71)=0 exch2_pij(3,4,71)=0 exch2_pij(4,4,71)=1 exch2_oi(4,71)=0 exch2_oj(4,71)=0 RETURN END SUBROUTINE W2_E2SETUP_72 C Topology for tile 72 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(72)=34 exch2_tNy(72)=102 exch2_tBasex(72)=374 exch2_tBasey(72)=408 exch2_txGlobalo(72)=375 exch2_tyGlobalo(72)=409 exch2_isWedge(72)=0 exch2_isNedge(72)=1 exch2_isEedge(72)=0 exch2_isSedge(72)=0 exch2_myFace(72)=1 exch2_mydNx(72)=510 exch2_mydNy(72)=510 exch2_nNeighbours(72)=4 exch2_neighbourId(1,72)=166 exch2_iLo(1,72)=0 exch2_iHi(1,72)=35 exch2_jLo(1,72)=103 exch2_jHi(1,72)=103 exch2_opposingSend(1,72)=6 exch2_pij(1,1,72)=0 exch2_pij(2,1,72)=-1 exch2_pij(3,1,72)=1 exch2_pij(4,1,72)=0 exch2_oi(1,72)=511 exch2_oj(1,72)=510 exch2_neighbourId(2,72)=57 exch2_iLo(2,72)=0 exch2_iHi(2,72)=35 exch2_jLo(2,72)=0 exch2_jHi(2,72)=0 exch2_opposingSend(2,72)=1 exch2_pij(1,2,72)=1 exch2_pij(2,2,72)=0 exch2_pij(3,2,72)=0 exch2_pij(4,2,72)=1 exch2_oi(2,72)=0 exch2_oj(2,72)=0 exch2_neighbourId(3,72)=73 exch2_iLo(3,72)=35 exch2_iHi(3,72)=35 exch2_jLo(3,72)=0 exch2_jHi(3,72)=103 exch2_opposingSend(3,72)=4 exch2_pij(1,3,72)=1 exch2_pij(2,3,72)=0 exch2_pij(3,3,72)=0 exch2_pij(4,3,72)=1 exch2_oi(3,72)=0 exch2_oj(3,72)=0 exch2_neighbourId(4,72)=71 exch2_iLo(4,72)=0 exch2_iHi(4,72)=0 exch2_jLo(4,72)=0 exch2_jHi(4,72)=103 exch2_opposingSend(4,72)=3 exch2_pij(1,4,72)=1 exch2_pij(2,4,72)=0 exch2_pij(3,4,72)=0 exch2_pij(4,4,72)=1 exch2_oi(4,72)=0 exch2_oj(4,72)=0 RETURN END SUBROUTINE W2_E2SETUP_73 C Topology for tile 73 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(73)=34 exch2_tNy(73)=102 exch2_tBasex(73)=408 exch2_tBasey(73)=408 exch2_txGlobalo(73)=409 exch2_tyGlobalo(73)=409 exch2_isWedge(73)=0 exch2_isNedge(73)=1 exch2_isEedge(73)=0 exch2_isSedge(73)=0 exch2_myFace(73)=1 exch2_mydNx(73)=510 exch2_mydNy(73)=510 exch2_nNeighbours(73)=4 exch2_neighbourId(1,73)=151 exch2_iLo(1,73)=0 exch2_iHi(1,73)=35 exch2_jLo(1,73)=103 exch2_jHi(1,73)=103 exch2_opposingSend(1,73)=4 exch2_pij(1,1,73)=0 exch2_pij(2,1,73)=-1 exch2_pij(3,1,73)=1 exch2_pij(4,1,73)=0 exch2_oi(1,73)=511 exch2_oj(1,73)=510 exch2_neighbourId(2,73)=58 exch2_iLo(2,73)=0 exch2_iHi(2,73)=35 exch2_jLo(2,73)=0 exch2_jHi(2,73)=0 exch2_opposingSend(2,73)=1 exch2_pij(1,2,73)=1 exch2_pij(2,2,73)=0 exch2_pij(3,2,73)=0 exch2_pij(4,2,73)=1 exch2_oi(2,73)=0 exch2_oj(2,73)=0 exch2_neighbourId(3,73)=74 exch2_iLo(3,73)=35 exch2_iHi(3,73)=35 exch2_jLo(3,73)=0 exch2_jHi(3,73)=103 exch2_opposingSend(3,73)=4 exch2_pij(1,3,73)=1 exch2_pij(2,3,73)=0 exch2_pij(3,3,73)=0 exch2_pij(4,3,73)=1 exch2_oi(3,73)=0 exch2_oj(3,73)=0 exch2_neighbourId(4,73)=72 exch2_iLo(4,73)=0 exch2_iHi(4,73)=0 exch2_jLo(4,73)=0 exch2_jHi(4,73)=103 exch2_opposingSend(4,73)=3 exch2_pij(1,4,73)=1 exch2_pij(2,4,73)=0 exch2_pij(3,4,73)=0 exch2_pij(4,4,73)=1 exch2_oi(4,73)=0 exch2_oj(4,73)=0 RETURN END SUBROUTINE W2_E2SETUP_74 C Topology for tile 74 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(74)=34 exch2_tNy(74)=102 exch2_tBasex(74)=442 exch2_tBasey(74)=408 exch2_txGlobalo(74)=443 exch2_tyGlobalo(74)=409 exch2_isWedge(74)=0 exch2_isNedge(74)=1 exch2_isEedge(74)=0 exch2_isSedge(74)=0 exch2_myFace(74)=1 exch2_mydNx(74)=510 exch2_mydNy(74)=510 exch2_nNeighbours(74)=4 exch2_neighbourId(1,74)=151 exch2_iLo(1,74)=0 exch2_iHi(1,74)=35 exch2_jLo(1,74)=103 exch2_jHi(1,74)=103 exch2_opposingSend(1,74)=5 exch2_pij(1,1,74)=0 exch2_pij(2,1,74)=-1 exch2_pij(3,1,74)=1 exch2_pij(4,1,74)=0 exch2_oi(1,74)=511 exch2_oj(1,74)=510 exch2_neighbourId(2,74)=59 exch2_iLo(2,74)=0 exch2_iHi(2,74)=35 exch2_jLo(2,74)=0 exch2_jHi(2,74)=0 exch2_opposingSend(2,74)=1 exch2_pij(1,2,74)=1 exch2_pij(2,2,74)=0 exch2_pij(3,2,74)=0 exch2_pij(4,2,74)=1 exch2_oi(2,74)=0 exch2_oj(2,74)=0 exch2_neighbourId(3,74)=75 exch2_iLo(3,74)=35 exch2_iHi(3,74)=35 exch2_jLo(3,74)=0 exch2_jHi(3,74)=103 exch2_opposingSend(3,74)=4 exch2_pij(1,3,74)=1 exch2_pij(2,3,74)=0 exch2_pij(3,3,74)=0 exch2_pij(4,3,74)=1 exch2_oi(3,74)=0 exch2_oj(3,74)=0 exch2_neighbourId(4,74)=73 exch2_iLo(4,74)=0 exch2_iHi(4,74)=0 exch2_jLo(4,74)=0 exch2_jHi(4,74)=103 exch2_opposingSend(4,74)=3 exch2_pij(1,4,74)=1 exch2_pij(2,4,74)=0 exch2_pij(3,4,74)=0 exch2_pij(4,4,74)=1 exch2_oi(4,74)=0 exch2_oj(4,74)=0 RETURN END SUBROUTINE W2_E2SETUP_75 C Topology for tile 75 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(75)=34 exch2_tNy(75)=102 exch2_tBasex(75)=476 exch2_tBasey(75)=408 exch2_txGlobalo(75)=477 exch2_tyGlobalo(75)=409 exch2_isWedge(75)=0 exch2_isNedge(75)=1 exch2_isEedge(75)=1 exch2_isSedge(75)=0 exch2_myFace(75)=1 exch2_mydNx(75)=510 exch2_mydNy(75)=510 exch2_nNeighbours(75)=4 exch2_neighbourId(1,75)=151 exch2_iLo(1,75)=0 exch2_iHi(1,75)=35 exch2_jLo(1,75)=103 exch2_jHi(1,75)=103 exch2_opposingSend(1,75)=6 exch2_pij(1,1,75)=0 exch2_pij(2,1,75)=-1 exch2_pij(3,1,75)=1 exch2_pij(4,1,75)=0 exch2_oi(1,75)=511 exch2_oj(1,75)=510 exch2_neighbourId(2,75)=60 exch2_iLo(2,75)=0 exch2_iHi(2,75)=35 exch2_jLo(2,75)=0 exch2_jHi(2,75)=0 exch2_opposingSend(2,75)=1 exch2_pij(1,2,75)=1 exch2_pij(2,2,75)=0 exch2_pij(3,2,75)=0 exch2_pij(4,2,75)=1 exch2_oi(2,75)=0 exch2_oj(2,75)=0 exch2_neighbourId(3,75)=136 exch2_iLo(3,75)=35 exch2_iHi(3,75)=35 exch2_jLo(3,75)=0 exch2_jHi(3,75)=103 exch2_opposingSend(3,75)=4 exch2_pij(1,3,75)=1 exch2_pij(2,3,75)=0 exch2_pij(3,3,75)=0 exch2_pij(4,3,75)=1 exch2_oi(3,75)=510 exch2_oj(3,75)=0 exch2_neighbourId(4,75)=74 exch2_iLo(4,75)=0 exch2_iHi(4,75)=0 exch2_jLo(4,75)=0 exch2_jHi(4,75)=103 exch2_opposingSend(4,75)=3 exch2_pij(1,4,75)=1 exch2_pij(2,4,75)=0 exch2_pij(3,4,75)=0 exch2_pij(4,4,75)=1 exch2_oi(4,75)=0 exch2_oj(4,75)=0 RETURN END SUBROUTINE W2_E2SETUP_76 C Topology for tile 76 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(76)=34 exch2_tNy(76)=102 exch2_tBasex(76)=0 exch2_tBasey(76)=0 exch2_txGlobalo(76)=511 exch2_tyGlobalo(76)=1 exch2_isWedge(76)=1 exch2_isNedge(76)=0 exch2_isEedge(76)=0 exch2_isSedge(76)=1 exch2_myFace(76)=2 exch2_mydNx(76)=510 exch2_mydNy(76)=510 exch2_nNeighbours(76)=4 exch2_neighbourId(1,76)=91 exch2_iLo(1,76)=0 exch2_iHi(1,76)=35 exch2_jLo(1,76)=103 exch2_jHi(1,76)=103 exch2_opposingSend(1,76)=2 exch2_pij(1,1,76)=1 exch2_pij(2,1,76)=0 exch2_pij(3,1,76)=0 exch2_pij(4,1,76)=1 exch2_oi(1,76)=0 exch2_oj(1,76)=0 exch2_neighbourId(2,76)=450 exch2_iLo(2,76)=0 exch2_iHi(2,76)=35 exch2_jLo(2,76)=0 exch2_jHi(2,76)=0 exch2_opposingSend(2,76)=3 exch2_pij(1,2,76)=0 exch2_pij(2,2,76)=-1 exch2_pij(3,2,76)=1 exch2_pij(4,2,76)=0 exch2_oi(2,76)=511 exch2_oj(2,76)=-510 exch2_neighbourId(3,76)=77 exch2_iLo(3,76)=35 exch2_iHi(3,76)=35 exch2_jLo(3,76)=0 exch2_jHi(3,76)=103 exch2_opposingSend(3,76)=4 exch2_pij(1,3,76)=1 exch2_pij(2,3,76)=0 exch2_pij(3,3,76)=0 exch2_pij(4,3,76)=1 exch2_oi(3,76)=0 exch2_oj(3,76)=0 exch2_neighbourId(4,76)=15 exch2_iLo(4,76)=0 exch2_iHi(4,76)=0 exch2_jLo(4,76)=0 exch2_jHi(4,76)=103 exch2_opposingSend(4,76)=3 exch2_pij(1,4,76)=1 exch2_pij(2,4,76)=0 exch2_pij(3,4,76)=0 exch2_pij(4,4,76)=1 exch2_oi(4,76)=-510 exch2_oj(4,76)=0 RETURN END SUBROUTINE W2_E2SETUP_77 C Topology for tile 77 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(77)=34 exch2_tNy(77)=102 exch2_tBasex(77)=34 exch2_tBasey(77)=0 exch2_txGlobalo(77)=545 exch2_tyGlobalo(77)=1 exch2_isWedge(77)=0 exch2_isNedge(77)=0 exch2_isEedge(77)=0 exch2_isSedge(77)=1 exch2_myFace(77)=2 exch2_mydNx(77)=510 exch2_mydNy(77)=510 exch2_nNeighbours(77)=4 exch2_neighbourId(1,77)=92 exch2_iLo(1,77)=0 exch2_iHi(1,77)=35 exch2_jLo(1,77)=103 exch2_jHi(1,77)=103 exch2_opposingSend(1,77)=2 exch2_pij(1,1,77)=1 exch2_pij(2,1,77)=0 exch2_pij(3,1,77)=0 exch2_pij(4,1,77)=1 exch2_oi(1,77)=0 exch2_oj(1,77)=0 exch2_neighbourId(2,77)=450 exch2_iLo(2,77)=0 exch2_iHi(2,77)=35 exch2_jLo(2,77)=0 exch2_jHi(2,77)=0 exch2_opposingSend(2,77)=4 exch2_pij(1,2,77)=0 exch2_pij(2,2,77)=-1 exch2_pij(3,2,77)=1 exch2_pij(4,2,77)=0 exch2_oi(2,77)=511 exch2_oj(2,77)=-510 exch2_neighbourId(3,77)=78 exch2_iLo(3,77)=35 exch2_iHi(3,77)=35 exch2_jLo(3,77)=0 exch2_jHi(3,77)=103 exch2_opposingSend(3,77)=4 exch2_pij(1,3,77)=1 exch2_pij(2,3,77)=0 exch2_pij(3,3,77)=0 exch2_pij(4,3,77)=1 exch2_oi(3,77)=0 exch2_oj(3,77)=0 exch2_neighbourId(4,77)=76 exch2_iLo(4,77)=0 exch2_iHi(4,77)=0 exch2_jLo(4,77)=0 exch2_jHi(4,77)=103 exch2_opposingSend(4,77)=3 exch2_pij(1,4,77)=1 exch2_pij(2,4,77)=0 exch2_pij(3,4,77)=0 exch2_pij(4,4,77)=1 exch2_oi(4,77)=0 exch2_oj(4,77)=0 RETURN END SUBROUTINE W2_E2SETUP_78 C Topology for tile 78 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(78)=34 exch2_tNy(78)=102 exch2_tBasex(78)=68 exch2_tBasey(78)=0 exch2_txGlobalo(78)=579 exch2_tyGlobalo(78)=1 exch2_isWedge(78)=0 exch2_isNedge(78)=0 exch2_isEedge(78)=0 exch2_isSedge(78)=1 exch2_myFace(78)=2 exch2_mydNx(78)=510 exch2_mydNy(78)=510 exch2_nNeighbours(78)=4 exch2_neighbourId(1,78)=93 exch2_iLo(1,78)=0 exch2_iHi(1,78)=35 exch2_jLo(1,78)=103 exch2_jHi(1,78)=103 exch2_opposingSend(1,78)=2 exch2_pij(1,1,78)=1 exch2_pij(2,1,78)=0 exch2_pij(3,1,78)=0 exch2_pij(4,1,78)=1 exch2_oi(1,78)=0 exch2_oj(1,78)=0 exch2_neighbourId(2,78)=450 exch2_iLo(2,78)=0 exch2_iHi(2,78)=35 exch2_jLo(2,78)=0 exch2_jHi(2,78)=0 exch2_opposingSend(2,78)=5 exch2_pij(1,2,78)=0 exch2_pij(2,2,78)=-1 exch2_pij(3,2,78)=1 exch2_pij(4,2,78)=0 exch2_oi(2,78)=511 exch2_oj(2,78)=-510 exch2_neighbourId(3,78)=79 exch2_iLo(3,78)=35 exch2_iHi(3,78)=35 exch2_jLo(3,78)=0 exch2_jHi(3,78)=103 exch2_opposingSend(3,78)=4 exch2_pij(1,3,78)=1 exch2_pij(2,3,78)=0 exch2_pij(3,3,78)=0 exch2_pij(4,3,78)=1 exch2_oi(3,78)=0 exch2_oj(3,78)=0 exch2_neighbourId(4,78)=77 exch2_iLo(4,78)=0 exch2_iHi(4,78)=0 exch2_jLo(4,78)=0 exch2_jHi(4,78)=103 exch2_opposingSend(4,78)=3 exch2_pij(1,4,78)=1 exch2_pij(2,4,78)=0 exch2_pij(3,4,78)=0 exch2_pij(4,4,78)=1 exch2_oi(4,78)=0 exch2_oj(4,78)=0 RETURN END SUBROUTINE W2_E2SETUP_79 C Topology for tile 79 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(79)=34 exch2_tNy(79)=102 exch2_tBasex(79)=102 exch2_tBasey(79)=0 exch2_txGlobalo(79)=613 exch2_tyGlobalo(79)=1 exch2_isWedge(79)=0 exch2_isNedge(79)=0 exch2_isEedge(79)=0 exch2_isSedge(79)=1 exch2_myFace(79)=2 exch2_mydNx(79)=510 exch2_mydNy(79)=510 exch2_nNeighbours(79)=4 exch2_neighbourId(1,79)=94 exch2_iLo(1,79)=0 exch2_iHi(1,79)=35 exch2_jLo(1,79)=103 exch2_jHi(1,79)=103 exch2_opposingSend(1,79)=2 exch2_pij(1,1,79)=1 exch2_pij(2,1,79)=0 exch2_pij(3,1,79)=0 exch2_pij(4,1,79)=1 exch2_oi(1,79)=0 exch2_oj(1,79)=0 exch2_neighbourId(2,79)=435 exch2_iLo(2,79)=0 exch2_iHi(2,79)=35 exch2_jLo(2,79)=0 exch2_jHi(2,79)=0 exch2_opposingSend(2,79)=3 exch2_pij(1,2,79)=0 exch2_pij(2,2,79)=-1 exch2_pij(3,2,79)=1 exch2_pij(4,2,79)=0 exch2_oi(2,79)=511 exch2_oj(2,79)=-510 exch2_neighbourId(3,79)=80 exch2_iLo(3,79)=35 exch2_iHi(3,79)=35 exch2_jLo(3,79)=0 exch2_jHi(3,79)=103 exch2_opposingSend(3,79)=4 exch2_pij(1,3,79)=1 exch2_pij(2,3,79)=0 exch2_pij(3,3,79)=0 exch2_pij(4,3,79)=1 exch2_oi(3,79)=0 exch2_oj(3,79)=0 exch2_neighbourId(4,79)=78 exch2_iLo(4,79)=0 exch2_iHi(4,79)=0 exch2_jLo(4,79)=0 exch2_jHi(4,79)=103 exch2_opposingSend(4,79)=3 exch2_pij(1,4,79)=1 exch2_pij(2,4,79)=0 exch2_pij(3,4,79)=0 exch2_pij(4,4,79)=1 exch2_oi(4,79)=0 exch2_oj(4,79)=0 RETURN END SUBROUTINE W2_E2SETUP_80 C Topology for tile 80 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(80)=34 exch2_tNy(80)=102 exch2_tBasex(80)=136 exch2_tBasey(80)=0 exch2_txGlobalo(80)=647 exch2_tyGlobalo(80)=1 exch2_isWedge(80)=0 exch2_isNedge(80)=0 exch2_isEedge(80)=0 exch2_isSedge(80)=1 exch2_myFace(80)=2 exch2_mydNx(80)=510 exch2_mydNy(80)=510 exch2_nNeighbours(80)=4 exch2_neighbourId(1,80)=95 exch2_iLo(1,80)=0 exch2_iHi(1,80)=35 exch2_jLo(1,80)=103 exch2_jHi(1,80)=103 exch2_opposingSend(1,80)=2 exch2_pij(1,1,80)=1 exch2_pij(2,1,80)=0 exch2_pij(3,1,80)=0 exch2_pij(4,1,80)=1 exch2_oi(1,80)=0 exch2_oj(1,80)=0 exch2_neighbourId(2,80)=435 exch2_iLo(2,80)=0 exch2_iHi(2,80)=35 exch2_jLo(2,80)=0 exch2_jHi(2,80)=0 exch2_opposingSend(2,80)=4 exch2_pij(1,2,80)=0 exch2_pij(2,2,80)=-1 exch2_pij(3,2,80)=1 exch2_pij(4,2,80)=0 exch2_oi(2,80)=511 exch2_oj(2,80)=-510 exch2_neighbourId(3,80)=81 exch2_iLo(3,80)=35 exch2_iHi(3,80)=35 exch2_jLo(3,80)=0 exch2_jHi(3,80)=103 exch2_opposingSend(3,80)=4 exch2_pij(1,3,80)=1 exch2_pij(2,3,80)=0 exch2_pij(3,3,80)=0 exch2_pij(4,3,80)=1 exch2_oi(3,80)=0 exch2_oj(3,80)=0 exch2_neighbourId(4,80)=79 exch2_iLo(4,80)=0 exch2_iHi(4,80)=0 exch2_jLo(4,80)=0 exch2_jHi(4,80)=103 exch2_opposingSend(4,80)=3 exch2_pij(1,4,80)=1 exch2_pij(2,4,80)=0 exch2_pij(3,4,80)=0 exch2_pij(4,4,80)=1 exch2_oi(4,80)=0 exch2_oj(4,80)=0 RETURN END SUBROUTINE W2_E2SETUP_81 C Topology for tile 81 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(81)=34 exch2_tNy(81)=102 exch2_tBasex(81)=170 exch2_tBasey(81)=0 exch2_txGlobalo(81)=681 exch2_tyGlobalo(81)=1 exch2_isWedge(81)=0 exch2_isNedge(81)=0 exch2_isEedge(81)=0 exch2_isSedge(81)=1 exch2_myFace(81)=2 exch2_mydNx(81)=510 exch2_mydNy(81)=510 exch2_nNeighbours(81)=4 exch2_neighbourId(1,81)=96 exch2_iLo(1,81)=0 exch2_iHi(1,81)=35 exch2_jLo(1,81)=103 exch2_jHi(1,81)=103 exch2_opposingSend(1,81)=2 exch2_pij(1,1,81)=1 exch2_pij(2,1,81)=0 exch2_pij(3,1,81)=0 exch2_pij(4,1,81)=1 exch2_oi(1,81)=0 exch2_oj(1,81)=0 exch2_neighbourId(2,81)=435 exch2_iLo(2,81)=0 exch2_iHi(2,81)=35 exch2_jLo(2,81)=0 exch2_jHi(2,81)=0 exch2_opposingSend(2,81)=5 exch2_pij(1,2,81)=0 exch2_pij(2,2,81)=-1 exch2_pij(3,2,81)=1 exch2_pij(4,2,81)=0 exch2_oi(2,81)=511 exch2_oj(2,81)=-510 exch2_neighbourId(3,81)=82 exch2_iLo(3,81)=35 exch2_iHi(3,81)=35 exch2_jLo(3,81)=0 exch2_jHi(3,81)=103 exch2_opposingSend(3,81)=4 exch2_pij(1,3,81)=1 exch2_pij(2,3,81)=0 exch2_pij(3,3,81)=0 exch2_pij(4,3,81)=1 exch2_oi(3,81)=0 exch2_oj(3,81)=0 exch2_neighbourId(4,81)=80 exch2_iLo(4,81)=0 exch2_iHi(4,81)=0 exch2_jLo(4,81)=0 exch2_jHi(4,81)=103 exch2_opposingSend(4,81)=3 exch2_pij(1,4,81)=1 exch2_pij(2,4,81)=0 exch2_pij(3,4,81)=0 exch2_pij(4,4,81)=1 exch2_oi(4,81)=0 exch2_oj(4,81)=0 RETURN END SUBROUTINE W2_E2SETUP_82 C Topology for tile 82 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(82)=34 exch2_tNy(82)=102 exch2_tBasex(82)=204 exch2_tBasey(82)=0 exch2_txGlobalo(82)=715 exch2_tyGlobalo(82)=1 exch2_isWedge(82)=0 exch2_isNedge(82)=0 exch2_isEedge(82)=0 exch2_isSedge(82)=1 exch2_myFace(82)=2 exch2_mydNx(82)=510 exch2_mydNy(82)=510 exch2_nNeighbours(82)=4 exch2_neighbourId(1,82)=97 exch2_iLo(1,82)=0 exch2_iHi(1,82)=35 exch2_jLo(1,82)=103 exch2_jHi(1,82)=103 exch2_opposingSend(1,82)=2 exch2_pij(1,1,82)=1 exch2_pij(2,1,82)=0 exch2_pij(3,1,82)=0 exch2_pij(4,1,82)=1 exch2_oi(1,82)=0 exch2_oj(1,82)=0 exch2_neighbourId(2,82)=420 exch2_iLo(2,82)=0 exch2_iHi(2,82)=35 exch2_jLo(2,82)=0 exch2_jHi(2,82)=0 exch2_opposingSend(2,82)=3 exch2_pij(1,2,82)=0 exch2_pij(2,2,82)=-1 exch2_pij(3,2,82)=1 exch2_pij(4,2,82)=0 exch2_oi(2,82)=511 exch2_oj(2,82)=-510 exch2_neighbourId(3,82)=83 exch2_iLo(3,82)=35 exch2_iHi(3,82)=35 exch2_jLo(3,82)=0 exch2_jHi(3,82)=103 exch2_opposingSend(3,82)=4 exch2_pij(1,3,82)=1 exch2_pij(2,3,82)=0 exch2_pij(3,3,82)=0 exch2_pij(4,3,82)=1 exch2_oi(3,82)=0 exch2_oj(3,82)=0 exch2_neighbourId(4,82)=81 exch2_iLo(4,82)=0 exch2_iHi(4,82)=0 exch2_jLo(4,82)=0 exch2_jHi(4,82)=103 exch2_opposingSend(4,82)=3 exch2_pij(1,4,82)=1 exch2_pij(2,4,82)=0 exch2_pij(3,4,82)=0 exch2_pij(4,4,82)=1 exch2_oi(4,82)=0 exch2_oj(4,82)=0 RETURN END SUBROUTINE W2_E2SETUP_83 C Topology for tile 83 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(83)=34 exch2_tNy(83)=102 exch2_tBasex(83)=238 exch2_tBasey(83)=0 exch2_txGlobalo(83)=749 exch2_tyGlobalo(83)=1 exch2_isWedge(83)=0 exch2_isNedge(83)=0 exch2_isEedge(83)=0 exch2_isSedge(83)=1 exch2_myFace(83)=2 exch2_mydNx(83)=510 exch2_mydNy(83)=510 exch2_nNeighbours(83)=4 exch2_neighbourId(1,83)=98 exch2_iLo(1,83)=0 exch2_iHi(1,83)=35 exch2_jLo(1,83)=103 exch2_jHi(1,83)=103 exch2_opposingSend(1,83)=2 exch2_pij(1,1,83)=1 exch2_pij(2,1,83)=0 exch2_pij(3,1,83)=0 exch2_pij(4,1,83)=1 exch2_oi(1,83)=0 exch2_oj(1,83)=0 exch2_neighbourId(2,83)=420 exch2_iLo(2,83)=0 exch2_iHi(2,83)=35 exch2_jLo(2,83)=0 exch2_jHi(2,83)=0 exch2_opposingSend(2,83)=4 exch2_pij(1,2,83)=0 exch2_pij(2,2,83)=-1 exch2_pij(3,2,83)=1 exch2_pij(4,2,83)=0 exch2_oi(2,83)=511 exch2_oj(2,83)=-510 exch2_neighbourId(3,83)=84 exch2_iLo(3,83)=35 exch2_iHi(3,83)=35 exch2_jLo(3,83)=0 exch2_jHi(3,83)=103 exch2_opposingSend(3,83)=4 exch2_pij(1,3,83)=1 exch2_pij(2,3,83)=0 exch2_pij(3,3,83)=0 exch2_pij(4,3,83)=1 exch2_oi(3,83)=0 exch2_oj(3,83)=0 exch2_neighbourId(4,83)=82 exch2_iLo(4,83)=0 exch2_iHi(4,83)=0 exch2_jLo(4,83)=0 exch2_jHi(4,83)=103 exch2_opposingSend(4,83)=3 exch2_pij(1,4,83)=1 exch2_pij(2,4,83)=0 exch2_pij(3,4,83)=0 exch2_pij(4,4,83)=1 exch2_oi(4,83)=0 exch2_oj(4,83)=0 RETURN END SUBROUTINE W2_E2SETUP_84 C Topology for tile 84 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(84)=34 exch2_tNy(84)=102 exch2_tBasex(84)=272 exch2_tBasey(84)=0 exch2_txGlobalo(84)=783 exch2_tyGlobalo(84)=1 exch2_isWedge(84)=0 exch2_isNedge(84)=0 exch2_isEedge(84)=0 exch2_isSedge(84)=1 exch2_myFace(84)=2 exch2_mydNx(84)=510 exch2_mydNy(84)=510 exch2_nNeighbours(84)=4 exch2_neighbourId(1,84)=99 exch2_iLo(1,84)=0 exch2_iHi(1,84)=35 exch2_jLo(1,84)=103 exch2_jHi(1,84)=103 exch2_opposingSend(1,84)=2 exch2_pij(1,1,84)=1 exch2_pij(2,1,84)=0 exch2_pij(3,1,84)=0 exch2_pij(4,1,84)=1 exch2_oi(1,84)=0 exch2_oj(1,84)=0 exch2_neighbourId(2,84)=420 exch2_iLo(2,84)=0 exch2_iHi(2,84)=35 exch2_jLo(2,84)=0 exch2_jHi(2,84)=0 exch2_opposingSend(2,84)=5 exch2_pij(1,2,84)=0 exch2_pij(2,2,84)=-1 exch2_pij(3,2,84)=1 exch2_pij(4,2,84)=0 exch2_oi(2,84)=511 exch2_oj(2,84)=-510 exch2_neighbourId(3,84)=85 exch2_iLo(3,84)=35 exch2_iHi(3,84)=35 exch2_jLo(3,84)=0 exch2_jHi(3,84)=103 exch2_opposingSend(3,84)=4 exch2_pij(1,3,84)=1 exch2_pij(2,3,84)=0 exch2_pij(3,3,84)=0 exch2_pij(4,3,84)=1 exch2_oi(3,84)=0 exch2_oj(3,84)=0 exch2_neighbourId(4,84)=83 exch2_iLo(4,84)=0 exch2_iHi(4,84)=0 exch2_jLo(4,84)=0 exch2_jHi(4,84)=103 exch2_opposingSend(4,84)=3 exch2_pij(1,4,84)=1 exch2_pij(2,4,84)=0 exch2_pij(3,4,84)=0 exch2_pij(4,4,84)=1 exch2_oi(4,84)=0 exch2_oj(4,84)=0 RETURN END SUBROUTINE W2_E2SETUP_85 C Topology for tile 85 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(85)=34 exch2_tNy(85)=102 exch2_tBasex(85)=306 exch2_tBasey(85)=0 exch2_txGlobalo(85)=817 exch2_tyGlobalo(85)=1 exch2_isWedge(85)=0 exch2_isNedge(85)=0 exch2_isEedge(85)=0 exch2_isSedge(85)=1 exch2_myFace(85)=2 exch2_mydNx(85)=510 exch2_mydNy(85)=510 exch2_nNeighbours(85)=4 exch2_neighbourId(1,85)=100 exch2_iLo(1,85)=0 exch2_iHi(1,85)=35 exch2_jLo(1,85)=103 exch2_jHi(1,85)=103 exch2_opposingSend(1,85)=2 exch2_pij(1,1,85)=1 exch2_pij(2,1,85)=0 exch2_pij(3,1,85)=0 exch2_pij(4,1,85)=1 exch2_oi(1,85)=0 exch2_oj(1,85)=0 exch2_neighbourId(2,85)=405 exch2_iLo(2,85)=0 exch2_iHi(2,85)=35 exch2_jLo(2,85)=0 exch2_jHi(2,85)=0 exch2_opposingSend(2,85)=3 exch2_pij(1,2,85)=0 exch2_pij(2,2,85)=-1 exch2_pij(3,2,85)=1 exch2_pij(4,2,85)=0 exch2_oi(2,85)=511 exch2_oj(2,85)=-510 exch2_neighbourId(3,85)=86 exch2_iLo(3,85)=35 exch2_iHi(3,85)=35 exch2_jLo(3,85)=0 exch2_jHi(3,85)=103 exch2_opposingSend(3,85)=4 exch2_pij(1,3,85)=1 exch2_pij(2,3,85)=0 exch2_pij(3,3,85)=0 exch2_pij(4,3,85)=1 exch2_oi(3,85)=0 exch2_oj(3,85)=0 exch2_neighbourId(4,85)=84 exch2_iLo(4,85)=0 exch2_iHi(4,85)=0 exch2_jLo(4,85)=0 exch2_jHi(4,85)=103 exch2_opposingSend(4,85)=3 exch2_pij(1,4,85)=1 exch2_pij(2,4,85)=0 exch2_pij(3,4,85)=0 exch2_pij(4,4,85)=1 exch2_oi(4,85)=0 exch2_oj(4,85)=0 RETURN END SUBROUTINE W2_E2SETUP_86 C Topology for tile 86 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(86)=34 exch2_tNy(86)=102 exch2_tBasex(86)=340 exch2_tBasey(86)=0 exch2_txGlobalo(86)=851 exch2_tyGlobalo(86)=1 exch2_isWedge(86)=0 exch2_isNedge(86)=0 exch2_isEedge(86)=0 exch2_isSedge(86)=1 exch2_myFace(86)=2 exch2_mydNx(86)=510 exch2_mydNy(86)=510 exch2_nNeighbours(86)=4 exch2_neighbourId(1,86)=101 exch2_iLo(1,86)=0 exch2_iHi(1,86)=35 exch2_jLo(1,86)=103 exch2_jHi(1,86)=103 exch2_opposingSend(1,86)=2 exch2_pij(1,1,86)=1 exch2_pij(2,1,86)=0 exch2_pij(3,1,86)=0 exch2_pij(4,1,86)=1 exch2_oi(1,86)=0 exch2_oj(1,86)=0 exch2_neighbourId(2,86)=405 exch2_iLo(2,86)=0 exch2_iHi(2,86)=35 exch2_jLo(2,86)=0 exch2_jHi(2,86)=0 exch2_opposingSend(2,86)=4 exch2_pij(1,2,86)=0 exch2_pij(2,2,86)=-1 exch2_pij(3,2,86)=1 exch2_pij(4,2,86)=0 exch2_oi(2,86)=511 exch2_oj(2,86)=-510 exch2_neighbourId(3,86)=87 exch2_iLo(3,86)=35 exch2_iHi(3,86)=35 exch2_jLo(3,86)=0 exch2_jHi(3,86)=103 exch2_opposingSend(3,86)=4 exch2_pij(1,3,86)=1 exch2_pij(2,3,86)=0 exch2_pij(3,3,86)=0 exch2_pij(4,3,86)=1 exch2_oi(3,86)=0 exch2_oj(3,86)=0 exch2_neighbourId(4,86)=85 exch2_iLo(4,86)=0 exch2_iHi(4,86)=0 exch2_jLo(4,86)=0 exch2_jHi(4,86)=103 exch2_opposingSend(4,86)=3 exch2_pij(1,4,86)=1 exch2_pij(2,4,86)=0 exch2_pij(3,4,86)=0 exch2_pij(4,4,86)=1 exch2_oi(4,86)=0 exch2_oj(4,86)=0 RETURN END SUBROUTINE W2_E2SETUP_87 C Topology for tile 87 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(87)=34 exch2_tNy(87)=102 exch2_tBasex(87)=374 exch2_tBasey(87)=0 exch2_txGlobalo(87)=885 exch2_tyGlobalo(87)=1 exch2_isWedge(87)=0 exch2_isNedge(87)=0 exch2_isEedge(87)=0 exch2_isSedge(87)=1 exch2_myFace(87)=2 exch2_mydNx(87)=510 exch2_mydNy(87)=510 exch2_nNeighbours(87)=4 exch2_neighbourId(1,87)=102 exch2_iLo(1,87)=0 exch2_iHi(1,87)=35 exch2_jLo(1,87)=103 exch2_jHi(1,87)=103 exch2_opposingSend(1,87)=2 exch2_pij(1,1,87)=1 exch2_pij(2,1,87)=0 exch2_pij(3,1,87)=0 exch2_pij(4,1,87)=1 exch2_oi(1,87)=0 exch2_oj(1,87)=0 exch2_neighbourId(2,87)=405 exch2_iLo(2,87)=0 exch2_iHi(2,87)=35 exch2_jLo(2,87)=0 exch2_jHi(2,87)=0 exch2_opposingSend(2,87)=5 exch2_pij(1,2,87)=0 exch2_pij(2,2,87)=-1 exch2_pij(3,2,87)=1 exch2_pij(4,2,87)=0 exch2_oi(2,87)=511 exch2_oj(2,87)=-510 exch2_neighbourId(3,87)=88 exch2_iLo(3,87)=35 exch2_iHi(3,87)=35 exch2_jLo(3,87)=0 exch2_jHi(3,87)=103 exch2_opposingSend(3,87)=4 exch2_pij(1,3,87)=1 exch2_pij(2,3,87)=0 exch2_pij(3,3,87)=0 exch2_pij(4,3,87)=1 exch2_oi(3,87)=0 exch2_oj(3,87)=0 exch2_neighbourId(4,87)=86 exch2_iLo(4,87)=0 exch2_iHi(4,87)=0 exch2_jLo(4,87)=0 exch2_jHi(4,87)=103 exch2_opposingSend(4,87)=3 exch2_pij(1,4,87)=1 exch2_pij(2,4,87)=0 exch2_pij(3,4,87)=0 exch2_pij(4,4,87)=1 exch2_oi(4,87)=0 exch2_oj(4,87)=0 RETURN END SUBROUTINE W2_E2SETUP_88 C Topology for tile 88 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(88)=34 exch2_tNy(88)=102 exch2_tBasex(88)=408 exch2_tBasey(88)=0 exch2_txGlobalo(88)=919 exch2_tyGlobalo(88)=1 exch2_isWedge(88)=0 exch2_isNedge(88)=0 exch2_isEedge(88)=0 exch2_isSedge(88)=1 exch2_myFace(88)=2 exch2_mydNx(88)=510 exch2_mydNy(88)=510 exch2_nNeighbours(88)=4 exch2_neighbourId(1,88)=103 exch2_iLo(1,88)=0 exch2_iHi(1,88)=35 exch2_jLo(1,88)=103 exch2_jHi(1,88)=103 exch2_opposingSend(1,88)=2 exch2_pij(1,1,88)=1 exch2_pij(2,1,88)=0 exch2_pij(3,1,88)=0 exch2_pij(4,1,88)=1 exch2_oi(1,88)=0 exch2_oj(1,88)=0 exch2_neighbourId(2,88)=390 exch2_iLo(2,88)=0 exch2_iHi(2,88)=35 exch2_jLo(2,88)=0 exch2_jHi(2,88)=0 exch2_opposingSend(2,88)=3 exch2_pij(1,2,88)=0 exch2_pij(2,2,88)=-1 exch2_pij(3,2,88)=1 exch2_pij(4,2,88)=0 exch2_oi(2,88)=511 exch2_oj(2,88)=-510 exch2_neighbourId(3,88)=89 exch2_iLo(3,88)=35 exch2_iHi(3,88)=35 exch2_jLo(3,88)=0 exch2_jHi(3,88)=103 exch2_opposingSend(3,88)=4 exch2_pij(1,3,88)=1 exch2_pij(2,3,88)=0 exch2_pij(3,3,88)=0 exch2_pij(4,3,88)=1 exch2_oi(3,88)=0 exch2_oj(3,88)=0 exch2_neighbourId(4,88)=87 exch2_iLo(4,88)=0 exch2_iHi(4,88)=0 exch2_jLo(4,88)=0 exch2_jHi(4,88)=103 exch2_opposingSend(4,88)=3 exch2_pij(1,4,88)=1 exch2_pij(2,4,88)=0 exch2_pij(3,4,88)=0 exch2_pij(4,4,88)=1 exch2_oi(4,88)=0 exch2_oj(4,88)=0 RETURN END SUBROUTINE W2_E2SETUP_89 C Topology for tile 89 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(89)=34 exch2_tNy(89)=102 exch2_tBasex(89)=442 exch2_tBasey(89)=0 exch2_txGlobalo(89)=953 exch2_tyGlobalo(89)=1 exch2_isWedge(89)=0 exch2_isNedge(89)=0 exch2_isEedge(89)=0 exch2_isSedge(89)=1 exch2_myFace(89)=2 exch2_mydNx(89)=510 exch2_mydNy(89)=510 exch2_nNeighbours(89)=4 exch2_neighbourId(1,89)=104 exch2_iLo(1,89)=0 exch2_iHi(1,89)=35 exch2_jLo(1,89)=103 exch2_jHi(1,89)=103 exch2_opposingSend(1,89)=2 exch2_pij(1,1,89)=1 exch2_pij(2,1,89)=0 exch2_pij(3,1,89)=0 exch2_pij(4,1,89)=1 exch2_oi(1,89)=0 exch2_oj(1,89)=0 exch2_neighbourId(2,89)=390 exch2_iLo(2,89)=0 exch2_iHi(2,89)=35 exch2_jLo(2,89)=0 exch2_jHi(2,89)=0 exch2_opposingSend(2,89)=4 exch2_pij(1,2,89)=0 exch2_pij(2,2,89)=-1 exch2_pij(3,2,89)=1 exch2_pij(4,2,89)=0 exch2_oi(2,89)=511 exch2_oj(2,89)=-510 exch2_neighbourId(3,89)=90 exch2_iLo(3,89)=35 exch2_iHi(3,89)=35 exch2_jLo(3,89)=0 exch2_jHi(3,89)=103 exch2_opposingSend(3,89)=6 exch2_pij(1,3,89)=1 exch2_pij(2,3,89)=0 exch2_pij(3,3,89)=0 exch2_pij(4,3,89)=1 exch2_oi(3,89)=0 exch2_oj(3,89)=0 exch2_neighbourId(4,89)=88 exch2_iLo(4,89)=0 exch2_iHi(4,89)=0 exch2_jLo(4,89)=0 exch2_jHi(4,89)=103 exch2_opposingSend(4,89)=3 exch2_pij(1,4,89)=1 exch2_pij(2,4,89)=0 exch2_pij(3,4,89)=0 exch2_pij(4,4,89)=1 exch2_oi(4,89)=0 exch2_oj(4,89)=0 RETURN END SUBROUTINE W2_E2SETUP_90 C Topology for tile 90 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(90)=34 exch2_tNy(90)=102 exch2_tBasex(90)=476 exch2_tBasey(90)=0 exch2_txGlobalo(90)=987 exch2_tyGlobalo(90)=1 exch2_isWedge(90)=0 exch2_isNedge(90)=0 exch2_isEedge(90)=1 exch2_isSedge(90)=1 exch2_myFace(90)=2 exch2_mydNx(90)=510 exch2_mydNy(90)=510 exch2_nNeighbours(90)=6 exch2_neighbourId(1,90)=105 exch2_iLo(1,90)=0 exch2_iHi(1,90)=35 exch2_jLo(1,90)=103 exch2_jHi(1,90)=103 exch2_opposingSend(1,90)=2 exch2_pij(1,1,90)=1 exch2_pij(2,1,90)=0 exch2_pij(3,1,90)=0 exch2_pij(4,1,90)=1 exch2_oi(1,90)=0 exch2_oj(1,90)=0 exch2_neighbourId(2,90)=390 exch2_iLo(2,90)=0 exch2_iHi(2,90)=35 exch2_jLo(2,90)=0 exch2_jHi(2,90)=0 exch2_opposingSend(2,90)=5 exch2_pij(1,2,90)=0 exch2_pij(2,2,90)=-1 exch2_pij(3,2,90)=1 exch2_pij(4,2,90)=0 exch2_oi(2,90)=511 exch2_oj(2,90)=-510 exch2_neighbourId(3,90)=238 exch2_iLo(3,90)=35 exch2_iHi(3,90)=35 exch2_jLo(3,90)=68 exch2_jHi(3,90)=103 exch2_opposingSend(3,90)=2 exch2_pij(1,3,90)=0 exch2_pij(2,3,90)=1 exch2_pij(3,3,90)=-1 exch2_pij(4,3,90)=0 exch2_oi(3,90)=510 exch2_oj(3,90)=511 exch2_neighbourId(4,90)=239 exch2_iLo(4,90)=35 exch2_iHi(4,90)=35 exch2_jLo(4,90)=34 exch2_jHi(4,90)=69 exch2_opposingSend(4,90)=2 exch2_pij(1,4,90)=0 exch2_pij(2,4,90)=1 exch2_pij(3,4,90)=-1 exch2_pij(4,4,90)=0 exch2_oi(4,90)=510 exch2_oj(4,90)=511 exch2_neighbourId(5,90)=240 exch2_iLo(5,90)=35 exch2_iHi(5,90)=35 exch2_jLo(5,90)=0 exch2_jHi(5,90)=35 exch2_opposingSend(5,90)=2 exch2_pij(1,5,90)=0 exch2_pij(2,5,90)=1 exch2_pij(3,5,90)=-1 exch2_pij(4,5,90)=0 exch2_oi(5,90)=510 exch2_oj(5,90)=511 exch2_neighbourId(6,90)=89 exch2_iLo(6,90)=0 exch2_iHi(6,90)=0 exch2_jLo(6,90)=0 exch2_jHi(6,90)=103 exch2_opposingSend(6,90)=3 exch2_pij(1,6,90)=1 exch2_pij(2,6,90)=0 exch2_pij(3,6,90)=0 exch2_pij(4,6,90)=1 exch2_oi(6,90)=0 exch2_oj(6,90)=0 RETURN END SUBROUTINE W2_E2SETUP_91 C Topology for tile 91 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(91)=34 exch2_tNy(91)=102 exch2_tBasex(91)=0 exch2_tBasey(91)=102 exch2_txGlobalo(91)=511 exch2_tyGlobalo(91)=103 exch2_isWedge(91)=1 exch2_isNedge(91)=0 exch2_isEedge(91)=0 exch2_isSedge(91)=0 exch2_myFace(91)=2 exch2_mydNx(91)=510 exch2_mydNy(91)=510 exch2_nNeighbours(91)=4 exch2_neighbourId(1,91)=106 exch2_iLo(1,91)=0 exch2_iHi(1,91)=35 exch2_jLo(1,91)=103 exch2_jHi(1,91)=103 exch2_opposingSend(1,91)=2 exch2_pij(1,1,91)=1 exch2_pij(2,1,91)=0 exch2_pij(3,1,91)=0 exch2_pij(4,1,91)=1 exch2_oi(1,91)=0 exch2_oj(1,91)=0 exch2_neighbourId(2,91)=76 exch2_iLo(2,91)=0 exch2_iHi(2,91)=35 exch2_jLo(2,91)=0 exch2_jHi(2,91)=0 exch2_opposingSend(2,91)=1 exch2_pij(1,2,91)=1 exch2_pij(2,2,91)=0 exch2_pij(3,2,91)=0 exch2_pij(4,2,91)=1 exch2_oi(2,91)=0 exch2_oj(2,91)=0 exch2_neighbourId(3,91)=92 exch2_iLo(3,91)=35 exch2_iHi(3,91)=35 exch2_jLo(3,91)=0 exch2_jHi(3,91)=103 exch2_opposingSend(3,91)=4 exch2_pij(1,3,91)=1 exch2_pij(2,3,91)=0 exch2_pij(3,3,91)=0 exch2_pij(4,3,91)=1 exch2_oi(3,91)=0 exch2_oj(3,91)=0 exch2_neighbourId(4,91)=30 exch2_iLo(4,91)=0 exch2_iHi(4,91)=0 exch2_jLo(4,91)=0 exch2_jHi(4,91)=103 exch2_opposingSend(4,91)=3 exch2_pij(1,4,91)=1 exch2_pij(2,4,91)=0 exch2_pij(3,4,91)=0 exch2_pij(4,4,91)=1 exch2_oi(4,91)=-510 exch2_oj(4,91)=0 RETURN END SUBROUTINE W2_E2SETUP_92 C Topology for tile 92 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(92)=34 exch2_tNy(92)=102 exch2_tBasex(92)=34 exch2_tBasey(92)=102 exch2_txGlobalo(92)=545 exch2_tyGlobalo(92)=103 exch2_isWedge(92)=0 exch2_isNedge(92)=0 exch2_isEedge(92)=0 exch2_isSedge(92)=0 exch2_myFace(92)=2 exch2_mydNx(92)=510 exch2_mydNy(92)=510 exch2_nNeighbours(92)=4 exch2_neighbourId(1,92)=107 exch2_iLo(1,92)=0 exch2_iHi(1,92)=35 exch2_jLo(1,92)=103 exch2_jHi(1,92)=103 exch2_opposingSend(1,92)=2 exch2_pij(1,1,92)=1 exch2_pij(2,1,92)=0 exch2_pij(3,1,92)=0 exch2_pij(4,1,92)=1 exch2_oi(1,92)=0 exch2_oj(1,92)=0 exch2_neighbourId(2,92)=77 exch2_iLo(2,92)=0 exch2_iHi(2,92)=35 exch2_jLo(2,92)=0 exch2_jHi(2,92)=0 exch2_opposingSend(2,92)=1 exch2_pij(1,2,92)=1 exch2_pij(2,2,92)=0 exch2_pij(3,2,92)=0 exch2_pij(4,2,92)=1 exch2_oi(2,92)=0 exch2_oj(2,92)=0 exch2_neighbourId(3,92)=93 exch2_iLo(3,92)=35 exch2_iHi(3,92)=35 exch2_jLo(3,92)=0 exch2_jHi(3,92)=103 exch2_opposingSend(3,92)=4 exch2_pij(1,3,92)=1 exch2_pij(2,3,92)=0 exch2_pij(3,3,92)=0 exch2_pij(4,3,92)=1 exch2_oi(3,92)=0 exch2_oj(3,92)=0 exch2_neighbourId(4,92)=91 exch2_iLo(4,92)=0 exch2_iHi(4,92)=0 exch2_jLo(4,92)=0 exch2_jHi(4,92)=103 exch2_opposingSend(4,92)=3 exch2_pij(1,4,92)=1 exch2_pij(2,4,92)=0 exch2_pij(3,4,92)=0 exch2_pij(4,4,92)=1 exch2_oi(4,92)=0 exch2_oj(4,92)=0 RETURN END SUBROUTINE W2_E2SETUP_93 C Topology for tile 93 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(93)=34 exch2_tNy(93)=102 exch2_tBasex(93)=68 exch2_tBasey(93)=102 exch2_txGlobalo(93)=579 exch2_tyGlobalo(93)=103 exch2_isWedge(93)=0 exch2_isNedge(93)=0 exch2_isEedge(93)=0 exch2_isSedge(93)=0 exch2_myFace(93)=2 exch2_mydNx(93)=510 exch2_mydNy(93)=510 exch2_nNeighbours(93)=4 exch2_neighbourId(1,93)=108 exch2_iLo(1,93)=0 exch2_iHi(1,93)=35 exch2_jLo(1,93)=103 exch2_jHi(1,93)=103 exch2_opposingSend(1,93)=2 exch2_pij(1,1,93)=1 exch2_pij(2,1,93)=0 exch2_pij(3,1,93)=0 exch2_pij(4,1,93)=1 exch2_oi(1,93)=0 exch2_oj(1,93)=0 exch2_neighbourId(2,93)=78 exch2_iLo(2,93)=0 exch2_iHi(2,93)=35 exch2_jLo(2,93)=0 exch2_jHi(2,93)=0 exch2_opposingSend(2,93)=1 exch2_pij(1,2,93)=1 exch2_pij(2,2,93)=0 exch2_pij(3,2,93)=0 exch2_pij(4,2,93)=1 exch2_oi(2,93)=0 exch2_oj(2,93)=0 exch2_neighbourId(3,93)=94 exch2_iLo(3,93)=35 exch2_iHi(3,93)=35 exch2_jLo(3,93)=0 exch2_jHi(3,93)=103 exch2_opposingSend(3,93)=4 exch2_pij(1,3,93)=1 exch2_pij(2,3,93)=0 exch2_pij(3,3,93)=0 exch2_pij(4,3,93)=1 exch2_oi(3,93)=0 exch2_oj(3,93)=0 exch2_neighbourId(4,93)=92 exch2_iLo(4,93)=0 exch2_iHi(4,93)=0 exch2_jLo(4,93)=0 exch2_jHi(4,93)=103 exch2_opposingSend(4,93)=3 exch2_pij(1,4,93)=1 exch2_pij(2,4,93)=0 exch2_pij(3,4,93)=0 exch2_pij(4,4,93)=1 exch2_oi(4,93)=0 exch2_oj(4,93)=0 RETURN END SUBROUTINE W2_E2SETUP_94 C Topology for tile 94 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(94)=34 exch2_tNy(94)=102 exch2_tBasex(94)=102 exch2_tBasey(94)=102 exch2_txGlobalo(94)=613 exch2_tyGlobalo(94)=103 exch2_isWedge(94)=0 exch2_isNedge(94)=0 exch2_isEedge(94)=0 exch2_isSedge(94)=0 exch2_myFace(94)=2 exch2_mydNx(94)=510 exch2_mydNy(94)=510 exch2_nNeighbours(94)=4 exch2_neighbourId(1,94)=109 exch2_iLo(1,94)=0 exch2_iHi(1,94)=35 exch2_jLo(1,94)=103 exch2_jHi(1,94)=103 exch2_opposingSend(1,94)=2 exch2_pij(1,1,94)=1 exch2_pij(2,1,94)=0 exch2_pij(3,1,94)=0 exch2_pij(4,1,94)=1 exch2_oi(1,94)=0 exch2_oj(1,94)=0 exch2_neighbourId(2,94)=79 exch2_iLo(2,94)=0 exch2_iHi(2,94)=35 exch2_jLo(2,94)=0 exch2_jHi(2,94)=0 exch2_opposingSend(2,94)=1 exch2_pij(1,2,94)=1 exch2_pij(2,2,94)=0 exch2_pij(3,2,94)=0 exch2_pij(4,2,94)=1 exch2_oi(2,94)=0 exch2_oj(2,94)=0 exch2_neighbourId(3,94)=95 exch2_iLo(3,94)=35 exch2_iHi(3,94)=35 exch2_jLo(3,94)=0 exch2_jHi(3,94)=103 exch2_opposingSend(3,94)=4 exch2_pij(1,3,94)=1 exch2_pij(2,3,94)=0 exch2_pij(3,3,94)=0 exch2_pij(4,3,94)=1 exch2_oi(3,94)=0 exch2_oj(3,94)=0 exch2_neighbourId(4,94)=93 exch2_iLo(4,94)=0 exch2_iHi(4,94)=0 exch2_jLo(4,94)=0 exch2_jHi(4,94)=103 exch2_opposingSend(4,94)=3 exch2_pij(1,4,94)=1 exch2_pij(2,4,94)=0 exch2_pij(3,4,94)=0 exch2_pij(4,4,94)=1 exch2_oi(4,94)=0 exch2_oj(4,94)=0 RETURN END SUBROUTINE W2_E2SETUP_95 C Topology for tile 95 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(95)=34 exch2_tNy(95)=102 exch2_tBasex(95)=136 exch2_tBasey(95)=102 exch2_txGlobalo(95)=647 exch2_tyGlobalo(95)=103 exch2_isWedge(95)=0 exch2_isNedge(95)=0 exch2_isEedge(95)=0 exch2_isSedge(95)=0 exch2_myFace(95)=2 exch2_mydNx(95)=510 exch2_mydNy(95)=510 exch2_nNeighbours(95)=4 exch2_neighbourId(1,95)=110 exch2_iLo(1,95)=0 exch2_iHi(1,95)=35 exch2_jLo(1,95)=103 exch2_jHi(1,95)=103 exch2_opposingSend(1,95)=2 exch2_pij(1,1,95)=1 exch2_pij(2,1,95)=0 exch2_pij(3,1,95)=0 exch2_pij(4,1,95)=1 exch2_oi(1,95)=0 exch2_oj(1,95)=0 exch2_neighbourId(2,95)=80 exch2_iLo(2,95)=0 exch2_iHi(2,95)=35 exch2_jLo(2,95)=0 exch2_jHi(2,95)=0 exch2_opposingSend(2,95)=1 exch2_pij(1,2,95)=1 exch2_pij(2,2,95)=0 exch2_pij(3,2,95)=0 exch2_pij(4,2,95)=1 exch2_oi(2,95)=0 exch2_oj(2,95)=0 exch2_neighbourId(3,95)=96 exch2_iLo(3,95)=35 exch2_iHi(3,95)=35 exch2_jLo(3,95)=0 exch2_jHi(3,95)=103 exch2_opposingSend(3,95)=4 exch2_pij(1,3,95)=1 exch2_pij(2,3,95)=0 exch2_pij(3,3,95)=0 exch2_pij(4,3,95)=1 exch2_oi(3,95)=0 exch2_oj(3,95)=0 exch2_neighbourId(4,95)=94 exch2_iLo(4,95)=0 exch2_iHi(4,95)=0 exch2_jLo(4,95)=0 exch2_jHi(4,95)=103 exch2_opposingSend(4,95)=3 exch2_pij(1,4,95)=1 exch2_pij(2,4,95)=0 exch2_pij(3,4,95)=0 exch2_pij(4,4,95)=1 exch2_oi(4,95)=0 exch2_oj(4,95)=0 RETURN END SUBROUTINE W2_E2SETUP_96 C Topology for tile 96 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(96)=34 exch2_tNy(96)=102 exch2_tBasex(96)=170 exch2_tBasey(96)=102 exch2_txGlobalo(96)=681 exch2_tyGlobalo(96)=103 exch2_isWedge(96)=0 exch2_isNedge(96)=0 exch2_isEedge(96)=0 exch2_isSedge(96)=0 exch2_myFace(96)=2 exch2_mydNx(96)=510 exch2_mydNy(96)=510 exch2_nNeighbours(96)=4 exch2_neighbourId(1,96)=111 exch2_iLo(1,96)=0 exch2_iHi(1,96)=35 exch2_jLo(1,96)=103 exch2_jHi(1,96)=103 exch2_opposingSend(1,96)=2 exch2_pij(1,1,96)=1 exch2_pij(2,1,96)=0 exch2_pij(3,1,96)=0 exch2_pij(4,1,96)=1 exch2_oi(1,96)=0 exch2_oj(1,96)=0 exch2_neighbourId(2,96)=81 exch2_iLo(2,96)=0 exch2_iHi(2,96)=35 exch2_jLo(2,96)=0 exch2_jHi(2,96)=0 exch2_opposingSend(2,96)=1 exch2_pij(1,2,96)=1 exch2_pij(2,2,96)=0 exch2_pij(3,2,96)=0 exch2_pij(4,2,96)=1 exch2_oi(2,96)=0 exch2_oj(2,96)=0 exch2_neighbourId(3,96)=97 exch2_iLo(3,96)=35 exch2_iHi(3,96)=35 exch2_jLo(3,96)=0 exch2_jHi(3,96)=103 exch2_opposingSend(3,96)=4 exch2_pij(1,3,96)=1 exch2_pij(2,3,96)=0 exch2_pij(3,3,96)=0 exch2_pij(4,3,96)=1 exch2_oi(3,96)=0 exch2_oj(3,96)=0 exch2_neighbourId(4,96)=95 exch2_iLo(4,96)=0 exch2_iHi(4,96)=0 exch2_jLo(4,96)=0 exch2_jHi(4,96)=103 exch2_opposingSend(4,96)=3 exch2_pij(1,4,96)=1 exch2_pij(2,4,96)=0 exch2_pij(3,4,96)=0 exch2_pij(4,4,96)=1 exch2_oi(4,96)=0 exch2_oj(4,96)=0 RETURN END SUBROUTINE W2_E2SETUP_97 C Topology for tile 97 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(97)=34 exch2_tNy(97)=102 exch2_tBasex(97)=204 exch2_tBasey(97)=102 exch2_txGlobalo(97)=715 exch2_tyGlobalo(97)=103 exch2_isWedge(97)=0 exch2_isNedge(97)=0 exch2_isEedge(97)=0 exch2_isSedge(97)=0 exch2_myFace(97)=2 exch2_mydNx(97)=510 exch2_mydNy(97)=510 exch2_nNeighbours(97)=4 exch2_neighbourId(1,97)=112 exch2_iLo(1,97)=0 exch2_iHi(1,97)=35 exch2_jLo(1,97)=103 exch2_jHi(1,97)=103 exch2_opposingSend(1,97)=2 exch2_pij(1,1,97)=1 exch2_pij(2,1,97)=0 exch2_pij(3,1,97)=0 exch2_pij(4,1,97)=1 exch2_oi(1,97)=0 exch2_oj(1,97)=0 exch2_neighbourId(2,97)=82 exch2_iLo(2,97)=0 exch2_iHi(2,97)=35 exch2_jLo(2,97)=0 exch2_jHi(2,97)=0 exch2_opposingSend(2,97)=1 exch2_pij(1,2,97)=1 exch2_pij(2,2,97)=0 exch2_pij(3,2,97)=0 exch2_pij(4,2,97)=1 exch2_oi(2,97)=0 exch2_oj(2,97)=0 exch2_neighbourId(3,97)=98 exch2_iLo(3,97)=35 exch2_iHi(3,97)=35 exch2_jLo(3,97)=0 exch2_jHi(3,97)=103 exch2_opposingSend(3,97)=4 exch2_pij(1,3,97)=1 exch2_pij(2,3,97)=0 exch2_pij(3,3,97)=0 exch2_pij(4,3,97)=1 exch2_oi(3,97)=0 exch2_oj(3,97)=0 exch2_neighbourId(4,97)=96 exch2_iLo(4,97)=0 exch2_iHi(4,97)=0 exch2_jLo(4,97)=0 exch2_jHi(4,97)=103 exch2_opposingSend(4,97)=3 exch2_pij(1,4,97)=1 exch2_pij(2,4,97)=0 exch2_pij(3,4,97)=0 exch2_pij(4,4,97)=1 exch2_oi(4,97)=0 exch2_oj(4,97)=0 RETURN END SUBROUTINE W2_E2SETUP_98 C Topology for tile 98 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(98)=34 exch2_tNy(98)=102 exch2_tBasex(98)=238 exch2_tBasey(98)=102 exch2_txGlobalo(98)=749 exch2_tyGlobalo(98)=103 exch2_isWedge(98)=0 exch2_isNedge(98)=0 exch2_isEedge(98)=0 exch2_isSedge(98)=0 exch2_myFace(98)=2 exch2_mydNx(98)=510 exch2_mydNy(98)=510 exch2_nNeighbours(98)=4 exch2_neighbourId(1,98)=113 exch2_iLo(1,98)=0 exch2_iHi(1,98)=35 exch2_jLo(1,98)=103 exch2_jHi(1,98)=103 exch2_opposingSend(1,98)=2 exch2_pij(1,1,98)=1 exch2_pij(2,1,98)=0 exch2_pij(3,1,98)=0 exch2_pij(4,1,98)=1 exch2_oi(1,98)=0 exch2_oj(1,98)=0 exch2_neighbourId(2,98)=83 exch2_iLo(2,98)=0 exch2_iHi(2,98)=35 exch2_jLo(2,98)=0 exch2_jHi(2,98)=0 exch2_opposingSend(2,98)=1 exch2_pij(1,2,98)=1 exch2_pij(2,2,98)=0 exch2_pij(3,2,98)=0 exch2_pij(4,2,98)=1 exch2_oi(2,98)=0 exch2_oj(2,98)=0 exch2_neighbourId(3,98)=99 exch2_iLo(3,98)=35 exch2_iHi(3,98)=35 exch2_jLo(3,98)=0 exch2_jHi(3,98)=103 exch2_opposingSend(3,98)=4 exch2_pij(1,3,98)=1 exch2_pij(2,3,98)=0 exch2_pij(3,3,98)=0 exch2_pij(4,3,98)=1 exch2_oi(3,98)=0 exch2_oj(3,98)=0 exch2_neighbourId(4,98)=97 exch2_iLo(4,98)=0 exch2_iHi(4,98)=0 exch2_jLo(4,98)=0 exch2_jHi(4,98)=103 exch2_opposingSend(4,98)=3 exch2_pij(1,4,98)=1 exch2_pij(2,4,98)=0 exch2_pij(3,4,98)=0 exch2_pij(4,4,98)=1 exch2_oi(4,98)=0 exch2_oj(4,98)=0 RETURN END SUBROUTINE W2_E2SETUP_99 C Topology for tile 99 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(99)=34 exch2_tNy(99)=102 exch2_tBasex(99)=272 exch2_tBasey(99)=102 exch2_txGlobalo(99)=783 exch2_tyGlobalo(99)=103 exch2_isWedge(99)=0 exch2_isNedge(99)=0 exch2_isEedge(99)=0 exch2_isSedge(99)=0 exch2_myFace(99)=2 exch2_mydNx(99)=510 exch2_mydNy(99)=510 exch2_nNeighbours(99)=4 exch2_neighbourId(1,99)=114 exch2_iLo(1,99)=0 exch2_iHi(1,99)=35 exch2_jLo(1,99)=103 exch2_jHi(1,99)=103 exch2_opposingSend(1,99)=2 exch2_pij(1,1,99)=1 exch2_pij(2,1,99)=0 exch2_pij(3,1,99)=0 exch2_pij(4,1,99)=1 exch2_oi(1,99)=0 exch2_oj(1,99)=0 exch2_neighbourId(2,99)=84 exch2_iLo(2,99)=0 exch2_iHi(2,99)=35 exch2_jLo(2,99)=0 exch2_jHi(2,99)=0 exch2_opposingSend(2,99)=1 exch2_pij(1,2,99)=1 exch2_pij(2,2,99)=0 exch2_pij(3,2,99)=0 exch2_pij(4,2,99)=1 exch2_oi(2,99)=0 exch2_oj(2,99)=0 exch2_neighbourId(3,99)=100 exch2_iLo(3,99)=35 exch2_iHi(3,99)=35 exch2_jLo(3,99)=0 exch2_jHi(3,99)=103 exch2_opposingSend(3,99)=4 exch2_pij(1,3,99)=1 exch2_pij(2,3,99)=0 exch2_pij(3,3,99)=0 exch2_pij(4,3,99)=1 exch2_oi(3,99)=0 exch2_oj(3,99)=0 exch2_neighbourId(4,99)=98 exch2_iLo(4,99)=0 exch2_iHi(4,99)=0 exch2_jLo(4,99)=0 exch2_jHi(4,99)=103 exch2_opposingSend(4,99)=3 exch2_pij(1,4,99)=1 exch2_pij(2,4,99)=0 exch2_pij(3,4,99)=0 exch2_pij(4,4,99)=1 exch2_oi(4,99)=0 exch2_oj(4,99)=0 RETURN END SUBROUTINE W2_E2SETUP_100 C Topology for tile 100 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(100)=34 exch2_tNy(100)=102 exch2_tBasex(100)=306 exch2_tBasey(100)=102 exch2_txGlobalo(100)=817 exch2_tyGlobalo(100)=103 exch2_isWedge(100)=0 exch2_isNedge(100)=0 exch2_isEedge(100)=0 exch2_isSedge(100)=0 exch2_myFace(100)=2 exch2_mydNx(100)=510 exch2_mydNy(100)=510 exch2_nNeighbours(100)=4 exch2_neighbourId(1,100)=115 exch2_iLo(1,100)=0 exch2_iHi(1,100)=35 exch2_jLo(1,100)=103 exch2_jHi(1,100)=103 exch2_opposingSend(1,100)=2 exch2_pij(1,1,100)=1 exch2_pij(2,1,100)=0 exch2_pij(3,1,100)=0 exch2_pij(4,1,100)=1 exch2_oi(1,100)=0 exch2_oj(1,100)=0 exch2_neighbourId(2,100)=85 exch2_iLo(2,100)=0 exch2_iHi(2,100)=35 exch2_jLo(2,100)=0 exch2_jHi(2,100)=0 exch2_opposingSend(2,100)=1 exch2_pij(1,2,100)=1 exch2_pij(2,2,100)=0 exch2_pij(3,2,100)=0 exch2_pij(4,2,100)=1 exch2_oi(2,100)=0 exch2_oj(2,100)=0 exch2_neighbourId(3,100)=101 exch2_iLo(3,100)=35 exch2_iHi(3,100)=35 exch2_jLo(3,100)=0 exch2_jHi(3,100)=103 exch2_opposingSend(3,100)=4 exch2_pij(1,3,100)=1 exch2_pij(2,3,100)=0 exch2_pij(3,3,100)=0 exch2_pij(4,3,100)=1 exch2_oi(3,100)=0 exch2_oj(3,100)=0 exch2_neighbourId(4,100)=99 exch2_iLo(4,100)=0 exch2_iHi(4,100)=0 exch2_jLo(4,100)=0 exch2_jHi(4,100)=103 exch2_opposingSend(4,100)=3 exch2_pij(1,4,100)=1 exch2_pij(2,4,100)=0 exch2_pij(3,4,100)=0 exch2_pij(4,4,100)=1 exch2_oi(4,100)=0 exch2_oj(4,100)=0 RETURN END SUBROUTINE W2_E2SETUP_101 C Topology for tile 101 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(101)=34 exch2_tNy(101)=102 exch2_tBasex(101)=340 exch2_tBasey(101)=102 exch2_txGlobalo(101)=851 exch2_tyGlobalo(101)=103 exch2_isWedge(101)=0 exch2_isNedge(101)=0 exch2_isEedge(101)=0 exch2_isSedge(101)=0 exch2_myFace(101)=2 exch2_mydNx(101)=510 exch2_mydNy(101)=510 exch2_nNeighbours(101)=4 exch2_neighbourId(1,101)=116 exch2_iLo(1,101)=0 exch2_iHi(1,101)=35 exch2_jLo(1,101)=103 exch2_jHi(1,101)=103 exch2_opposingSend(1,101)=2 exch2_pij(1,1,101)=1 exch2_pij(2,1,101)=0 exch2_pij(3,1,101)=0 exch2_pij(4,1,101)=1 exch2_oi(1,101)=0 exch2_oj(1,101)=0 exch2_neighbourId(2,101)=86 exch2_iLo(2,101)=0 exch2_iHi(2,101)=35 exch2_jLo(2,101)=0 exch2_jHi(2,101)=0 exch2_opposingSend(2,101)=1 exch2_pij(1,2,101)=1 exch2_pij(2,2,101)=0 exch2_pij(3,2,101)=0 exch2_pij(4,2,101)=1 exch2_oi(2,101)=0 exch2_oj(2,101)=0 exch2_neighbourId(3,101)=102 exch2_iLo(3,101)=35 exch2_iHi(3,101)=35 exch2_jLo(3,101)=0 exch2_jHi(3,101)=103 exch2_opposingSend(3,101)=4 exch2_pij(1,3,101)=1 exch2_pij(2,3,101)=0 exch2_pij(3,3,101)=0 exch2_pij(4,3,101)=1 exch2_oi(3,101)=0 exch2_oj(3,101)=0 exch2_neighbourId(4,101)=100 exch2_iLo(4,101)=0 exch2_iHi(4,101)=0 exch2_jLo(4,101)=0 exch2_jHi(4,101)=103 exch2_opposingSend(4,101)=3 exch2_pij(1,4,101)=1 exch2_pij(2,4,101)=0 exch2_pij(3,4,101)=0 exch2_pij(4,4,101)=1 exch2_oi(4,101)=0 exch2_oj(4,101)=0 RETURN END SUBROUTINE W2_E2SETUP_102 C Topology for tile 102 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(102)=34 exch2_tNy(102)=102 exch2_tBasex(102)=374 exch2_tBasey(102)=102 exch2_txGlobalo(102)=885 exch2_tyGlobalo(102)=103 exch2_isWedge(102)=0 exch2_isNedge(102)=0 exch2_isEedge(102)=0 exch2_isSedge(102)=0 exch2_myFace(102)=2 exch2_mydNx(102)=510 exch2_mydNy(102)=510 exch2_nNeighbours(102)=4 exch2_neighbourId(1,102)=117 exch2_iLo(1,102)=0 exch2_iHi(1,102)=35 exch2_jLo(1,102)=103 exch2_jHi(1,102)=103 exch2_opposingSend(1,102)=2 exch2_pij(1,1,102)=1 exch2_pij(2,1,102)=0 exch2_pij(3,1,102)=0 exch2_pij(4,1,102)=1 exch2_oi(1,102)=0 exch2_oj(1,102)=0 exch2_neighbourId(2,102)=87 exch2_iLo(2,102)=0 exch2_iHi(2,102)=35 exch2_jLo(2,102)=0 exch2_jHi(2,102)=0 exch2_opposingSend(2,102)=1 exch2_pij(1,2,102)=1 exch2_pij(2,2,102)=0 exch2_pij(3,2,102)=0 exch2_pij(4,2,102)=1 exch2_oi(2,102)=0 exch2_oj(2,102)=0 exch2_neighbourId(3,102)=103 exch2_iLo(3,102)=35 exch2_iHi(3,102)=35 exch2_jLo(3,102)=0 exch2_jHi(3,102)=103 exch2_opposingSend(3,102)=4 exch2_pij(1,3,102)=1 exch2_pij(2,3,102)=0 exch2_pij(3,3,102)=0 exch2_pij(4,3,102)=1 exch2_oi(3,102)=0 exch2_oj(3,102)=0 exch2_neighbourId(4,102)=101 exch2_iLo(4,102)=0 exch2_iHi(4,102)=0 exch2_jLo(4,102)=0 exch2_jHi(4,102)=103 exch2_opposingSend(4,102)=3 exch2_pij(1,4,102)=1 exch2_pij(2,4,102)=0 exch2_pij(3,4,102)=0 exch2_pij(4,4,102)=1 exch2_oi(4,102)=0 exch2_oj(4,102)=0 RETURN END SUBROUTINE W2_E2SETUP_103 C Topology for tile 103 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(103)=34 exch2_tNy(103)=102 exch2_tBasex(103)=408 exch2_tBasey(103)=102 exch2_txGlobalo(103)=919 exch2_tyGlobalo(103)=103 exch2_isWedge(103)=0 exch2_isNedge(103)=0 exch2_isEedge(103)=0 exch2_isSedge(103)=0 exch2_myFace(103)=2 exch2_mydNx(103)=510 exch2_mydNy(103)=510 exch2_nNeighbours(103)=4 exch2_neighbourId(1,103)=118 exch2_iLo(1,103)=0 exch2_iHi(1,103)=35 exch2_jLo(1,103)=103 exch2_jHi(1,103)=103 exch2_opposingSend(1,103)=2 exch2_pij(1,1,103)=1 exch2_pij(2,1,103)=0 exch2_pij(3,1,103)=0 exch2_pij(4,1,103)=1 exch2_oi(1,103)=0 exch2_oj(1,103)=0 exch2_neighbourId(2,103)=88 exch2_iLo(2,103)=0 exch2_iHi(2,103)=35 exch2_jLo(2,103)=0 exch2_jHi(2,103)=0 exch2_opposingSend(2,103)=1 exch2_pij(1,2,103)=1 exch2_pij(2,2,103)=0 exch2_pij(3,2,103)=0 exch2_pij(4,2,103)=1 exch2_oi(2,103)=0 exch2_oj(2,103)=0 exch2_neighbourId(3,103)=104 exch2_iLo(3,103)=35 exch2_iHi(3,103)=35 exch2_jLo(3,103)=0 exch2_jHi(3,103)=103 exch2_opposingSend(3,103)=4 exch2_pij(1,3,103)=1 exch2_pij(2,3,103)=0 exch2_pij(3,3,103)=0 exch2_pij(4,3,103)=1 exch2_oi(3,103)=0 exch2_oj(3,103)=0 exch2_neighbourId(4,103)=102 exch2_iLo(4,103)=0 exch2_iHi(4,103)=0 exch2_jLo(4,103)=0 exch2_jHi(4,103)=103 exch2_opposingSend(4,103)=3 exch2_pij(1,4,103)=1 exch2_pij(2,4,103)=0 exch2_pij(3,4,103)=0 exch2_pij(4,4,103)=1 exch2_oi(4,103)=0 exch2_oj(4,103)=0 RETURN END SUBROUTINE W2_E2SETUP_104 C Topology for tile 104 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(104)=34 exch2_tNy(104)=102 exch2_tBasex(104)=442 exch2_tBasey(104)=102 exch2_txGlobalo(104)=953 exch2_tyGlobalo(104)=103 exch2_isWedge(104)=0 exch2_isNedge(104)=0 exch2_isEedge(104)=0 exch2_isSedge(104)=0 exch2_myFace(104)=2 exch2_mydNx(104)=510 exch2_mydNy(104)=510 exch2_nNeighbours(104)=4 exch2_neighbourId(1,104)=119 exch2_iLo(1,104)=0 exch2_iHi(1,104)=35 exch2_jLo(1,104)=103 exch2_jHi(1,104)=103 exch2_opposingSend(1,104)=2 exch2_pij(1,1,104)=1 exch2_pij(2,1,104)=0 exch2_pij(3,1,104)=0 exch2_pij(4,1,104)=1 exch2_oi(1,104)=0 exch2_oj(1,104)=0 exch2_neighbourId(2,104)=89 exch2_iLo(2,104)=0 exch2_iHi(2,104)=35 exch2_jLo(2,104)=0 exch2_jHi(2,104)=0 exch2_opposingSend(2,104)=1 exch2_pij(1,2,104)=1 exch2_pij(2,2,104)=0 exch2_pij(3,2,104)=0 exch2_pij(4,2,104)=1 exch2_oi(2,104)=0 exch2_oj(2,104)=0 exch2_neighbourId(3,104)=105 exch2_iLo(3,104)=35 exch2_iHi(3,104)=35 exch2_jLo(3,104)=0 exch2_jHi(3,104)=103 exch2_opposingSend(3,104)=6 exch2_pij(1,3,104)=1 exch2_pij(2,3,104)=0 exch2_pij(3,3,104)=0 exch2_pij(4,3,104)=1 exch2_oi(3,104)=0 exch2_oj(3,104)=0 exch2_neighbourId(4,104)=103 exch2_iLo(4,104)=0 exch2_iHi(4,104)=0 exch2_jLo(4,104)=0 exch2_jHi(4,104)=103 exch2_opposingSend(4,104)=3 exch2_pij(1,4,104)=1 exch2_pij(2,4,104)=0 exch2_pij(3,4,104)=0 exch2_pij(4,4,104)=1 exch2_oi(4,104)=0 exch2_oj(4,104)=0 RETURN END SUBROUTINE W2_E2SETUP_105 C Topology for tile 105 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(105)=34 exch2_tNy(105)=102 exch2_tBasex(105)=476 exch2_tBasey(105)=102 exch2_txGlobalo(105)=987 exch2_tyGlobalo(105)=103 exch2_isWedge(105)=0 exch2_isNedge(105)=0 exch2_isEedge(105)=1 exch2_isSedge(105)=0 exch2_myFace(105)=2 exch2_mydNx(105)=510 exch2_mydNy(105)=510 exch2_nNeighbours(105)=6 exch2_neighbourId(1,105)=120 exch2_iLo(1,105)=0 exch2_iHi(1,105)=35 exch2_jLo(1,105)=103 exch2_jHi(1,105)=103 exch2_opposingSend(1,105)=2 exch2_pij(1,1,105)=1 exch2_pij(2,1,105)=0 exch2_pij(3,1,105)=0 exch2_pij(4,1,105)=1 exch2_oi(1,105)=0 exch2_oj(1,105)=0 exch2_neighbourId(2,105)=90 exch2_iLo(2,105)=0 exch2_iHi(2,105)=35 exch2_jLo(2,105)=0 exch2_jHi(2,105)=0 exch2_opposingSend(2,105)=1 exch2_pij(1,2,105)=1 exch2_pij(2,2,105)=0 exch2_pij(3,2,105)=0 exch2_pij(4,2,105)=1 exch2_oi(2,105)=0 exch2_oj(2,105)=0 exch2_neighbourId(3,105)=235 exch2_iLo(3,105)=35 exch2_iHi(3,105)=35 exch2_jLo(3,105)=68 exch2_jHi(3,105)=103 exch2_opposingSend(3,105)=2 exch2_pij(1,3,105)=0 exch2_pij(2,3,105)=1 exch2_pij(3,3,105)=-1 exch2_pij(4,3,105)=0 exch2_oi(3,105)=510 exch2_oj(3,105)=511 exch2_neighbourId(4,105)=236 exch2_iLo(4,105)=35 exch2_iHi(4,105)=35 exch2_jLo(4,105)=34 exch2_jHi(4,105)=69 exch2_opposingSend(4,105)=2 exch2_pij(1,4,105)=0 exch2_pij(2,4,105)=1 exch2_pij(3,4,105)=-1 exch2_pij(4,4,105)=0 exch2_oi(4,105)=510 exch2_oj(4,105)=511 exch2_neighbourId(5,105)=237 exch2_iLo(5,105)=35 exch2_iHi(5,105)=35 exch2_jLo(5,105)=0 exch2_jHi(5,105)=35 exch2_opposingSend(5,105)=2 exch2_pij(1,5,105)=0 exch2_pij(2,5,105)=1 exch2_pij(3,5,105)=-1 exch2_pij(4,5,105)=0 exch2_oi(5,105)=510 exch2_oj(5,105)=511 exch2_neighbourId(6,105)=104 exch2_iLo(6,105)=0 exch2_iHi(6,105)=0 exch2_jLo(6,105)=0 exch2_jHi(6,105)=103 exch2_opposingSend(6,105)=3 exch2_pij(1,6,105)=1 exch2_pij(2,6,105)=0 exch2_pij(3,6,105)=0 exch2_pij(4,6,105)=1 exch2_oi(6,105)=0 exch2_oj(6,105)=0 RETURN END SUBROUTINE W2_E2SETUP_106 C Topology for tile 106 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(106)=34 exch2_tNy(106)=102 exch2_tBasex(106)=0 exch2_tBasey(106)=204 exch2_txGlobalo(106)=511 exch2_tyGlobalo(106)=205 exch2_isWedge(106)=1 exch2_isNedge(106)=0 exch2_isEedge(106)=0 exch2_isSedge(106)=0 exch2_myFace(106)=2 exch2_mydNx(106)=510 exch2_mydNy(106)=510 exch2_nNeighbours(106)=4 exch2_neighbourId(1,106)=121 exch2_iLo(1,106)=0 exch2_iHi(1,106)=35 exch2_jLo(1,106)=103 exch2_jHi(1,106)=103 exch2_opposingSend(1,106)=2 exch2_pij(1,1,106)=1 exch2_pij(2,1,106)=0 exch2_pij(3,1,106)=0 exch2_pij(4,1,106)=1 exch2_oi(1,106)=0 exch2_oj(1,106)=0 exch2_neighbourId(2,106)=91 exch2_iLo(2,106)=0 exch2_iHi(2,106)=35 exch2_jLo(2,106)=0 exch2_jHi(2,106)=0 exch2_opposingSend(2,106)=1 exch2_pij(1,2,106)=1 exch2_pij(2,2,106)=0 exch2_pij(3,2,106)=0 exch2_pij(4,2,106)=1 exch2_oi(2,106)=0 exch2_oj(2,106)=0 exch2_neighbourId(3,106)=107 exch2_iLo(3,106)=35 exch2_iHi(3,106)=35 exch2_jLo(3,106)=0 exch2_jHi(3,106)=103 exch2_opposingSend(3,106)=4 exch2_pij(1,3,106)=1 exch2_pij(2,3,106)=0 exch2_pij(3,3,106)=0 exch2_pij(4,3,106)=1 exch2_oi(3,106)=0 exch2_oj(3,106)=0 exch2_neighbourId(4,106)=45 exch2_iLo(4,106)=0 exch2_iHi(4,106)=0 exch2_jLo(4,106)=0 exch2_jHi(4,106)=103 exch2_opposingSend(4,106)=3 exch2_pij(1,4,106)=1 exch2_pij(2,4,106)=0 exch2_pij(3,4,106)=0 exch2_pij(4,4,106)=1 exch2_oi(4,106)=-510 exch2_oj(4,106)=0 RETURN END SUBROUTINE W2_E2SETUP_107 C Topology for tile 107 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(107)=34 exch2_tNy(107)=102 exch2_tBasex(107)=34 exch2_tBasey(107)=204 exch2_txGlobalo(107)=545 exch2_tyGlobalo(107)=205 exch2_isWedge(107)=0 exch2_isNedge(107)=0 exch2_isEedge(107)=0 exch2_isSedge(107)=0 exch2_myFace(107)=2 exch2_mydNx(107)=510 exch2_mydNy(107)=510 exch2_nNeighbours(107)=4 exch2_neighbourId(1,107)=122 exch2_iLo(1,107)=0 exch2_iHi(1,107)=35 exch2_jLo(1,107)=103 exch2_jHi(1,107)=103 exch2_opposingSend(1,107)=2 exch2_pij(1,1,107)=1 exch2_pij(2,1,107)=0 exch2_pij(3,1,107)=0 exch2_pij(4,1,107)=1 exch2_oi(1,107)=0 exch2_oj(1,107)=0 exch2_neighbourId(2,107)=92 exch2_iLo(2,107)=0 exch2_iHi(2,107)=35 exch2_jLo(2,107)=0 exch2_jHi(2,107)=0 exch2_opposingSend(2,107)=1 exch2_pij(1,2,107)=1 exch2_pij(2,2,107)=0 exch2_pij(3,2,107)=0 exch2_pij(4,2,107)=1 exch2_oi(2,107)=0 exch2_oj(2,107)=0 exch2_neighbourId(3,107)=108 exch2_iLo(3,107)=35 exch2_iHi(3,107)=35 exch2_jLo(3,107)=0 exch2_jHi(3,107)=103 exch2_opposingSend(3,107)=4 exch2_pij(1,3,107)=1 exch2_pij(2,3,107)=0 exch2_pij(3,3,107)=0 exch2_pij(4,3,107)=1 exch2_oi(3,107)=0 exch2_oj(3,107)=0 exch2_neighbourId(4,107)=106 exch2_iLo(4,107)=0 exch2_iHi(4,107)=0 exch2_jLo(4,107)=0 exch2_jHi(4,107)=103 exch2_opposingSend(4,107)=3 exch2_pij(1,4,107)=1 exch2_pij(2,4,107)=0 exch2_pij(3,4,107)=0 exch2_pij(4,4,107)=1 exch2_oi(4,107)=0 exch2_oj(4,107)=0 RETURN END SUBROUTINE W2_E2SETUP_108 C Topology for tile 108 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(108)=34 exch2_tNy(108)=102 exch2_tBasex(108)=68 exch2_tBasey(108)=204 exch2_txGlobalo(108)=579 exch2_tyGlobalo(108)=205 exch2_isWedge(108)=0 exch2_isNedge(108)=0 exch2_isEedge(108)=0 exch2_isSedge(108)=0 exch2_myFace(108)=2 exch2_mydNx(108)=510 exch2_mydNy(108)=510 exch2_nNeighbours(108)=4 exch2_neighbourId(1,108)=123 exch2_iLo(1,108)=0 exch2_iHi(1,108)=35 exch2_jLo(1,108)=103 exch2_jHi(1,108)=103 exch2_opposingSend(1,108)=2 exch2_pij(1,1,108)=1 exch2_pij(2,1,108)=0 exch2_pij(3,1,108)=0 exch2_pij(4,1,108)=1 exch2_oi(1,108)=0 exch2_oj(1,108)=0 exch2_neighbourId(2,108)=93 exch2_iLo(2,108)=0 exch2_iHi(2,108)=35 exch2_jLo(2,108)=0 exch2_jHi(2,108)=0 exch2_opposingSend(2,108)=1 exch2_pij(1,2,108)=1 exch2_pij(2,2,108)=0 exch2_pij(3,2,108)=0 exch2_pij(4,2,108)=1 exch2_oi(2,108)=0 exch2_oj(2,108)=0 exch2_neighbourId(3,108)=109 exch2_iLo(3,108)=35 exch2_iHi(3,108)=35 exch2_jLo(3,108)=0 exch2_jHi(3,108)=103 exch2_opposingSend(3,108)=4 exch2_pij(1,3,108)=1 exch2_pij(2,3,108)=0 exch2_pij(3,3,108)=0 exch2_pij(4,3,108)=1 exch2_oi(3,108)=0 exch2_oj(3,108)=0 exch2_neighbourId(4,108)=107 exch2_iLo(4,108)=0 exch2_iHi(4,108)=0 exch2_jLo(4,108)=0 exch2_jHi(4,108)=103 exch2_opposingSend(4,108)=3 exch2_pij(1,4,108)=1 exch2_pij(2,4,108)=0 exch2_pij(3,4,108)=0 exch2_pij(4,4,108)=1 exch2_oi(4,108)=0 exch2_oj(4,108)=0 RETURN END SUBROUTINE W2_E2SETUP_109 C Topology for tile 109 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(109)=34 exch2_tNy(109)=102 exch2_tBasex(109)=102 exch2_tBasey(109)=204 exch2_txGlobalo(109)=613 exch2_tyGlobalo(109)=205 exch2_isWedge(109)=0 exch2_isNedge(109)=0 exch2_isEedge(109)=0 exch2_isSedge(109)=0 exch2_myFace(109)=2 exch2_mydNx(109)=510 exch2_mydNy(109)=510 exch2_nNeighbours(109)=4 exch2_neighbourId(1,109)=124 exch2_iLo(1,109)=0 exch2_iHi(1,109)=35 exch2_jLo(1,109)=103 exch2_jHi(1,109)=103 exch2_opposingSend(1,109)=2 exch2_pij(1,1,109)=1 exch2_pij(2,1,109)=0 exch2_pij(3,1,109)=0 exch2_pij(4,1,109)=1 exch2_oi(1,109)=0 exch2_oj(1,109)=0 exch2_neighbourId(2,109)=94 exch2_iLo(2,109)=0 exch2_iHi(2,109)=35 exch2_jLo(2,109)=0 exch2_jHi(2,109)=0 exch2_opposingSend(2,109)=1 exch2_pij(1,2,109)=1 exch2_pij(2,2,109)=0 exch2_pij(3,2,109)=0 exch2_pij(4,2,109)=1 exch2_oi(2,109)=0 exch2_oj(2,109)=0 exch2_neighbourId(3,109)=110 exch2_iLo(3,109)=35 exch2_iHi(3,109)=35 exch2_jLo(3,109)=0 exch2_jHi(3,109)=103 exch2_opposingSend(3,109)=4 exch2_pij(1,3,109)=1 exch2_pij(2,3,109)=0 exch2_pij(3,3,109)=0 exch2_pij(4,3,109)=1 exch2_oi(3,109)=0 exch2_oj(3,109)=0 exch2_neighbourId(4,109)=108 exch2_iLo(4,109)=0 exch2_iHi(4,109)=0 exch2_jLo(4,109)=0 exch2_jHi(4,109)=103 exch2_opposingSend(4,109)=3 exch2_pij(1,4,109)=1 exch2_pij(2,4,109)=0 exch2_pij(3,4,109)=0 exch2_pij(4,4,109)=1 exch2_oi(4,109)=0 exch2_oj(4,109)=0 RETURN END SUBROUTINE W2_E2SETUP_110 C Topology for tile 110 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(110)=34 exch2_tNy(110)=102 exch2_tBasex(110)=136 exch2_tBasey(110)=204 exch2_txGlobalo(110)=647 exch2_tyGlobalo(110)=205 exch2_isWedge(110)=0 exch2_isNedge(110)=0 exch2_isEedge(110)=0 exch2_isSedge(110)=0 exch2_myFace(110)=2 exch2_mydNx(110)=510 exch2_mydNy(110)=510 exch2_nNeighbours(110)=4 exch2_neighbourId(1,110)=125 exch2_iLo(1,110)=0 exch2_iHi(1,110)=35 exch2_jLo(1,110)=103 exch2_jHi(1,110)=103 exch2_opposingSend(1,110)=2 exch2_pij(1,1,110)=1 exch2_pij(2,1,110)=0 exch2_pij(3,1,110)=0 exch2_pij(4,1,110)=1 exch2_oi(1,110)=0 exch2_oj(1,110)=0 exch2_neighbourId(2,110)=95 exch2_iLo(2,110)=0 exch2_iHi(2,110)=35 exch2_jLo(2,110)=0 exch2_jHi(2,110)=0 exch2_opposingSend(2,110)=1 exch2_pij(1,2,110)=1 exch2_pij(2,2,110)=0 exch2_pij(3,2,110)=0 exch2_pij(4,2,110)=1 exch2_oi(2,110)=0 exch2_oj(2,110)=0 exch2_neighbourId(3,110)=111 exch2_iLo(3,110)=35 exch2_iHi(3,110)=35 exch2_jLo(3,110)=0 exch2_jHi(3,110)=103 exch2_opposingSend(3,110)=4 exch2_pij(1,3,110)=1 exch2_pij(2,3,110)=0 exch2_pij(3,3,110)=0 exch2_pij(4,3,110)=1 exch2_oi(3,110)=0 exch2_oj(3,110)=0 exch2_neighbourId(4,110)=109 exch2_iLo(4,110)=0 exch2_iHi(4,110)=0 exch2_jLo(4,110)=0 exch2_jHi(4,110)=103 exch2_opposingSend(4,110)=3 exch2_pij(1,4,110)=1 exch2_pij(2,4,110)=0 exch2_pij(3,4,110)=0 exch2_pij(4,4,110)=1 exch2_oi(4,110)=0 exch2_oj(4,110)=0 RETURN END SUBROUTINE W2_E2SETUP_111 C Topology for tile 111 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(111)=34 exch2_tNy(111)=102 exch2_tBasex(111)=170 exch2_tBasey(111)=204 exch2_txGlobalo(111)=681 exch2_tyGlobalo(111)=205 exch2_isWedge(111)=0 exch2_isNedge(111)=0 exch2_isEedge(111)=0 exch2_isSedge(111)=0 exch2_myFace(111)=2 exch2_mydNx(111)=510 exch2_mydNy(111)=510 exch2_nNeighbours(111)=4 exch2_neighbourId(1,111)=126 exch2_iLo(1,111)=0 exch2_iHi(1,111)=35 exch2_jLo(1,111)=103 exch2_jHi(1,111)=103 exch2_opposingSend(1,111)=2 exch2_pij(1,1,111)=1 exch2_pij(2,1,111)=0 exch2_pij(3,1,111)=0 exch2_pij(4,1,111)=1 exch2_oi(1,111)=0 exch2_oj(1,111)=0 exch2_neighbourId(2,111)=96 exch2_iLo(2,111)=0 exch2_iHi(2,111)=35 exch2_jLo(2,111)=0 exch2_jHi(2,111)=0 exch2_opposingSend(2,111)=1 exch2_pij(1,2,111)=1 exch2_pij(2,2,111)=0 exch2_pij(3,2,111)=0 exch2_pij(4,2,111)=1 exch2_oi(2,111)=0 exch2_oj(2,111)=0 exch2_neighbourId(3,111)=112 exch2_iLo(3,111)=35 exch2_iHi(3,111)=35 exch2_jLo(3,111)=0 exch2_jHi(3,111)=103 exch2_opposingSend(3,111)=4 exch2_pij(1,3,111)=1 exch2_pij(2,3,111)=0 exch2_pij(3,3,111)=0 exch2_pij(4,3,111)=1 exch2_oi(3,111)=0 exch2_oj(3,111)=0 exch2_neighbourId(4,111)=110 exch2_iLo(4,111)=0 exch2_iHi(4,111)=0 exch2_jLo(4,111)=0 exch2_jHi(4,111)=103 exch2_opposingSend(4,111)=3 exch2_pij(1,4,111)=1 exch2_pij(2,4,111)=0 exch2_pij(3,4,111)=0 exch2_pij(4,4,111)=1 exch2_oi(4,111)=0 exch2_oj(4,111)=0 RETURN END SUBROUTINE W2_E2SETUP_112 C Topology for tile 112 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(112)=34 exch2_tNy(112)=102 exch2_tBasex(112)=204 exch2_tBasey(112)=204 exch2_txGlobalo(112)=715 exch2_tyGlobalo(112)=205 exch2_isWedge(112)=0 exch2_isNedge(112)=0 exch2_isEedge(112)=0 exch2_isSedge(112)=0 exch2_myFace(112)=2 exch2_mydNx(112)=510 exch2_mydNy(112)=510 exch2_nNeighbours(112)=4 exch2_neighbourId(1,112)=127 exch2_iLo(1,112)=0 exch2_iHi(1,112)=35 exch2_jLo(1,112)=103 exch2_jHi(1,112)=103 exch2_opposingSend(1,112)=2 exch2_pij(1,1,112)=1 exch2_pij(2,1,112)=0 exch2_pij(3,1,112)=0 exch2_pij(4,1,112)=1 exch2_oi(1,112)=0 exch2_oj(1,112)=0 exch2_neighbourId(2,112)=97 exch2_iLo(2,112)=0 exch2_iHi(2,112)=35 exch2_jLo(2,112)=0 exch2_jHi(2,112)=0 exch2_opposingSend(2,112)=1 exch2_pij(1,2,112)=1 exch2_pij(2,2,112)=0 exch2_pij(3,2,112)=0 exch2_pij(4,2,112)=1 exch2_oi(2,112)=0 exch2_oj(2,112)=0 exch2_neighbourId(3,112)=113 exch2_iLo(3,112)=35 exch2_iHi(3,112)=35 exch2_jLo(3,112)=0 exch2_jHi(3,112)=103 exch2_opposingSend(3,112)=4 exch2_pij(1,3,112)=1 exch2_pij(2,3,112)=0 exch2_pij(3,3,112)=0 exch2_pij(4,3,112)=1 exch2_oi(3,112)=0 exch2_oj(3,112)=0 exch2_neighbourId(4,112)=111 exch2_iLo(4,112)=0 exch2_iHi(4,112)=0 exch2_jLo(4,112)=0 exch2_jHi(4,112)=103 exch2_opposingSend(4,112)=3 exch2_pij(1,4,112)=1 exch2_pij(2,4,112)=0 exch2_pij(3,4,112)=0 exch2_pij(4,4,112)=1 exch2_oi(4,112)=0 exch2_oj(4,112)=0 RETURN END SUBROUTINE W2_E2SETUP_113 C Topology for tile 113 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(113)=34 exch2_tNy(113)=102 exch2_tBasex(113)=238 exch2_tBasey(113)=204 exch2_txGlobalo(113)=749 exch2_tyGlobalo(113)=205 exch2_isWedge(113)=0 exch2_isNedge(113)=0 exch2_isEedge(113)=0 exch2_isSedge(113)=0 exch2_myFace(113)=2 exch2_mydNx(113)=510 exch2_mydNy(113)=510 exch2_nNeighbours(113)=4 exch2_neighbourId(1,113)=128 exch2_iLo(1,113)=0 exch2_iHi(1,113)=35 exch2_jLo(1,113)=103 exch2_jHi(1,113)=103 exch2_opposingSend(1,113)=2 exch2_pij(1,1,113)=1 exch2_pij(2,1,113)=0 exch2_pij(3,1,113)=0 exch2_pij(4,1,113)=1 exch2_oi(1,113)=0 exch2_oj(1,113)=0 exch2_neighbourId(2,113)=98 exch2_iLo(2,113)=0 exch2_iHi(2,113)=35 exch2_jLo(2,113)=0 exch2_jHi(2,113)=0 exch2_opposingSend(2,113)=1 exch2_pij(1,2,113)=1 exch2_pij(2,2,113)=0 exch2_pij(3,2,113)=0 exch2_pij(4,2,113)=1 exch2_oi(2,113)=0 exch2_oj(2,113)=0 exch2_neighbourId(3,113)=114 exch2_iLo(3,113)=35 exch2_iHi(3,113)=35 exch2_jLo(3,113)=0 exch2_jHi(3,113)=103 exch2_opposingSend(3,113)=4 exch2_pij(1,3,113)=1 exch2_pij(2,3,113)=0 exch2_pij(3,3,113)=0 exch2_pij(4,3,113)=1 exch2_oi(3,113)=0 exch2_oj(3,113)=0 exch2_neighbourId(4,113)=112 exch2_iLo(4,113)=0 exch2_iHi(4,113)=0 exch2_jLo(4,113)=0 exch2_jHi(4,113)=103 exch2_opposingSend(4,113)=3 exch2_pij(1,4,113)=1 exch2_pij(2,4,113)=0 exch2_pij(3,4,113)=0 exch2_pij(4,4,113)=1 exch2_oi(4,113)=0 exch2_oj(4,113)=0 RETURN END SUBROUTINE W2_E2SETUP_114 C Topology for tile 114 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(114)=34 exch2_tNy(114)=102 exch2_tBasex(114)=272 exch2_tBasey(114)=204 exch2_txGlobalo(114)=783 exch2_tyGlobalo(114)=205 exch2_isWedge(114)=0 exch2_isNedge(114)=0 exch2_isEedge(114)=0 exch2_isSedge(114)=0 exch2_myFace(114)=2 exch2_mydNx(114)=510 exch2_mydNy(114)=510 exch2_nNeighbours(114)=4 exch2_neighbourId(1,114)=129 exch2_iLo(1,114)=0 exch2_iHi(1,114)=35 exch2_jLo(1,114)=103 exch2_jHi(1,114)=103 exch2_opposingSend(1,114)=2 exch2_pij(1,1,114)=1 exch2_pij(2,1,114)=0 exch2_pij(3,1,114)=0 exch2_pij(4,1,114)=1 exch2_oi(1,114)=0 exch2_oj(1,114)=0 exch2_neighbourId(2,114)=99 exch2_iLo(2,114)=0 exch2_iHi(2,114)=35 exch2_jLo(2,114)=0 exch2_jHi(2,114)=0 exch2_opposingSend(2,114)=1 exch2_pij(1,2,114)=1 exch2_pij(2,2,114)=0 exch2_pij(3,2,114)=0 exch2_pij(4,2,114)=1 exch2_oi(2,114)=0 exch2_oj(2,114)=0 exch2_neighbourId(3,114)=115 exch2_iLo(3,114)=35 exch2_iHi(3,114)=35 exch2_jLo(3,114)=0 exch2_jHi(3,114)=103 exch2_opposingSend(3,114)=4 exch2_pij(1,3,114)=1 exch2_pij(2,3,114)=0 exch2_pij(3,3,114)=0 exch2_pij(4,3,114)=1 exch2_oi(3,114)=0 exch2_oj(3,114)=0 exch2_neighbourId(4,114)=113 exch2_iLo(4,114)=0 exch2_iHi(4,114)=0 exch2_jLo(4,114)=0 exch2_jHi(4,114)=103 exch2_opposingSend(4,114)=3 exch2_pij(1,4,114)=1 exch2_pij(2,4,114)=0 exch2_pij(3,4,114)=0 exch2_pij(4,4,114)=1 exch2_oi(4,114)=0 exch2_oj(4,114)=0 RETURN END SUBROUTINE W2_E2SETUP_115 C Topology for tile 115 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(115)=34 exch2_tNy(115)=102 exch2_tBasex(115)=306 exch2_tBasey(115)=204 exch2_txGlobalo(115)=817 exch2_tyGlobalo(115)=205 exch2_isWedge(115)=0 exch2_isNedge(115)=0 exch2_isEedge(115)=0 exch2_isSedge(115)=0 exch2_myFace(115)=2 exch2_mydNx(115)=510 exch2_mydNy(115)=510 exch2_nNeighbours(115)=4 exch2_neighbourId(1,115)=130 exch2_iLo(1,115)=0 exch2_iHi(1,115)=35 exch2_jLo(1,115)=103 exch2_jHi(1,115)=103 exch2_opposingSend(1,115)=2 exch2_pij(1,1,115)=1 exch2_pij(2,1,115)=0 exch2_pij(3,1,115)=0 exch2_pij(4,1,115)=1 exch2_oi(1,115)=0 exch2_oj(1,115)=0 exch2_neighbourId(2,115)=100 exch2_iLo(2,115)=0 exch2_iHi(2,115)=35 exch2_jLo(2,115)=0 exch2_jHi(2,115)=0 exch2_opposingSend(2,115)=1 exch2_pij(1,2,115)=1 exch2_pij(2,2,115)=0 exch2_pij(3,2,115)=0 exch2_pij(4,2,115)=1 exch2_oi(2,115)=0 exch2_oj(2,115)=0 exch2_neighbourId(3,115)=116 exch2_iLo(3,115)=35 exch2_iHi(3,115)=35 exch2_jLo(3,115)=0 exch2_jHi(3,115)=103 exch2_opposingSend(3,115)=4 exch2_pij(1,3,115)=1 exch2_pij(2,3,115)=0 exch2_pij(3,3,115)=0 exch2_pij(4,3,115)=1 exch2_oi(3,115)=0 exch2_oj(3,115)=0 exch2_neighbourId(4,115)=114 exch2_iLo(4,115)=0 exch2_iHi(4,115)=0 exch2_jLo(4,115)=0 exch2_jHi(4,115)=103 exch2_opposingSend(4,115)=3 exch2_pij(1,4,115)=1 exch2_pij(2,4,115)=0 exch2_pij(3,4,115)=0 exch2_pij(4,4,115)=1 exch2_oi(4,115)=0 exch2_oj(4,115)=0 RETURN END SUBROUTINE W2_E2SETUP_116 C Topology for tile 116 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(116)=34 exch2_tNy(116)=102 exch2_tBasex(116)=340 exch2_tBasey(116)=204 exch2_txGlobalo(116)=851 exch2_tyGlobalo(116)=205 exch2_isWedge(116)=0 exch2_isNedge(116)=0 exch2_isEedge(116)=0 exch2_isSedge(116)=0 exch2_myFace(116)=2 exch2_mydNx(116)=510 exch2_mydNy(116)=510 exch2_nNeighbours(116)=4 exch2_neighbourId(1,116)=131 exch2_iLo(1,116)=0 exch2_iHi(1,116)=35 exch2_jLo(1,116)=103 exch2_jHi(1,116)=103 exch2_opposingSend(1,116)=2 exch2_pij(1,1,116)=1 exch2_pij(2,1,116)=0 exch2_pij(3,1,116)=0 exch2_pij(4,1,116)=1 exch2_oi(1,116)=0 exch2_oj(1,116)=0 exch2_neighbourId(2,116)=101 exch2_iLo(2,116)=0 exch2_iHi(2,116)=35 exch2_jLo(2,116)=0 exch2_jHi(2,116)=0 exch2_opposingSend(2,116)=1 exch2_pij(1,2,116)=1 exch2_pij(2,2,116)=0 exch2_pij(3,2,116)=0 exch2_pij(4,2,116)=1 exch2_oi(2,116)=0 exch2_oj(2,116)=0 exch2_neighbourId(3,116)=117 exch2_iLo(3,116)=35 exch2_iHi(3,116)=35 exch2_jLo(3,116)=0 exch2_jHi(3,116)=103 exch2_opposingSend(3,116)=4 exch2_pij(1,3,116)=1 exch2_pij(2,3,116)=0 exch2_pij(3,3,116)=0 exch2_pij(4,3,116)=1 exch2_oi(3,116)=0 exch2_oj(3,116)=0 exch2_neighbourId(4,116)=115 exch2_iLo(4,116)=0 exch2_iHi(4,116)=0 exch2_jLo(4,116)=0 exch2_jHi(4,116)=103 exch2_opposingSend(4,116)=3 exch2_pij(1,4,116)=1 exch2_pij(2,4,116)=0 exch2_pij(3,4,116)=0 exch2_pij(4,4,116)=1 exch2_oi(4,116)=0 exch2_oj(4,116)=0 RETURN END SUBROUTINE W2_E2SETUP_117 C Topology for tile 117 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(117)=34 exch2_tNy(117)=102 exch2_tBasex(117)=374 exch2_tBasey(117)=204 exch2_txGlobalo(117)=885 exch2_tyGlobalo(117)=205 exch2_isWedge(117)=0 exch2_isNedge(117)=0 exch2_isEedge(117)=0 exch2_isSedge(117)=0 exch2_myFace(117)=2 exch2_mydNx(117)=510 exch2_mydNy(117)=510 exch2_nNeighbours(117)=4 exch2_neighbourId(1,117)=132 exch2_iLo(1,117)=0 exch2_iHi(1,117)=35 exch2_jLo(1,117)=103 exch2_jHi(1,117)=103 exch2_opposingSend(1,117)=2 exch2_pij(1,1,117)=1 exch2_pij(2,1,117)=0 exch2_pij(3,1,117)=0 exch2_pij(4,1,117)=1 exch2_oi(1,117)=0 exch2_oj(1,117)=0 exch2_neighbourId(2,117)=102 exch2_iLo(2,117)=0 exch2_iHi(2,117)=35 exch2_jLo(2,117)=0 exch2_jHi(2,117)=0 exch2_opposingSend(2,117)=1 exch2_pij(1,2,117)=1 exch2_pij(2,2,117)=0 exch2_pij(3,2,117)=0 exch2_pij(4,2,117)=1 exch2_oi(2,117)=0 exch2_oj(2,117)=0 exch2_neighbourId(3,117)=118 exch2_iLo(3,117)=35 exch2_iHi(3,117)=35 exch2_jLo(3,117)=0 exch2_jHi(3,117)=103 exch2_opposingSend(3,117)=4 exch2_pij(1,3,117)=1 exch2_pij(2,3,117)=0 exch2_pij(3,3,117)=0 exch2_pij(4,3,117)=1 exch2_oi(3,117)=0 exch2_oj(3,117)=0 exch2_neighbourId(4,117)=116 exch2_iLo(4,117)=0 exch2_iHi(4,117)=0 exch2_jLo(4,117)=0 exch2_jHi(4,117)=103 exch2_opposingSend(4,117)=3 exch2_pij(1,4,117)=1 exch2_pij(2,4,117)=0 exch2_pij(3,4,117)=0 exch2_pij(4,4,117)=1 exch2_oi(4,117)=0 exch2_oj(4,117)=0 RETURN END SUBROUTINE W2_E2SETUP_118 C Topology for tile 118 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(118)=34 exch2_tNy(118)=102 exch2_tBasex(118)=408 exch2_tBasey(118)=204 exch2_txGlobalo(118)=919 exch2_tyGlobalo(118)=205 exch2_isWedge(118)=0 exch2_isNedge(118)=0 exch2_isEedge(118)=0 exch2_isSedge(118)=0 exch2_myFace(118)=2 exch2_mydNx(118)=510 exch2_mydNy(118)=510 exch2_nNeighbours(118)=4 exch2_neighbourId(1,118)=133 exch2_iLo(1,118)=0 exch2_iHi(1,118)=35 exch2_jLo(1,118)=103 exch2_jHi(1,118)=103 exch2_opposingSend(1,118)=2 exch2_pij(1,1,118)=1 exch2_pij(2,1,118)=0 exch2_pij(3,1,118)=0 exch2_pij(4,1,118)=1 exch2_oi(1,118)=0 exch2_oj(1,118)=0 exch2_neighbourId(2,118)=103 exch2_iLo(2,118)=0 exch2_iHi(2,118)=35 exch2_jLo(2,118)=0 exch2_jHi(2,118)=0 exch2_opposingSend(2,118)=1 exch2_pij(1,2,118)=1 exch2_pij(2,2,118)=0 exch2_pij(3,2,118)=0 exch2_pij(4,2,118)=1 exch2_oi(2,118)=0 exch2_oj(2,118)=0 exch2_neighbourId(3,118)=119 exch2_iLo(3,118)=35 exch2_iHi(3,118)=35 exch2_jLo(3,118)=0 exch2_jHi(3,118)=103 exch2_opposingSend(3,118)=4 exch2_pij(1,3,118)=1 exch2_pij(2,3,118)=0 exch2_pij(3,3,118)=0 exch2_pij(4,3,118)=1 exch2_oi(3,118)=0 exch2_oj(3,118)=0 exch2_neighbourId(4,118)=117 exch2_iLo(4,118)=0 exch2_iHi(4,118)=0 exch2_jLo(4,118)=0 exch2_jHi(4,118)=103 exch2_opposingSend(4,118)=3 exch2_pij(1,4,118)=1 exch2_pij(2,4,118)=0 exch2_pij(3,4,118)=0 exch2_pij(4,4,118)=1 exch2_oi(4,118)=0 exch2_oj(4,118)=0 RETURN END SUBROUTINE W2_E2SETUP_119 C Topology for tile 119 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(119)=34 exch2_tNy(119)=102 exch2_tBasex(119)=442 exch2_tBasey(119)=204 exch2_txGlobalo(119)=953 exch2_tyGlobalo(119)=205 exch2_isWedge(119)=0 exch2_isNedge(119)=0 exch2_isEedge(119)=0 exch2_isSedge(119)=0 exch2_myFace(119)=2 exch2_mydNx(119)=510 exch2_mydNy(119)=510 exch2_nNeighbours(119)=4 exch2_neighbourId(1,119)=134 exch2_iLo(1,119)=0 exch2_iHi(1,119)=35 exch2_jLo(1,119)=103 exch2_jHi(1,119)=103 exch2_opposingSend(1,119)=2 exch2_pij(1,1,119)=1 exch2_pij(2,1,119)=0 exch2_pij(3,1,119)=0 exch2_pij(4,1,119)=1 exch2_oi(1,119)=0 exch2_oj(1,119)=0 exch2_neighbourId(2,119)=104 exch2_iLo(2,119)=0 exch2_iHi(2,119)=35 exch2_jLo(2,119)=0 exch2_jHi(2,119)=0 exch2_opposingSend(2,119)=1 exch2_pij(1,2,119)=1 exch2_pij(2,2,119)=0 exch2_pij(3,2,119)=0 exch2_pij(4,2,119)=1 exch2_oi(2,119)=0 exch2_oj(2,119)=0 exch2_neighbourId(3,119)=120 exch2_iLo(3,119)=35 exch2_iHi(3,119)=35 exch2_jLo(3,119)=0 exch2_jHi(3,119)=103 exch2_opposingSend(3,119)=6 exch2_pij(1,3,119)=1 exch2_pij(2,3,119)=0 exch2_pij(3,3,119)=0 exch2_pij(4,3,119)=1 exch2_oi(3,119)=0 exch2_oj(3,119)=0 exch2_neighbourId(4,119)=118 exch2_iLo(4,119)=0 exch2_iHi(4,119)=0 exch2_jLo(4,119)=0 exch2_jHi(4,119)=103 exch2_opposingSend(4,119)=3 exch2_pij(1,4,119)=1 exch2_pij(2,4,119)=0 exch2_pij(3,4,119)=0 exch2_pij(4,4,119)=1 exch2_oi(4,119)=0 exch2_oj(4,119)=0 RETURN END SUBROUTINE W2_E2SETUP_120 C Topology for tile 120 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(120)=34 exch2_tNy(120)=102 exch2_tBasex(120)=476 exch2_tBasey(120)=204 exch2_txGlobalo(120)=987 exch2_tyGlobalo(120)=205 exch2_isWedge(120)=0 exch2_isNedge(120)=0 exch2_isEedge(120)=1 exch2_isSedge(120)=0 exch2_myFace(120)=2 exch2_mydNx(120)=510 exch2_mydNy(120)=510 exch2_nNeighbours(120)=6 exch2_neighbourId(1,120)=135 exch2_iLo(1,120)=0 exch2_iHi(1,120)=35 exch2_jLo(1,120)=103 exch2_jHi(1,120)=103 exch2_opposingSend(1,120)=2 exch2_pij(1,1,120)=1 exch2_pij(2,1,120)=0 exch2_pij(3,1,120)=0 exch2_pij(4,1,120)=1 exch2_oi(1,120)=0 exch2_oj(1,120)=0 exch2_neighbourId(2,120)=105 exch2_iLo(2,120)=0 exch2_iHi(2,120)=35 exch2_jLo(2,120)=0 exch2_jHi(2,120)=0 exch2_opposingSend(2,120)=1 exch2_pij(1,2,120)=1 exch2_pij(2,2,120)=0 exch2_pij(3,2,120)=0 exch2_pij(4,2,120)=1 exch2_oi(2,120)=0 exch2_oj(2,120)=0 exch2_neighbourId(3,120)=232 exch2_iLo(3,120)=35 exch2_iHi(3,120)=35 exch2_jLo(3,120)=68 exch2_jHi(3,120)=103 exch2_opposingSend(3,120)=2 exch2_pij(1,3,120)=0 exch2_pij(2,3,120)=1 exch2_pij(3,3,120)=-1 exch2_pij(4,3,120)=0 exch2_oi(3,120)=510 exch2_oj(3,120)=511 exch2_neighbourId(4,120)=233 exch2_iLo(4,120)=35 exch2_iHi(4,120)=35 exch2_jLo(4,120)=34 exch2_jHi(4,120)=69 exch2_opposingSend(4,120)=2 exch2_pij(1,4,120)=0 exch2_pij(2,4,120)=1 exch2_pij(3,4,120)=-1 exch2_pij(4,4,120)=0 exch2_oi(4,120)=510 exch2_oj(4,120)=511 exch2_neighbourId(5,120)=234 exch2_iLo(5,120)=35 exch2_iHi(5,120)=35 exch2_jLo(5,120)=0 exch2_jHi(5,120)=35 exch2_opposingSend(5,120)=2 exch2_pij(1,5,120)=0 exch2_pij(2,5,120)=1 exch2_pij(3,5,120)=-1 exch2_pij(4,5,120)=0 exch2_oi(5,120)=510 exch2_oj(5,120)=511 exch2_neighbourId(6,120)=119 exch2_iLo(6,120)=0 exch2_iHi(6,120)=0 exch2_jLo(6,120)=0 exch2_jHi(6,120)=103 exch2_opposingSend(6,120)=3 exch2_pij(1,6,120)=1 exch2_pij(2,6,120)=0 exch2_pij(3,6,120)=0 exch2_pij(4,6,120)=1 exch2_oi(6,120)=0 exch2_oj(6,120)=0 RETURN END SUBROUTINE W2_E2SETUP_121 C Topology for tile 121 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(121)=34 exch2_tNy(121)=102 exch2_tBasex(121)=0 exch2_tBasey(121)=306 exch2_txGlobalo(121)=511 exch2_tyGlobalo(121)=307 exch2_isWedge(121)=1 exch2_isNedge(121)=0 exch2_isEedge(121)=0 exch2_isSedge(121)=0 exch2_myFace(121)=2 exch2_mydNx(121)=510 exch2_mydNy(121)=510 exch2_nNeighbours(121)=4 exch2_neighbourId(1,121)=136 exch2_iLo(1,121)=0 exch2_iHi(1,121)=35 exch2_jLo(1,121)=103 exch2_jHi(1,121)=103 exch2_opposingSend(1,121)=2 exch2_pij(1,1,121)=1 exch2_pij(2,1,121)=0 exch2_pij(3,1,121)=0 exch2_pij(4,1,121)=1 exch2_oi(1,121)=0 exch2_oj(1,121)=0 exch2_neighbourId(2,121)=106 exch2_iLo(2,121)=0 exch2_iHi(2,121)=35 exch2_jLo(2,121)=0 exch2_jHi(2,121)=0 exch2_opposingSend(2,121)=1 exch2_pij(1,2,121)=1 exch2_pij(2,2,121)=0 exch2_pij(3,2,121)=0 exch2_pij(4,2,121)=1 exch2_oi(2,121)=0 exch2_oj(2,121)=0 exch2_neighbourId(3,121)=122 exch2_iLo(3,121)=35 exch2_iHi(3,121)=35 exch2_jLo(3,121)=0 exch2_jHi(3,121)=103 exch2_opposingSend(3,121)=4 exch2_pij(1,3,121)=1 exch2_pij(2,3,121)=0 exch2_pij(3,3,121)=0 exch2_pij(4,3,121)=1 exch2_oi(3,121)=0 exch2_oj(3,121)=0 exch2_neighbourId(4,121)=60 exch2_iLo(4,121)=0 exch2_iHi(4,121)=0 exch2_jLo(4,121)=0 exch2_jHi(4,121)=103 exch2_opposingSend(4,121)=3 exch2_pij(1,4,121)=1 exch2_pij(2,4,121)=0 exch2_pij(3,4,121)=0 exch2_pij(4,4,121)=1 exch2_oi(4,121)=-510 exch2_oj(4,121)=0 RETURN END SUBROUTINE W2_E2SETUP_122 C Topology for tile 122 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(122)=34 exch2_tNy(122)=102 exch2_tBasex(122)=34 exch2_tBasey(122)=306 exch2_txGlobalo(122)=545 exch2_tyGlobalo(122)=307 exch2_isWedge(122)=0 exch2_isNedge(122)=0 exch2_isEedge(122)=0 exch2_isSedge(122)=0 exch2_myFace(122)=2 exch2_mydNx(122)=510 exch2_mydNy(122)=510 exch2_nNeighbours(122)=4 exch2_neighbourId(1,122)=137 exch2_iLo(1,122)=0 exch2_iHi(1,122)=35 exch2_jLo(1,122)=103 exch2_jHi(1,122)=103 exch2_opposingSend(1,122)=2 exch2_pij(1,1,122)=1 exch2_pij(2,1,122)=0 exch2_pij(3,1,122)=0 exch2_pij(4,1,122)=1 exch2_oi(1,122)=0 exch2_oj(1,122)=0 exch2_neighbourId(2,122)=107 exch2_iLo(2,122)=0 exch2_iHi(2,122)=35 exch2_jLo(2,122)=0 exch2_jHi(2,122)=0 exch2_opposingSend(2,122)=1 exch2_pij(1,2,122)=1 exch2_pij(2,2,122)=0 exch2_pij(3,2,122)=0 exch2_pij(4,2,122)=1 exch2_oi(2,122)=0 exch2_oj(2,122)=0 exch2_neighbourId(3,122)=123 exch2_iLo(3,122)=35 exch2_iHi(3,122)=35 exch2_jLo(3,122)=0 exch2_jHi(3,122)=103 exch2_opposingSend(3,122)=4 exch2_pij(1,3,122)=1 exch2_pij(2,3,122)=0 exch2_pij(3,3,122)=0 exch2_pij(4,3,122)=1 exch2_oi(3,122)=0 exch2_oj(3,122)=0 exch2_neighbourId(4,122)=121 exch2_iLo(4,122)=0 exch2_iHi(4,122)=0 exch2_jLo(4,122)=0 exch2_jHi(4,122)=103 exch2_opposingSend(4,122)=3 exch2_pij(1,4,122)=1 exch2_pij(2,4,122)=0 exch2_pij(3,4,122)=0 exch2_pij(4,4,122)=1 exch2_oi(4,122)=0 exch2_oj(4,122)=0 RETURN END SUBROUTINE W2_E2SETUP_123 C Topology for tile 123 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(123)=34 exch2_tNy(123)=102 exch2_tBasex(123)=68 exch2_tBasey(123)=306 exch2_txGlobalo(123)=579 exch2_tyGlobalo(123)=307 exch2_isWedge(123)=0 exch2_isNedge(123)=0 exch2_isEedge(123)=0 exch2_isSedge(123)=0 exch2_myFace(123)=2 exch2_mydNx(123)=510 exch2_mydNy(123)=510 exch2_nNeighbours(123)=4 exch2_neighbourId(1,123)=138 exch2_iLo(1,123)=0 exch2_iHi(1,123)=35 exch2_jLo(1,123)=103 exch2_jHi(1,123)=103 exch2_opposingSend(1,123)=2 exch2_pij(1,1,123)=1 exch2_pij(2,1,123)=0 exch2_pij(3,1,123)=0 exch2_pij(4,1,123)=1 exch2_oi(1,123)=0 exch2_oj(1,123)=0 exch2_neighbourId(2,123)=108 exch2_iLo(2,123)=0 exch2_iHi(2,123)=35 exch2_jLo(2,123)=0 exch2_jHi(2,123)=0 exch2_opposingSend(2,123)=1 exch2_pij(1,2,123)=1 exch2_pij(2,2,123)=0 exch2_pij(3,2,123)=0 exch2_pij(4,2,123)=1 exch2_oi(2,123)=0 exch2_oj(2,123)=0 exch2_neighbourId(3,123)=124 exch2_iLo(3,123)=35 exch2_iHi(3,123)=35 exch2_jLo(3,123)=0 exch2_jHi(3,123)=103 exch2_opposingSend(3,123)=4 exch2_pij(1,3,123)=1 exch2_pij(2,3,123)=0 exch2_pij(3,3,123)=0 exch2_pij(4,3,123)=1 exch2_oi(3,123)=0 exch2_oj(3,123)=0 exch2_neighbourId(4,123)=122 exch2_iLo(4,123)=0 exch2_iHi(4,123)=0 exch2_jLo(4,123)=0 exch2_jHi(4,123)=103 exch2_opposingSend(4,123)=3 exch2_pij(1,4,123)=1 exch2_pij(2,4,123)=0 exch2_pij(3,4,123)=0 exch2_pij(4,4,123)=1 exch2_oi(4,123)=0 exch2_oj(4,123)=0 RETURN END SUBROUTINE W2_E2SETUP_124 C Topology for tile 124 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(124)=34 exch2_tNy(124)=102 exch2_tBasex(124)=102 exch2_tBasey(124)=306 exch2_txGlobalo(124)=613 exch2_tyGlobalo(124)=307 exch2_isWedge(124)=0 exch2_isNedge(124)=0 exch2_isEedge(124)=0 exch2_isSedge(124)=0 exch2_myFace(124)=2 exch2_mydNx(124)=510 exch2_mydNy(124)=510 exch2_nNeighbours(124)=4 exch2_neighbourId(1,124)=139 exch2_iLo(1,124)=0 exch2_iHi(1,124)=35 exch2_jLo(1,124)=103 exch2_jHi(1,124)=103 exch2_opposingSend(1,124)=2 exch2_pij(1,1,124)=1 exch2_pij(2,1,124)=0 exch2_pij(3,1,124)=0 exch2_pij(4,1,124)=1 exch2_oi(1,124)=0 exch2_oj(1,124)=0 exch2_neighbourId(2,124)=109 exch2_iLo(2,124)=0 exch2_iHi(2,124)=35 exch2_jLo(2,124)=0 exch2_jHi(2,124)=0 exch2_opposingSend(2,124)=1 exch2_pij(1,2,124)=1 exch2_pij(2,2,124)=0 exch2_pij(3,2,124)=0 exch2_pij(4,2,124)=1 exch2_oi(2,124)=0 exch2_oj(2,124)=0 exch2_neighbourId(3,124)=125 exch2_iLo(3,124)=35 exch2_iHi(3,124)=35 exch2_jLo(3,124)=0 exch2_jHi(3,124)=103 exch2_opposingSend(3,124)=4 exch2_pij(1,3,124)=1 exch2_pij(2,3,124)=0 exch2_pij(3,3,124)=0 exch2_pij(4,3,124)=1 exch2_oi(3,124)=0 exch2_oj(3,124)=0 exch2_neighbourId(4,124)=123 exch2_iLo(4,124)=0 exch2_iHi(4,124)=0 exch2_jLo(4,124)=0 exch2_jHi(4,124)=103 exch2_opposingSend(4,124)=3 exch2_pij(1,4,124)=1 exch2_pij(2,4,124)=0 exch2_pij(3,4,124)=0 exch2_pij(4,4,124)=1 exch2_oi(4,124)=0 exch2_oj(4,124)=0 RETURN END SUBROUTINE W2_E2SETUP_125 C Topology for tile 125 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(125)=34 exch2_tNy(125)=102 exch2_tBasex(125)=136 exch2_tBasey(125)=306 exch2_txGlobalo(125)=647 exch2_tyGlobalo(125)=307 exch2_isWedge(125)=0 exch2_isNedge(125)=0 exch2_isEedge(125)=0 exch2_isSedge(125)=0 exch2_myFace(125)=2 exch2_mydNx(125)=510 exch2_mydNy(125)=510 exch2_nNeighbours(125)=4 exch2_neighbourId(1,125)=140 exch2_iLo(1,125)=0 exch2_iHi(1,125)=35 exch2_jLo(1,125)=103 exch2_jHi(1,125)=103 exch2_opposingSend(1,125)=2 exch2_pij(1,1,125)=1 exch2_pij(2,1,125)=0 exch2_pij(3,1,125)=0 exch2_pij(4,1,125)=1 exch2_oi(1,125)=0 exch2_oj(1,125)=0 exch2_neighbourId(2,125)=110 exch2_iLo(2,125)=0 exch2_iHi(2,125)=35 exch2_jLo(2,125)=0 exch2_jHi(2,125)=0 exch2_opposingSend(2,125)=1 exch2_pij(1,2,125)=1 exch2_pij(2,2,125)=0 exch2_pij(3,2,125)=0 exch2_pij(4,2,125)=1 exch2_oi(2,125)=0 exch2_oj(2,125)=0 exch2_neighbourId(3,125)=126 exch2_iLo(3,125)=35 exch2_iHi(3,125)=35 exch2_jLo(3,125)=0 exch2_jHi(3,125)=103 exch2_opposingSend(3,125)=4 exch2_pij(1,3,125)=1 exch2_pij(2,3,125)=0 exch2_pij(3,3,125)=0 exch2_pij(4,3,125)=1 exch2_oi(3,125)=0 exch2_oj(3,125)=0 exch2_neighbourId(4,125)=124 exch2_iLo(4,125)=0 exch2_iHi(4,125)=0 exch2_jLo(4,125)=0 exch2_jHi(4,125)=103 exch2_opposingSend(4,125)=3 exch2_pij(1,4,125)=1 exch2_pij(2,4,125)=0 exch2_pij(3,4,125)=0 exch2_pij(4,4,125)=1 exch2_oi(4,125)=0 exch2_oj(4,125)=0 RETURN END SUBROUTINE W2_E2SETUP_126 C Topology for tile 126 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(126)=34 exch2_tNy(126)=102 exch2_tBasex(126)=170 exch2_tBasey(126)=306 exch2_txGlobalo(126)=681 exch2_tyGlobalo(126)=307 exch2_isWedge(126)=0 exch2_isNedge(126)=0 exch2_isEedge(126)=0 exch2_isSedge(126)=0 exch2_myFace(126)=2 exch2_mydNx(126)=510 exch2_mydNy(126)=510 exch2_nNeighbours(126)=4 exch2_neighbourId(1,126)=141 exch2_iLo(1,126)=0 exch2_iHi(1,126)=35 exch2_jLo(1,126)=103 exch2_jHi(1,126)=103 exch2_opposingSend(1,126)=2 exch2_pij(1,1,126)=1 exch2_pij(2,1,126)=0 exch2_pij(3,1,126)=0 exch2_pij(4,1,126)=1 exch2_oi(1,126)=0 exch2_oj(1,126)=0 exch2_neighbourId(2,126)=111 exch2_iLo(2,126)=0 exch2_iHi(2,126)=35 exch2_jLo(2,126)=0 exch2_jHi(2,126)=0 exch2_opposingSend(2,126)=1 exch2_pij(1,2,126)=1 exch2_pij(2,2,126)=0 exch2_pij(3,2,126)=0 exch2_pij(4,2,126)=1 exch2_oi(2,126)=0 exch2_oj(2,126)=0 exch2_neighbourId(3,126)=127 exch2_iLo(3,126)=35 exch2_iHi(3,126)=35 exch2_jLo(3,126)=0 exch2_jHi(3,126)=103 exch2_opposingSend(3,126)=4 exch2_pij(1,3,126)=1 exch2_pij(2,3,126)=0 exch2_pij(3,3,126)=0 exch2_pij(4,3,126)=1 exch2_oi(3,126)=0 exch2_oj(3,126)=0 exch2_neighbourId(4,126)=125 exch2_iLo(4,126)=0 exch2_iHi(4,126)=0 exch2_jLo(4,126)=0 exch2_jHi(4,126)=103 exch2_opposingSend(4,126)=3 exch2_pij(1,4,126)=1 exch2_pij(2,4,126)=0 exch2_pij(3,4,126)=0 exch2_pij(4,4,126)=1 exch2_oi(4,126)=0 exch2_oj(4,126)=0 RETURN END SUBROUTINE W2_E2SETUP_127 C Topology for tile 127 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(127)=34 exch2_tNy(127)=102 exch2_tBasex(127)=204 exch2_tBasey(127)=306 exch2_txGlobalo(127)=715 exch2_tyGlobalo(127)=307 exch2_isWedge(127)=0 exch2_isNedge(127)=0 exch2_isEedge(127)=0 exch2_isSedge(127)=0 exch2_myFace(127)=2 exch2_mydNx(127)=510 exch2_mydNy(127)=510 exch2_nNeighbours(127)=4 exch2_neighbourId(1,127)=142 exch2_iLo(1,127)=0 exch2_iHi(1,127)=35 exch2_jLo(1,127)=103 exch2_jHi(1,127)=103 exch2_opposingSend(1,127)=2 exch2_pij(1,1,127)=1 exch2_pij(2,1,127)=0 exch2_pij(3,1,127)=0 exch2_pij(4,1,127)=1 exch2_oi(1,127)=0 exch2_oj(1,127)=0 exch2_neighbourId(2,127)=112 exch2_iLo(2,127)=0 exch2_iHi(2,127)=35 exch2_jLo(2,127)=0 exch2_jHi(2,127)=0 exch2_opposingSend(2,127)=1 exch2_pij(1,2,127)=1 exch2_pij(2,2,127)=0 exch2_pij(3,2,127)=0 exch2_pij(4,2,127)=1 exch2_oi(2,127)=0 exch2_oj(2,127)=0 exch2_neighbourId(3,127)=128 exch2_iLo(3,127)=35 exch2_iHi(3,127)=35 exch2_jLo(3,127)=0 exch2_jHi(3,127)=103 exch2_opposingSend(3,127)=4 exch2_pij(1,3,127)=1 exch2_pij(2,3,127)=0 exch2_pij(3,3,127)=0 exch2_pij(4,3,127)=1 exch2_oi(3,127)=0 exch2_oj(3,127)=0 exch2_neighbourId(4,127)=126 exch2_iLo(4,127)=0 exch2_iHi(4,127)=0 exch2_jLo(4,127)=0 exch2_jHi(4,127)=103 exch2_opposingSend(4,127)=3 exch2_pij(1,4,127)=1 exch2_pij(2,4,127)=0 exch2_pij(3,4,127)=0 exch2_pij(4,4,127)=1 exch2_oi(4,127)=0 exch2_oj(4,127)=0 RETURN END SUBROUTINE W2_E2SETUP_128 C Topology for tile 128 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(128)=34 exch2_tNy(128)=102 exch2_tBasex(128)=238 exch2_tBasey(128)=306 exch2_txGlobalo(128)=749 exch2_tyGlobalo(128)=307 exch2_isWedge(128)=0 exch2_isNedge(128)=0 exch2_isEedge(128)=0 exch2_isSedge(128)=0 exch2_myFace(128)=2 exch2_mydNx(128)=510 exch2_mydNy(128)=510 exch2_nNeighbours(128)=4 exch2_neighbourId(1,128)=143 exch2_iLo(1,128)=0 exch2_iHi(1,128)=35 exch2_jLo(1,128)=103 exch2_jHi(1,128)=103 exch2_opposingSend(1,128)=2 exch2_pij(1,1,128)=1 exch2_pij(2,1,128)=0 exch2_pij(3,1,128)=0 exch2_pij(4,1,128)=1 exch2_oi(1,128)=0 exch2_oj(1,128)=0 exch2_neighbourId(2,128)=113 exch2_iLo(2,128)=0 exch2_iHi(2,128)=35 exch2_jLo(2,128)=0 exch2_jHi(2,128)=0 exch2_opposingSend(2,128)=1 exch2_pij(1,2,128)=1 exch2_pij(2,2,128)=0 exch2_pij(3,2,128)=0 exch2_pij(4,2,128)=1 exch2_oi(2,128)=0 exch2_oj(2,128)=0 exch2_neighbourId(3,128)=129 exch2_iLo(3,128)=35 exch2_iHi(3,128)=35 exch2_jLo(3,128)=0 exch2_jHi(3,128)=103 exch2_opposingSend(3,128)=4 exch2_pij(1,3,128)=1 exch2_pij(2,3,128)=0 exch2_pij(3,3,128)=0 exch2_pij(4,3,128)=1 exch2_oi(3,128)=0 exch2_oj(3,128)=0 exch2_neighbourId(4,128)=127 exch2_iLo(4,128)=0 exch2_iHi(4,128)=0 exch2_jLo(4,128)=0 exch2_jHi(4,128)=103 exch2_opposingSend(4,128)=3 exch2_pij(1,4,128)=1 exch2_pij(2,4,128)=0 exch2_pij(3,4,128)=0 exch2_pij(4,4,128)=1 exch2_oi(4,128)=0 exch2_oj(4,128)=0 RETURN END SUBROUTINE W2_E2SETUP_129 C Topology for tile 129 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(129)=34 exch2_tNy(129)=102 exch2_tBasex(129)=272 exch2_tBasey(129)=306 exch2_txGlobalo(129)=783 exch2_tyGlobalo(129)=307 exch2_isWedge(129)=0 exch2_isNedge(129)=0 exch2_isEedge(129)=0 exch2_isSedge(129)=0 exch2_myFace(129)=2 exch2_mydNx(129)=510 exch2_mydNy(129)=510 exch2_nNeighbours(129)=4 exch2_neighbourId(1,129)=144 exch2_iLo(1,129)=0 exch2_iHi(1,129)=35 exch2_jLo(1,129)=103 exch2_jHi(1,129)=103 exch2_opposingSend(1,129)=2 exch2_pij(1,1,129)=1 exch2_pij(2,1,129)=0 exch2_pij(3,1,129)=0 exch2_pij(4,1,129)=1 exch2_oi(1,129)=0 exch2_oj(1,129)=0 exch2_neighbourId(2,129)=114 exch2_iLo(2,129)=0 exch2_iHi(2,129)=35 exch2_jLo(2,129)=0 exch2_jHi(2,129)=0 exch2_opposingSend(2,129)=1 exch2_pij(1,2,129)=1 exch2_pij(2,2,129)=0 exch2_pij(3,2,129)=0 exch2_pij(4,2,129)=1 exch2_oi(2,129)=0 exch2_oj(2,129)=0 exch2_neighbourId(3,129)=130 exch2_iLo(3,129)=35 exch2_iHi(3,129)=35 exch2_jLo(3,129)=0 exch2_jHi(3,129)=103 exch2_opposingSend(3,129)=4 exch2_pij(1,3,129)=1 exch2_pij(2,3,129)=0 exch2_pij(3,3,129)=0 exch2_pij(4,3,129)=1 exch2_oi(3,129)=0 exch2_oj(3,129)=0 exch2_neighbourId(4,129)=128 exch2_iLo(4,129)=0 exch2_iHi(4,129)=0 exch2_jLo(4,129)=0 exch2_jHi(4,129)=103 exch2_opposingSend(4,129)=3 exch2_pij(1,4,129)=1 exch2_pij(2,4,129)=0 exch2_pij(3,4,129)=0 exch2_pij(4,4,129)=1 exch2_oi(4,129)=0 exch2_oj(4,129)=0 RETURN END SUBROUTINE W2_E2SETUP_130 C Topology for tile 130 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(130)=34 exch2_tNy(130)=102 exch2_tBasex(130)=306 exch2_tBasey(130)=306 exch2_txGlobalo(130)=817 exch2_tyGlobalo(130)=307 exch2_isWedge(130)=0 exch2_isNedge(130)=0 exch2_isEedge(130)=0 exch2_isSedge(130)=0 exch2_myFace(130)=2 exch2_mydNx(130)=510 exch2_mydNy(130)=510 exch2_nNeighbours(130)=4 exch2_neighbourId(1,130)=145 exch2_iLo(1,130)=0 exch2_iHi(1,130)=35 exch2_jLo(1,130)=103 exch2_jHi(1,130)=103 exch2_opposingSend(1,130)=2 exch2_pij(1,1,130)=1 exch2_pij(2,1,130)=0 exch2_pij(3,1,130)=0 exch2_pij(4,1,130)=1 exch2_oi(1,130)=0 exch2_oj(1,130)=0 exch2_neighbourId(2,130)=115 exch2_iLo(2,130)=0 exch2_iHi(2,130)=35 exch2_jLo(2,130)=0 exch2_jHi(2,130)=0 exch2_opposingSend(2,130)=1 exch2_pij(1,2,130)=1 exch2_pij(2,2,130)=0 exch2_pij(3,2,130)=0 exch2_pij(4,2,130)=1 exch2_oi(2,130)=0 exch2_oj(2,130)=0 exch2_neighbourId(3,130)=131 exch2_iLo(3,130)=35 exch2_iHi(3,130)=35 exch2_jLo(3,130)=0 exch2_jHi(3,130)=103 exch2_opposingSend(3,130)=4 exch2_pij(1,3,130)=1 exch2_pij(2,3,130)=0 exch2_pij(3,3,130)=0 exch2_pij(4,3,130)=1 exch2_oi(3,130)=0 exch2_oj(3,130)=0 exch2_neighbourId(4,130)=129 exch2_iLo(4,130)=0 exch2_iHi(4,130)=0 exch2_jLo(4,130)=0 exch2_jHi(4,130)=103 exch2_opposingSend(4,130)=3 exch2_pij(1,4,130)=1 exch2_pij(2,4,130)=0 exch2_pij(3,4,130)=0 exch2_pij(4,4,130)=1 exch2_oi(4,130)=0 exch2_oj(4,130)=0 RETURN END SUBROUTINE W2_E2SETUP_131 C Topology for tile 131 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(131)=34 exch2_tNy(131)=102 exch2_tBasex(131)=340 exch2_tBasey(131)=306 exch2_txGlobalo(131)=851 exch2_tyGlobalo(131)=307 exch2_isWedge(131)=0 exch2_isNedge(131)=0 exch2_isEedge(131)=0 exch2_isSedge(131)=0 exch2_myFace(131)=2 exch2_mydNx(131)=510 exch2_mydNy(131)=510 exch2_nNeighbours(131)=4 exch2_neighbourId(1,131)=146 exch2_iLo(1,131)=0 exch2_iHi(1,131)=35 exch2_jLo(1,131)=103 exch2_jHi(1,131)=103 exch2_opposingSend(1,131)=2 exch2_pij(1,1,131)=1 exch2_pij(2,1,131)=0 exch2_pij(3,1,131)=0 exch2_pij(4,1,131)=1 exch2_oi(1,131)=0 exch2_oj(1,131)=0 exch2_neighbourId(2,131)=116 exch2_iLo(2,131)=0 exch2_iHi(2,131)=35 exch2_jLo(2,131)=0 exch2_jHi(2,131)=0 exch2_opposingSend(2,131)=1 exch2_pij(1,2,131)=1 exch2_pij(2,2,131)=0 exch2_pij(3,2,131)=0 exch2_pij(4,2,131)=1 exch2_oi(2,131)=0 exch2_oj(2,131)=0 exch2_neighbourId(3,131)=132 exch2_iLo(3,131)=35 exch2_iHi(3,131)=35 exch2_jLo(3,131)=0 exch2_jHi(3,131)=103 exch2_opposingSend(3,131)=4 exch2_pij(1,3,131)=1 exch2_pij(2,3,131)=0 exch2_pij(3,3,131)=0 exch2_pij(4,3,131)=1 exch2_oi(3,131)=0 exch2_oj(3,131)=0 exch2_neighbourId(4,131)=130 exch2_iLo(4,131)=0 exch2_iHi(4,131)=0 exch2_jLo(4,131)=0 exch2_jHi(4,131)=103 exch2_opposingSend(4,131)=3 exch2_pij(1,4,131)=1 exch2_pij(2,4,131)=0 exch2_pij(3,4,131)=0 exch2_pij(4,4,131)=1 exch2_oi(4,131)=0 exch2_oj(4,131)=0 RETURN END SUBROUTINE W2_E2SETUP_132 C Topology for tile 132 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(132)=34 exch2_tNy(132)=102 exch2_tBasex(132)=374 exch2_tBasey(132)=306 exch2_txGlobalo(132)=885 exch2_tyGlobalo(132)=307 exch2_isWedge(132)=0 exch2_isNedge(132)=0 exch2_isEedge(132)=0 exch2_isSedge(132)=0 exch2_myFace(132)=2 exch2_mydNx(132)=510 exch2_mydNy(132)=510 exch2_nNeighbours(132)=4 exch2_neighbourId(1,132)=147 exch2_iLo(1,132)=0 exch2_iHi(1,132)=35 exch2_jLo(1,132)=103 exch2_jHi(1,132)=103 exch2_opposingSend(1,132)=2 exch2_pij(1,1,132)=1 exch2_pij(2,1,132)=0 exch2_pij(3,1,132)=0 exch2_pij(4,1,132)=1 exch2_oi(1,132)=0 exch2_oj(1,132)=0 exch2_neighbourId(2,132)=117 exch2_iLo(2,132)=0 exch2_iHi(2,132)=35 exch2_jLo(2,132)=0 exch2_jHi(2,132)=0 exch2_opposingSend(2,132)=1 exch2_pij(1,2,132)=1 exch2_pij(2,2,132)=0 exch2_pij(3,2,132)=0 exch2_pij(4,2,132)=1 exch2_oi(2,132)=0 exch2_oj(2,132)=0 exch2_neighbourId(3,132)=133 exch2_iLo(3,132)=35 exch2_iHi(3,132)=35 exch2_jLo(3,132)=0 exch2_jHi(3,132)=103 exch2_opposingSend(3,132)=4 exch2_pij(1,3,132)=1 exch2_pij(2,3,132)=0 exch2_pij(3,3,132)=0 exch2_pij(4,3,132)=1 exch2_oi(3,132)=0 exch2_oj(3,132)=0 exch2_neighbourId(4,132)=131 exch2_iLo(4,132)=0 exch2_iHi(4,132)=0 exch2_jLo(4,132)=0 exch2_jHi(4,132)=103 exch2_opposingSend(4,132)=3 exch2_pij(1,4,132)=1 exch2_pij(2,4,132)=0 exch2_pij(3,4,132)=0 exch2_pij(4,4,132)=1 exch2_oi(4,132)=0 exch2_oj(4,132)=0 RETURN END SUBROUTINE W2_E2SETUP_133 C Topology for tile 133 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(133)=34 exch2_tNy(133)=102 exch2_tBasex(133)=408 exch2_tBasey(133)=306 exch2_txGlobalo(133)=919 exch2_tyGlobalo(133)=307 exch2_isWedge(133)=0 exch2_isNedge(133)=0 exch2_isEedge(133)=0 exch2_isSedge(133)=0 exch2_myFace(133)=2 exch2_mydNx(133)=510 exch2_mydNy(133)=510 exch2_nNeighbours(133)=4 exch2_neighbourId(1,133)=148 exch2_iLo(1,133)=0 exch2_iHi(1,133)=35 exch2_jLo(1,133)=103 exch2_jHi(1,133)=103 exch2_opposingSend(1,133)=2 exch2_pij(1,1,133)=1 exch2_pij(2,1,133)=0 exch2_pij(3,1,133)=0 exch2_pij(4,1,133)=1 exch2_oi(1,133)=0 exch2_oj(1,133)=0 exch2_neighbourId(2,133)=118 exch2_iLo(2,133)=0 exch2_iHi(2,133)=35 exch2_jLo(2,133)=0 exch2_jHi(2,133)=0 exch2_opposingSend(2,133)=1 exch2_pij(1,2,133)=1 exch2_pij(2,2,133)=0 exch2_pij(3,2,133)=0 exch2_pij(4,2,133)=1 exch2_oi(2,133)=0 exch2_oj(2,133)=0 exch2_neighbourId(3,133)=134 exch2_iLo(3,133)=35 exch2_iHi(3,133)=35 exch2_jLo(3,133)=0 exch2_jHi(3,133)=103 exch2_opposingSend(3,133)=4 exch2_pij(1,3,133)=1 exch2_pij(2,3,133)=0 exch2_pij(3,3,133)=0 exch2_pij(4,3,133)=1 exch2_oi(3,133)=0 exch2_oj(3,133)=0 exch2_neighbourId(4,133)=132 exch2_iLo(4,133)=0 exch2_iHi(4,133)=0 exch2_jLo(4,133)=0 exch2_jHi(4,133)=103 exch2_opposingSend(4,133)=3 exch2_pij(1,4,133)=1 exch2_pij(2,4,133)=0 exch2_pij(3,4,133)=0 exch2_pij(4,4,133)=1 exch2_oi(4,133)=0 exch2_oj(4,133)=0 RETURN END SUBROUTINE W2_E2SETUP_134 C Topology for tile 134 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(134)=34 exch2_tNy(134)=102 exch2_tBasex(134)=442 exch2_tBasey(134)=306 exch2_txGlobalo(134)=953 exch2_tyGlobalo(134)=307 exch2_isWedge(134)=0 exch2_isNedge(134)=0 exch2_isEedge(134)=0 exch2_isSedge(134)=0 exch2_myFace(134)=2 exch2_mydNx(134)=510 exch2_mydNy(134)=510 exch2_nNeighbours(134)=4 exch2_neighbourId(1,134)=149 exch2_iLo(1,134)=0 exch2_iHi(1,134)=35 exch2_jLo(1,134)=103 exch2_jHi(1,134)=103 exch2_opposingSend(1,134)=2 exch2_pij(1,1,134)=1 exch2_pij(2,1,134)=0 exch2_pij(3,1,134)=0 exch2_pij(4,1,134)=1 exch2_oi(1,134)=0 exch2_oj(1,134)=0 exch2_neighbourId(2,134)=119 exch2_iLo(2,134)=0 exch2_iHi(2,134)=35 exch2_jLo(2,134)=0 exch2_jHi(2,134)=0 exch2_opposingSend(2,134)=1 exch2_pij(1,2,134)=1 exch2_pij(2,2,134)=0 exch2_pij(3,2,134)=0 exch2_pij(4,2,134)=1 exch2_oi(2,134)=0 exch2_oj(2,134)=0 exch2_neighbourId(3,134)=135 exch2_iLo(3,134)=35 exch2_iHi(3,134)=35 exch2_jLo(3,134)=0 exch2_jHi(3,134)=103 exch2_opposingSend(3,134)=6 exch2_pij(1,3,134)=1 exch2_pij(2,3,134)=0 exch2_pij(3,3,134)=0 exch2_pij(4,3,134)=1 exch2_oi(3,134)=0 exch2_oj(3,134)=0 exch2_neighbourId(4,134)=133 exch2_iLo(4,134)=0 exch2_iHi(4,134)=0 exch2_jLo(4,134)=0 exch2_jHi(4,134)=103 exch2_opposingSend(4,134)=3 exch2_pij(1,4,134)=1 exch2_pij(2,4,134)=0 exch2_pij(3,4,134)=0 exch2_pij(4,4,134)=1 exch2_oi(4,134)=0 exch2_oj(4,134)=0 RETURN END SUBROUTINE W2_E2SETUP_135 C Topology for tile 135 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(135)=34 exch2_tNy(135)=102 exch2_tBasex(135)=476 exch2_tBasey(135)=306 exch2_txGlobalo(135)=987 exch2_tyGlobalo(135)=307 exch2_isWedge(135)=0 exch2_isNedge(135)=0 exch2_isEedge(135)=1 exch2_isSedge(135)=0 exch2_myFace(135)=2 exch2_mydNx(135)=510 exch2_mydNy(135)=510 exch2_nNeighbours(135)=6 exch2_neighbourId(1,135)=150 exch2_iLo(1,135)=0 exch2_iHi(1,135)=35 exch2_jLo(1,135)=103 exch2_jHi(1,135)=103 exch2_opposingSend(1,135)=2 exch2_pij(1,1,135)=1 exch2_pij(2,1,135)=0 exch2_pij(3,1,135)=0 exch2_pij(4,1,135)=1 exch2_oi(1,135)=0 exch2_oj(1,135)=0 exch2_neighbourId(2,135)=120 exch2_iLo(2,135)=0 exch2_iHi(2,135)=35 exch2_jLo(2,135)=0 exch2_jHi(2,135)=0 exch2_opposingSend(2,135)=1 exch2_pij(1,2,135)=1 exch2_pij(2,2,135)=0 exch2_pij(3,2,135)=0 exch2_pij(4,2,135)=1 exch2_oi(2,135)=0 exch2_oj(2,135)=0 exch2_neighbourId(3,135)=229 exch2_iLo(3,135)=35 exch2_iHi(3,135)=35 exch2_jLo(3,135)=68 exch2_jHi(3,135)=103 exch2_opposingSend(3,135)=2 exch2_pij(1,3,135)=0 exch2_pij(2,3,135)=1 exch2_pij(3,3,135)=-1 exch2_pij(4,3,135)=0 exch2_oi(3,135)=510 exch2_oj(3,135)=511 exch2_neighbourId(4,135)=230 exch2_iLo(4,135)=35 exch2_iHi(4,135)=35 exch2_jLo(4,135)=34 exch2_jHi(4,135)=69 exch2_opposingSend(4,135)=2 exch2_pij(1,4,135)=0 exch2_pij(2,4,135)=1 exch2_pij(3,4,135)=-1 exch2_pij(4,4,135)=0 exch2_oi(4,135)=510 exch2_oj(4,135)=511 exch2_neighbourId(5,135)=231 exch2_iLo(5,135)=35 exch2_iHi(5,135)=35 exch2_jLo(5,135)=0 exch2_jHi(5,135)=35 exch2_opposingSend(5,135)=2 exch2_pij(1,5,135)=0 exch2_pij(2,5,135)=1 exch2_pij(3,5,135)=-1 exch2_pij(4,5,135)=0 exch2_oi(5,135)=510 exch2_oj(5,135)=511 exch2_neighbourId(6,135)=134 exch2_iLo(6,135)=0 exch2_iHi(6,135)=0 exch2_jLo(6,135)=0 exch2_jHi(6,135)=103 exch2_opposingSend(6,135)=3 exch2_pij(1,6,135)=1 exch2_pij(2,6,135)=0 exch2_pij(3,6,135)=0 exch2_pij(4,6,135)=1 exch2_oi(6,135)=0 exch2_oj(6,135)=0 RETURN END SUBROUTINE W2_E2SETUP_136 C Topology for tile 136 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(136)=34 exch2_tNy(136)=102 exch2_tBasex(136)=0 exch2_tBasey(136)=408 exch2_txGlobalo(136)=511 exch2_tyGlobalo(136)=409 exch2_isWedge(136)=1 exch2_isNedge(136)=1 exch2_isEedge(136)=0 exch2_isSedge(136)=0 exch2_myFace(136)=2 exch2_mydNx(136)=510 exch2_mydNy(136)=510 exch2_nNeighbours(136)=4 exch2_neighbourId(1,136)=151 exch2_iLo(1,136)=0 exch2_iHi(1,136)=35 exch2_jLo(1,136)=103 exch2_jHi(1,136)=103 exch2_opposingSend(1,136)=2 exch2_pij(1,1,136)=1 exch2_pij(2,1,136)=0 exch2_pij(3,1,136)=0 exch2_pij(4,1,136)=1 exch2_oi(1,136)=0 exch2_oj(1,136)=510 exch2_neighbourId(2,136)=121 exch2_iLo(2,136)=0 exch2_iHi(2,136)=35 exch2_jLo(2,136)=0 exch2_jHi(2,136)=0 exch2_opposingSend(2,136)=1 exch2_pij(1,2,136)=1 exch2_pij(2,2,136)=0 exch2_pij(3,2,136)=0 exch2_pij(4,2,136)=1 exch2_oi(2,136)=0 exch2_oj(2,136)=0 exch2_neighbourId(3,136)=137 exch2_iLo(3,136)=35 exch2_iHi(3,136)=35 exch2_jLo(3,136)=0 exch2_jHi(3,136)=103 exch2_opposingSend(3,136)=4 exch2_pij(1,3,136)=1 exch2_pij(2,3,136)=0 exch2_pij(3,3,136)=0 exch2_pij(4,3,136)=1 exch2_oi(3,136)=0 exch2_oj(3,136)=0 exch2_neighbourId(4,136)=75 exch2_iLo(4,136)=0 exch2_iHi(4,136)=0 exch2_jLo(4,136)=0 exch2_jHi(4,136)=103 exch2_opposingSend(4,136)=3 exch2_pij(1,4,136)=1 exch2_pij(2,4,136)=0 exch2_pij(3,4,136)=0 exch2_pij(4,4,136)=1 exch2_oi(4,136)=-510 exch2_oj(4,136)=0 RETURN END SUBROUTINE W2_E2SETUP_137 C Topology for tile 137 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(137)=34 exch2_tNy(137)=102 exch2_tBasex(137)=34 exch2_tBasey(137)=408 exch2_txGlobalo(137)=545 exch2_tyGlobalo(137)=409 exch2_isWedge(137)=0 exch2_isNedge(137)=1 exch2_isEedge(137)=0 exch2_isSedge(137)=0 exch2_myFace(137)=2 exch2_mydNx(137)=510 exch2_mydNy(137)=510 exch2_nNeighbours(137)=4 exch2_neighbourId(1,137)=152 exch2_iLo(1,137)=0 exch2_iHi(1,137)=35 exch2_jLo(1,137)=103 exch2_jHi(1,137)=103 exch2_opposingSend(1,137)=2 exch2_pij(1,1,137)=1 exch2_pij(2,1,137)=0 exch2_pij(3,1,137)=0 exch2_pij(4,1,137)=1 exch2_oi(1,137)=0 exch2_oj(1,137)=510 exch2_neighbourId(2,137)=122 exch2_iLo(2,137)=0 exch2_iHi(2,137)=35 exch2_jLo(2,137)=0 exch2_jHi(2,137)=0 exch2_opposingSend(2,137)=1 exch2_pij(1,2,137)=1 exch2_pij(2,2,137)=0 exch2_pij(3,2,137)=0 exch2_pij(4,2,137)=1 exch2_oi(2,137)=0 exch2_oj(2,137)=0 exch2_neighbourId(3,137)=138 exch2_iLo(3,137)=35 exch2_iHi(3,137)=35 exch2_jLo(3,137)=0 exch2_jHi(3,137)=103 exch2_opposingSend(3,137)=4 exch2_pij(1,3,137)=1 exch2_pij(2,3,137)=0 exch2_pij(3,3,137)=0 exch2_pij(4,3,137)=1 exch2_oi(3,137)=0 exch2_oj(3,137)=0 exch2_neighbourId(4,137)=136 exch2_iLo(4,137)=0 exch2_iHi(4,137)=0 exch2_jLo(4,137)=0 exch2_jHi(4,137)=103 exch2_opposingSend(4,137)=3 exch2_pij(1,4,137)=1 exch2_pij(2,4,137)=0 exch2_pij(3,4,137)=0 exch2_pij(4,4,137)=1 exch2_oi(4,137)=0 exch2_oj(4,137)=0 RETURN END SUBROUTINE W2_E2SETUP_138 C Topology for tile 138 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(138)=34 exch2_tNy(138)=102 exch2_tBasex(138)=68 exch2_tBasey(138)=408 exch2_txGlobalo(138)=579 exch2_tyGlobalo(138)=409 exch2_isWedge(138)=0 exch2_isNedge(138)=1 exch2_isEedge(138)=0 exch2_isSedge(138)=0 exch2_myFace(138)=2 exch2_mydNx(138)=510 exch2_mydNy(138)=510 exch2_nNeighbours(138)=4 exch2_neighbourId(1,138)=153 exch2_iLo(1,138)=0 exch2_iHi(1,138)=35 exch2_jLo(1,138)=103 exch2_jHi(1,138)=103 exch2_opposingSend(1,138)=2 exch2_pij(1,1,138)=1 exch2_pij(2,1,138)=0 exch2_pij(3,1,138)=0 exch2_pij(4,1,138)=1 exch2_oi(1,138)=0 exch2_oj(1,138)=510 exch2_neighbourId(2,138)=123 exch2_iLo(2,138)=0 exch2_iHi(2,138)=35 exch2_jLo(2,138)=0 exch2_jHi(2,138)=0 exch2_opposingSend(2,138)=1 exch2_pij(1,2,138)=1 exch2_pij(2,2,138)=0 exch2_pij(3,2,138)=0 exch2_pij(4,2,138)=1 exch2_oi(2,138)=0 exch2_oj(2,138)=0 exch2_neighbourId(3,138)=139 exch2_iLo(3,138)=35 exch2_iHi(3,138)=35 exch2_jLo(3,138)=0 exch2_jHi(3,138)=103 exch2_opposingSend(3,138)=4 exch2_pij(1,3,138)=1 exch2_pij(2,3,138)=0 exch2_pij(3,3,138)=0 exch2_pij(4,3,138)=1 exch2_oi(3,138)=0 exch2_oj(3,138)=0 exch2_neighbourId(4,138)=137 exch2_iLo(4,138)=0 exch2_iHi(4,138)=0 exch2_jLo(4,138)=0 exch2_jHi(4,138)=103 exch2_opposingSend(4,138)=3 exch2_pij(1,4,138)=1 exch2_pij(2,4,138)=0 exch2_pij(3,4,138)=0 exch2_pij(4,4,138)=1 exch2_oi(4,138)=0 exch2_oj(4,138)=0 RETURN END SUBROUTINE W2_E2SETUP_139 C Topology for tile 139 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(139)=34 exch2_tNy(139)=102 exch2_tBasex(139)=102 exch2_tBasey(139)=408 exch2_txGlobalo(139)=613 exch2_tyGlobalo(139)=409 exch2_isWedge(139)=0 exch2_isNedge(139)=1 exch2_isEedge(139)=0 exch2_isSedge(139)=0 exch2_myFace(139)=2 exch2_mydNx(139)=510 exch2_mydNy(139)=510 exch2_nNeighbours(139)=4 exch2_neighbourId(1,139)=154 exch2_iLo(1,139)=0 exch2_iHi(1,139)=35 exch2_jLo(1,139)=103 exch2_jHi(1,139)=103 exch2_opposingSend(1,139)=2 exch2_pij(1,1,139)=1 exch2_pij(2,1,139)=0 exch2_pij(3,1,139)=0 exch2_pij(4,1,139)=1 exch2_oi(1,139)=0 exch2_oj(1,139)=510 exch2_neighbourId(2,139)=124 exch2_iLo(2,139)=0 exch2_iHi(2,139)=35 exch2_jLo(2,139)=0 exch2_jHi(2,139)=0 exch2_opposingSend(2,139)=1 exch2_pij(1,2,139)=1 exch2_pij(2,2,139)=0 exch2_pij(3,2,139)=0 exch2_pij(4,2,139)=1 exch2_oi(2,139)=0 exch2_oj(2,139)=0 exch2_neighbourId(3,139)=140 exch2_iLo(3,139)=35 exch2_iHi(3,139)=35 exch2_jLo(3,139)=0 exch2_jHi(3,139)=103 exch2_opposingSend(3,139)=4 exch2_pij(1,3,139)=1 exch2_pij(2,3,139)=0 exch2_pij(3,3,139)=0 exch2_pij(4,3,139)=1 exch2_oi(3,139)=0 exch2_oj(3,139)=0 exch2_neighbourId(4,139)=138 exch2_iLo(4,139)=0 exch2_iHi(4,139)=0 exch2_jLo(4,139)=0 exch2_jHi(4,139)=103 exch2_opposingSend(4,139)=3 exch2_pij(1,4,139)=1 exch2_pij(2,4,139)=0 exch2_pij(3,4,139)=0 exch2_pij(4,4,139)=1 exch2_oi(4,139)=0 exch2_oj(4,139)=0 RETURN END SUBROUTINE W2_E2SETUP_140 C Topology for tile 140 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(140)=34 exch2_tNy(140)=102 exch2_tBasex(140)=136 exch2_tBasey(140)=408 exch2_txGlobalo(140)=647 exch2_tyGlobalo(140)=409 exch2_isWedge(140)=0 exch2_isNedge(140)=1 exch2_isEedge(140)=0 exch2_isSedge(140)=0 exch2_myFace(140)=2 exch2_mydNx(140)=510 exch2_mydNy(140)=510 exch2_nNeighbours(140)=4 exch2_neighbourId(1,140)=155 exch2_iLo(1,140)=0 exch2_iHi(1,140)=35 exch2_jLo(1,140)=103 exch2_jHi(1,140)=103 exch2_opposingSend(1,140)=2 exch2_pij(1,1,140)=1 exch2_pij(2,1,140)=0 exch2_pij(3,1,140)=0 exch2_pij(4,1,140)=1 exch2_oi(1,140)=0 exch2_oj(1,140)=510 exch2_neighbourId(2,140)=125 exch2_iLo(2,140)=0 exch2_iHi(2,140)=35 exch2_jLo(2,140)=0 exch2_jHi(2,140)=0 exch2_opposingSend(2,140)=1 exch2_pij(1,2,140)=1 exch2_pij(2,2,140)=0 exch2_pij(3,2,140)=0 exch2_pij(4,2,140)=1 exch2_oi(2,140)=0 exch2_oj(2,140)=0 exch2_neighbourId(3,140)=141 exch2_iLo(3,140)=35 exch2_iHi(3,140)=35 exch2_jLo(3,140)=0 exch2_jHi(3,140)=103 exch2_opposingSend(3,140)=4 exch2_pij(1,3,140)=1 exch2_pij(2,3,140)=0 exch2_pij(3,3,140)=0 exch2_pij(4,3,140)=1 exch2_oi(3,140)=0 exch2_oj(3,140)=0 exch2_neighbourId(4,140)=139 exch2_iLo(4,140)=0 exch2_iHi(4,140)=0 exch2_jLo(4,140)=0 exch2_jHi(4,140)=103 exch2_opposingSend(4,140)=3 exch2_pij(1,4,140)=1 exch2_pij(2,4,140)=0 exch2_pij(3,4,140)=0 exch2_pij(4,4,140)=1 exch2_oi(4,140)=0 exch2_oj(4,140)=0 RETURN END SUBROUTINE W2_E2SETUP_141 C Topology for tile 141 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(141)=34 exch2_tNy(141)=102 exch2_tBasex(141)=170 exch2_tBasey(141)=408 exch2_txGlobalo(141)=681 exch2_tyGlobalo(141)=409 exch2_isWedge(141)=0 exch2_isNedge(141)=1 exch2_isEedge(141)=0 exch2_isSedge(141)=0 exch2_myFace(141)=2 exch2_mydNx(141)=510 exch2_mydNy(141)=510 exch2_nNeighbours(141)=4 exch2_neighbourId(1,141)=156 exch2_iLo(1,141)=0 exch2_iHi(1,141)=35 exch2_jLo(1,141)=103 exch2_jHi(1,141)=103 exch2_opposingSend(1,141)=2 exch2_pij(1,1,141)=1 exch2_pij(2,1,141)=0 exch2_pij(3,1,141)=0 exch2_pij(4,1,141)=1 exch2_oi(1,141)=0 exch2_oj(1,141)=510 exch2_neighbourId(2,141)=126 exch2_iLo(2,141)=0 exch2_iHi(2,141)=35 exch2_jLo(2,141)=0 exch2_jHi(2,141)=0 exch2_opposingSend(2,141)=1 exch2_pij(1,2,141)=1 exch2_pij(2,2,141)=0 exch2_pij(3,2,141)=0 exch2_pij(4,2,141)=1 exch2_oi(2,141)=0 exch2_oj(2,141)=0 exch2_neighbourId(3,141)=142 exch2_iLo(3,141)=35 exch2_iHi(3,141)=35 exch2_jLo(3,141)=0 exch2_jHi(3,141)=103 exch2_opposingSend(3,141)=4 exch2_pij(1,3,141)=1 exch2_pij(2,3,141)=0 exch2_pij(3,3,141)=0 exch2_pij(4,3,141)=1 exch2_oi(3,141)=0 exch2_oj(3,141)=0 exch2_neighbourId(4,141)=140 exch2_iLo(4,141)=0 exch2_iHi(4,141)=0 exch2_jLo(4,141)=0 exch2_jHi(4,141)=103 exch2_opposingSend(4,141)=3 exch2_pij(1,4,141)=1 exch2_pij(2,4,141)=0 exch2_pij(3,4,141)=0 exch2_pij(4,4,141)=1 exch2_oi(4,141)=0 exch2_oj(4,141)=0 RETURN END SUBROUTINE W2_E2SETUP_142 C Topology for tile 142 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(142)=34 exch2_tNy(142)=102 exch2_tBasex(142)=204 exch2_tBasey(142)=408 exch2_txGlobalo(142)=715 exch2_tyGlobalo(142)=409 exch2_isWedge(142)=0 exch2_isNedge(142)=1 exch2_isEedge(142)=0 exch2_isSedge(142)=0 exch2_myFace(142)=2 exch2_mydNx(142)=510 exch2_mydNy(142)=510 exch2_nNeighbours(142)=4 exch2_neighbourId(1,142)=157 exch2_iLo(1,142)=0 exch2_iHi(1,142)=35 exch2_jLo(1,142)=103 exch2_jHi(1,142)=103 exch2_opposingSend(1,142)=2 exch2_pij(1,1,142)=1 exch2_pij(2,1,142)=0 exch2_pij(3,1,142)=0 exch2_pij(4,1,142)=1 exch2_oi(1,142)=0 exch2_oj(1,142)=510 exch2_neighbourId(2,142)=127 exch2_iLo(2,142)=0 exch2_iHi(2,142)=35 exch2_jLo(2,142)=0 exch2_jHi(2,142)=0 exch2_opposingSend(2,142)=1 exch2_pij(1,2,142)=1 exch2_pij(2,2,142)=0 exch2_pij(3,2,142)=0 exch2_pij(4,2,142)=1 exch2_oi(2,142)=0 exch2_oj(2,142)=0 exch2_neighbourId(3,142)=143 exch2_iLo(3,142)=35 exch2_iHi(3,142)=35 exch2_jLo(3,142)=0 exch2_jHi(3,142)=103 exch2_opposingSend(3,142)=4 exch2_pij(1,3,142)=1 exch2_pij(2,3,142)=0 exch2_pij(3,3,142)=0 exch2_pij(4,3,142)=1 exch2_oi(3,142)=0 exch2_oj(3,142)=0 exch2_neighbourId(4,142)=141 exch2_iLo(4,142)=0 exch2_iHi(4,142)=0 exch2_jLo(4,142)=0 exch2_jHi(4,142)=103 exch2_opposingSend(4,142)=3 exch2_pij(1,4,142)=1 exch2_pij(2,4,142)=0 exch2_pij(3,4,142)=0 exch2_pij(4,4,142)=1 exch2_oi(4,142)=0 exch2_oj(4,142)=0 RETURN END SUBROUTINE W2_E2SETUP_143 C Topology for tile 143 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(143)=34 exch2_tNy(143)=102 exch2_tBasex(143)=238 exch2_tBasey(143)=408 exch2_txGlobalo(143)=749 exch2_tyGlobalo(143)=409 exch2_isWedge(143)=0 exch2_isNedge(143)=1 exch2_isEedge(143)=0 exch2_isSedge(143)=0 exch2_myFace(143)=2 exch2_mydNx(143)=510 exch2_mydNy(143)=510 exch2_nNeighbours(143)=4 exch2_neighbourId(1,143)=158 exch2_iLo(1,143)=0 exch2_iHi(1,143)=35 exch2_jLo(1,143)=103 exch2_jHi(1,143)=103 exch2_opposingSend(1,143)=2 exch2_pij(1,1,143)=1 exch2_pij(2,1,143)=0 exch2_pij(3,1,143)=0 exch2_pij(4,1,143)=1 exch2_oi(1,143)=0 exch2_oj(1,143)=510 exch2_neighbourId(2,143)=128 exch2_iLo(2,143)=0 exch2_iHi(2,143)=35 exch2_jLo(2,143)=0 exch2_jHi(2,143)=0 exch2_opposingSend(2,143)=1 exch2_pij(1,2,143)=1 exch2_pij(2,2,143)=0 exch2_pij(3,2,143)=0 exch2_pij(4,2,143)=1 exch2_oi(2,143)=0 exch2_oj(2,143)=0 exch2_neighbourId(3,143)=144 exch2_iLo(3,143)=35 exch2_iHi(3,143)=35 exch2_jLo(3,143)=0 exch2_jHi(3,143)=103 exch2_opposingSend(3,143)=4 exch2_pij(1,3,143)=1 exch2_pij(2,3,143)=0 exch2_pij(3,3,143)=0 exch2_pij(4,3,143)=1 exch2_oi(3,143)=0 exch2_oj(3,143)=0 exch2_neighbourId(4,143)=142 exch2_iLo(4,143)=0 exch2_iHi(4,143)=0 exch2_jLo(4,143)=0 exch2_jHi(4,143)=103 exch2_opposingSend(4,143)=3 exch2_pij(1,4,143)=1 exch2_pij(2,4,143)=0 exch2_pij(3,4,143)=0 exch2_pij(4,4,143)=1 exch2_oi(4,143)=0 exch2_oj(4,143)=0 RETURN END SUBROUTINE W2_E2SETUP_144 C Topology for tile 144 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(144)=34 exch2_tNy(144)=102 exch2_tBasex(144)=272 exch2_tBasey(144)=408 exch2_txGlobalo(144)=783 exch2_tyGlobalo(144)=409 exch2_isWedge(144)=0 exch2_isNedge(144)=1 exch2_isEedge(144)=0 exch2_isSedge(144)=0 exch2_myFace(144)=2 exch2_mydNx(144)=510 exch2_mydNy(144)=510 exch2_nNeighbours(144)=4 exch2_neighbourId(1,144)=159 exch2_iLo(1,144)=0 exch2_iHi(1,144)=35 exch2_jLo(1,144)=103 exch2_jHi(1,144)=103 exch2_opposingSend(1,144)=2 exch2_pij(1,1,144)=1 exch2_pij(2,1,144)=0 exch2_pij(3,1,144)=0 exch2_pij(4,1,144)=1 exch2_oi(1,144)=0 exch2_oj(1,144)=510 exch2_neighbourId(2,144)=129 exch2_iLo(2,144)=0 exch2_iHi(2,144)=35 exch2_jLo(2,144)=0 exch2_jHi(2,144)=0 exch2_opposingSend(2,144)=1 exch2_pij(1,2,144)=1 exch2_pij(2,2,144)=0 exch2_pij(3,2,144)=0 exch2_pij(4,2,144)=1 exch2_oi(2,144)=0 exch2_oj(2,144)=0 exch2_neighbourId(3,144)=145 exch2_iLo(3,144)=35 exch2_iHi(3,144)=35 exch2_jLo(3,144)=0 exch2_jHi(3,144)=103 exch2_opposingSend(3,144)=4 exch2_pij(1,3,144)=1 exch2_pij(2,3,144)=0 exch2_pij(3,3,144)=0 exch2_pij(4,3,144)=1 exch2_oi(3,144)=0 exch2_oj(3,144)=0 exch2_neighbourId(4,144)=143 exch2_iLo(4,144)=0 exch2_iHi(4,144)=0 exch2_jLo(4,144)=0 exch2_jHi(4,144)=103 exch2_opposingSend(4,144)=3 exch2_pij(1,4,144)=1 exch2_pij(2,4,144)=0 exch2_pij(3,4,144)=0 exch2_pij(4,4,144)=1 exch2_oi(4,144)=0 exch2_oj(4,144)=0 RETURN END SUBROUTINE W2_E2SETUP_145 C Topology for tile 145 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(145)=34 exch2_tNy(145)=102 exch2_tBasex(145)=306 exch2_tBasey(145)=408 exch2_txGlobalo(145)=817 exch2_tyGlobalo(145)=409 exch2_isWedge(145)=0 exch2_isNedge(145)=1 exch2_isEedge(145)=0 exch2_isSedge(145)=0 exch2_myFace(145)=2 exch2_mydNx(145)=510 exch2_mydNy(145)=510 exch2_nNeighbours(145)=4 exch2_neighbourId(1,145)=160 exch2_iLo(1,145)=0 exch2_iHi(1,145)=35 exch2_jLo(1,145)=103 exch2_jHi(1,145)=103 exch2_opposingSend(1,145)=2 exch2_pij(1,1,145)=1 exch2_pij(2,1,145)=0 exch2_pij(3,1,145)=0 exch2_pij(4,1,145)=1 exch2_oi(1,145)=0 exch2_oj(1,145)=510 exch2_neighbourId(2,145)=130 exch2_iLo(2,145)=0 exch2_iHi(2,145)=35 exch2_jLo(2,145)=0 exch2_jHi(2,145)=0 exch2_opposingSend(2,145)=1 exch2_pij(1,2,145)=1 exch2_pij(2,2,145)=0 exch2_pij(3,2,145)=0 exch2_pij(4,2,145)=1 exch2_oi(2,145)=0 exch2_oj(2,145)=0 exch2_neighbourId(3,145)=146 exch2_iLo(3,145)=35 exch2_iHi(3,145)=35 exch2_jLo(3,145)=0 exch2_jHi(3,145)=103 exch2_opposingSend(3,145)=4 exch2_pij(1,3,145)=1 exch2_pij(2,3,145)=0 exch2_pij(3,3,145)=0 exch2_pij(4,3,145)=1 exch2_oi(3,145)=0 exch2_oj(3,145)=0 exch2_neighbourId(4,145)=144 exch2_iLo(4,145)=0 exch2_iHi(4,145)=0 exch2_jLo(4,145)=0 exch2_jHi(4,145)=103 exch2_opposingSend(4,145)=3 exch2_pij(1,4,145)=1 exch2_pij(2,4,145)=0 exch2_pij(3,4,145)=0 exch2_pij(4,4,145)=1 exch2_oi(4,145)=0 exch2_oj(4,145)=0 RETURN END SUBROUTINE W2_E2SETUP_146 C Topology for tile 146 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(146)=34 exch2_tNy(146)=102 exch2_tBasex(146)=340 exch2_tBasey(146)=408 exch2_txGlobalo(146)=851 exch2_tyGlobalo(146)=409 exch2_isWedge(146)=0 exch2_isNedge(146)=1 exch2_isEedge(146)=0 exch2_isSedge(146)=0 exch2_myFace(146)=2 exch2_mydNx(146)=510 exch2_mydNy(146)=510 exch2_nNeighbours(146)=4 exch2_neighbourId(1,146)=161 exch2_iLo(1,146)=0 exch2_iHi(1,146)=35 exch2_jLo(1,146)=103 exch2_jHi(1,146)=103 exch2_opposingSend(1,146)=2 exch2_pij(1,1,146)=1 exch2_pij(2,1,146)=0 exch2_pij(3,1,146)=0 exch2_pij(4,1,146)=1 exch2_oi(1,146)=0 exch2_oj(1,146)=510 exch2_neighbourId(2,146)=131 exch2_iLo(2,146)=0 exch2_iHi(2,146)=35 exch2_jLo(2,146)=0 exch2_jHi(2,146)=0 exch2_opposingSend(2,146)=1 exch2_pij(1,2,146)=1 exch2_pij(2,2,146)=0 exch2_pij(3,2,146)=0 exch2_pij(4,2,146)=1 exch2_oi(2,146)=0 exch2_oj(2,146)=0 exch2_neighbourId(3,146)=147 exch2_iLo(3,146)=35 exch2_iHi(3,146)=35 exch2_jLo(3,146)=0 exch2_jHi(3,146)=103 exch2_opposingSend(3,146)=4 exch2_pij(1,3,146)=1 exch2_pij(2,3,146)=0 exch2_pij(3,3,146)=0 exch2_pij(4,3,146)=1 exch2_oi(3,146)=0 exch2_oj(3,146)=0 exch2_neighbourId(4,146)=145 exch2_iLo(4,146)=0 exch2_iHi(4,146)=0 exch2_jLo(4,146)=0 exch2_jHi(4,146)=103 exch2_opposingSend(4,146)=3 exch2_pij(1,4,146)=1 exch2_pij(2,4,146)=0 exch2_pij(3,4,146)=0 exch2_pij(4,4,146)=1 exch2_oi(4,146)=0 exch2_oj(4,146)=0 RETURN END SUBROUTINE W2_E2SETUP_147 C Topology for tile 147 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(147)=34 exch2_tNy(147)=102 exch2_tBasex(147)=374 exch2_tBasey(147)=408 exch2_txGlobalo(147)=885 exch2_tyGlobalo(147)=409 exch2_isWedge(147)=0 exch2_isNedge(147)=1 exch2_isEedge(147)=0 exch2_isSedge(147)=0 exch2_myFace(147)=2 exch2_mydNx(147)=510 exch2_mydNy(147)=510 exch2_nNeighbours(147)=4 exch2_neighbourId(1,147)=162 exch2_iLo(1,147)=0 exch2_iHi(1,147)=35 exch2_jLo(1,147)=103 exch2_jHi(1,147)=103 exch2_opposingSend(1,147)=2 exch2_pij(1,1,147)=1 exch2_pij(2,1,147)=0 exch2_pij(3,1,147)=0 exch2_pij(4,1,147)=1 exch2_oi(1,147)=0 exch2_oj(1,147)=510 exch2_neighbourId(2,147)=132 exch2_iLo(2,147)=0 exch2_iHi(2,147)=35 exch2_jLo(2,147)=0 exch2_jHi(2,147)=0 exch2_opposingSend(2,147)=1 exch2_pij(1,2,147)=1 exch2_pij(2,2,147)=0 exch2_pij(3,2,147)=0 exch2_pij(4,2,147)=1 exch2_oi(2,147)=0 exch2_oj(2,147)=0 exch2_neighbourId(3,147)=148 exch2_iLo(3,147)=35 exch2_iHi(3,147)=35 exch2_jLo(3,147)=0 exch2_jHi(3,147)=103 exch2_opposingSend(3,147)=4 exch2_pij(1,3,147)=1 exch2_pij(2,3,147)=0 exch2_pij(3,3,147)=0 exch2_pij(4,3,147)=1 exch2_oi(3,147)=0 exch2_oj(3,147)=0 exch2_neighbourId(4,147)=146 exch2_iLo(4,147)=0 exch2_iHi(4,147)=0 exch2_jLo(4,147)=0 exch2_jHi(4,147)=103 exch2_opposingSend(4,147)=3 exch2_pij(1,4,147)=1 exch2_pij(2,4,147)=0 exch2_pij(3,4,147)=0 exch2_pij(4,4,147)=1 exch2_oi(4,147)=0 exch2_oj(4,147)=0 RETURN END SUBROUTINE W2_E2SETUP_148 C Topology for tile 148 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(148)=34 exch2_tNy(148)=102 exch2_tBasex(148)=408 exch2_tBasey(148)=408 exch2_txGlobalo(148)=919 exch2_tyGlobalo(148)=409 exch2_isWedge(148)=0 exch2_isNedge(148)=1 exch2_isEedge(148)=0 exch2_isSedge(148)=0 exch2_myFace(148)=2 exch2_mydNx(148)=510 exch2_mydNy(148)=510 exch2_nNeighbours(148)=4 exch2_neighbourId(1,148)=163 exch2_iLo(1,148)=0 exch2_iHi(1,148)=35 exch2_jLo(1,148)=103 exch2_jHi(1,148)=103 exch2_opposingSend(1,148)=2 exch2_pij(1,1,148)=1 exch2_pij(2,1,148)=0 exch2_pij(3,1,148)=0 exch2_pij(4,1,148)=1 exch2_oi(1,148)=0 exch2_oj(1,148)=510 exch2_neighbourId(2,148)=133 exch2_iLo(2,148)=0 exch2_iHi(2,148)=35 exch2_jLo(2,148)=0 exch2_jHi(2,148)=0 exch2_opposingSend(2,148)=1 exch2_pij(1,2,148)=1 exch2_pij(2,2,148)=0 exch2_pij(3,2,148)=0 exch2_pij(4,2,148)=1 exch2_oi(2,148)=0 exch2_oj(2,148)=0 exch2_neighbourId(3,148)=149 exch2_iLo(3,148)=35 exch2_iHi(3,148)=35 exch2_jLo(3,148)=0 exch2_jHi(3,148)=103 exch2_opposingSend(3,148)=4 exch2_pij(1,3,148)=1 exch2_pij(2,3,148)=0 exch2_pij(3,3,148)=0 exch2_pij(4,3,148)=1 exch2_oi(3,148)=0 exch2_oj(3,148)=0 exch2_neighbourId(4,148)=147 exch2_iLo(4,148)=0 exch2_iHi(4,148)=0 exch2_jLo(4,148)=0 exch2_jHi(4,148)=103 exch2_opposingSend(4,148)=3 exch2_pij(1,4,148)=1 exch2_pij(2,4,148)=0 exch2_pij(3,4,148)=0 exch2_pij(4,4,148)=1 exch2_oi(4,148)=0 exch2_oj(4,148)=0 RETURN END SUBROUTINE W2_E2SETUP_149 C Topology for tile 149 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(149)=34 exch2_tNy(149)=102 exch2_tBasex(149)=442 exch2_tBasey(149)=408 exch2_txGlobalo(149)=953 exch2_tyGlobalo(149)=409 exch2_isWedge(149)=0 exch2_isNedge(149)=1 exch2_isEedge(149)=0 exch2_isSedge(149)=0 exch2_myFace(149)=2 exch2_mydNx(149)=510 exch2_mydNy(149)=510 exch2_nNeighbours(149)=4 exch2_neighbourId(1,149)=164 exch2_iLo(1,149)=0 exch2_iHi(1,149)=35 exch2_jLo(1,149)=103 exch2_jHi(1,149)=103 exch2_opposingSend(1,149)=2 exch2_pij(1,1,149)=1 exch2_pij(2,1,149)=0 exch2_pij(3,1,149)=0 exch2_pij(4,1,149)=1 exch2_oi(1,149)=0 exch2_oj(1,149)=510 exch2_neighbourId(2,149)=134 exch2_iLo(2,149)=0 exch2_iHi(2,149)=35 exch2_jLo(2,149)=0 exch2_jHi(2,149)=0 exch2_opposingSend(2,149)=1 exch2_pij(1,2,149)=1 exch2_pij(2,2,149)=0 exch2_pij(3,2,149)=0 exch2_pij(4,2,149)=1 exch2_oi(2,149)=0 exch2_oj(2,149)=0 exch2_neighbourId(3,149)=150 exch2_iLo(3,149)=35 exch2_iHi(3,149)=35 exch2_jLo(3,149)=0 exch2_jHi(3,149)=103 exch2_opposingSend(3,149)=6 exch2_pij(1,3,149)=1 exch2_pij(2,3,149)=0 exch2_pij(3,3,149)=0 exch2_pij(4,3,149)=1 exch2_oi(3,149)=0 exch2_oj(3,149)=0 exch2_neighbourId(4,149)=148 exch2_iLo(4,149)=0 exch2_iHi(4,149)=0 exch2_jLo(4,149)=0 exch2_jHi(4,149)=103 exch2_opposingSend(4,149)=3 exch2_pij(1,4,149)=1 exch2_pij(2,4,149)=0 exch2_pij(3,4,149)=0 exch2_pij(4,4,149)=1 exch2_oi(4,149)=0 exch2_oj(4,149)=0 RETURN END SUBROUTINE W2_E2SETUP_150 C Topology for tile 150 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(150)=34 exch2_tNy(150)=102 exch2_tBasex(150)=476 exch2_tBasey(150)=408 exch2_txGlobalo(150)=987 exch2_tyGlobalo(150)=409 exch2_isWedge(150)=0 exch2_isNedge(150)=1 exch2_isEedge(150)=1 exch2_isSedge(150)=0 exch2_myFace(150)=2 exch2_mydNx(150)=510 exch2_mydNy(150)=510 exch2_nNeighbours(150)=6 exch2_neighbourId(1,150)=165 exch2_iLo(1,150)=0 exch2_iHi(1,150)=35 exch2_jLo(1,150)=103 exch2_jHi(1,150)=103 exch2_opposingSend(1,150)=2 exch2_pij(1,1,150)=1 exch2_pij(2,1,150)=0 exch2_pij(3,1,150)=0 exch2_pij(4,1,150)=1 exch2_oi(1,150)=0 exch2_oj(1,150)=510 exch2_neighbourId(2,150)=135 exch2_iLo(2,150)=0 exch2_iHi(2,150)=35 exch2_jLo(2,150)=0 exch2_jHi(2,150)=0 exch2_opposingSend(2,150)=1 exch2_pij(1,2,150)=1 exch2_pij(2,2,150)=0 exch2_pij(3,2,150)=0 exch2_pij(4,2,150)=1 exch2_oi(2,150)=0 exch2_oj(2,150)=0 exch2_neighbourId(3,150)=226 exch2_iLo(3,150)=35 exch2_iHi(3,150)=35 exch2_jLo(3,150)=68 exch2_jHi(3,150)=103 exch2_opposingSend(3,150)=2 exch2_pij(1,3,150)=0 exch2_pij(2,3,150)=1 exch2_pij(3,3,150)=-1 exch2_pij(4,3,150)=0 exch2_oi(3,150)=510 exch2_oj(3,150)=511 exch2_neighbourId(4,150)=227 exch2_iLo(4,150)=35 exch2_iHi(4,150)=35 exch2_jLo(4,150)=34 exch2_jHi(4,150)=69 exch2_opposingSend(4,150)=2 exch2_pij(1,4,150)=0 exch2_pij(2,4,150)=1 exch2_pij(3,4,150)=-1 exch2_pij(4,4,150)=0 exch2_oi(4,150)=510 exch2_oj(4,150)=511 exch2_neighbourId(5,150)=228 exch2_iLo(5,150)=35 exch2_iHi(5,150)=35 exch2_jLo(5,150)=0 exch2_jHi(5,150)=35 exch2_opposingSend(5,150)=2 exch2_pij(1,5,150)=0 exch2_pij(2,5,150)=1 exch2_pij(3,5,150)=-1 exch2_pij(4,5,150)=0 exch2_oi(5,150)=510 exch2_oj(5,150)=511 exch2_neighbourId(6,150)=149 exch2_iLo(6,150)=0 exch2_iHi(6,150)=0 exch2_jLo(6,150)=0 exch2_jHi(6,150)=103 exch2_opposingSend(6,150)=3 exch2_pij(1,6,150)=1 exch2_pij(2,6,150)=0 exch2_pij(3,6,150)=0 exch2_pij(4,6,150)=1 exch2_oi(6,150)=0 exch2_oj(6,150)=0 RETURN END SUBROUTINE W2_E2SETUP_151 C Topology for tile 151 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(151)=34 exch2_tNy(151)=102 exch2_tBasex(151)=0 exch2_tBasey(151)=0 exch2_txGlobalo(151)=1021 exch2_tyGlobalo(151)=1 exch2_isWedge(151)=1 exch2_isNedge(151)=0 exch2_isEedge(151)=0 exch2_isSedge(151)=1 exch2_myFace(151)=3 exch2_mydNx(151)=510 exch2_mydNy(151)=510 exch2_nNeighbours(151)=6 exch2_neighbourId(1,151)=166 exch2_iLo(1,151)=0 exch2_iHi(1,151)=35 exch2_jLo(1,151)=103 exch2_jHi(1,151)=103 exch2_opposingSend(1,151)=2 exch2_pij(1,1,151)=1 exch2_pij(2,1,151)=0 exch2_pij(3,1,151)=0 exch2_pij(4,1,151)=1 exch2_oi(1,151)=0 exch2_oj(1,151)=0 exch2_neighbourId(2,151)=136 exch2_iLo(2,151)=0 exch2_iHi(2,151)=35 exch2_jLo(2,151)=0 exch2_jHi(2,151)=0 exch2_opposingSend(2,151)=1 exch2_pij(1,2,151)=1 exch2_pij(2,2,151)=0 exch2_pij(3,2,151)=0 exch2_pij(4,2,151)=1 exch2_oi(2,151)=0 exch2_oj(2,151)=-510 exch2_neighbourId(3,151)=152 exch2_iLo(3,151)=35 exch2_iHi(3,151)=35 exch2_jLo(3,151)=0 exch2_jHi(3,151)=103 exch2_opposingSend(3,151)=4 exch2_pij(1,3,151)=1 exch2_pij(2,3,151)=0 exch2_pij(3,3,151)=0 exch2_pij(4,3,151)=1 exch2_oi(3,151)=0 exch2_oj(3,151)=0 exch2_neighbourId(4,151)=73 exch2_iLo(4,151)=0 exch2_iHi(4,151)=0 exch2_jLo(4,151)=68 exch2_jHi(4,151)=103 exch2_opposingSend(4,151)=1 exch2_pij(1,4,151)=0 exch2_pij(2,4,151)=1 exch2_pij(3,4,151)=-1 exch2_pij(4,4,151)=0 exch2_oi(4,151)=-510 exch2_oj(4,151)=511 exch2_neighbourId(5,151)=74 exch2_iLo(5,151)=0 exch2_iHi(5,151)=0 exch2_jLo(5,151)=34 exch2_jHi(5,151)=69 exch2_opposingSend(5,151)=1 exch2_pij(1,5,151)=0 exch2_pij(2,5,151)=1 exch2_pij(3,5,151)=-1 exch2_pij(4,5,151)=0 exch2_oi(5,151)=-510 exch2_oj(5,151)=511 exch2_neighbourId(6,151)=75 exch2_iLo(6,151)=0 exch2_iHi(6,151)=0 exch2_jLo(6,151)=0 exch2_jHi(6,151)=35 exch2_opposingSend(6,151)=1 exch2_pij(1,6,151)=0 exch2_pij(2,6,151)=1 exch2_pij(3,6,151)=-1 exch2_pij(4,6,151)=0 exch2_oi(6,151)=-510 exch2_oj(6,151)=511 RETURN END SUBROUTINE W2_E2SETUP_152 C Topology for tile 152 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(152)=34 exch2_tNy(152)=102 exch2_tBasex(152)=34 exch2_tBasey(152)=0 exch2_txGlobalo(152)=1055 exch2_tyGlobalo(152)=1 exch2_isWedge(152)=0 exch2_isNedge(152)=0 exch2_isEedge(152)=0 exch2_isSedge(152)=1 exch2_myFace(152)=3 exch2_mydNx(152)=510 exch2_mydNy(152)=510 exch2_nNeighbours(152)=4 exch2_neighbourId(1,152)=167 exch2_iLo(1,152)=0 exch2_iHi(1,152)=35 exch2_jLo(1,152)=103 exch2_jHi(1,152)=103 exch2_opposingSend(1,152)=2 exch2_pij(1,1,152)=1 exch2_pij(2,1,152)=0 exch2_pij(3,1,152)=0 exch2_pij(4,1,152)=1 exch2_oi(1,152)=0 exch2_oj(1,152)=0 exch2_neighbourId(2,152)=137 exch2_iLo(2,152)=0 exch2_iHi(2,152)=35 exch2_jLo(2,152)=0 exch2_jHi(2,152)=0 exch2_opposingSend(2,152)=1 exch2_pij(1,2,152)=1 exch2_pij(2,2,152)=0 exch2_pij(3,2,152)=0 exch2_pij(4,2,152)=1 exch2_oi(2,152)=0 exch2_oj(2,152)=-510 exch2_neighbourId(3,152)=153 exch2_iLo(3,152)=35 exch2_iHi(3,152)=35 exch2_jLo(3,152)=0 exch2_jHi(3,152)=103 exch2_opposingSend(3,152)=4 exch2_pij(1,3,152)=1 exch2_pij(2,3,152)=0 exch2_pij(3,3,152)=0 exch2_pij(4,3,152)=1 exch2_oi(3,152)=0 exch2_oj(3,152)=0 exch2_neighbourId(4,152)=151 exch2_iLo(4,152)=0 exch2_iHi(4,152)=0 exch2_jLo(4,152)=0 exch2_jHi(4,152)=103 exch2_opposingSend(4,152)=3 exch2_pij(1,4,152)=1 exch2_pij(2,4,152)=0 exch2_pij(3,4,152)=0 exch2_pij(4,4,152)=1 exch2_oi(4,152)=0 exch2_oj(4,152)=0 RETURN END SUBROUTINE W2_E2SETUP_153 C Topology for tile 153 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(153)=34 exch2_tNy(153)=102 exch2_tBasex(153)=68 exch2_tBasey(153)=0 exch2_txGlobalo(153)=1089 exch2_tyGlobalo(153)=1 exch2_isWedge(153)=0 exch2_isNedge(153)=0 exch2_isEedge(153)=0 exch2_isSedge(153)=1 exch2_myFace(153)=3 exch2_mydNx(153)=510 exch2_mydNy(153)=510 exch2_nNeighbours(153)=4 exch2_neighbourId(1,153)=168 exch2_iLo(1,153)=0 exch2_iHi(1,153)=35 exch2_jLo(1,153)=103 exch2_jHi(1,153)=103 exch2_opposingSend(1,153)=2 exch2_pij(1,1,153)=1 exch2_pij(2,1,153)=0 exch2_pij(3,1,153)=0 exch2_pij(4,1,153)=1 exch2_oi(1,153)=0 exch2_oj(1,153)=0 exch2_neighbourId(2,153)=138 exch2_iLo(2,153)=0 exch2_iHi(2,153)=35 exch2_jLo(2,153)=0 exch2_jHi(2,153)=0 exch2_opposingSend(2,153)=1 exch2_pij(1,2,153)=1 exch2_pij(2,2,153)=0 exch2_pij(3,2,153)=0 exch2_pij(4,2,153)=1 exch2_oi(2,153)=0 exch2_oj(2,153)=-510 exch2_neighbourId(3,153)=154 exch2_iLo(3,153)=35 exch2_iHi(3,153)=35 exch2_jLo(3,153)=0 exch2_jHi(3,153)=103 exch2_opposingSend(3,153)=4 exch2_pij(1,3,153)=1 exch2_pij(2,3,153)=0 exch2_pij(3,3,153)=0 exch2_pij(4,3,153)=1 exch2_oi(3,153)=0 exch2_oj(3,153)=0 exch2_neighbourId(4,153)=152 exch2_iLo(4,153)=0 exch2_iHi(4,153)=0 exch2_jLo(4,153)=0 exch2_jHi(4,153)=103 exch2_opposingSend(4,153)=3 exch2_pij(1,4,153)=1 exch2_pij(2,4,153)=0 exch2_pij(3,4,153)=0 exch2_pij(4,4,153)=1 exch2_oi(4,153)=0 exch2_oj(4,153)=0 RETURN END SUBROUTINE W2_E2SETUP_154 C Topology for tile 154 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(154)=34 exch2_tNy(154)=102 exch2_tBasex(154)=102 exch2_tBasey(154)=0 exch2_txGlobalo(154)=1123 exch2_tyGlobalo(154)=1 exch2_isWedge(154)=0 exch2_isNedge(154)=0 exch2_isEedge(154)=0 exch2_isSedge(154)=1 exch2_myFace(154)=3 exch2_mydNx(154)=510 exch2_mydNy(154)=510 exch2_nNeighbours(154)=4 exch2_neighbourId(1,154)=169 exch2_iLo(1,154)=0 exch2_iHi(1,154)=35 exch2_jLo(1,154)=103 exch2_jHi(1,154)=103 exch2_opposingSend(1,154)=2 exch2_pij(1,1,154)=1 exch2_pij(2,1,154)=0 exch2_pij(3,1,154)=0 exch2_pij(4,1,154)=1 exch2_oi(1,154)=0 exch2_oj(1,154)=0 exch2_neighbourId(2,154)=139 exch2_iLo(2,154)=0 exch2_iHi(2,154)=35 exch2_jLo(2,154)=0 exch2_jHi(2,154)=0 exch2_opposingSend(2,154)=1 exch2_pij(1,2,154)=1 exch2_pij(2,2,154)=0 exch2_pij(3,2,154)=0 exch2_pij(4,2,154)=1 exch2_oi(2,154)=0 exch2_oj(2,154)=-510 exch2_neighbourId(3,154)=155 exch2_iLo(3,154)=35 exch2_iHi(3,154)=35 exch2_jLo(3,154)=0 exch2_jHi(3,154)=103 exch2_opposingSend(3,154)=4 exch2_pij(1,3,154)=1 exch2_pij(2,3,154)=0 exch2_pij(3,3,154)=0 exch2_pij(4,3,154)=1 exch2_oi(3,154)=0 exch2_oj(3,154)=0 exch2_neighbourId(4,154)=153 exch2_iLo(4,154)=0 exch2_iHi(4,154)=0 exch2_jLo(4,154)=0 exch2_jHi(4,154)=103 exch2_opposingSend(4,154)=3 exch2_pij(1,4,154)=1 exch2_pij(2,4,154)=0 exch2_pij(3,4,154)=0 exch2_pij(4,4,154)=1 exch2_oi(4,154)=0 exch2_oj(4,154)=0 RETURN END SUBROUTINE W2_E2SETUP_155 C Topology for tile 155 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(155)=34 exch2_tNy(155)=102 exch2_tBasex(155)=136 exch2_tBasey(155)=0 exch2_txGlobalo(155)=1157 exch2_tyGlobalo(155)=1 exch2_isWedge(155)=0 exch2_isNedge(155)=0 exch2_isEedge(155)=0 exch2_isSedge(155)=1 exch2_myFace(155)=3 exch2_mydNx(155)=510 exch2_mydNy(155)=510 exch2_nNeighbours(155)=4 exch2_neighbourId(1,155)=170 exch2_iLo(1,155)=0 exch2_iHi(1,155)=35 exch2_jLo(1,155)=103 exch2_jHi(1,155)=103 exch2_opposingSend(1,155)=2 exch2_pij(1,1,155)=1 exch2_pij(2,1,155)=0 exch2_pij(3,1,155)=0 exch2_pij(4,1,155)=1 exch2_oi(1,155)=0 exch2_oj(1,155)=0 exch2_neighbourId(2,155)=140 exch2_iLo(2,155)=0 exch2_iHi(2,155)=35 exch2_jLo(2,155)=0 exch2_jHi(2,155)=0 exch2_opposingSend(2,155)=1 exch2_pij(1,2,155)=1 exch2_pij(2,2,155)=0 exch2_pij(3,2,155)=0 exch2_pij(4,2,155)=1 exch2_oi(2,155)=0 exch2_oj(2,155)=-510 exch2_neighbourId(3,155)=156 exch2_iLo(3,155)=35 exch2_iHi(3,155)=35 exch2_jLo(3,155)=0 exch2_jHi(3,155)=103 exch2_opposingSend(3,155)=4 exch2_pij(1,3,155)=1 exch2_pij(2,3,155)=0 exch2_pij(3,3,155)=0 exch2_pij(4,3,155)=1 exch2_oi(3,155)=0 exch2_oj(3,155)=0 exch2_neighbourId(4,155)=154 exch2_iLo(4,155)=0 exch2_iHi(4,155)=0 exch2_jLo(4,155)=0 exch2_jHi(4,155)=103 exch2_opposingSend(4,155)=3 exch2_pij(1,4,155)=1 exch2_pij(2,4,155)=0 exch2_pij(3,4,155)=0 exch2_pij(4,4,155)=1 exch2_oi(4,155)=0 exch2_oj(4,155)=0 RETURN END SUBROUTINE W2_E2SETUP_156 C Topology for tile 156 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(156)=34 exch2_tNy(156)=102 exch2_tBasex(156)=170 exch2_tBasey(156)=0 exch2_txGlobalo(156)=1191 exch2_tyGlobalo(156)=1 exch2_isWedge(156)=0 exch2_isNedge(156)=0 exch2_isEedge(156)=0 exch2_isSedge(156)=1 exch2_myFace(156)=3 exch2_mydNx(156)=510 exch2_mydNy(156)=510 exch2_nNeighbours(156)=4 exch2_neighbourId(1,156)=171 exch2_iLo(1,156)=0 exch2_iHi(1,156)=35 exch2_jLo(1,156)=103 exch2_jHi(1,156)=103 exch2_opposingSend(1,156)=2 exch2_pij(1,1,156)=1 exch2_pij(2,1,156)=0 exch2_pij(3,1,156)=0 exch2_pij(4,1,156)=1 exch2_oi(1,156)=0 exch2_oj(1,156)=0 exch2_neighbourId(2,156)=141 exch2_iLo(2,156)=0 exch2_iHi(2,156)=35 exch2_jLo(2,156)=0 exch2_jHi(2,156)=0 exch2_opposingSend(2,156)=1 exch2_pij(1,2,156)=1 exch2_pij(2,2,156)=0 exch2_pij(3,2,156)=0 exch2_pij(4,2,156)=1 exch2_oi(2,156)=0 exch2_oj(2,156)=-510 exch2_neighbourId(3,156)=157 exch2_iLo(3,156)=35 exch2_iHi(3,156)=35 exch2_jLo(3,156)=0 exch2_jHi(3,156)=103 exch2_opposingSend(3,156)=4 exch2_pij(1,3,156)=1 exch2_pij(2,3,156)=0 exch2_pij(3,3,156)=0 exch2_pij(4,3,156)=1 exch2_oi(3,156)=0 exch2_oj(3,156)=0 exch2_neighbourId(4,156)=155 exch2_iLo(4,156)=0 exch2_iHi(4,156)=0 exch2_jLo(4,156)=0 exch2_jHi(4,156)=103 exch2_opposingSend(4,156)=3 exch2_pij(1,4,156)=1 exch2_pij(2,4,156)=0 exch2_pij(3,4,156)=0 exch2_pij(4,4,156)=1 exch2_oi(4,156)=0 exch2_oj(4,156)=0 RETURN END SUBROUTINE W2_E2SETUP_157 C Topology for tile 157 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(157)=34 exch2_tNy(157)=102 exch2_tBasex(157)=204 exch2_tBasey(157)=0 exch2_txGlobalo(157)=1225 exch2_tyGlobalo(157)=1 exch2_isWedge(157)=0 exch2_isNedge(157)=0 exch2_isEedge(157)=0 exch2_isSedge(157)=1 exch2_myFace(157)=3 exch2_mydNx(157)=510 exch2_mydNy(157)=510 exch2_nNeighbours(157)=4 exch2_neighbourId(1,157)=172 exch2_iLo(1,157)=0 exch2_iHi(1,157)=35 exch2_jLo(1,157)=103 exch2_jHi(1,157)=103 exch2_opposingSend(1,157)=2 exch2_pij(1,1,157)=1 exch2_pij(2,1,157)=0 exch2_pij(3,1,157)=0 exch2_pij(4,1,157)=1 exch2_oi(1,157)=0 exch2_oj(1,157)=0 exch2_neighbourId(2,157)=142 exch2_iLo(2,157)=0 exch2_iHi(2,157)=35 exch2_jLo(2,157)=0 exch2_jHi(2,157)=0 exch2_opposingSend(2,157)=1 exch2_pij(1,2,157)=1 exch2_pij(2,2,157)=0 exch2_pij(3,2,157)=0 exch2_pij(4,2,157)=1 exch2_oi(2,157)=0 exch2_oj(2,157)=-510 exch2_neighbourId(3,157)=158 exch2_iLo(3,157)=35 exch2_iHi(3,157)=35 exch2_jLo(3,157)=0 exch2_jHi(3,157)=103 exch2_opposingSend(3,157)=4 exch2_pij(1,3,157)=1 exch2_pij(2,3,157)=0 exch2_pij(3,3,157)=0 exch2_pij(4,3,157)=1 exch2_oi(3,157)=0 exch2_oj(3,157)=0 exch2_neighbourId(4,157)=156 exch2_iLo(4,157)=0 exch2_iHi(4,157)=0 exch2_jLo(4,157)=0 exch2_jHi(4,157)=103 exch2_opposingSend(4,157)=3 exch2_pij(1,4,157)=1 exch2_pij(2,4,157)=0 exch2_pij(3,4,157)=0 exch2_pij(4,4,157)=1 exch2_oi(4,157)=0 exch2_oj(4,157)=0 RETURN END SUBROUTINE W2_E2SETUP_158 C Topology for tile 158 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(158)=34 exch2_tNy(158)=102 exch2_tBasex(158)=238 exch2_tBasey(158)=0 exch2_txGlobalo(158)=1259 exch2_tyGlobalo(158)=1 exch2_isWedge(158)=0 exch2_isNedge(158)=0 exch2_isEedge(158)=0 exch2_isSedge(158)=1 exch2_myFace(158)=3 exch2_mydNx(158)=510 exch2_mydNy(158)=510 exch2_nNeighbours(158)=4 exch2_neighbourId(1,158)=173 exch2_iLo(1,158)=0 exch2_iHi(1,158)=35 exch2_jLo(1,158)=103 exch2_jHi(1,158)=103 exch2_opposingSend(1,158)=2 exch2_pij(1,1,158)=1 exch2_pij(2,1,158)=0 exch2_pij(3,1,158)=0 exch2_pij(4,1,158)=1 exch2_oi(1,158)=0 exch2_oj(1,158)=0 exch2_neighbourId(2,158)=143 exch2_iLo(2,158)=0 exch2_iHi(2,158)=35 exch2_jLo(2,158)=0 exch2_jHi(2,158)=0 exch2_opposingSend(2,158)=1 exch2_pij(1,2,158)=1 exch2_pij(2,2,158)=0 exch2_pij(3,2,158)=0 exch2_pij(4,2,158)=1 exch2_oi(2,158)=0 exch2_oj(2,158)=-510 exch2_neighbourId(3,158)=159 exch2_iLo(3,158)=35 exch2_iHi(3,158)=35 exch2_jLo(3,158)=0 exch2_jHi(3,158)=103 exch2_opposingSend(3,158)=4 exch2_pij(1,3,158)=1 exch2_pij(2,3,158)=0 exch2_pij(3,3,158)=0 exch2_pij(4,3,158)=1 exch2_oi(3,158)=0 exch2_oj(3,158)=0 exch2_neighbourId(4,158)=157 exch2_iLo(4,158)=0 exch2_iHi(4,158)=0 exch2_jLo(4,158)=0 exch2_jHi(4,158)=103 exch2_opposingSend(4,158)=3 exch2_pij(1,4,158)=1 exch2_pij(2,4,158)=0 exch2_pij(3,4,158)=0 exch2_pij(4,4,158)=1 exch2_oi(4,158)=0 exch2_oj(4,158)=0 RETURN END SUBROUTINE W2_E2SETUP_159 C Topology for tile 159 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(159)=34 exch2_tNy(159)=102 exch2_tBasex(159)=272 exch2_tBasey(159)=0 exch2_txGlobalo(159)=1293 exch2_tyGlobalo(159)=1 exch2_isWedge(159)=0 exch2_isNedge(159)=0 exch2_isEedge(159)=0 exch2_isSedge(159)=1 exch2_myFace(159)=3 exch2_mydNx(159)=510 exch2_mydNy(159)=510 exch2_nNeighbours(159)=4 exch2_neighbourId(1,159)=174 exch2_iLo(1,159)=0 exch2_iHi(1,159)=35 exch2_jLo(1,159)=103 exch2_jHi(1,159)=103 exch2_opposingSend(1,159)=2 exch2_pij(1,1,159)=1 exch2_pij(2,1,159)=0 exch2_pij(3,1,159)=0 exch2_pij(4,1,159)=1 exch2_oi(1,159)=0 exch2_oj(1,159)=0 exch2_neighbourId(2,159)=144 exch2_iLo(2,159)=0 exch2_iHi(2,159)=35 exch2_jLo(2,159)=0 exch2_jHi(2,159)=0 exch2_opposingSend(2,159)=1 exch2_pij(1,2,159)=1 exch2_pij(2,2,159)=0 exch2_pij(3,2,159)=0 exch2_pij(4,2,159)=1 exch2_oi(2,159)=0 exch2_oj(2,159)=-510 exch2_neighbourId(3,159)=160 exch2_iLo(3,159)=35 exch2_iHi(3,159)=35 exch2_jLo(3,159)=0 exch2_jHi(3,159)=103 exch2_opposingSend(3,159)=4 exch2_pij(1,3,159)=1 exch2_pij(2,3,159)=0 exch2_pij(3,3,159)=0 exch2_pij(4,3,159)=1 exch2_oi(3,159)=0 exch2_oj(3,159)=0 exch2_neighbourId(4,159)=158 exch2_iLo(4,159)=0 exch2_iHi(4,159)=0 exch2_jLo(4,159)=0 exch2_jHi(4,159)=103 exch2_opposingSend(4,159)=3 exch2_pij(1,4,159)=1 exch2_pij(2,4,159)=0 exch2_pij(3,4,159)=0 exch2_pij(4,4,159)=1 exch2_oi(4,159)=0 exch2_oj(4,159)=0 RETURN END SUBROUTINE W2_E2SETUP_160 C Topology for tile 160 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(160)=34 exch2_tNy(160)=102 exch2_tBasex(160)=306 exch2_tBasey(160)=0 exch2_txGlobalo(160)=1327 exch2_tyGlobalo(160)=1 exch2_isWedge(160)=0 exch2_isNedge(160)=0 exch2_isEedge(160)=0 exch2_isSedge(160)=1 exch2_myFace(160)=3 exch2_mydNx(160)=510 exch2_mydNy(160)=510 exch2_nNeighbours(160)=4 exch2_neighbourId(1,160)=175 exch2_iLo(1,160)=0 exch2_iHi(1,160)=35 exch2_jLo(1,160)=103 exch2_jHi(1,160)=103 exch2_opposingSend(1,160)=2 exch2_pij(1,1,160)=1 exch2_pij(2,1,160)=0 exch2_pij(3,1,160)=0 exch2_pij(4,1,160)=1 exch2_oi(1,160)=0 exch2_oj(1,160)=0 exch2_neighbourId(2,160)=145 exch2_iLo(2,160)=0 exch2_iHi(2,160)=35 exch2_jLo(2,160)=0 exch2_jHi(2,160)=0 exch2_opposingSend(2,160)=1 exch2_pij(1,2,160)=1 exch2_pij(2,2,160)=0 exch2_pij(3,2,160)=0 exch2_pij(4,2,160)=1 exch2_oi(2,160)=0 exch2_oj(2,160)=-510 exch2_neighbourId(3,160)=161 exch2_iLo(3,160)=35 exch2_iHi(3,160)=35 exch2_jLo(3,160)=0 exch2_jHi(3,160)=103 exch2_opposingSend(3,160)=4 exch2_pij(1,3,160)=1 exch2_pij(2,3,160)=0 exch2_pij(3,3,160)=0 exch2_pij(4,3,160)=1 exch2_oi(3,160)=0 exch2_oj(3,160)=0 exch2_neighbourId(4,160)=159 exch2_iLo(4,160)=0 exch2_iHi(4,160)=0 exch2_jLo(4,160)=0 exch2_jHi(4,160)=103 exch2_opposingSend(4,160)=3 exch2_pij(1,4,160)=1 exch2_pij(2,4,160)=0 exch2_pij(3,4,160)=0 exch2_pij(4,4,160)=1 exch2_oi(4,160)=0 exch2_oj(4,160)=0 RETURN END SUBROUTINE W2_E2SETUP_161 C Topology for tile 161 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(161)=34 exch2_tNy(161)=102 exch2_tBasex(161)=340 exch2_tBasey(161)=0 exch2_txGlobalo(161)=1361 exch2_tyGlobalo(161)=1 exch2_isWedge(161)=0 exch2_isNedge(161)=0 exch2_isEedge(161)=0 exch2_isSedge(161)=1 exch2_myFace(161)=3 exch2_mydNx(161)=510 exch2_mydNy(161)=510 exch2_nNeighbours(161)=4 exch2_neighbourId(1,161)=176 exch2_iLo(1,161)=0 exch2_iHi(1,161)=35 exch2_jLo(1,161)=103 exch2_jHi(1,161)=103 exch2_opposingSend(1,161)=2 exch2_pij(1,1,161)=1 exch2_pij(2,1,161)=0 exch2_pij(3,1,161)=0 exch2_pij(4,1,161)=1 exch2_oi(1,161)=0 exch2_oj(1,161)=0 exch2_neighbourId(2,161)=146 exch2_iLo(2,161)=0 exch2_iHi(2,161)=35 exch2_jLo(2,161)=0 exch2_jHi(2,161)=0 exch2_opposingSend(2,161)=1 exch2_pij(1,2,161)=1 exch2_pij(2,2,161)=0 exch2_pij(3,2,161)=0 exch2_pij(4,2,161)=1 exch2_oi(2,161)=0 exch2_oj(2,161)=-510 exch2_neighbourId(3,161)=162 exch2_iLo(3,161)=35 exch2_iHi(3,161)=35 exch2_jLo(3,161)=0 exch2_jHi(3,161)=103 exch2_opposingSend(3,161)=4 exch2_pij(1,3,161)=1 exch2_pij(2,3,161)=0 exch2_pij(3,3,161)=0 exch2_pij(4,3,161)=1 exch2_oi(3,161)=0 exch2_oj(3,161)=0 exch2_neighbourId(4,161)=160 exch2_iLo(4,161)=0 exch2_iHi(4,161)=0 exch2_jLo(4,161)=0 exch2_jHi(4,161)=103 exch2_opposingSend(4,161)=3 exch2_pij(1,4,161)=1 exch2_pij(2,4,161)=0 exch2_pij(3,4,161)=0 exch2_pij(4,4,161)=1 exch2_oi(4,161)=0 exch2_oj(4,161)=0 RETURN END SUBROUTINE W2_E2SETUP_162 C Topology for tile 162 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(162)=34 exch2_tNy(162)=102 exch2_tBasex(162)=374 exch2_tBasey(162)=0 exch2_txGlobalo(162)=1395 exch2_tyGlobalo(162)=1 exch2_isWedge(162)=0 exch2_isNedge(162)=0 exch2_isEedge(162)=0 exch2_isSedge(162)=1 exch2_myFace(162)=3 exch2_mydNx(162)=510 exch2_mydNy(162)=510 exch2_nNeighbours(162)=4 exch2_neighbourId(1,162)=177 exch2_iLo(1,162)=0 exch2_iHi(1,162)=35 exch2_jLo(1,162)=103 exch2_jHi(1,162)=103 exch2_opposingSend(1,162)=2 exch2_pij(1,1,162)=1 exch2_pij(2,1,162)=0 exch2_pij(3,1,162)=0 exch2_pij(4,1,162)=1 exch2_oi(1,162)=0 exch2_oj(1,162)=0 exch2_neighbourId(2,162)=147 exch2_iLo(2,162)=0 exch2_iHi(2,162)=35 exch2_jLo(2,162)=0 exch2_jHi(2,162)=0 exch2_opposingSend(2,162)=1 exch2_pij(1,2,162)=1 exch2_pij(2,2,162)=0 exch2_pij(3,2,162)=0 exch2_pij(4,2,162)=1 exch2_oi(2,162)=0 exch2_oj(2,162)=-510 exch2_neighbourId(3,162)=163 exch2_iLo(3,162)=35 exch2_iHi(3,162)=35 exch2_jLo(3,162)=0 exch2_jHi(3,162)=103 exch2_opposingSend(3,162)=4 exch2_pij(1,3,162)=1 exch2_pij(2,3,162)=0 exch2_pij(3,3,162)=0 exch2_pij(4,3,162)=1 exch2_oi(3,162)=0 exch2_oj(3,162)=0 exch2_neighbourId(4,162)=161 exch2_iLo(4,162)=0 exch2_iHi(4,162)=0 exch2_jLo(4,162)=0 exch2_jHi(4,162)=103 exch2_opposingSend(4,162)=3 exch2_pij(1,4,162)=1 exch2_pij(2,4,162)=0 exch2_pij(3,4,162)=0 exch2_pij(4,4,162)=1 exch2_oi(4,162)=0 exch2_oj(4,162)=0 RETURN END SUBROUTINE W2_E2SETUP_163 C Topology for tile 163 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(163)=34 exch2_tNy(163)=102 exch2_tBasex(163)=408 exch2_tBasey(163)=0 exch2_txGlobalo(163)=1429 exch2_tyGlobalo(163)=1 exch2_isWedge(163)=0 exch2_isNedge(163)=0 exch2_isEedge(163)=0 exch2_isSedge(163)=1 exch2_myFace(163)=3 exch2_mydNx(163)=510 exch2_mydNy(163)=510 exch2_nNeighbours(163)=4 exch2_neighbourId(1,163)=178 exch2_iLo(1,163)=0 exch2_iHi(1,163)=35 exch2_jLo(1,163)=103 exch2_jHi(1,163)=103 exch2_opposingSend(1,163)=2 exch2_pij(1,1,163)=1 exch2_pij(2,1,163)=0 exch2_pij(3,1,163)=0 exch2_pij(4,1,163)=1 exch2_oi(1,163)=0 exch2_oj(1,163)=0 exch2_neighbourId(2,163)=148 exch2_iLo(2,163)=0 exch2_iHi(2,163)=35 exch2_jLo(2,163)=0 exch2_jHi(2,163)=0 exch2_opposingSend(2,163)=1 exch2_pij(1,2,163)=1 exch2_pij(2,2,163)=0 exch2_pij(3,2,163)=0 exch2_pij(4,2,163)=1 exch2_oi(2,163)=0 exch2_oj(2,163)=-510 exch2_neighbourId(3,163)=164 exch2_iLo(3,163)=35 exch2_iHi(3,163)=35 exch2_jLo(3,163)=0 exch2_jHi(3,163)=103 exch2_opposingSend(3,163)=4 exch2_pij(1,3,163)=1 exch2_pij(2,3,163)=0 exch2_pij(3,3,163)=0 exch2_pij(4,3,163)=1 exch2_oi(3,163)=0 exch2_oj(3,163)=0 exch2_neighbourId(4,163)=162 exch2_iLo(4,163)=0 exch2_iHi(4,163)=0 exch2_jLo(4,163)=0 exch2_jHi(4,163)=103 exch2_opposingSend(4,163)=3 exch2_pij(1,4,163)=1 exch2_pij(2,4,163)=0 exch2_pij(3,4,163)=0 exch2_pij(4,4,163)=1 exch2_oi(4,163)=0 exch2_oj(4,163)=0 RETURN END SUBROUTINE W2_E2SETUP_164 C Topology for tile 164 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(164)=34 exch2_tNy(164)=102 exch2_tBasex(164)=442 exch2_tBasey(164)=0 exch2_txGlobalo(164)=1463 exch2_tyGlobalo(164)=1 exch2_isWedge(164)=0 exch2_isNedge(164)=0 exch2_isEedge(164)=0 exch2_isSedge(164)=1 exch2_myFace(164)=3 exch2_mydNx(164)=510 exch2_mydNy(164)=510 exch2_nNeighbours(164)=4 exch2_neighbourId(1,164)=179 exch2_iLo(1,164)=0 exch2_iHi(1,164)=35 exch2_jLo(1,164)=103 exch2_jHi(1,164)=103 exch2_opposingSend(1,164)=2 exch2_pij(1,1,164)=1 exch2_pij(2,1,164)=0 exch2_pij(3,1,164)=0 exch2_pij(4,1,164)=1 exch2_oi(1,164)=0 exch2_oj(1,164)=0 exch2_neighbourId(2,164)=149 exch2_iLo(2,164)=0 exch2_iHi(2,164)=35 exch2_jLo(2,164)=0 exch2_jHi(2,164)=0 exch2_opposingSend(2,164)=1 exch2_pij(1,2,164)=1 exch2_pij(2,2,164)=0 exch2_pij(3,2,164)=0 exch2_pij(4,2,164)=1 exch2_oi(2,164)=0 exch2_oj(2,164)=-510 exch2_neighbourId(3,164)=165 exch2_iLo(3,164)=35 exch2_iHi(3,164)=35 exch2_jLo(3,164)=0 exch2_jHi(3,164)=103 exch2_opposingSend(3,164)=4 exch2_pij(1,3,164)=1 exch2_pij(2,3,164)=0 exch2_pij(3,3,164)=0 exch2_pij(4,3,164)=1 exch2_oi(3,164)=0 exch2_oj(3,164)=0 exch2_neighbourId(4,164)=163 exch2_iLo(4,164)=0 exch2_iHi(4,164)=0 exch2_jLo(4,164)=0 exch2_jHi(4,164)=103 exch2_opposingSend(4,164)=3 exch2_pij(1,4,164)=1 exch2_pij(2,4,164)=0 exch2_pij(3,4,164)=0 exch2_pij(4,4,164)=1 exch2_oi(4,164)=0 exch2_oj(4,164)=0 RETURN END SUBROUTINE W2_E2SETUP_165 C Topology for tile 165 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(165)=34 exch2_tNy(165)=102 exch2_tBasex(165)=476 exch2_tBasey(165)=0 exch2_txGlobalo(165)=1497 exch2_tyGlobalo(165)=1 exch2_isWedge(165)=0 exch2_isNedge(165)=0 exch2_isEedge(165)=1 exch2_isSedge(165)=1 exch2_myFace(165)=3 exch2_mydNx(165)=510 exch2_mydNy(165)=510 exch2_nNeighbours(165)=4 exch2_neighbourId(1,165)=180 exch2_iLo(1,165)=0 exch2_iHi(1,165)=35 exch2_jLo(1,165)=103 exch2_jHi(1,165)=103 exch2_opposingSend(1,165)=2 exch2_pij(1,1,165)=1 exch2_pij(2,1,165)=0 exch2_pij(3,1,165)=0 exch2_pij(4,1,165)=1 exch2_oi(1,165)=0 exch2_oj(1,165)=0 exch2_neighbourId(2,165)=150 exch2_iLo(2,165)=0 exch2_iHi(2,165)=35 exch2_jLo(2,165)=0 exch2_jHi(2,165)=0 exch2_opposingSend(2,165)=1 exch2_pij(1,2,165)=1 exch2_pij(2,2,165)=0 exch2_pij(3,2,165)=0 exch2_pij(4,2,165)=1 exch2_oi(2,165)=0 exch2_oj(2,165)=-510 exch2_neighbourId(3,165)=226 exch2_iLo(3,165)=35 exch2_iHi(3,165)=35 exch2_jLo(3,165)=0 exch2_jHi(3,165)=103 exch2_opposingSend(3,165)=4 exch2_pij(1,3,165)=1 exch2_pij(2,3,165)=0 exch2_pij(3,3,165)=0 exch2_pij(4,3,165)=1 exch2_oi(3,165)=510 exch2_oj(3,165)=0 exch2_neighbourId(4,165)=164 exch2_iLo(4,165)=0 exch2_iHi(4,165)=0 exch2_jLo(4,165)=0 exch2_jHi(4,165)=103 exch2_opposingSend(4,165)=3 exch2_pij(1,4,165)=1 exch2_pij(2,4,165)=0 exch2_pij(3,4,165)=0 exch2_pij(4,4,165)=1 exch2_oi(4,165)=0 exch2_oj(4,165)=0 RETURN END SUBROUTINE W2_E2SETUP_166 C Topology for tile 166 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(166)=34 exch2_tNy(166)=102 exch2_tBasex(166)=0 exch2_tBasey(166)=102 exch2_txGlobalo(166)=1021 exch2_tyGlobalo(166)=103 exch2_isWedge(166)=1 exch2_isNedge(166)=0 exch2_isEedge(166)=0 exch2_isSedge(166)=0 exch2_myFace(166)=3 exch2_mydNx(166)=510 exch2_mydNy(166)=510 exch2_nNeighbours(166)=6 exch2_neighbourId(1,166)=181 exch2_iLo(1,166)=0 exch2_iHi(1,166)=35 exch2_jLo(1,166)=103 exch2_jHi(1,166)=103 exch2_opposingSend(1,166)=2 exch2_pij(1,1,166)=1 exch2_pij(2,1,166)=0 exch2_pij(3,1,166)=0 exch2_pij(4,1,166)=1 exch2_oi(1,166)=0 exch2_oj(1,166)=0 exch2_neighbourId(2,166)=151 exch2_iLo(2,166)=0 exch2_iHi(2,166)=35 exch2_jLo(2,166)=0 exch2_jHi(2,166)=0 exch2_opposingSend(2,166)=1 exch2_pij(1,2,166)=1 exch2_pij(2,2,166)=0 exch2_pij(3,2,166)=0 exch2_pij(4,2,166)=1 exch2_oi(2,166)=0 exch2_oj(2,166)=0 exch2_neighbourId(3,166)=167 exch2_iLo(3,166)=35 exch2_iHi(3,166)=35 exch2_jLo(3,166)=0 exch2_jHi(3,166)=103 exch2_opposingSend(3,166)=4 exch2_pij(1,3,166)=1 exch2_pij(2,3,166)=0 exch2_pij(3,3,166)=0 exch2_pij(4,3,166)=1 exch2_oi(3,166)=0 exch2_oj(3,166)=0 exch2_neighbourId(4,166)=70 exch2_iLo(4,166)=0 exch2_iHi(4,166)=0 exch2_jLo(4,166)=68 exch2_jHi(4,166)=103 exch2_opposingSend(4,166)=1 exch2_pij(1,4,166)=0 exch2_pij(2,4,166)=1 exch2_pij(3,4,166)=-1 exch2_pij(4,4,166)=0 exch2_oi(4,166)=-510 exch2_oj(4,166)=511 exch2_neighbourId(5,166)=71 exch2_iLo(5,166)=0 exch2_iHi(5,166)=0 exch2_jLo(5,166)=34 exch2_jHi(5,166)=69 exch2_opposingSend(5,166)=1 exch2_pij(1,5,166)=0 exch2_pij(2,5,166)=1 exch2_pij(3,5,166)=-1 exch2_pij(4,5,166)=0 exch2_oi(5,166)=-510 exch2_oj(5,166)=511 exch2_neighbourId(6,166)=72 exch2_iLo(6,166)=0 exch2_iHi(6,166)=0 exch2_jLo(6,166)=0 exch2_jHi(6,166)=35 exch2_opposingSend(6,166)=1 exch2_pij(1,6,166)=0 exch2_pij(2,6,166)=1 exch2_pij(3,6,166)=-1 exch2_pij(4,6,166)=0 exch2_oi(6,166)=-510 exch2_oj(6,166)=511 RETURN END SUBROUTINE W2_E2SETUP_167 C Topology for tile 167 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(167)=34 exch2_tNy(167)=102 exch2_tBasex(167)=34 exch2_tBasey(167)=102 exch2_txGlobalo(167)=1055 exch2_tyGlobalo(167)=103 exch2_isWedge(167)=0 exch2_isNedge(167)=0 exch2_isEedge(167)=0 exch2_isSedge(167)=0 exch2_myFace(167)=3 exch2_mydNx(167)=510 exch2_mydNy(167)=510 exch2_nNeighbours(167)=4 exch2_neighbourId(1,167)=182 exch2_iLo(1,167)=0 exch2_iHi(1,167)=35 exch2_jLo(1,167)=103 exch2_jHi(1,167)=103 exch2_opposingSend(1,167)=2 exch2_pij(1,1,167)=1 exch2_pij(2,1,167)=0 exch2_pij(3,1,167)=0 exch2_pij(4,1,167)=1 exch2_oi(1,167)=0 exch2_oj(1,167)=0 exch2_neighbourId(2,167)=152 exch2_iLo(2,167)=0 exch2_iHi(2,167)=35 exch2_jLo(2,167)=0 exch2_jHi(2,167)=0 exch2_opposingSend(2,167)=1 exch2_pij(1,2,167)=1 exch2_pij(2,2,167)=0 exch2_pij(3,2,167)=0 exch2_pij(4,2,167)=1 exch2_oi(2,167)=0 exch2_oj(2,167)=0 exch2_neighbourId(3,167)=168 exch2_iLo(3,167)=35 exch2_iHi(3,167)=35 exch2_jLo(3,167)=0 exch2_jHi(3,167)=103 exch2_opposingSend(3,167)=4 exch2_pij(1,3,167)=1 exch2_pij(2,3,167)=0 exch2_pij(3,3,167)=0 exch2_pij(4,3,167)=1 exch2_oi(3,167)=0 exch2_oj(3,167)=0 exch2_neighbourId(4,167)=166 exch2_iLo(4,167)=0 exch2_iHi(4,167)=0 exch2_jLo(4,167)=0 exch2_jHi(4,167)=103 exch2_opposingSend(4,167)=3 exch2_pij(1,4,167)=1 exch2_pij(2,4,167)=0 exch2_pij(3,4,167)=0 exch2_pij(4,4,167)=1 exch2_oi(4,167)=0 exch2_oj(4,167)=0 RETURN END SUBROUTINE W2_E2SETUP_168 C Topology for tile 168 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(168)=34 exch2_tNy(168)=102 exch2_tBasex(168)=68 exch2_tBasey(168)=102 exch2_txGlobalo(168)=1089 exch2_tyGlobalo(168)=103 exch2_isWedge(168)=0 exch2_isNedge(168)=0 exch2_isEedge(168)=0 exch2_isSedge(168)=0 exch2_myFace(168)=3 exch2_mydNx(168)=510 exch2_mydNy(168)=510 exch2_nNeighbours(168)=4 exch2_neighbourId(1,168)=183 exch2_iLo(1,168)=0 exch2_iHi(1,168)=35 exch2_jLo(1,168)=103 exch2_jHi(1,168)=103 exch2_opposingSend(1,168)=2 exch2_pij(1,1,168)=1 exch2_pij(2,1,168)=0 exch2_pij(3,1,168)=0 exch2_pij(4,1,168)=1 exch2_oi(1,168)=0 exch2_oj(1,168)=0 exch2_neighbourId(2,168)=153 exch2_iLo(2,168)=0 exch2_iHi(2,168)=35 exch2_jLo(2,168)=0 exch2_jHi(2,168)=0 exch2_opposingSend(2,168)=1 exch2_pij(1,2,168)=1 exch2_pij(2,2,168)=0 exch2_pij(3,2,168)=0 exch2_pij(4,2,168)=1 exch2_oi(2,168)=0 exch2_oj(2,168)=0 exch2_neighbourId(3,168)=169 exch2_iLo(3,168)=35 exch2_iHi(3,168)=35 exch2_jLo(3,168)=0 exch2_jHi(3,168)=103 exch2_opposingSend(3,168)=4 exch2_pij(1,3,168)=1 exch2_pij(2,3,168)=0 exch2_pij(3,3,168)=0 exch2_pij(4,3,168)=1 exch2_oi(3,168)=0 exch2_oj(3,168)=0 exch2_neighbourId(4,168)=167 exch2_iLo(4,168)=0 exch2_iHi(4,168)=0 exch2_jLo(4,168)=0 exch2_jHi(4,168)=103 exch2_opposingSend(4,168)=3 exch2_pij(1,4,168)=1 exch2_pij(2,4,168)=0 exch2_pij(3,4,168)=0 exch2_pij(4,4,168)=1 exch2_oi(4,168)=0 exch2_oj(4,168)=0 RETURN END SUBROUTINE W2_E2SETUP_169 C Topology for tile 169 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(169)=34 exch2_tNy(169)=102 exch2_tBasex(169)=102 exch2_tBasey(169)=102 exch2_txGlobalo(169)=1123 exch2_tyGlobalo(169)=103 exch2_isWedge(169)=0 exch2_isNedge(169)=0 exch2_isEedge(169)=0 exch2_isSedge(169)=0 exch2_myFace(169)=3 exch2_mydNx(169)=510 exch2_mydNy(169)=510 exch2_nNeighbours(169)=4 exch2_neighbourId(1,169)=184 exch2_iLo(1,169)=0 exch2_iHi(1,169)=35 exch2_jLo(1,169)=103 exch2_jHi(1,169)=103 exch2_opposingSend(1,169)=2 exch2_pij(1,1,169)=1 exch2_pij(2,1,169)=0 exch2_pij(3,1,169)=0 exch2_pij(4,1,169)=1 exch2_oi(1,169)=0 exch2_oj(1,169)=0 exch2_neighbourId(2,169)=154 exch2_iLo(2,169)=0 exch2_iHi(2,169)=35 exch2_jLo(2,169)=0 exch2_jHi(2,169)=0 exch2_opposingSend(2,169)=1 exch2_pij(1,2,169)=1 exch2_pij(2,2,169)=0 exch2_pij(3,2,169)=0 exch2_pij(4,2,169)=1 exch2_oi(2,169)=0 exch2_oj(2,169)=0 exch2_neighbourId(3,169)=170 exch2_iLo(3,169)=35 exch2_iHi(3,169)=35 exch2_jLo(3,169)=0 exch2_jHi(3,169)=103 exch2_opposingSend(3,169)=4 exch2_pij(1,3,169)=1 exch2_pij(2,3,169)=0 exch2_pij(3,3,169)=0 exch2_pij(4,3,169)=1 exch2_oi(3,169)=0 exch2_oj(3,169)=0 exch2_neighbourId(4,169)=168 exch2_iLo(4,169)=0 exch2_iHi(4,169)=0 exch2_jLo(4,169)=0 exch2_jHi(4,169)=103 exch2_opposingSend(4,169)=3 exch2_pij(1,4,169)=1 exch2_pij(2,4,169)=0 exch2_pij(3,4,169)=0 exch2_pij(4,4,169)=1 exch2_oi(4,169)=0 exch2_oj(4,169)=0 RETURN END SUBROUTINE W2_E2SETUP_170 C Topology for tile 170 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(170)=34 exch2_tNy(170)=102 exch2_tBasex(170)=136 exch2_tBasey(170)=102 exch2_txGlobalo(170)=1157 exch2_tyGlobalo(170)=103 exch2_isWedge(170)=0 exch2_isNedge(170)=0 exch2_isEedge(170)=0 exch2_isSedge(170)=0 exch2_myFace(170)=3 exch2_mydNx(170)=510 exch2_mydNy(170)=510 exch2_nNeighbours(170)=4 exch2_neighbourId(1,170)=185 exch2_iLo(1,170)=0 exch2_iHi(1,170)=35 exch2_jLo(1,170)=103 exch2_jHi(1,170)=103 exch2_opposingSend(1,170)=2 exch2_pij(1,1,170)=1 exch2_pij(2,1,170)=0 exch2_pij(3,1,170)=0 exch2_pij(4,1,170)=1 exch2_oi(1,170)=0 exch2_oj(1,170)=0 exch2_neighbourId(2,170)=155 exch2_iLo(2,170)=0 exch2_iHi(2,170)=35 exch2_jLo(2,170)=0 exch2_jHi(2,170)=0 exch2_opposingSend(2,170)=1 exch2_pij(1,2,170)=1 exch2_pij(2,2,170)=0 exch2_pij(3,2,170)=0 exch2_pij(4,2,170)=1 exch2_oi(2,170)=0 exch2_oj(2,170)=0 exch2_neighbourId(3,170)=171 exch2_iLo(3,170)=35 exch2_iHi(3,170)=35 exch2_jLo(3,170)=0 exch2_jHi(3,170)=103 exch2_opposingSend(3,170)=4 exch2_pij(1,3,170)=1 exch2_pij(2,3,170)=0 exch2_pij(3,3,170)=0 exch2_pij(4,3,170)=1 exch2_oi(3,170)=0 exch2_oj(3,170)=0 exch2_neighbourId(4,170)=169 exch2_iLo(4,170)=0 exch2_iHi(4,170)=0 exch2_jLo(4,170)=0 exch2_jHi(4,170)=103 exch2_opposingSend(4,170)=3 exch2_pij(1,4,170)=1 exch2_pij(2,4,170)=0 exch2_pij(3,4,170)=0 exch2_pij(4,4,170)=1 exch2_oi(4,170)=0 exch2_oj(4,170)=0 RETURN END SUBROUTINE W2_E2SETUP_171 C Topology for tile 171 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(171)=34 exch2_tNy(171)=102 exch2_tBasex(171)=170 exch2_tBasey(171)=102 exch2_txGlobalo(171)=1191 exch2_tyGlobalo(171)=103 exch2_isWedge(171)=0 exch2_isNedge(171)=0 exch2_isEedge(171)=0 exch2_isSedge(171)=0 exch2_myFace(171)=3 exch2_mydNx(171)=510 exch2_mydNy(171)=510 exch2_nNeighbours(171)=4 exch2_neighbourId(1,171)=186 exch2_iLo(1,171)=0 exch2_iHi(1,171)=35 exch2_jLo(1,171)=103 exch2_jHi(1,171)=103 exch2_opposingSend(1,171)=2 exch2_pij(1,1,171)=1 exch2_pij(2,1,171)=0 exch2_pij(3,1,171)=0 exch2_pij(4,1,171)=1 exch2_oi(1,171)=0 exch2_oj(1,171)=0 exch2_neighbourId(2,171)=156 exch2_iLo(2,171)=0 exch2_iHi(2,171)=35 exch2_jLo(2,171)=0 exch2_jHi(2,171)=0 exch2_opposingSend(2,171)=1 exch2_pij(1,2,171)=1 exch2_pij(2,2,171)=0 exch2_pij(3,2,171)=0 exch2_pij(4,2,171)=1 exch2_oi(2,171)=0 exch2_oj(2,171)=0 exch2_neighbourId(3,171)=172 exch2_iLo(3,171)=35 exch2_iHi(3,171)=35 exch2_jLo(3,171)=0 exch2_jHi(3,171)=103 exch2_opposingSend(3,171)=4 exch2_pij(1,3,171)=1 exch2_pij(2,3,171)=0 exch2_pij(3,3,171)=0 exch2_pij(4,3,171)=1 exch2_oi(3,171)=0 exch2_oj(3,171)=0 exch2_neighbourId(4,171)=170 exch2_iLo(4,171)=0 exch2_iHi(4,171)=0 exch2_jLo(4,171)=0 exch2_jHi(4,171)=103 exch2_opposingSend(4,171)=3 exch2_pij(1,4,171)=1 exch2_pij(2,4,171)=0 exch2_pij(3,4,171)=0 exch2_pij(4,4,171)=1 exch2_oi(4,171)=0 exch2_oj(4,171)=0 RETURN END SUBROUTINE W2_E2SETUP_172 C Topology for tile 172 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(172)=34 exch2_tNy(172)=102 exch2_tBasex(172)=204 exch2_tBasey(172)=102 exch2_txGlobalo(172)=1225 exch2_tyGlobalo(172)=103 exch2_isWedge(172)=0 exch2_isNedge(172)=0 exch2_isEedge(172)=0 exch2_isSedge(172)=0 exch2_myFace(172)=3 exch2_mydNx(172)=510 exch2_mydNy(172)=510 exch2_nNeighbours(172)=4 exch2_neighbourId(1,172)=187 exch2_iLo(1,172)=0 exch2_iHi(1,172)=35 exch2_jLo(1,172)=103 exch2_jHi(1,172)=103 exch2_opposingSend(1,172)=2 exch2_pij(1,1,172)=1 exch2_pij(2,1,172)=0 exch2_pij(3,1,172)=0 exch2_pij(4,1,172)=1 exch2_oi(1,172)=0 exch2_oj(1,172)=0 exch2_neighbourId(2,172)=157 exch2_iLo(2,172)=0 exch2_iHi(2,172)=35 exch2_jLo(2,172)=0 exch2_jHi(2,172)=0 exch2_opposingSend(2,172)=1 exch2_pij(1,2,172)=1 exch2_pij(2,2,172)=0 exch2_pij(3,2,172)=0 exch2_pij(4,2,172)=1 exch2_oi(2,172)=0 exch2_oj(2,172)=0 exch2_neighbourId(3,172)=173 exch2_iLo(3,172)=35 exch2_iHi(3,172)=35 exch2_jLo(3,172)=0 exch2_jHi(3,172)=103 exch2_opposingSend(3,172)=4 exch2_pij(1,3,172)=1 exch2_pij(2,3,172)=0 exch2_pij(3,3,172)=0 exch2_pij(4,3,172)=1 exch2_oi(3,172)=0 exch2_oj(3,172)=0 exch2_neighbourId(4,172)=171 exch2_iLo(4,172)=0 exch2_iHi(4,172)=0 exch2_jLo(4,172)=0 exch2_jHi(4,172)=103 exch2_opposingSend(4,172)=3 exch2_pij(1,4,172)=1 exch2_pij(2,4,172)=0 exch2_pij(3,4,172)=0 exch2_pij(4,4,172)=1 exch2_oi(4,172)=0 exch2_oj(4,172)=0 RETURN END SUBROUTINE W2_E2SETUP_173 C Topology for tile 173 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(173)=34 exch2_tNy(173)=102 exch2_tBasex(173)=238 exch2_tBasey(173)=102 exch2_txGlobalo(173)=1259 exch2_tyGlobalo(173)=103 exch2_isWedge(173)=0 exch2_isNedge(173)=0 exch2_isEedge(173)=0 exch2_isSedge(173)=0 exch2_myFace(173)=3 exch2_mydNx(173)=510 exch2_mydNy(173)=510 exch2_nNeighbours(173)=4 exch2_neighbourId(1,173)=188 exch2_iLo(1,173)=0 exch2_iHi(1,173)=35 exch2_jLo(1,173)=103 exch2_jHi(1,173)=103 exch2_opposingSend(1,173)=2 exch2_pij(1,1,173)=1 exch2_pij(2,1,173)=0 exch2_pij(3,1,173)=0 exch2_pij(4,1,173)=1 exch2_oi(1,173)=0 exch2_oj(1,173)=0 exch2_neighbourId(2,173)=158 exch2_iLo(2,173)=0 exch2_iHi(2,173)=35 exch2_jLo(2,173)=0 exch2_jHi(2,173)=0 exch2_opposingSend(2,173)=1 exch2_pij(1,2,173)=1 exch2_pij(2,2,173)=0 exch2_pij(3,2,173)=0 exch2_pij(4,2,173)=1 exch2_oi(2,173)=0 exch2_oj(2,173)=0 exch2_neighbourId(3,173)=174 exch2_iLo(3,173)=35 exch2_iHi(3,173)=35 exch2_jLo(3,173)=0 exch2_jHi(3,173)=103 exch2_opposingSend(3,173)=4 exch2_pij(1,3,173)=1 exch2_pij(2,3,173)=0 exch2_pij(3,3,173)=0 exch2_pij(4,3,173)=1 exch2_oi(3,173)=0 exch2_oj(3,173)=0 exch2_neighbourId(4,173)=172 exch2_iLo(4,173)=0 exch2_iHi(4,173)=0 exch2_jLo(4,173)=0 exch2_jHi(4,173)=103 exch2_opposingSend(4,173)=3 exch2_pij(1,4,173)=1 exch2_pij(2,4,173)=0 exch2_pij(3,4,173)=0 exch2_pij(4,4,173)=1 exch2_oi(4,173)=0 exch2_oj(4,173)=0 RETURN END SUBROUTINE W2_E2SETUP_174 C Topology for tile 174 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(174)=34 exch2_tNy(174)=102 exch2_tBasex(174)=272 exch2_tBasey(174)=102 exch2_txGlobalo(174)=1293 exch2_tyGlobalo(174)=103 exch2_isWedge(174)=0 exch2_isNedge(174)=0 exch2_isEedge(174)=0 exch2_isSedge(174)=0 exch2_myFace(174)=3 exch2_mydNx(174)=510 exch2_mydNy(174)=510 exch2_nNeighbours(174)=4 exch2_neighbourId(1,174)=189 exch2_iLo(1,174)=0 exch2_iHi(1,174)=35 exch2_jLo(1,174)=103 exch2_jHi(1,174)=103 exch2_opposingSend(1,174)=2 exch2_pij(1,1,174)=1 exch2_pij(2,1,174)=0 exch2_pij(3,1,174)=0 exch2_pij(4,1,174)=1 exch2_oi(1,174)=0 exch2_oj(1,174)=0 exch2_neighbourId(2,174)=159 exch2_iLo(2,174)=0 exch2_iHi(2,174)=35 exch2_jLo(2,174)=0 exch2_jHi(2,174)=0 exch2_opposingSend(2,174)=1 exch2_pij(1,2,174)=1 exch2_pij(2,2,174)=0 exch2_pij(3,2,174)=0 exch2_pij(4,2,174)=1 exch2_oi(2,174)=0 exch2_oj(2,174)=0 exch2_neighbourId(3,174)=175 exch2_iLo(3,174)=35 exch2_iHi(3,174)=35 exch2_jLo(3,174)=0 exch2_jHi(3,174)=103 exch2_opposingSend(3,174)=4 exch2_pij(1,3,174)=1 exch2_pij(2,3,174)=0 exch2_pij(3,3,174)=0 exch2_pij(4,3,174)=1 exch2_oi(3,174)=0 exch2_oj(3,174)=0 exch2_neighbourId(4,174)=173 exch2_iLo(4,174)=0 exch2_iHi(4,174)=0 exch2_jLo(4,174)=0 exch2_jHi(4,174)=103 exch2_opposingSend(4,174)=3 exch2_pij(1,4,174)=1 exch2_pij(2,4,174)=0 exch2_pij(3,4,174)=0 exch2_pij(4,4,174)=1 exch2_oi(4,174)=0 exch2_oj(4,174)=0 RETURN END SUBROUTINE W2_E2SETUP_175 C Topology for tile 175 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(175)=34 exch2_tNy(175)=102 exch2_tBasex(175)=306 exch2_tBasey(175)=102 exch2_txGlobalo(175)=1327 exch2_tyGlobalo(175)=103 exch2_isWedge(175)=0 exch2_isNedge(175)=0 exch2_isEedge(175)=0 exch2_isSedge(175)=0 exch2_myFace(175)=3 exch2_mydNx(175)=510 exch2_mydNy(175)=510 exch2_nNeighbours(175)=4 exch2_neighbourId(1,175)=190 exch2_iLo(1,175)=0 exch2_iHi(1,175)=35 exch2_jLo(1,175)=103 exch2_jHi(1,175)=103 exch2_opposingSend(1,175)=2 exch2_pij(1,1,175)=1 exch2_pij(2,1,175)=0 exch2_pij(3,1,175)=0 exch2_pij(4,1,175)=1 exch2_oi(1,175)=0 exch2_oj(1,175)=0 exch2_neighbourId(2,175)=160 exch2_iLo(2,175)=0 exch2_iHi(2,175)=35 exch2_jLo(2,175)=0 exch2_jHi(2,175)=0 exch2_opposingSend(2,175)=1 exch2_pij(1,2,175)=1 exch2_pij(2,2,175)=0 exch2_pij(3,2,175)=0 exch2_pij(4,2,175)=1 exch2_oi(2,175)=0 exch2_oj(2,175)=0 exch2_neighbourId(3,175)=176 exch2_iLo(3,175)=35 exch2_iHi(3,175)=35 exch2_jLo(3,175)=0 exch2_jHi(3,175)=103 exch2_opposingSend(3,175)=4 exch2_pij(1,3,175)=1 exch2_pij(2,3,175)=0 exch2_pij(3,3,175)=0 exch2_pij(4,3,175)=1 exch2_oi(3,175)=0 exch2_oj(3,175)=0 exch2_neighbourId(4,175)=174 exch2_iLo(4,175)=0 exch2_iHi(4,175)=0 exch2_jLo(4,175)=0 exch2_jHi(4,175)=103 exch2_opposingSend(4,175)=3 exch2_pij(1,4,175)=1 exch2_pij(2,4,175)=0 exch2_pij(3,4,175)=0 exch2_pij(4,4,175)=1 exch2_oi(4,175)=0 exch2_oj(4,175)=0 RETURN END SUBROUTINE W2_E2SETUP_176 C Topology for tile 176 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(176)=34 exch2_tNy(176)=102 exch2_tBasex(176)=340 exch2_tBasey(176)=102 exch2_txGlobalo(176)=1361 exch2_tyGlobalo(176)=103 exch2_isWedge(176)=0 exch2_isNedge(176)=0 exch2_isEedge(176)=0 exch2_isSedge(176)=0 exch2_myFace(176)=3 exch2_mydNx(176)=510 exch2_mydNy(176)=510 exch2_nNeighbours(176)=4 exch2_neighbourId(1,176)=191 exch2_iLo(1,176)=0 exch2_iHi(1,176)=35 exch2_jLo(1,176)=103 exch2_jHi(1,176)=103 exch2_opposingSend(1,176)=2 exch2_pij(1,1,176)=1 exch2_pij(2,1,176)=0 exch2_pij(3,1,176)=0 exch2_pij(4,1,176)=1 exch2_oi(1,176)=0 exch2_oj(1,176)=0 exch2_neighbourId(2,176)=161 exch2_iLo(2,176)=0 exch2_iHi(2,176)=35 exch2_jLo(2,176)=0 exch2_jHi(2,176)=0 exch2_opposingSend(2,176)=1 exch2_pij(1,2,176)=1 exch2_pij(2,2,176)=0 exch2_pij(3,2,176)=0 exch2_pij(4,2,176)=1 exch2_oi(2,176)=0 exch2_oj(2,176)=0 exch2_neighbourId(3,176)=177 exch2_iLo(3,176)=35 exch2_iHi(3,176)=35 exch2_jLo(3,176)=0 exch2_jHi(3,176)=103 exch2_opposingSend(3,176)=4 exch2_pij(1,3,176)=1 exch2_pij(2,3,176)=0 exch2_pij(3,3,176)=0 exch2_pij(4,3,176)=1 exch2_oi(3,176)=0 exch2_oj(3,176)=0 exch2_neighbourId(4,176)=175 exch2_iLo(4,176)=0 exch2_iHi(4,176)=0 exch2_jLo(4,176)=0 exch2_jHi(4,176)=103 exch2_opposingSend(4,176)=3 exch2_pij(1,4,176)=1 exch2_pij(2,4,176)=0 exch2_pij(3,4,176)=0 exch2_pij(4,4,176)=1 exch2_oi(4,176)=0 exch2_oj(4,176)=0 RETURN END SUBROUTINE W2_E2SETUP_177 C Topology for tile 177 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(177)=34 exch2_tNy(177)=102 exch2_tBasex(177)=374 exch2_tBasey(177)=102 exch2_txGlobalo(177)=1395 exch2_tyGlobalo(177)=103 exch2_isWedge(177)=0 exch2_isNedge(177)=0 exch2_isEedge(177)=0 exch2_isSedge(177)=0 exch2_myFace(177)=3 exch2_mydNx(177)=510 exch2_mydNy(177)=510 exch2_nNeighbours(177)=4 exch2_neighbourId(1,177)=192 exch2_iLo(1,177)=0 exch2_iHi(1,177)=35 exch2_jLo(1,177)=103 exch2_jHi(1,177)=103 exch2_opposingSend(1,177)=2 exch2_pij(1,1,177)=1 exch2_pij(2,1,177)=0 exch2_pij(3,1,177)=0 exch2_pij(4,1,177)=1 exch2_oi(1,177)=0 exch2_oj(1,177)=0 exch2_neighbourId(2,177)=162 exch2_iLo(2,177)=0 exch2_iHi(2,177)=35 exch2_jLo(2,177)=0 exch2_jHi(2,177)=0 exch2_opposingSend(2,177)=1 exch2_pij(1,2,177)=1 exch2_pij(2,2,177)=0 exch2_pij(3,2,177)=0 exch2_pij(4,2,177)=1 exch2_oi(2,177)=0 exch2_oj(2,177)=0 exch2_neighbourId(3,177)=178 exch2_iLo(3,177)=35 exch2_iHi(3,177)=35 exch2_jLo(3,177)=0 exch2_jHi(3,177)=103 exch2_opposingSend(3,177)=4 exch2_pij(1,3,177)=1 exch2_pij(2,3,177)=0 exch2_pij(3,3,177)=0 exch2_pij(4,3,177)=1 exch2_oi(3,177)=0 exch2_oj(3,177)=0 exch2_neighbourId(4,177)=176 exch2_iLo(4,177)=0 exch2_iHi(4,177)=0 exch2_jLo(4,177)=0 exch2_jHi(4,177)=103 exch2_opposingSend(4,177)=3 exch2_pij(1,4,177)=1 exch2_pij(2,4,177)=0 exch2_pij(3,4,177)=0 exch2_pij(4,4,177)=1 exch2_oi(4,177)=0 exch2_oj(4,177)=0 RETURN END SUBROUTINE W2_E2SETUP_178 C Topology for tile 178 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(178)=34 exch2_tNy(178)=102 exch2_tBasex(178)=408 exch2_tBasey(178)=102 exch2_txGlobalo(178)=1429 exch2_tyGlobalo(178)=103 exch2_isWedge(178)=0 exch2_isNedge(178)=0 exch2_isEedge(178)=0 exch2_isSedge(178)=0 exch2_myFace(178)=3 exch2_mydNx(178)=510 exch2_mydNy(178)=510 exch2_nNeighbours(178)=4 exch2_neighbourId(1,178)=193 exch2_iLo(1,178)=0 exch2_iHi(1,178)=35 exch2_jLo(1,178)=103 exch2_jHi(1,178)=103 exch2_opposingSend(1,178)=2 exch2_pij(1,1,178)=1 exch2_pij(2,1,178)=0 exch2_pij(3,1,178)=0 exch2_pij(4,1,178)=1 exch2_oi(1,178)=0 exch2_oj(1,178)=0 exch2_neighbourId(2,178)=163 exch2_iLo(2,178)=0 exch2_iHi(2,178)=35 exch2_jLo(2,178)=0 exch2_jHi(2,178)=0 exch2_opposingSend(2,178)=1 exch2_pij(1,2,178)=1 exch2_pij(2,2,178)=0 exch2_pij(3,2,178)=0 exch2_pij(4,2,178)=1 exch2_oi(2,178)=0 exch2_oj(2,178)=0 exch2_neighbourId(3,178)=179 exch2_iLo(3,178)=35 exch2_iHi(3,178)=35 exch2_jLo(3,178)=0 exch2_jHi(3,178)=103 exch2_opposingSend(3,178)=4 exch2_pij(1,3,178)=1 exch2_pij(2,3,178)=0 exch2_pij(3,3,178)=0 exch2_pij(4,3,178)=1 exch2_oi(3,178)=0 exch2_oj(3,178)=0 exch2_neighbourId(4,178)=177 exch2_iLo(4,178)=0 exch2_iHi(4,178)=0 exch2_jLo(4,178)=0 exch2_jHi(4,178)=103 exch2_opposingSend(4,178)=3 exch2_pij(1,4,178)=1 exch2_pij(2,4,178)=0 exch2_pij(3,4,178)=0 exch2_pij(4,4,178)=1 exch2_oi(4,178)=0 exch2_oj(4,178)=0 RETURN END SUBROUTINE W2_E2SETUP_179 C Topology for tile 179 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(179)=34 exch2_tNy(179)=102 exch2_tBasex(179)=442 exch2_tBasey(179)=102 exch2_txGlobalo(179)=1463 exch2_tyGlobalo(179)=103 exch2_isWedge(179)=0 exch2_isNedge(179)=0 exch2_isEedge(179)=0 exch2_isSedge(179)=0 exch2_myFace(179)=3 exch2_mydNx(179)=510 exch2_mydNy(179)=510 exch2_nNeighbours(179)=4 exch2_neighbourId(1,179)=194 exch2_iLo(1,179)=0 exch2_iHi(1,179)=35 exch2_jLo(1,179)=103 exch2_jHi(1,179)=103 exch2_opposingSend(1,179)=2 exch2_pij(1,1,179)=1 exch2_pij(2,1,179)=0 exch2_pij(3,1,179)=0 exch2_pij(4,1,179)=1 exch2_oi(1,179)=0 exch2_oj(1,179)=0 exch2_neighbourId(2,179)=164 exch2_iLo(2,179)=0 exch2_iHi(2,179)=35 exch2_jLo(2,179)=0 exch2_jHi(2,179)=0 exch2_opposingSend(2,179)=1 exch2_pij(1,2,179)=1 exch2_pij(2,2,179)=0 exch2_pij(3,2,179)=0 exch2_pij(4,2,179)=1 exch2_oi(2,179)=0 exch2_oj(2,179)=0 exch2_neighbourId(3,179)=180 exch2_iLo(3,179)=35 exch2_iHi(3,179)=35 exch2_jLo(3,179)=0 exch2_jHi(3,179)=103 exch2_opposingSend(3,179)=4 exch2_pij(1,3,179)=1 exch2_pij(2,3,179)=0 exch2_pij(3,3,179)=0 exch2_pij(4,3,179)=1 exch2_oi(3,179)=0 exch2_oj(3,179)=0 exch2_neighbourId(4,179)=178 exch2_iLo(4,179)=0 exch2_iHi(4,179)=0 exch2_jLo(4,179)=0 exch2_jHi(4,179)=103 exch2_opposingSend(4,179)=3 exch2_pij(1,4,179)=1 exch2_pij(2,4,179)=0 exch2_pij(3,4,179)=0 exch2_pij(4,4,179)=1 exch2_oi(4,179)=0 exch2_oj(4,179)=0 RETURN END SUBROUTINE W2_E2SETUP_180 C Topology for tile 180 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(180)=34 exch2_tNy(180)=102 exch2_tBasex(180)=476 exch2_tBasey(180)=102 exch2_txGlobalo(180)=1497 exch2_tyGlobalo(180)=103 exch2_isWedge(180)=0 exch2_isNedge(180)=0 exch2_isEedge(180)=1 exch2_isSedge(180)=0 exch2_myFace(180)=3 exch2_mydNx(180)=510 exch2_mydNy(180)=510 exch2_nNeighbours(180)=4 exch2_neighbourId(1,180)=195 exch2_iLo(1,180)=0 exch2_iHi(1,180)=35 exch2_jLo(1,180)=103 exch2_jHi(1,180)=103 exch2_opposingSend(1,180)=2 exch2_pij(1,1,180)=1 exch2_pij(2,1,180)=0 exch2_pij(3,1,180)=0 exch2_pij(4,1,180)=1 exch2_oi(1,180)=0 exch2_oj(1,180)=0 exch2_neighbourId(2,180)=165 exch2_iLo(2,180)=0 exch2_iHi(2,180)=35 exch2_jLo(2,180)=0 exch2_jHi(2,180)=0 exch2_opposingSend(2,180)=1 exch2_pij(1,2,180)=1 exch2_pij(2,2,180)=0 exch2_pij(3,2,180)=0 exch2_pij(4,2,180)=1 exch2_oi(2,180)=0 exch2_oj(2,180)=0 exch2_neighbourId(3,180)=241 exch2_iLo(3,180)=35 exch2_iHi(3,180)=35 exch2_jLo(3,180)=0 exch2_jHi(3,180)=103 exch2_opposingSend(3,180)=4 exch2_pij(1,3,180)=1 exch2_pij(2,3,180)=0 exch2_pij(3,3,180)=0 exch2_pij(4,3,180)=1 exch2_oi(3,180)=510 exch2_oj(3,180)=0 exch2_neighbourId(4,180)=179 exch2_iLo(4,180)=0 exch2_iHi(4,180)=0 exch2_jLo(4,180)=0 exch2_jHi(4,180)=103 exch2_opposingSend(4,180)=3 exch2_pij(1,4,180)=1 exch2_pij(2,4,180)=0 exch2_pij(3,4,180)=0 exch2_pij(4,4,180)=1 exch2_oi(4,180)=0 exch2_oj(4,180)=0 RETURN END SUBROUTINE W2_E2SETUP_181 C Topology for tile 181 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(181)=34 exch2_tNy(181)=102 exch2_tBasex(181)=0 exch2_tBasey(181)=204 exch2_txGlobalo(181)=1021 exch2_tyGlobalo(181)=205 exch2_isWedge(181)=1 exch2_isNedge(181)=0 exch2_isEedge(181)=0 exch2_isSedge(181)=0 exch2_myFace(181)=3 exch2_mydNx(181)=510 exch2_mydNy(181)=510 exch2_nNeighbours(181)=6 exch2_neighbourId(1,181)=196 exch2_iLo(1,181)=0 exch2_iHi(1,181)=35 exch2_jLo(1,181)=103 exch2_jHi(1,181)=103 exch2_opposingSend(1,181)=2 exch2_pij(1,1,181)=1 exch2_pij(2,1,181)=0 exch2_pij(3,1,181)=0 exch2_pij(4,1,181)=1 exch2_oi(1,181)=0 exch2_oj(1,181)=0 exch2_neighbourId(2,181)=166 exch2_iLo(2,181)=0 exch2_iHi(2,181)=35 exch2_jLo(2,181)=0 exch2_jHi(2,181)=0 exch2_opposingSend(2,181)=1 exch2_pij(1,2,181)=1 exch2_pij(2,2,181)=0 exch2_pij(3,2,181)=0 exch2_pij(4,2,181)=1 exch2_oi(2,181)=0 exch2_oj(2,181)=0 exch2_neighbourId(3,181)=182 exch2_iLo(3,181)=35 exch2_iHi(3,181)=35 exch2_jLo(3,181)=0 exch2_jHi(3,181)=103 exch2_opposingSend(3,181)=4 exch2_pij(1,3,181)=1 exch2_pij(2,3,181)=0 exch2_pij(3,3,181)=0 exch2_pij(4,3,181)=1 exch2_oi(3,181)=0 exch2_oj(3,181)=0 exch2_neighbourId(4,181)=67 exch2_iLo(4,181)=0 exch2_iHi(4,181)=0 exch2_jLo(4,181)=68 exch2_jHi(4,181)=103 exch2_opposingSend(4,181)=1 exch2_pij(1,4,181)=0 exch2_pij(2,4,181)=1 exch2_pij(3,4,181)=-1 exch2_pij(4,4,181)=0 exch2_oi(4,181)=-510 exch2_oj(4,181)=511 exch2_neighbourId(5,181)=68 exch2_iLo(5,181)=0 exch2_iHi(5,181)=0 exch2_jLo(5,181)=34 exch2_jHi(5,181)=69 exch2_opposingSend(5,181)=1 exch2_pij(1,5,181)=0 exch2_pij(2,5,181)=1 exch2_pij(3,5,181)=-1 exch2_pij(4,5,181)=0 exch2_oi(5,181)=-510 exch2_oj(5,181)=511 exch2_neighbourId(6,181)=69 exch2_iLo(6,181)=0 exch2_iHi(6,181)=0 exch2_jLo(6,181)=0 exch2_jHi(6,181)=35 exch2_opposingSend(6,181)=1 exch2_pij(1,6,181)=0 exch2_pij(2,6,181)=1 exch2_pij(3,6,181)=-1 exch2_pij(4,6,181)=0 exch2_oi(6,181)=-510 exch2_oj(6,181)=511 RETURN END SUBROUTINE W2_E2SETUP_182 C Topology for tile 182 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(182)=34 exch2_tNy(182)=102 exch2_tBasex(182)=34 exch2_tBasey(182)=204 exch2_txGlobalo(182)=1055 exch2_tyGlobalo(182)=205 exch2_isWedge(182)=0 exch2_isNedge(182)=0 exch2_isEedge(182)=0 exch2_isSedge(182)=0 exch2_myFace(182)=3 exch2_mydNx(182)=510 exch2_mydNy(182)=510 exch2_nNeighbours(182)=4 exch2_neighbourId(1,182)=197 exch2_iLo(1,182)=0 exch2_iHi(1,182)=35 exch2_jLo(1,182)=103 exch2_jHi(1,182)=103 exch2_opposingSend(1,182)=2 exch2_pij(1,1,182)=1 exch2_pij(2,1,182)=0 exch2_pij(3,1,182)=0 exch2_pij(4,1,182)=1 exch2_oi(1,182)=0 exch2_oj(1,182)=0 exch2_neighbourId(2,182)=167 exch2_iLo(2,182)=0 exch2_iHi(2,182)=35 exch2_jLo(2,182)=0 exch2_jHi(2,182)=0 exch2_opposingSend(2,182)=1 exch2_pij(1,2,182)=1 exch2_pij(2,2,182)=0 exch2_pij(3,2,182)=0 exch2_pij(4,2,182)=1 exch2_oi(2,182)=0 exch2_oj(2,182)=0 exch2_neighbourId(3,182)=183 exch2_iLo(3,182)=35 exch2_iHi(3,182)=35 exch2_jLo(3,182)=0 exch2_jHi(3,182)=103 exch2_opposingSend(3,182)=4 exch2_pij(1,3,182)=1 exch2_pij(2,3,182)=0 exch2_pij(3,3,182)=0 exch2_pij(4,3,182)=1 exch2_oi(3,182)=0 exch2_oj(3,182)=0 exch2_neighbourId(4,182)=181 exch2_iLo(4,182)=0 exch2_iHi(4,182)=0 exch2_jLo(4,182)=0 exch2_jHi(4,182)=103 exch2_opposingSend(4,182)=3 exch2_pij(1,4,182)=1 exch2_pij(2,4,182)=0 exch2_pij(3,4,182)=0 exch2_pij(4,4,182)=1 exch2_oi(4,182)=0 exch2_oj(4,182)=0 RETURN END SUBROUTINE W2_E2SETUP_183 C Topology for tile 183 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(183)=34 exch2_tNy(183)=102 exch2_tBasex(183)=68 exch2_tBasey(183)=204 exch2_txGlobalo(183)=1089 exch2_tyGlobalo(183)=205 exch2_isWedge(183)=0 exch2_isNedge(183)=0 exch2_isEedge(183)=0 exch2_isSedge(183)=0 exch2_myFace(183)=3 exch2_mydNx(183)=510 exch2_mydNy(183)=510 exch2_nNeighbours(183)=4 exch2_neighbourId(1,183)=198 exch2_iLo(1,183)=0 exch2_iHi(1,183)=35 exch2_jLo(1,183)=103 exch2_jHi(1,183)=103 exch2_opposingSend(1,183)=2 exch2_pij(1,1,183)=1 exch2_pij(2,1,183)=0 exch2_pij(3,1,183)=0 exch2_pij(4,1,183)=1 exch2_oi(1,183)=0 exch2_oj(1,183)=0 exch2_neighbourId(2,183)=168 exch2_iLo(2,183)=0 exch2_iHi(2,183)=35 exch2_jLo(2,183)=0 exch2_jHi(2,183)=0 exch2_opposingSend(2,183)=1 exch2_pij(1,2,183)=1 exch2_pij(2,2,183)=0 exch2_pij(3,2,183)=0 exch2_pij(4,2,183)=1 exch2_oi(2,183)=0 exch2_oj(2,183)=0 exch2_neighbourId(3,183)=184 exch2_iLo(3,183)=35 exch2_iHi(3,183)=35 exch2_jLo(3,183)=0 exch2_jHi(3,183)=103 exch2_opposingSend(3,183)=4 exch2_pij(1,3,183)=1 exch2_pij(2,3,183)=0 exch2_pij(3,3,183)=0 exch2_pij(4,3,183)=1 exch2_oi(3,183)=0 exch2_oj(3,183)=0 exch2_neighbourId(4,183)=182 exch2_iLo(4,183)=0 exch2_iHi(4,183)=0 exch2_jLo(4,183)=0 exch2_jHi(4,183)=103 exch2_opposingSend(4,183)=3 exch2_pij(1,4,183)=1 exch2_pij(2,4,183)=0 exch2_pij(3,4,183)=0 exch2_pij(4,4,183)=1 exch2_oi(4,183)=0 exch2_oj(4,183)=0 RETURN END SUBROUTINE W2_E2SETUP_184 C Topology for tile 184 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(184)=34 exch2_tNy(184)=102 exch2_tBasex(184)=102 exch2_tBasey(184)=204 exch2_txGlobalo(184)=1123 exch2_tyGlobalo(184)=205 exch2_isWedge(184)=0 exch2_isNedge(184)=0 exch2_isEedge(184)=0 exch2_isSedge(184)=0 exch2_myFace(184)=3 exch2_mydNx(184)=510 exch2_mydNy(184)=510 exch2_nNeighbours(184)=4 exch2_neighbourId(1,184)=199 exch2_iLo(1,184)=0 exch2_iHi(1,184)=35 exch2_jLo(1,184)=103 exch2_jHi(1,184)=103 exch2_opposingSend(1,184)=2 exch2_pij(1,1,184)=1 exch2_pij(2,1,184)=0 exch2_pij(3,1,184)=0 exch2_pij(4,1,184)=1 exch2_oi(1,184)=0 exch2_oj(1,184)=0 exch2_neighbourId(2,184)=169 exch2_iLo(2,184)=0 exch2_iHi(2,184)=35 exch2_jLo(2,184)=0 exch2_jHi(2,184)=0 exch2_opposingSend(2,184)=1 exch2_pij(1,2,184)=1 exch2_pij(2,2,184)=0 exch2_pij(3,2,184)=0 exch2_pij(4,2,184)=1 exch2_oi(2,184)=0 exch2_oj(2,184)=0 exch2_neighbourId(3,184)=185 exch2_iLo(3,184)=35 exch2_iHi(3,184)=35 exch2_jLo(3,184)=0 exch2_jHi(3,184)=103 exch2_opposingSend(3,184)=4 exch2_pij(1,3,184)=1 exch2_pij(2,3,184)=0 exch2_pij(3,3,184)=0 exch2_pij(4,3,184)=1 exch2_oi(3,184)=0 exch2_oj(3,184)=0 exch2_neighbourId(4,184)=183 exch2_iLo(4,184)=0 exch2_iHi(4,184)=0 exch2_jLo(4,184)=0 exch2_jHi(4,184)=103 exch2_opposingSend(4,184)=3 exch2_pij(1,4,184)=1 exch2_pij(2,4,184)=0 exch2_pij(3,4,184)=0 exch2_pij(4,4,184)=1 exch2_oi(4,184)=0 exch2_oj(4,184)=0 RETURN END SUBROUTINE W2_E2SETUP_185 C Topology for tile 185 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(185)=34 exch2_tNy(185)=102 exch2_tBasex(185)=136 exch2_tBasey(185)=204 exch2_txGlobalo(185)=1157 exch2_tyGlobalo(185)=205 exch2_isWedge(185)=0 exch2_isNedge(185)=0 exch2_isEedge(185)=0 exch2_isSedge(185)=0 exch2_myFace(185)=3 exch2_mydNx(185)=510 exch2_mydNy(185)=510 exch2_nNeighbours(185)=4 exch2_neighbourId(1,185)=200 exch2_iLo(1,185)=0 exch2_iHi(1,185)=35 exch2_jLo(1,185)=103 exch2_jHi(1,185)=103 exch2_opposingSend(1,185)=2 exch2_pij(1,1,185)=1 exch2_pij(2,1,185)=0 exch2_pij(3,1,185)=0 exch2_pij(4,1,185)=1 exch2_oi(1,185)=0 exch2_oj(1,185)=0 exch2_neighbourId(2,185)=170 exch2_iLo(2,185)=0 exch2_iHi(2,185)=35 exch2_jLo(2,185)=0 exch2_jHi(2,185)=0 exch2_opposingSend(2,185)=1 exch2_pij(1,2,185)=1 exch2_pij(2,2,185)=0 exch2_pij(3,2,185)=0 exch2_pij(4,2,185)=1 exch2_oi(2,185)=0 exch2_oj(2,185)=0 exch2_neighbourId(3,185)=186 exch2_iLo(3,185)=35 exch2_iHi(3,185)=35 exch2_jLo(3,185)=0 exch2_jHi(3,185)=103 exch2_opposingSend(3,185)=4 exch2_pij(1,3,185)=1 exch2_pij(2,3,185)=0 exch2_pij(3,3,185)=0 exch2_pij(4,3,185)=1 exch2_oi(3,185)=0 exch2_oj(3,185)=0 exch2_neighbourId(4,185)=184 exch2_iLo(4,185)=0 exch2_iHi(4,185)=0 exch2_jLo(4,185)=0 exch2_jHi(4,185)=103 exch2_opposingSend(4,185)=3 exch2_pij(1,4,185)=1 exch2_pij(2,4,185)=0 exch2_pij(3,4,185)=0 exch2_pij(4,4,185)=1 exch2_oi(4,185)=0 exch2_oj(4,185)=0 RETURN END SUBROUTINE W2_E2SETUP_186 C Topology for tile 186 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(186)=34 exch2_tNy(186)=102 exch2_tBasex(186)=170 exch2_tBasey(186)=204 exch2_txGlobalo(186)=1191 exch2_tyGlobalo(186)=205 exch2_isWedge(186)=0 exch2_isNedge(186)=0 exch2_isEedge(186)=0 exch2_isSedge(186)=0 exch2_myFace(186)=3 exch2_mydNx(186)=510 exch2_mydNy(186)=510 exch2_nNeighbours(186)=4 exch2_neighbourId(1,186)=201 exch2_iLo(1,186)=0 exch2_iHi(1,186)=35 exch2_jLo(1,186)=103 exch2_jHi(1,186)=103 exch2_opposingSend(1,186)=2 exch2_pij(1,1,186)=1 exch2_pij(2,1,186)=0 exch2_pij(3,1,186)=0 exch2_pij(4,1,186)=1 exch2_oi(1,186)=0 exch2_oj(1,186)=0 exch2_neighbourId(2,186)=171 exch2_iLo(2,186)=0 exch2_iHi(2,186)=35 exch2_jLo(2,186)=0 exch2_jHi(2,186)=0 exch2_opposingSend(2,186)=1 exch2_pij(1,2,186)=1 exch2_pij(2,2,186)=0 exch2_pij(3,2,186)=0 exch2_pij(4,2,186)=1 exch2_oi(2,186)=0 exch2_oj(2,186)=0 exch2_neighbourId(3,186)=187 exch2_iLo(3,186)=35 exch2_iHi(3,186)=35 exch2_jLo(3,186)=0 exch2_jHi(3,186)=103 exch2_opposingSend(3,186)=4 exch2_pij(1,3,186)=1 exch2_pij(2,3,186)=0 exch2_pij(3,3,186)=0 exch2_pij(4,3,186)=1 exch2_oi(3,186)=0 exch2_oj(3,186)=0 exch2_neighbourId(4,186)=185 exch2_iLo(4,186)=0 exch2_iHi(4,186)=0 exch2_jLo(4,186)=0 exch2_jHi(4,186)=103 exch2_opposingSend(4,186)=3 exch2_pij(1,4,186)=1 exch2_pij(2,4,186)=0 exch2_pij(3,4,186)=0 exch2_pij(4,4,186)=1 exch2_oi(4,186)=0 exch2_oj(4,186)=0 RETURN END SUBROUTINE W2_E2SETUP_187 C Topology for tile 187 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(187)=34 exch2_tNy(187)=102 exch2_tBasex(187)=204 exch2_tBasey(187)=204 exch2_txGlobalo(187)=1225 exch2_tyGlobalo(187)=205 exch2_isWedge(187)=0 exch2_isNedge(187)=0 exch2_isEedge(187)=0 exch2_isSedge(187)=0 exch2_myFace(187)=3 exch2_mydNx(187)=510 exch2_mydNy(187)=510 exch2_nNeighbours(187)=4 exch2_neighbourId(1,187)=202 exch2_iLo(1,187)=0 exch2_iHi(1,187)=35 exch2_jLo(1,187)=103 exch2_jHi(1,187)=103 exch2_opposingSend(1,187)=2 exch2_pij(1,1,187)=1 exch2_pij(2,1,187)=0 exch2_pij(3,1,187)=0 exch2_pij(4,1,187)=1 exch2_oi(1,187)=0 exch2_oj(1,187)=0 exch2_neighbourId(2,187)=172 exch2_iLo(2,187)=0 exch2_iHi(2,187)=35 exch2_jLo(2,187)=0 exch2_jHi(2,187)=0 exch2_opposingSend(2,187)=1 exch2_pij(1,2,187)=1 exch2_pij(2,2,187)=0 exch2_pij(3,2,187)=0 exch2_pij(4,2,187)=1 exch2_oi(2,187)=0 exch2_oj(2,187)=0 exch2_neighbourId(3,187)=188 exch2_iLo(3,187)=35 exch2_iHi(3,187)=35 exch2_jLo(3,187)=0 exch2_jHi(3,187)=103 exch2_opposingSend(3,187)=4 exch2_pij(1,3,187)=1 exch2_pij(2,3,187)=0 exch2_pij(3,3,187)=0 exch2_pij(4,3,187)=1 exch2_oi(3,187)=0 exch2_oj(3,187)=0 exch2_neighbourId(4,187)=186 exch2_iLo(4,187)=0 exch2_iHi(4,187)=0 exch2_jLo(4,187)=0 exch2_jHi(4,187)=103 exch2_opposingSend(4,187)=3 exch2_pij(1,4,187)=1 exch2_pij(2,4,187)=0 exch2_pij(3,4,187)=0 exch2_pij(4,4,187)=1 exch2_oi(4,187)=0 exch2_oj(4,187)=0 RETURN END SUBROUTINE W2_E2SETUP_188 C Topology for tile 188 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(188)=34 exch2_tNy(188)=102 exch2_tBasex(188)=238 exch2_tBasey(188)=204 exch2_txGlobalo(188)=1259 exch2_tyGlobalo(188)=205 exch2_isWedge(188)=0 exch2_isNedge(188)=0 exch2_isEedge(188)=0 exch2_isSedge(188)=0 exch2_myFace(188)=3 exch2_mydNx(188)=510 exch2_mydNy(188)=510 exch2_nNeighbours(188)=4 exch2_neighbourId(1,188)=203 exch2_iLo(1,188)=0 exch2_iHi(1,188)=35 exch2_jLo(1,188)=103 exch2_jHi(1,188)=103 exch2_opposingSend(1,188)=2 exch2_pij(1,1,188)=1 exch2_pij(2,1,188)=0 exch2_pij(3,1,188)=0 exch2_pij(4,1,188)=1 exch2_oi(1,188)=0 exch2_oj(1,188)=0 exch2_neighbourId(2,188)=173 exch2_iLo(2,188)=0 exch2_iHi(2,188)=35 exch2_jLo(2,188)=0 exch2_jHi(2,188)=0 exch2_opposingSend(2,188)=1 exch2_pij(1,2,188)=1 exch2_pij(2,2,188)=0 exch2_pij(3,2,188)=0 exch2_pij(4,2,188)=1 exch2_oi(2,188)=0 exch2_oj(2,188)=0 exch2_neighbourId(3,188)=189 exch2_iLo(3,188)=35 exch2_iHi(3,188)=35 exch2_jLo(3,188)=0 exch2_jHi(3,188)=103 exch2_opposingSend(3,188)=4 exch2_pij(1,3,188)=1 exch2_pij(2,3,188)=0 exch2_pij(3,3,188)=0 exch2_pij(4,3,188)=1 exch2_oi(3,188)=0 exch2_oj(3,188)=0 exch2_neighbourId(4,188)=187 exch2_iLo(4,188)=0 exch2_iHi(4,188)=0 exch2_jLo(4,188)=0 exch2_jHi(4,188)=103 exch2_opposingSend(4,188)=3 exch2_pij(1,4,188)=1 exch2_pij(2,4,188)=0 exch2_pij(3,4,188)=0 exch2_pij(4,4,188)=1 exch2_oi(4,188)=0 exch2_oj(4,188)=0 RETURN END SUBROUTINE W2_E2SETUP_189 C Topology for tile 189 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(189)=34 exch2_tNy(189)=102 exch2_tBasex(189)=272 exch2_tBasey(189)=204 exch2_txGlobalo(189)=1293 exch2_tyGlobalo(189)=205 exch2_isWedge(189)=0 exch2_isNedge(189)=0 exch2_isEedge(189)=0 exch2_isSedge(189)=0 exch2_myFace(189)=3 exch2_mydNx(189)=510 exch2_mydNy(189)=510 exch2_nNeighbours(189)=4 exch2_neighbourId(1,189)=204 exch2_iLo(1,189)=0 exch2_iHi(1,189)=35 exch2_jLo(1,189)=103 exch2_jHi(1,189)=103 exch2_opposingSend(1,189)=2 exch2_pij(1,1,189)=1 exch2_pij(2,1,189)=0 exch2_pij(3,1,189)=0 exch2_pij(4,1,189)=1 exch2_oi(1,189)=0 exch2_oj(1,189)=0 exch2_neighbourId(2,189)=174 exch2_iLo(2,189)=0 exch2_iHi(2,189)=35 exch2_jLo(2,189)=0 exch2_jHi(2,189)=0 exch2_opposingSend(2,189)=1 exch2_pij(1,2,189)=1 exch2_pij(2,2,189)=0 exch2_pij(3,2,189)=0 exch2_pij(4,2,189)=1 exch2_oi(2,189)=0 exch2_oj(2,189)=0 exch2_neighbourId(3,189)=190 exch2_iLo(3,189)=35 exch2_iHi(3,189)=35 exch2_jLo(3,189)=0 exch2_jHi(3,189)=103 exch2_opposingSend(3,189)=4 exch2_pij(1,3,189)=1 exch2_pij(2,3,189)=0 exch2_pij(3,3,189)=0 exch2_pij(4,3,189)=1 exch2_oi(3,189)=0 exch2_oj(3,189)=0 exch2_neighbourId(4,189)=188 exch2_iLo(4,189)=0 exch2_iHi(4,189)=0 exch2_jLo(4,189)=0 exch2_jHi(4,189)=103 exch2_opposingSend(4,189)=3 exch2_pij(1,4,189)=1 exch2_pij(2,4,189)=0 exch2_pij(3,4,189)=0 exch2_pij(4,4,189)=1 exch2_oi(4,189)=0 exch2_oj(4,189)=0 RETURN END SUBROUTINE W2_E2SETUP_190 C Topology for tile 190 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(190)=34 exch2_tNy(190)=102 exch2_tBasex(190)=306 exch2_tBasey(190)=204 exch2_txGlobalo(190)=1327 exch2_tyGlobalo(190)=205 exch2_isWedge(190)=0 exch2_isNedge(190)=0 exch2_isEedge(190)=0 exch2_isSedge(190)=0 exch2_myFace(190)=3 exch2_mydNx(190)=510 exch2_mydNy(190)=510 exch2_nNeighbours(190)=4 exch2_neighbourId(1,190)=205 exch2_iLo(1,190)=0 exch2_iHi(1,190)=35 exch2_jLo(1,190)=103 exch2_jHi(1,190)=103 exch2_opposingSend(1,190)=2 exch2_pij(1,1,190)=1 exch2_pij(2,1,190)=0 exch2_pij(3,1,190)=0 exch2_pij(4,1,190)=1 exch2_oi(1,190)=0 exch2_oj(1,190)=0 exch2_neighbourId(2,190)=175 exch2_iLo(2,190)=0 exch2_iHi(2,190)=35 exch2_jLo(2,190)=0 exch2_jHi(2,190)=0 exch2_opposingSend(2,190)=1 exch2_pij(1,2,190)=1 exch2_pij(2,2,190)=0 exch2_pij(3,2,190)=0 exch2_pij(4,2,190)=1 exch2_oi(2,190)=0 exch2_oj(2,190)=0 exch2_neighbourId(3,190)=191 exch2_iLo(3,190)=35 exch2_iHi(3,190)=35 exch2_jLo(3,190)=0 exch2_jHi(3,190)=103 exch2_opposingSend(3,190)=4 exch2_pij(1,3,190)=1 exch2_pij(2,3,190)=0 exch2_pij(3,3,190)=0 exch2_pij(4,3,190)=1 exch2_oi(3,190)=0 exch2_oj(3,190)=0 exch2_neighbourId(4,190)=189 exch2_iLo(4,190)=0 exch2_iHi(4,190)=0 exch2_jLo(4,190)=0 exch2_jHi(4,190)=103 exch2_opposingSend(4,190)=3 exch2_pij(1,4,190)=1 exch2_pij(2,4,190)=0 exch2_pij(3,4,190)=0 exch2_pij(4,4,190)=1 exch2_oi(4,190)=0 exch2_oj(4,190)=0 RETURN END SUBROUTINE W2_E2SETUP_191 C Topology for tile 191 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(191)=34 exch2_tNy(191)=102 exch2_tBasex(191)=340 exch2_tBasey(191)=204 exch2_txGlobalo(191)=1361 exch2_tyGlobalo(191)=205 exch2_isWedge(191)=0 exch2_isNedge(191)=0 exch2_isEedge(191)=0 exch2_isSedge(191)=0 exch2_myFace(191)=3 exch2_mydNx(191)=510 exch2_mydNy(191)=510 exch2_nNeighbours(191)=4 exch2_neighbourId(1,191)=206 exch2_iLo(1,191)=0 exch2_iHi(1,191)=35 exch2_jLo(1,191)=103 exch2_jHi(1,191)=103 exch2_opposingSend(1,191)=2 exch2_pij(1,1,191)=1 exch2_pij(2,1,191)=0 exch2_pij(3,1,191)=0 exch2_pij(4,1,191)=1 exch2_oi(1,191)=0 exch2_oj(1,191)=0 exch2_neighbourId(2,191)=176 exch2_iLo(2,191)=0 exch2_iHi(2,191)=35 exch2_jLo(2,191)=0 exch2_jHi(2,191)=0 exch2_opposingSend(2,191)=1 exch2_pij(1,2,191)=1 exch2_pij(2,2,191)=0 exch2_pij(3,2,191)=0 exch2_pij(4,2,191)=1 exch2_oi(2,191)=0 exch2_oj(2,191)=0 exch2_neighbourId(3,191)=192 exch2_iLo(3,191)=35 exch2_iHi(3,191)=35 exch2_jLo(3,191)=0 exch2_jHi(3,191)=103 exch2_opposingSend(3,191)=4 exch2_pij(1,3,191)=1 exch2_pij(2,3,191)=0 exch2_pij(3,3,191)=0 exch2_pij(4,3,191)=1 exch2_oi(3,191)=0 exch2_oj(3,191)=0 exch2_neighbourId(4,191)=190 exch2_iLo(4,191)=0 exch2_iHi(4,191)=0 exch2_jLo(4,191)=0 exch2_jHi(4,191)=103 exch2_opposingSend(4,191)=3 exch2_pij(1,4,191)=1 exch2_pij(2,4,191)=0 exch2_pij(3,4,191)=0 exch2_pij(4,4,191)=1 exch2_oi(4,191)=0 exch2_oj(4,191)=0 RETURN END SUBROUTINE W2_E2SETUP_192 C Topology for tile 192 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(192)=34 exch2_tNy(192)=102 exch2_tBasex(192)=374 exch2_tBasey(192)=204 exch2_txGlobalo(192)=1395 exch2_tyGlobalo(192)=205 exch2_isWedge(192)=0 exch2_isNedge(192)=0 exch2_isEedge(192)=0 exch2_isSedge(192)=0 exch2_myFace(192)=3 exch2_mydNx(192)=510 exch2_mydNy(192)=510 exch2_nNeighbours(192)=4 exch2_neighbourId(1,192)=207 exch2_iLo(1,192)=0 exch2_iHi(1,192)=35 exch2_jLo(1,192)=103 exch2_jHi(1,192)=103 exch2_opposingSend(1,192)=2 exch2_pij(1,1,192)=1 exch2_pij(2,1,192)=0 exch2_pij(3,1,192)=0 exch2_pij(4,1,192)=1 exch2_oi(1,192)=0 exch2_oj(1,192)=0 exch2_neighbourId(2,192)=177 exch2_iLo(2,192)=0 exch2_iHi(2,192)=35 exch2_jLo(2,192)=0 exch2_jHi(2,192)=0 exch2_opposingSend(2,192)=1 exch2_pij(1,2,192)=1 exch2_pij(2,2,192)=0 exch2_pij(3,2,192)=0 exch2_pij(4,2,192)=1 exch2_oi(2,192)=0 exch2_oj(2,192)=0 exch2_neighbourId(3,192)=193 exch2_iLo(3,192)=35 exch2_iHi(3,192)=35 exch2_jLo(3,192)=0 exch2_jHi(3,192)=103 exch2_opposingSend(3,192)=4 exch2_pij(1,3,192)=1 exch2_pij(2,3,192)=0 exch2_pij(3,3,192)=0 exch2_pij(4,3,192)=1 exch2_oi(3,192)=0 exch2_oj(3,192)=0 exch2_neighbourId(4,192)=191 exch2_iLo(4,192)=0 exch2_iHi(4,192)=0 exch2_jLo(4,192)=0 exch2_jHi(4,192)=103 exch2_opposingSend(4,192)=3 exch2_pij(1,4,192)=1 exch2_pij(2,4,192)=0 exch2_pij(3,4,192)=0 exch2_pij(4,4,192)=1 exch2_oi(4,192)=0 exch2_oj(4,192)=0 RETURN END SUBROUTINE W2_E2SETUP_193 C Topology for tile 193 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(193)=34 exch2_tNy(193)=102 exch2_tBasex(193)=408 exch2_tBasey(193)=204 exch2_txGlobalo(193)=1429 exch2_tyGlobalo(193)=205 exch2_isWedge(193)=0 exch2_isNedge(193)=0 exch2_isEedge(193)=0 exch2_isSedge(193)=0 exch2_myFace(193)=3 exch2_mydNx(193)=510 exch2_mydNy(193)=510 exch2_nNeighbours(193)=4 exch2_neighbourId(1,193)=208 exch2_iLo(1,193)=0 exch2_iHi(1,193)=35 exch2_jLo(1,193)=103 exch2_jHi(1,193)=103 exch2_opposingSend(1,193)=2 exch2_pij(1,1,193)=1 exch2_pij(2,1,193)=0 exch2_pij(3,1,193)=0 exch2_pij(4,1,193)=1 exch2_oi(1,193)=0 exch2_oj(1,193)=0 exch2_neighbourId(2,193)=178 exch2_iLo(2,193)=0 exch2_iHi(2,193)=35 exch2_jLo(2,193)=0 exch2_jHi(2,193)=0 exch2_opposingSend(2,193)=1 exch2_pij(1,2,193)=1 exch2_pij(2,2,193)=0 exch2_pij(3,2,193)=0 exch2_pij(4,2,193)=1 exch2_oi(2,193)=0 exch2_oj(2,193)=0 exch2_neighbourId(3,193)=194 exch2_iLo(3,193)=35 exch2_iHi(3,193)=35 exch2_jLo(3,193)=0 exch2_jHi(3,193)=103 exch2_opposingSend(3,193)=4 exch2_pij(1,3,193)=1 exch2_pij(2,3,193)=0 exch2_pij(3,3,193)=0 exch2_pij(4,3,193)=1 exch2_oi(3,193)=0 exch2_oj(3,193)=0 exch2_neighbourId(4,193)=192 exch2_iLo(4,193)=0 exch2_iHi(4,193)=0 exch2_jLo(4,193)=0 exch2_jHi(4,193)=103 exch2_opposingSend(4,193)=3 exch2_pij(1,4,193)=1 exch2_pij(2,4,193)=0 exch2_pij(3,4,193)=0 exch2_pij(4,4,193)=1 exch2_oi(4,193)=0 exch2_oj(4,193)=0 RETURN END SUBROUTINE W2_E2SETUP_194 C Topology for tile 194 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(194)=34 exch2_tNy(194)=102 exch2_tBasex(194)=442 exch2_tBasey(194)=204 exch2_txGlobalo(194)=1463 exch2_tyGlobalo(194)=205 exch2_isWedge(194)=0 exch2_isNedge(194)=0 exch2_isEedge(194)=0 exch2_isSedge(194)=0 exch2_myFace(194)=3 exch2_mydNx(194)=510 exch2_mydNy(194)=510 exch2_nNeighbours(194)=4 exch2_neighbourId(1,194)=209 exch2_iLo(1,194)=0 exch2_iHi(1,194)=35 exch2_jLo(1,194)=103 exch2_jHi(1,194)=103 exch2_opposingSend(1,194)=2 exch2_pij(1,1,194)=1 exch2_pij(2,1,194)=0 exch2_pij(3,1,194)=0 exch2_pij(4,1,194)=1 exch2_oi(1,194)=0 exch2_oj(1,194)=0 exch2_neighbourId(2,194)=179 exch2_iLo(2,194)=0 exch2_iHi(2,194)=35 exch2_jLo(2,194)=0 exch2_jHi(2,194)=0 exch2_opposingSend(2,194)=1 exch2_pij(1,2,194)=1 exch2_pij(2,2,194)=0 exch2_pij(3,2,194)=0 exch2_pij(4,2,194)=1 exch2_oi(2,194)=0 exch2_oj(2,194)=0 exch2_neighbourId(3,194)=195 exch2_iLo(3,194)=35 exch2_iHi(3,194)=35 exch2_jLo(3,194)=0 exch2_jHi(3,194)=103 exch2_opposingSend(3,194)=4 exch2_pij(1,3,194)=1 exch2_pij(2,3,194)=0 exch2_pij(3,3,194)=0 exch2_pij(4,3,194)=1 exch2_oi(3,194)=0 exch2_oj(3,194)=0 exch2_neighbourId(4,194)=193 exch2_iLo(4,194)=0 exch2_iHi(4,194)=0 exch2_jLo(4,194)=0 exch2_jHi(4,194)=103 exch2_opposingSend(4,194)=3 exch2_pij(1,4,194)=1 exch2_pij(2,4,194)=0 exch2_pij(3,4,194)=0 exch2_pij(4,4,194)=1 exch2_oi(4,194)=0 exch2_oj(4,194)=0 RETURN END SUBROUTINE W2_E2SETUP_195 C Topology for tile 195 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(195)=34 exch2_tNy(195)=102 exch2_tBasex(195)=476 exch2_tBasey(195)=204 exch2_txGlobalo(195)=1497 exch2_tyGlobalo(195)=205 exch2_isWedge(195)=0 exch2_isNedge(195)=0 exch2_isEedge(195)=1 exch2_isSedge(195)=0 exch2_myFace(195)=3 exch2_mydNx(195)=510 exch2_mydNy(195)=510 exch2_nNeighbours(195)=4 exch2_neighbourId(1,195)=210 exch2_iLo(1,195)=0 exch2_iHi(1,195)=35 exch2_jLo(1,195)=103 exch2_jHi(1,195)=103 exch2_opposingSend(1,195)=2 exch2_pij(1,1,195)=1 exch2_pij(2,1,195)=0 exch2_pij(3,1,195)=0 exch2_pij(4,1,195)=1 exch2_oi(1,195)=0 exch2_oj(1,195)=0 exch2_neighbourId(2,195)=180 exch2_iLo(2,195)=0 exch2_iHi(2,195)=35 exch2_jLo(2,195)=0 exch2_jHi(2,195)=0 exch2_opposingSend(2,195)=1 exch2_pij(1,2,195)=1 exch2_pij(2,2,195)=0 exch2_pij(3,2,195)=0 exch2_pij(4,2,195)=1 exch2_oi(2,195)=0 exch2_oj(2,195)=0 exch2_neighbourId(3,195)=256 exch2_iLo(3,195)=35 exch2_iHi(3,195)=35 exch2_jLo(3,195)=0 exch2_jHi(3,195)=103 exch2_opposingSend(3,195)=4 exch2_pij(1,3,195)=1 exch2_pij(2,3,195)=0 exch2_pij(3,3,195)=0 exch2_pij(4,3,195)=1 exch2_oi(3,195)=510 exch2_oj(3,195)=0 exch2_neighbourId(4,195)=194 exch2_iLo(4,195)=0 exch2_iHi(4,195)=0 exch2_jLo(4,195)=0 exch2_jHi(4,195)=103 exch2_opposingSend(4,195)=3 exch2_pij(1,4,195)=1 exch2_pij(2,4,195)=0 exch2_pij(3,4,195)=0 exch2_pij(4,4,195)=1 exch2_oi(4,195)=0 exch2_oj(4,195)=0 RETURN END SUBROUTINE W2_E2SETUP_196 C Topology for tile 196 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(196)=34 exch2_tNy(196)=102 exch2_tBasex(196)=0 exch2_tBasey(196)=306 exch2_txGlobalo(196)=1021 exch2_tyGlobalo(196)=307 exch2_isWedge(196)=1 exch2_isNedge(196)=0 exch2_isEedge(196)=0 exch2_isSedge(196)=0 exch2_myFace(196)=3 exch2_mydNx(196)=510 exch2_mydNy(196)=510 exch2_nNeighbours(196)=6 exch2_neighbourId(1,196)=211 exch2_iLo(1,196)=0 exch2_iHi(1,196)=35 exch2_jLo(1,196)=103 exch2_jHi(1,196)=103 exch2_opposingSend(1,196)=2 exch2_pij(1,1,196)=1 exch2_pij(2,1,196)=0 exch2_pij(3,1,196)=0 exch2_pij(4,1,196)=1 exch2_oi(1,196)=0 exch2_oj(1,196)=0 exch2_neighbourId(2,196)=181 exch2_iLo(2,196)=0 exch2_iHi(2,196)=35 exch2_jLo(2,196)=0 exch2_jHi(2,196)=0 exch2_opposingSend(2,196)=1 exch2_pij(1,2,196)=1 exch2_pij(2,2,196)=0 exch2_pij(3,2,196)=0 exch2_pij(4,2,196)=1 exch2_oi(2,196)=0 exch2_oj(2,196)=0 exch2_neighbourId(3,196)=197 exch2_iLo(3,196)=35 exch2_iHi(3,196)=35 exch2_jLo(3,196)=0 exch2_jHi(3,196)=103 exch2_opposingSend(3,196)=4 exch2_pij(1,3,196)=1 exch2_pij(2,3,196)=0 exch2_pij(3,3,196)=0 exch2_pij(4,3,196)=1 exch2_oi(3,196)=0 exch2_oj(3,196)=0 exch2_neighbourId(4,196)=64 exch2_iLo(4,196)=0 exch2_iHi(4,196)=0 exch2_jLo(4,196)=68 exch2_jHi(4,196)=103 exch2_opposingSend(4,196)=1 exch2_pij(1,4,196)=0 exch2_pij(2,4,196)=1 exch2_pij(3,4,196)=-1 exch2_pij(4,4,196)=0 exch2_oi(4,196)=-510 exch2_oj(4,196)=511 exch2_neighbourId(5,196)=65 exch2_iLo(5,196)=0 exch2_iHi(5,196)=0 exch2_jLo(5,196)=34 exch2_jHi(5,196)=69 exch2_opposingSend(5,196)=1 exch2_pij(1,5,196)=0 exch2_pij(2,5,196)=1 exch2_pij(3,5,196)=-1 exch2_pij(4,5,196)=0 exch2_oi(5,196)=-510 exch2_oj(5,196)=511 exch2_neighbourId(6,196)=66 exch2_iLo(6,196)=0 exch2_iHi(6,196)=0 exch2_jLo(6,196)=0 exch2_jHi(6,196)=35 exch2_opposingSend(6,196)=1 exch2_pij(1,6,196)=0 exch2_pij(2,6,196)=1 exch2_pij(3,6,196)=-1 exch2_pij(4,6,196)=0 exch2_oi(6,196)=-510 exch2_oj(6,196)=511 RETURN END SUBROUTINE W2_E2SETUP_197 C Topology for tile 197 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(197)=34 exch2_tNy(197)=102 exch2_tBasex(197)=34 exch2_tBasey(197)=306 exch2_txGlobalo(197)=1055 exch2_tyGlobalo(197)=307 exch2_isWedge(197)=0 exch2_isNedge(197)=0 exch2_isEedge(197)=0 exch2_isSedge(197)=0 exch2_myFace(197)=3 exch2_mydNx(197)=510 exch2_mydNy(197)=510 exch2_nNeighbours(197)=4 exch2_neighbourId(1,197)=212 exch2_iLo(1,197)=0 exch2_iHi(1,197)=35 exch2_jLo(1,197)=103 exch2_jHi(1,197)=103 exch2_opposingSend(1,197)=2 exch2_pij(1,1,197)=1 exch2_pij(2,1,197)=0 exch2_pij(3,1,197)=0 exch2_pij(4,1,197)=1 exch2_oi(1,197)=0 exch2_oj(1,197)=0 exch2_neighbourId(2,197)=182 exch2_iLo(2,197)=0 exch2_iHi(2,197)=35 exch2_jLo(2,197)=0 exch2_jHi(2,197)=0 exch2_opposingSend(2,197)=1 exch2_pij(1,2,197)=1 exch2_pij(2,2,197)=0 exch2_pij(3,2,197)=0 exch2_pij(4,2,197)=1 exch2_oi(2,197)=0 exch2_oj(2,197)=0 exch2_neighbourId(3,197)=198 exch2_iLo(3,197)=35 exch2_iHi(3,197)=35 exch2_jLo(3,197)=0 exch2_jHi(3,197)=103 exch2_opposingSend(3,197)=4 exch2_pij(1,3,197)=1 exch2_pij(2,3,197)=0 exch2_pij(3,3,197)=0 exch2_pij(4,3,197)=1 exch2_oi(3,197)=0 exch2_oj(3,197)=0 exch2_neighbourId(4,197)=196 exch2_iLo(4,197)=0 exch2_iHi(4,197)=0 exch2_jLo(4,197)=0 exch2_jHi(4,197)=103 exch2_opposingSend(4,197)=3 exch2_pij(1,4,197)=1 exch2_pij(2,4,197)=0 exch2_pij(3,4,197)=0 exch2_pij(4,4,197)=1 exch2_oi(4,197)=0 exch2_oj(4,197)=0 RETURN END SUBROUTINE W2_E2SETUP_198 C Topology for tile 198 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(198)=34 exch2_tNy(198)=102 exch2_tBasex(198)=68 exch2_tBasey(198)=306 exch2_txGlobalo(198)=1089 exch2_tyGlobalo(198)=307 exch2_isWedge(198)=0 exch2_isNedge(198)=0 exch2_isEedge(198)=0 exch2_isSedge(198)=0 exch2_myFace(198)=3 exch2_mydNx(198)=510 exch2_mydNy(198)=510 exch2_nNeighbours(198)=4 exch2_neighbourId(1,198)=213 exch2_iLo(1,198)=0 exch2_iHi(1,198)=35 exch2_jLo(1,198)=103 exch2_jHi(1,198)=103 exch2_opposingSend(1,198)=2 exch2_pij(1,1,198)=1 exch2_pij(2,1,198)=0 exch2_pij(3,1,198)=0 exch2_pij(4,1,198)=1 exch2_oi(1,198)=0 exch2_oj(1,198)=0 exch2_neighbourId(2,198)=183 exch2_iLo(2,198)=0 exch2_iHi(2,198)=35 exch2_jLo(2,198)=0 exch2_jHi(2,198)=0 exch2_opposingSend(2,198)=1 exch2_pij(1,2,198)=1 exch2_pij(2,2,198)=0 exch2_pij(3,2,198)=0 exch2_pij(4,2,198)=1 exch2_oi(2,198)=0 exch2_oj(2,198)=0 exch2_neighbourId(3,198)=199 exch2_iLo(3,198)=35 exch2_iHi(3,198)=35 exch2_jLo(3,198)=0 exch2_jHi(3,198)=103 exch2_opposingSend(3,198)=4 exch2_pij(1,3,198)=1 exch2_pij(2,3,198)=0 exch2_pij(3,3,198)=0 exch2_pij(4,3,198)=1 exch2_oi(3,198)=0 exch2_oj(3,198)=0 exch2_neighbourId(4,198)=197 exch2_iLo(4,198)=0 exch2_iHi(4,198)=0 exch2_jLo(4,198)=0 exch2_jHi(4,198)=103 exch2_opposingSend(4,198)=3 exch2_pij(1,4,198)=1 exch2_pij(2,4,198)=0 exch2_pij(3,4,198)=0 exch2_pij(4,4,198)=1 exch2_oi(4,198)=0 exch2_oj(4,198)=0 RETURN END SUBROUTINE W2_E2SETUP_199 C Topology for tile 199 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(199)=34 exch2_tNy(199)=102 exch2_tBasex(199)=102 exch2_tBasey(199)=306 exch2_txGlobalo(199)=1123 exch2_tyGlobalo(199)=307 exch2_isWedge(199)=0 exch2_isNedge(199)=0 exch2_isEedge(199)=0 exch2_isSedge(199)=0 exch2_myFace(199)=3 exch2_mydNx(199)=510 exch2_mydNy(199)=510 exch2_nNeighbours(199)=4 exch2_neighbourId(1,199)=214 exch2_iLo(1,199)=0 exch2_iHi(1,199)=35 exch2_jLo(1,199)=103 exch2_jHi(1,199)=103 exch2_opposingSend(1,199)=2 exch2_pij(1,1,199)=1 exch2_pij(2,1,199)=0 exch2_pij(3,1,199)=0 exch2_pij(4,1,199)=1 exch2_oi(1,199)=0 exch2_oj(1,199)=0 exch2_neighbourId(2,199)=184 exch2_iLo(2,199)=0 exch2_iHi(2,199)=35 exch2_jLo(2,199)=0 exch2_jHi(2,199)=0 exch2_opposingSend(2,199)=1 exch2_pij(1,2,199)=1 exch2_pij(2,2,199)=0 exch2_pij(3,2,199)=0 exch2_pij(4,2,199)=1 exch2_oi(2,199)=0 exch2_oj(2,199)=0 exch2_neighbourId(3,199)=200 exch2_iLo(3,199)=35 exch2_iHi(3,199)=35 exch2_jLo(3,199)=0 exch2_jHi(3,199)=103 exch2_opposingSend(3,199)=4 exch2_pij(1,3,199)=1 exch2_pij(2,3,199)=0 exch2_pij(3,3,199)=0 exch2_pij(4,3,199)=1 exch2_oi(3,199)=0 exch2_oj(3,199)=0 exch2_neighbourId(4,199)=198 exch2_iLo(4,199)=0 exch2_iHi(4,199)=0 exch2_jLo(4,199)=0 exch2_jHi(4,199)=103 exch2_opposingSend(4,199)=3 exch2_pij(1,4,199)=1 exch2_pij(2,4,199)=0 exch2_pij(3,4,199)=0 exch2_pij(4,4,199)=1 exch2_oi(4,199)=0 exch2_oj(4,199)=0 RETURN END SUBROUTINE W2_E2SETUP_200 C Topology for tile 200 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(200)=34 exch2_tNy(200)=102 exch2_tBasex(200)=136 exch2_tBasey(200)=306 exch2_txGlobalo(200)=1157 exch2_tyGlobalo(200)=307 exch2_isWedge(200)=0 exch2_isNedge(200)=0 exch2_isEedge(200)=0 exch2_isSedge(200)=0 exch2_myFace(200)=3 exch2_mydNx(200)=510 exch2_mydNy(200)=510 exch2_nNeighbours(200)=4 exch2_neighbourId(1,200)=215 exch2_iLo(1,200)=0 exch2_iHi(1,200)=35 exch2_jLo(1,200)=103 exch2_jHi(1,200)=103 exch2_opposingSend(1,200)=2 exch2_pij(1,1,200)=1 exch2_pij(2,1,200)=0 exch2_pij(3,1,200)=0 exch2_pij(4,1,200)=1 exch2_oi(1,200)=0 exch2_oj(1,200)=0 exch2_neighbourId(2,200)=185 exch2_iLo(2,200)=0 exch2_iHi(2,200)=35 exch2_jLo(2,200)=0 exch2_jHi(2,200)=0 exch2_opposingSend(2,200)=1 exch2_pij(1,2,200)=1 exch2_pij(2,2,200)=0 exch2_pij(3,2,200)=0 exch2_pij(4,2,200)=1 exch2_oi(2,200)=0 exch2_oj(2,200)=0 exch2_neighbourId(3,200)=201 exch2_iLo(3,200)=35 exch2_iHi(3,200)=35 exch2_jLo(3,200)=0 exch2_jHi(3,200)=103 exch2_opposingSend(3,200)=4 exch2_pij(1,3,200)=1 exch2_pij(2,3,200)=0 exch2_pij(3,3,200)=0 exch2_pij(4,3,200)=1 exch2_oi(3,200)=0 exch2_oj(3,200)=0 exch2_neighbourId(4,200)=199 exch2_iLo(4,200)=0 exch2_iHi(4,200)=0 exch2_jLo(4,200)=0 exch2_jHi(4,200)=103 exch2_opposingSend(4,200)=3 exch2_pij(1,4,200)=1 exch2_pij(2,4,200)=0 exch2_pij(3,4,200)=0 exch2_pij(4,4,200)=1 exch2_oi(4,200)=0 exch2_oj(4,200)=0 RETURN END SUBROUTINE W2_E2SETUP_201 C Topology for tile 201 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(201)=34 exch2_tNy(201)=102 exch2_tBasex(201)=170 exch2_tBasey(201)=306 exch2_txGlobalo(201)=1191 exch2_tyGlobalo(201)=307 exch2_isWedge(201)=0 exch2_isNedge(201)=0 exch2_isEedge(201)=0 exch2_isSedge(201)=0 exch2_myFace(201)=3 exch2_mydNx(201)=510 exch2_mydNy(201)=510 exch2_nNeighbours(201)=4 exch2_neighbourId(1,201)=216 exch2_iLo(1,201)=0 exch2_iHi(1,201)=35 exch2_jLo(1,201)=103 exch2_jHi(1,201)=103 exch2_opposingSend(1,201)=2 exch2_pij(1,1,201)=1 exch2_pij(2,1,201)=0 exch2_pij(3,1,201)=0 exch2_pij(4,1,201)=1 exch2_oi(1,201)=0 exch2_oj(1,201)=0 exch2_neighbourId(2,201)=186 exch2_iLo(2,201)=0 exch2_iHi(2,201)=35 exch2_jLo(2,201)=0 exch2_jHi(2,201)=0 exch2_opposingSend(2,201)=1 exch2_pij(1,2,201)=1 exch2_pij(2,2,201)=0 exch2_pij(3,2,201)=0 exch2_pij(4,2,201)=1 exch2_oi(2,201)=0 exch2_oj(2,201)=0 exch2_neighbourId(3,201)=202 exch2_iLo(3,201)=35 exch2_iHi(3,201)=35 exch2_jLo(3,201)=0 exch2_jHi(3,201)=103 exch2_opposingSend(3,201)=4 exch2_pij(1,3,201)=1 exch2_pij(2,3,201)=0 exch2_pij(3,3,201)=0 exch2_pij(4,3,201)=1 exch2_oi(3,201)=0 exch2_oj(3,201)=0 exch2_neighbourId(4,201)=200 exch2_iLo(4,201)=0 exch2_iHi(4,201)=0 exch2_jLo(4,201)=0 exch2_jHi(4,201)=103 exch2_opposingSend(4,201)=3 exch2_pij(1,4,201)=1 exch2_pij(2,4,201)=0 exch2_pij(3,4,201)=0 exch2_pij(4,4,201)=1 exch2_oi(4,201)=0 exch2_oj(4,201)=0 RETURN END SUBROUTINE W2_E2SETUP_202 C Topology for tile 202 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(202)=34 exch2_tNy(202)=102 exch2_tBasex(202)=204 exch2_tBasey(202)=306 exch2_txGlobalo(202)=1225 exch2_tyGlobalo(202)=307 exch2_isWedge(202)=0 exch2_isNedge(202)=0 exch2_isEedge(202)=0 exch2_isSedge(202)=0 exch2_myFace(202)=3 exch2_mydNx(202)=510 exch2_mydNy(202)=510 exch2_nNeighbours(202)=4 exch2_neighbourId(1,202)=217 exch2_iLo(1,202)=0 exch2_iHi(1,202)=35 exch2_jLo(1,202)=103 exch2_jHi(1,202)=103 exch2_opposingSend(1,202)=2 exch2_pij(1,1,202)=1 exch2_pij(2,1,202)=0 exch2_pij(3,1,202)=0 exch2_pij(4,1,202)=1 exch2_oi(1,202)=0 exch2_oj(1,202)=0 exch2_neighbourId(2,202)=187 exch2_iLo(2,202)=0 exch2_iHi(2,202)=35 exch2_jLo(2,202)=0 exch2_jHi(2,202)=0 exch2_opposingSend(2,202)=1 exch2_pij(1,2,202)=1 exch2_pij(2,2,202)=0 exch2_pij(3,2,202)=0 exch2_pij(4,2,202)=1 exch2_oi(2,202)=0 exch2_oj(2,202)=0 exch2_neighbourId(3,202)=203 exch2_iLo(3,202)=35 exch2_iHi(3,202)=35 exch2_jLo(3,202)=0 exch2_jHi(3,202)=103 exch2_opposingSend(3,202)=4 exch2_pij(1,3,202)=1 exch2_pij(2,3,202)=0 exch2_pij(3,3,202)=0 exch2_pij(4,3,202)=1 exch2_oi(3,202)=0 exch2_oj(3,202)=0 exch2_neighbourId(4,202)=201 exch2_iLo(4,202)=0 exch2_iHi(4,202)=0 exch2_jLo(4,202)=0 exch2_jHi(4,202)=103 exch2_opposingSend(4,202)=3 exch2_pij(1,4,202)=1 exch2_pij(2,4,202)=0 exch2_pij(3,4,202)=0 exch2_pij(4,4,202)=1 exch2_oi(4,202)=0 exch2_oj(4,202)=0 RETURN END SUBROUTINE W2_E2SETUP_203 C Topology for tile 203 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(203)=34 exch2_tNy(203)=102 exch2_tBasex(203)=238 exch2_tBasey(203)=306 exch2_txGlobalo(203)=1259 exch2_tyGlobalo(203)=307 exch2_isWedge(203)=0 exch2_isNedge(203)=0 exch2_isEedge(203)=0 exch2_isSedge(203)=0 exch2_myFace(203)=3 exch2_mydNx(203)=510 exch2_mydNy(203)=510 exch2_nNeighbours(203)=4 exch2_neighbourId(1,203)=218 exch2_iLo(1,203)=0 exch2_iHi(1,203)=35 exch2_jLo(1,203)=103 exch2_jHi(1,203)=103 exch2_opposingSend(1,203)=2 exch2_pij(1,1,203)=1 exch2_pij(2,1,203)=0 exch2_pij(3,1,203)=0 exch2_pij(4,1,203)=1 exch2_oi(1,203)=0 exch2_oj(1,203)=0 exch2_neighbourId(2,203)=188 exch2_iLo(2,203)=0 exch2_iHi(2,203)=35 exch2_jLo(2,203)=0 exch2_jHi(2,203)=0 exch2_opposingSend(2,203)=1 exch2_pij(1,2,203)=1 exch2_pij(2,2,203)=0 exch2_pij(3,2,203)=0 exch2_pij(4,2,203)=1 exch2_oi(2,203)=0 exch2_oj(2,203)=0 exch2_neighbourId(3,203)=204 exch2_iLo(3,203)=35 exch2_iHi(3,203)=35 exch2_jLo(3,203)=0 exch2_jHi(3,203)=103 exch2_opposingSend(3,203)=4 exch2_pij(1,3,203)=1 exch2_pij(2,3,203)=0 exch2_pij(3,3,203)=0 exch2_pij(4,3,203)=1 exch2_oi(3,203)=0 exch2_oj(3,203)=0 exch2_neighbourId(4,203)=202 exch2_iLo(4,203)=0 exch2_iHi(4,203)=0 exch2_jLo(4,203)=0 exch2_jHi(4,203)=103 exch2_opposingSend(4,203)=3 exch2_pij(1,4,203)=1 exch2_pij(2,4,203)=0 exch2_pij(3,4,203)=0 exch2_pij(4,4,203)=1 exch2_oi(4,203)=0 exch2_oj(4,203)=0 RETURN END SUBROUTINE W2_E2SETUP_204 C Topology for tile 204 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(204)=34 exch2_tNy(204)=102 exch2_tBasex(204)=272 exch2_tBasey(204)=306 exch2_txGlobalo(204)=1293 exch2_tyGlobalo(204)=307 exch2_isWedge(204)=0 exch2_isNedge(204)=0 exch2_isEedge(204)=0 exch2_isSedge(204)=0 exch2_myFace(204)=3 exch2_mydNx(204)=510 exch2_mydNy(204)=510 exch2_nNeighbours(204)=4 exch2_neighbourId(1,204)=219 exch2_iLo(1,204)=0 exch2_iHi(1,204)=35 exch2_jLo(1,204)=103 exch2_jHi(1,204)=103 exch2_opposingSend(1,204)=2 exch2_pij(1,1,204)=1 exch2_pij(2,1,204)=0 exch2_pij(3,1,204)=0 exch2_pij(4,1,204)=1 exch2_oi(1,204)=0 exch2_oj(1,204)=0 exch2_neighbourId(2,204)=189 exch2_iLo(2,204)=0 exch2_iHi(2,204)=35 exch2_jLo(2,204)=0 exch2_jHi(2,204)=0 exch2_opposingSend(2,204)=1 exch2_pij(1,2,204)=1 exch2_pij(2,2,204)=0 exch2_pij(3,2,204)=0 exch2_pij(4,2,204)=1 exch2_oi(2,204)=0 exch2_oj(2,204)=0 exch2_neighbourId(3,204)=205 exch2_iLo(3,204)=35 exch2_iHi(3,204)=35 exch2_jLo(3,204)=0 exch2_jHi(3,204)=103 exch2_opposingSend(3,204)=4 exch2_pij(1,3,204)=1 exch2_pij(2,3,204)=0 exch2_pij(3,3,204)=0 exch2_pij(4,3,204)=1 exch2_oi(3,204)=0 exch2_oj(3,204)=0 exch2_neighbourId(4,204)=203 exch2_iLo(4,204)=0 exch2_iHi(4,204)=0 exch2_jLo(4,204)=0 exch2_jHi(4,204)=103 exch2_opposingSend(4,204)=3 exch2_pij(1,4,204)=1 exch2_pij(2,4,204)=0 exch2_pij(3,4,204)=0 exch2_pij(4,4,204)=1 exch2_oi(4,204)=0 exch2_oj(4,204)=0 RETURN END SUBROUTINE W2_E2SETUP_205 C Topology for tile 205 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(205)=34 exch2_tNy(205)=102 exch2_tBasex(205)=306 exch2_tBasey(205)=306 exch2_txGlobalo(205)=1327 exch2_tyGlobalo(205)=307 exch2_isWedge(205)=0 exch2_isNedge(205)=0 exch2_isEedge(205)=0 exch2_isSedge(205)=0 exch2_myFace(205)=3 exch2_mydNx(205)=510 exch2_mydNy(205)=510 exch2_nNeighbours(205)=4 exch2_neighbourId(1,205)=220 exch2_iLo(1,205)=0 exch2_iHi(1,205)=35 exch2_jLo(1,205)=103 exch2_jHi(1,205)=103 exch2_opposingSend(1,205)=2 exch2_pij(1,1,205)=1 exch2_pij(2,1,205)=0 exch2_pij(3,1,205)=0 exch2_pij(4,1,205)=1 exch2_oi(1,205)=0 exch2_oj(1,205)=0 exch2_neighbourId(2,205)=190 exch2_iLo(2,205)=0 exch2_iHi(2,205)=35 exch2_jLo(2,205)=0 exch2_jHi(2,205)=0 exch2_opposingSend(2,205)=1 exch2_pij(1,2,205)=1 exch2_pij(2,2,205)=0 exch2_pij(3,2,205)=0 exch2_pij(4,2,205)=1 exch2_oi(2,205)=0 exch2_oj(2,205)=0 exch2_neighbourId(3,205)=206 exch2_iLo(3,205)=35 exch2_iHi(3,205)=35 exch2_jLo(3,205)=0 exch2_jHi(3,205)=103 exch2_opposingSend(3,205)=4 exch2_pij(1,3,205)=1 exch2_pij(2,3,205)=0 exch2_pij(3,3,205)=0 exch2_pij(4,3,205)=1 exch2_oi(3,205)=0 exch2_oj(3,205)=0 exch2_neighbourId(4,205)=204 exch2_iLo(4,205)=0 exch2_iHi(4,205)=0 exch2_jLo(4,205)=0 exch2_jHi(4,205)=103 exch2_opposingSend(4,205)=3 exch2_pij(1,4,205)=1 exch2_pij(2,4,205)=0 exch2_pij(3,4,205)=0 exch2_pij(4,4,205)=1 exch2_oi(4,205)=0 exch2_oj(4,205)=0 RETURN END SUBROUTINE W2_E2SETUP_206 C Topology for tile 206 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(206)=34 exch2_tNy(206)=102 exch2_tBasex(206)=340 exch2_tBasey(206)=306 exch2_txGlobalo(206)=1361 exch2_tyGlobalo(206)=307 exch2_isWedge(206)=0 exch2_isNedge(206)=0 exch2_isEedge(206)=0 exch2_isSedge(206)=0 exch2_myFace(206)=3 exch2_mydNx(206)=510 exch2_mydNy(206)=510 exch2_nNeighbours(206)=4 exch2_neighbourId(1,206)=221 exch2_iLo(1,206)=0 exch2_iHi(1,206)=35 exch2_jLo(1,206)=103 exch2_jHi(1,206)=103 exch2_opposingSend(1,206)=2 exch2_pij(1,1,206)=1 exch2_pij(2,1,206)=0 exch2_pij(3,1,206)=0 exch2_pij(4,1,206)=1 exch2_oi(1,206)=0 exch2_oj(1,206)=0 exch2_neighbourId(2,206)=191 exch2_iLo(2,206)=0 exch2_iHi(2,206)=35 exch2_jLo(2,206)=0 exch2_jHi(2,206)=0 exch2_opposingSend(2,206)=1 exch2_pij(1,2,206)=1 exch2_pij(2,2,206)=0 exch2_pij(3,2,206)=0 exch2_pij(4,2,206)=1 exch2_oi(2,206)=0 exch2_oj(2,206)=0 exch2_neighbourId(3,206)=207 exch2_iLo(3,206)=35 exch2_iHi(3,206)=35 exch2_jLo(3,206)=0 exch2_jHi(3,206)=103 exch2_opposingSend(3,206)=4 exch2_pij(1,3,206)=1 exch2_pij(2,3,206)=0 exch2_pij(3,3,206)=0 exch2_pij(4,3,206)=1 exch2_oi(3,206)=0 exch2_oj(3,206)=0 exch2_neighbourId(4,206)=205 exch2_iLo(4,206)=0 exch2_iHi(4,206)=0 exch2_jLo(4,206)=0 exch2_jHi(4,206)=103 exch2_opposingSend(4,206)=3 exch2_pij(1,4,206)=1 exch2_pij(2,4,206)=0 exch2_pij(3,4,206)=0 exch2_pij(4,4,206)=1 exch2_oi(4,206)=0 exch2_oj(4,206)=0 RETURN END SUBROUTINE W2_E2SETUP_207 C Topology for tile 207 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(207)=34 exch2_tNy(207)=102 exch2_tBasex(207)=374 exch2_tBasey(207)=306 exch2_txGlobalo(207)=1395 exch2_tyGlobalo(207)=307 exch2_isWedge(207)=0 exch2_isNedge(207)=0 exch2_isEedge(207)=0 exch2_isSedge(207)=0 exch2_myFace(207)=3 exch2_mydNx(207)=510 exch2_mydNy(207)=510 exch2_nNeighbours(207)=4 exch2_neighbourId(1,207)=222 exch2_iLo(1,207)=0 exch2_iHi(1,207)=35 exch2_jLo(1,207)=103 exch2_jHi(1,207)=103 exch2_opposingSend(1,207)=2 exch2_pij(1,1,207)=1 exch2_pij(2,1,207)=0 exch2_pij(3,1,207)=0 exch2_pij(4,1,207)=1 exch2_oi(1,207)=0 exch2_oj(1,207)=0 exch2_neighbourId(2,207)=192 exch2_iLo(2,207)=0 exch2_iHi(2,207)=35 exch2_jLo(2,207)=0 exch2_jHi(2,207)=0 exch2_opposingSend(2,207)=1 exch2_pij(1,2,207)=1 exch2_pij(2,2,207)=0 exch2_pij(3,2,207)=0 exch2_pij(4,2,207)=1 exch2_oi(2,207)=0 exch2_oj(2,207)=0 exch2_neighbourId(3,207)=208 exch2_iLo(3,207)=35 exch2_iHi(3,207)=35 exch2_jLo(3,207)=0 exch2_jHi(3,207)=103 exch2_opposingSend(3,207)=4 exch2_pij(1,3,207)=1 exch2_pij(2,3,207)=0 exch2_pij(3,3,207)=0 exch2_pij(4,3,207)=1 exch2_oi(3,207)=0 exch2_oj(3,207)=0 exch2_neighbourId(4,207)=206 exch2_iLo(4,207)=0 exch2_iHi(4,207)=0 exch2_jLo(4,207)=0 exch2_jHi(4,207)=103 exch2_opposingSend(4,207)=3 exch2_pij(1,4,207)=1 exch2_pij(2,4,207)=0 exch2_pij(3,4,207)=0 exch2_pij(4,4,207)=1 exch2_oi(4,207)=0 exch2_oj(4,207)=0 RETURN END SUBROUTINE W2_E2SETUP_208 C Topology for tile 208 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(208)=34 exch2_tNy(208)=102 exch2_tBasex(208)=408 exch2_tBasey(208)=306 exch2_txGlobalo(208)=1429 exch2_tyGlobalo(208)=307 exch2_isWedge(208)=0 exch2_isNedge(208)=0 exch2_isEedge(208)=0 exch2_isSedge(208)=0 exch2_myFace(208)=3 exch2_mydNx(208)=510 exch2_mydNy(208)=510 exch2_nNeighbours(208)=4 exch2_neighbourId(1,208)=223 exch2_iLo(1,208)=0 exch2_iHi(1,208)=35 exch2_jLo(1,208)=103 exch2_jHi(1,208)=103 exch2_opposingSend(1,208)=2 exch2_pij(1,1,208)=1 exch2_pij(2,1,208)=0 exch2_pij(3,1,208)=0 exch2_pij(4,1,208)=1 exch2_oi(1,208)=0 exch2_oj(1,208)=0 exch2_neighbourId(2,208)=193 exch2_iLo(2,208)=0 exch2_iHi(2,208)=35 exch2_jLo(2,208)=0 exch2_jHi(2,208)=0 exch2_opposingSend(2,208)=1 exch2_pij(1,2,208)=1 exch2_pij(2,2,208)=0 exch2_pij(3,2,208)=0 exch2_pij(4,2,208)=1 exch2_oi(2,208)=0 exch2_oj(2,208)=0 exch2_neighbourId(3,208)=209 exch2_iLo(3,208)=35 exch2_iHi(3,208)=35 exch2_jLo(3,208)=0 exch2_jHi(3,208)=103 exch2_opposingSend(3,208)=4 exch2_pij(1,3,208)=1 exch2_pij(2,3,208)=0 exch2_pij(3,3,208)=0 exch2_pij(4,3,208)=1 exch2_oi(3,208)=0 exch2_oj(3,208)=0 exch2_neighbourId(4,208)=207 exch2_iLo(4,208)=0 exch2_iHi(4,208)=0 exch2_jLo(4,208)=0 exch2_jHi(4,208)=103 exch2_opposingSend(4,208)=3 exch2_pij(1,4,208)=1 exch2_pij(2,4,208)=0 exch2_pij(3,4,208)=0 exch2_pij(4,4,208)=1 exch2_oi(4,208)=0 exch2_oj(4,208)=0 RETURN END SUBROUTINE W2_E2SETUP_209 C Topology for tile 209 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(209)=34 exch2_tNy(209)=102 exch2_tBasex(209)=442 exch2_tBasey(209)=306 exch2_txGlobalo(209)=1463 exch2_tyGlobalo(209)=307 exch2_isWedge(209)=0 exch2_isNedge(209)=0 exch2_isEedge(209)=0 exch2_isSedge(209)=0 exch2_myFace(209)=3 exch2_mydNx(209)=510 exch2_mydNy(209)=510 exch2_nNeighbours(209)=4 exch2_neighbourId(1,209)=224 exch2_iLo(1,209)=0 exch2_iHi(1,209)=35 exch2_jLo(1,209)=103 exch2_jHi(1,209)=103 exch2_opposingSend(1,209)=2 exch2_pij(1,1,209)=1 exch2_pij(2,1,209)=0 exch2_pij(3,1,209)=0 exch2_pij(4,1,209)=1 exch2_oi(1,209)=0 exch2_oj(1,209)=0 exch2_neighbourId(2,209)=194 exch2_iLo(2,209)=0 exch2_iHi(2,209)=35 exch2_jLo(2,209)=0 exch2_jHi(2,209)=0 exch2_opposingSend(2,209)=1 exch2_pij(1,2,209)=1 exch2_pij(2,2,209)=0 exch2_pij(3,2,209)=0 exch2_pij(4,2,209)=1 exch2_oi(2,209)=0 exch2_oj(2,209)=0 exch2_neighbourId(3,209)=210 exch2_iLo(3,209)=35 exch2_iHi(3,209)=35 exch2_jLo(3,209)=0 exch2_jHi(3,209)=103 exch2_opposingSend(3,209)=4 exch2_pij(1,3,209)=1 exch2_pij(2,3,209)=0 exch2_pij(3,3,209)=0 exch2_pij(4,3,209)=1 exch2_oi(3,209)=0 exch2_oj(3,209)=0 exch2_neighbourId(4,209)=208 exch2_iLo(4,209)=0 exch2_iHi(4,209)=0 exch2_jLo(4,209)=0 exch2_jHi(4,209)=103 exch2_opposingSend(4,209)=3 exch2_pij(1,4,209)=1 exch2_pij(2,4,209)=0 exch2_pij(3,4,209)=0 exch2_pij(4,4,209)=1 exch2_oi(4,209)=0 exch2_oj(4,209)=0 RETURN END SUBROUTINE W2_E2SETUP_210 C Topology for tile 210 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(210)=34 exch2_tNy(210)=102 exch2_tBasex(210)=476 exch2_tBasey(210)=306 exch2_txGlobalo(210)=1497 exch2_tyGlobalo(210)=307 exch2_isWedge(210)=0 exch2_isNedge(210)=0 exch2_isEedge(210)=1 exch2_isSedge(210)=0 exch2_myFace(210)=3 exch2_mydNx(210)=510 exch2_mydNy(210)=510 exch2_nNeighbours(210)=4 exch2_neighbourId(1,210)=225 exch2_iLo(1,210)=0 exch2_iHi(1,210)=35 exch2_jLo(1,210)=103 exch2_jHi(1,210)=103 exch2_opposingSend(1,210)=2 exch2_pij(1,1,210)=1 exch2_pij(2,1,210)=0 exch2_pij(3,1,210)=0 exch2_pij(4,1,210)=1 exch2_oi(1,210)=0 exch2_oj(1,210)=0 exch2_neighbourId(2,210)=195 exch2_iLo(2,210)=0 exch2_iHi(2,210)=35 exch2_jLo(2,210)=0 exch2_jHi(2,210)=0 exch2_opposingSend(2,210)=1 exch2_pij(1,2,210)=1 exch2_pij(2,2,210)=0 exch2_pij(3,2,210)=0 exch2_pij(4,2,210)=1 exch2_oi(2,210)=0 exch2_oj(2,210)=0 exch2_neighbourId(3,210)=271 exch2_iLo(3,210)=35 exch2_iHi(3,210)=35 exch2_jLo(3,210)=0 exch2_jHi(3,210)=103 exch2_opposingSend(3,210)=4 exch2_pij(1,3,210)=1 exch2_pij(2,3,210)=0 exch2_pij(3,3,210)=0 exch2_pij(4,3,210)=1 exch2_oi(3,210)=510 exch2_oj(3,210)=0 exch2_neighbourId(4,210)=209 exch2_iLo(4,210)=0 exch2_iHi(4,210)=0 exch2_jLo(4,210)=0 exch2_jHi(4,210)=103 exch2_opposingSend(4,210)=3 exch2_pij(1,4,210)=1 exch2_pij(2,4,210)=0 exch2_pij(3,4,210)=0 exch2_pij(4,4,210)=1 exch2_oi(4,210)=0 exch2_oj(4,210)=0 RETURN END SUBROUTINE W2_E2SETUP_211 C Topology for tile 211 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(211)=34 exch2_tNy(211)=102 exch2_tBasex(211)=0 exch2_tBasey(211)=408 exch2_txGlobalo(211)=1021 exch2_tyGlobalo(211)=409 exch2_isWedge(211)=1 exch2_isNedge(211)=1 exch2_isEedge(211)=0 exch2_isSedge(211)=0 exch2_myFace(211)=3 exch2_mydNx(211)=510 exch2_mydNy(211)=510 exch2_nNeighbours(211)=6 exch2_neighbourId(1,211)=361 exch2_iLo(1,211)=0 exch2_iHi(1,211)=35 exch2_jLo(1,211)=103 exch2_jHi(1,211)=103 exch2_opposingSend(1,211)=4 exch2_pij(1,1,211)=0 exch2_pij(2,1,211)=-1 exch2_pij(3,1,211)=1 exch2_pij(4,1,211)=0 exch2_oi(1,211)=511 exch2_oj(1,211)=510 exch2_neighbourId(2,211)=196 exch2_iLo(2,211)=0 exch2_iHi(2,211)=35 exch2_jLo(2,211)=0 exch2_jHi(2,211)=0 exch2_opposingSend(2,211)=1 exch2_pij(1,2,211)=1 exch2_pij(2,2,211)=0 exch2_pij(3,2,211)=0 exch2_pij(4,2,211)=1 exch2_oi(2,211)=0 exch2_oj(2,211)=0 exch2_neighbourId(3,211)=212 exch2_iLo(3,211)=35 exch2_iHi(3,211)=35 exch2_jLo(3,211)=0 exch2_jHi(3,211)=103 exch2_opposingSend(3,211)=4 exch2_pij(1,3,211)=1 exch2_pij(2,3,211)=0 exch2_pij(3,3,211)=0 exch2_pij(4,3,211)=1 exch2_oi(3,211)=0 exch2_oj(3,211)=0 exch2_neighbourId(4,211)=61 exch2_iLo(4,211)=0 exch2_iHi(4,211)=0 exch2_jLo(4,211)=68 exch2_jHi(4,211)=103 exch2_opposingSend(4,211)=1 exch2_pij(1,4,211)=0 exch2_pij(2,4,211)=1 exch2_pij(3,4,211)=-1 exch2_pij(4,4,211)=0 exch2_oi(4,211)=-510 exch2_oj(4,211)=511 exch2_neighbourId(5,211)=62 exch2_iLo(5,211)=0 exch2_iHi(5,211)=0 exch2_jLo(5,211)=34 exch2_jHi(5,211)=69 exch2_opposingSend(5,211)=1 exch2_pij(1,5,211)=0 exch2_pij(2,5,211)=1 exch2_pij(3,5,211)=-1 exch2_pij(4,5,211)=0 exch2_oi(5,211)=-510 exch2_oj(5,211)=511 exch2_neighbourId(6,211)=63 exch2_iLo(6,211)=0 exch2_iHi(6,211)=0 exch2_jLo(6,211)=0 exch2_jHi(6,211)=35 exch2_opposingSend(6,211)=1 exch2_pij(1,6,211)=0 exch2_pij(2,6,211)=1 exch2_pij(3,6,211)=-1 exch2_pij(4,6,211)=0 exch2_oi(6,211)=-510 exch2_oj(6,211)=511 RETURN END SUBROUTINE W2_E2SETUP_212 C Topology for tile 212 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(212)=34 exch2_tNy(212)=102 exch2_tBasex(212)=34 exch2_tBasey(212)=408 exch2_txGlobalo(212)=1055 exch2_tyGlobalo(212)=409 exch2_isWedge(212)=0 exch2_isNedge(212)=1 exch2_isEedge(212)=0 exch2_isSedge(212)=0 exch2_myFace(212)=3 exch2_mydNx(212)=510 exch2_mydNy(212)=510 exch2_nNeighbours(212)=4 exch2_neighbourId(1,212)=361 exch2_iLo(1,212)=0 exch2_iHi(1,212)=35 exch2_jLo(1,212)=103 exch2_jHi(1,212)=103 exch2_opposingSend(1,212)=5 exch2_pij(1,1,212)=0 exch2_pij(2,1,212)=-1 exch2_pij(3,1,212)=1 exch2_pij(4,1,212)=0 exch2_oi(1,212)=511 exch2_oj(1,212)=510 exch2_neighbourId(2,212)=197 exch2_iLo(2,212)=0 exch2_iHi(2,212)=35 exch2_jLo(2,212)=0 exch2_jHi(2,212)=0 exch2_opposingSend(2,212)=1 exch2_pij(1,2,212)=1 exch2_pij(2,2,212)=0 exch2_pij(3,2,212)=0 exch2_pij(4,2,212)=1 exch2_oi(2,212)=0 exch2_oj(2,212)=0 exch2_neighbourId(3,212)=213 exch2_iLo(3,212)=35 exch2_iHi(3,212)=35 exch2_jLo(3,212)=0 exch2_jHi(3,212)=103 exch2_opposingSend(3,212)=4 exch2_pij(1,3,212)=1 exch2_pij(2,3,212)=0 exch2_pij(3,3,212)=0 exch2_pij(4,3,212)=1 exch2_oi(3,212)=0 exch2_oj(3,212)=0 exch2_neighbourId(4,212)=211 exch2_iLo(4,212)=0 exch2_iHi(4,212)=0 exch2_jLo(4,212)=0 exch2_jHi(4,212)=103 exch2_opposingSend(4,212)=3 exch2_pij(1,4,212)=1 exch2_pij(2,4,212)=0 exch2_pij(3,4,212)=0 exch2_pij(4,4,212)=1 exch2_oi(4,212)=0 exch2_oj(4,212)=0 RETURN END SUBROUTINE W2_E2SETUP_213 C Topology for tile 213 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(213)=34 exch2_tNy(213)=102 exch2_tBasex(213)=68 exch2_tBasey(213)=408 exch2_txGlobalo(213)=1089 exch2_tyGlobalo(213)=409 exch2_isWedge(213)=0 exch2_isNedge(213)=1 exch2_isEedge(213)=0 exch2_isSedge(213)=0 exch2_myFace(213)=3 exch2_mydNx(213)=510 exch2_mydNy(213)=510 exch2_nNeighbours(213)=4 exch2_neighbourId(1,213)=361 exch2_iLo(1,213)=0 exch2_iHi(1,213)=35 exch2_jLo(1,213)=103 exch2_jHi(1,213)=103 exch2_opposingSend(1,213)=6 exch2_pij(1,1,213)=0 exch2_pij(2,1,213)=-1 exch2_pij(3,1,213)=1 exch2_pij(4,1,213)=0 exch2_oi(1,213)=511 exch2_oj(1,213)=510 exch2_neighbourId(2,213)=198 exch2_iLo(2,213)=0 exch2_iHi(2,213)=35 exch2_jLo(2,213)=0 exch2_jHi(2,213)=0 exch2_opposingSend(2,213)=1 exch2_pij(1,2,213)=1 exch2_pij(2,2,213)=0 exch2_pij(3,2,213)=0 exch2_pij(4,2,213)=1 exch2_oi(2,213)=0 exch2_oj(2,213)=0 exch2_neighbourId(3,213)=214 exch2_iLo(3,213)=35 exch2_iHi(3,213)=35 exch2_jLo(3,213)=0 exch2_jHi(3,213)=103 exch2_opposingSend(3,213)=4 exch2_pij(1,3,213)=1 exch2_pij(2,3,213)=0 exch2_pij(3,3,213)=0 exch2_pij(4,3,213)=1 exch2_oi(3,213)=0 exch2_oj(3,213)=0 exch2_neighbourId(4,213)=212 exch2_iLo(4,213)=0 exch2_iHi(4,213)=0 exch2_jLo(4,213)=0 exch2_jHi(4,213)=103 exch2_opposingSend(4,213)=3 exch2_pij(1,4,213)=1 exch2_pij(2,4,213)=0 exch2_pij(3,4,213)=0 exch2_pij(4,4,213)=1 exch2_oi(4,213)=0 exch2_oj(4,213)=0 RETURN END SUBROUTINE W2_E2SETUP_214 C Topology for tile 214 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(214)=34 exch2_tNy(214)=102 exch2_tBasex(214)=102 exch2_tBasey(214)=408 exch2_txGlobalo(214)=1123 exch2_tyGlobalo(214)=409 exch2_isWedge(214)=0 exch2_isNedge(214)=1 exch2_isEedge(214)=0 exch2_isSedge(214)=0 exch2_myFace(214)=3 exch2_mydNx(214)=510 exch2_mydNy(214)=510 exch2_nNeighbours(214)=4 exch2_neighbourId(1,214)=346 exch2_iLo(1,214)=0 exch2_iHi(1,214)=35 exch2_jLo(1,214)=103 exch2_jHi(1,214)=103 exch2_opposingSend(1,214)=4 exch2_pij(1,1,214)=0 exch2_pij(2,1,214)=-1 exch2_pij(3,1,214)=1 exch2_pij(4,1,214)=0 exch2_oi(1,214)=511 exch2_oj(1,214)=510 exch2_neighbourId(2,214)=199 exch2_iLo(2,214)=0 exch2_iHi(2,214)=35 exch2_jLo(2,214)=0 exch2_jHi(2,214)=0 exch2_opposingSend(2,214)=1 exch2_pij(1,2,214)=1 exch2_pij(2,2,214)=0 exch2_pij(3,2,214)=0 exch2_pij(4,2,214)=1 exch2_oi(2,214)=0 exch2_oj(2,214)=0 exch2_neighbourId(3,214)=215 exch2_iLo(3,214)=35 exch2_iHi(3,214)=35 exch2_jLo(3,214)=0 exch2_jHi(3,214)=103 exch2_opposingSend(3,214)=4 exch2_pij(1,3,214)=1 exch2_pij(2,3,214)=0 exch2_pij(3,3,214)=0 exch2_pij(4,3,214)=1 exch2_oi(3,214)=0 exch2_oj(3,214)=0 exch2_neighbourId(4,214)=213 exch2_iLo(4,214)=0 exch2_iHi(4,214)=0 exch2_jLo(4,214)=0 exch2_jHi(4,214)=103 exch2_opposingSend(4,214)=3 exch2_pij(1,4,214)=1 exch2_pij(2,4,214)=0 exch2_pij(3,4,214)=0 exch2_pij(4,4,214)=1 exch2_oi(4,214)=0 exch2_oj(4,214)=0 RETURN END SUBROUTINE W2_E2SETUP_215 C Topology for tile 215 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(215)=34 exch2_tNy(215)=102 exch2_tBasex(215)=136 exch2_tBasey(215)=408 exch2_txGlobalo(215)=1157 exch2_tyGlobalo(215)=409 exch2_isWedge(215)=0 exch2_isNedge(215)=1 exch2_isEedge(215)=0 exch2_isSedge(215)=0 exch2_myFace(215)=3 exch2_mydNx(215)=510 exch2_mydNy(215)=510 exch2_nNeighbours(215)=4 exch2_neighbourId(1,215)=346 exch2_iLo(1,215)=0 exch2_iHi(1,215)=35 exch2_jLo(1,215)=103 exch2_jHi(1,215)=103 exch2_opposingSend(1,215)=5 exch2_pij(1,1,215)=0 exch2_pij(2,1,215)=-1 exch2_pij(3,1,215)=1 exch2_pij(4,1,215)=0 exch2_oi(1,215)=511 exch2_oj(1,215)=510 exch2_neighbourId(2,215)=200 exch2_iLo(2,215)=0 exch2_iHi(2,215)=35 exch2_jLo(2,215)=0 exch2_jHi(2,215)=0 exch2_opposingSend(2,215)=1 exch2_pij(1,2,215)=1 exch2_pij(2,2,215)=0 exch2_pij(3,2,215)=0 exch2_pij(4,2,215)=1 exch2_oi(2,215)=0 exch2_oj(2,215)=0 exch2_neighbourId(3,215)=216 exch2_iLo(3,215)=35 exch2_iHi(3,215)=35 exch2_jLo(3,215)=0 exch2_jHi(3,215)=103 exch2_opposingSend(3,215)=4 exch2_pij(1,3,215)=1 exch2_pij(2,3,215)=0 exch2_pij(3,3,215)=0 exch2_pij(4,3,215)=1 exch2_oi(3,215)=0 exch2_oj(3,215)=0 exch2_neighbourId(4,215)=214 exch2_iLo(4,215)=0 exch2_iHi(4,215)=0 exch2_jLo(4,215)=0 exch2_jHi(4,215)=103 exch2_opposingSend(4,215)=3 exch2_pij(1,4,215)=1 exch2_pij(2,4,215)=0 exch2_pij(3,4,215)=0 exch2_pij(4,4,215)=1 exch2_oi(4,215)=0 exch2_oj(4,215)=0 RETURN END SUBROUTINE W2_E2SETUP_216 C Topology for tile 216 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(216)=34 exch2_tNy(216)=102 exch2_tBasex(216)=170 exch2_tBasey(216)=408 exch2_txGlobalo(216)=1191 exch2_tyGlobalo(216)=409 exch2_isWedge(216)=0 exch2_isNedge(216)=1 exch2_isEedge(216)=0 exch2_isSedge(216)=0 exch2_myFace(216)=3 exch2_mydNx(216)=510 exch2_mydNy(216)=510 exch2_nNeighbours(216)=4 exch2_neighbourId(1,216)=346 exch2_iLo(1,216)=0 exch2_iHi(1,216)=35 exch2_jLo(1,216)=103 exch2_jHi(1,216)=103 exch2_opposingSend(1,216)=6 exch2_pij(1,1,216)=0 exch2_pij(2,1,216)=-1 exch2_pij(3,1,216)=1 exch2_pij(4,1,216)=0 exch2_oi(1,216)=511 exch2_oj(1,216)=510 exch2_neighbourId(2,216)=201 exch2_iLo(2,216)=0 exch2_iHi(2,216)=35 exch2_jLo(2,216)=0 exch2_jHi(2,216)=0 exch2_opposingSend(2,216)=1 exch2_pij(1,2,216)=1 exch2_pij(2,2,216)=0 exch2_pij(3,2,216)=0 exch2_pij(4,2,216)=1 exch2_oi(2,216)=0 exch2_oj(2,216)=0 exch2_neighbourId(3,216)=217 exch2_iLo(3,216)=35 exch2_iHi(3,216)=35 exch2_jLo(3,216)=0 exch2_jHi(3,216)=103 exch2_opposingSend(3,216)=4 exch2_pij(1,3,216)=1 exch2_pij(2,3,216)=0 exch2_pij(3,3,216)=0 exch2_pij(4,3,216)=1 exch2_oi(3,216)=0 exch2_oj(3,216)=0 exch2_neighbourId(4,216)=215 exch2_iLo(4,216)=0 exch2_iHi(4,216)=0 exch2_jLo(4,216)=0 exch2_jHi(4,216)=103 exch2_opposingSend(4,216)=3 exch2_pij(1,4,216)=1 exch2_pij(2,4,216)=0 exch2_pij(3,4,216)=0 exch2_pij(4,4,216)=1 exch2_oi(4,216)=0 exch2_oj(4,216)=0 RETURN END SUBROUTINE W2_E2SETUP_217 C Topology for tile 217 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(217)=34 exch2_tNy(217)=102 exch2_tBasex(217)=204 exch2_tBasey(217)=408 exch2_txGlobalo(217)=1225 exch2_tyGlobalo(217)=409 exch2_isWedge(217)=0 exch2_isNedge(217)=1 exch2_isEedge(217)=0 exch2_isSedge(217)=0 exch2_myFace(217)=3 exch2_mydNx(217)=510 exch2_mydNy(217)=510 exch2_nNeighbours(217)=4 exch2_neighbourId(1,217)=331 exch2_iLo(1,217)=0 exch2_iHi(1,217)=35 exch2_jLo(1,217)=103 exch2_jHi(1,217)=103 exch2_opposingSend(1,217)=4 exch2_pij(1,1,217)=0 exch2_pij(2,1,217)=-1 exch2_pij(3,1,217)=1 exch2_pij(4,1,217)=0 exch2_oi(1,217)=511 exch2_oj(1,217)=510 exch2_neighbourId(2,217)=202 exch2_iLo(2,217)=0 exch2_iHi(2,217)=35 exch2_jLo(2,217)=0 exch2_jHi(2,217)=0 exch2_opposingSend(2,217)=1 exch2_pij(1,2,217)=1 exch2_pij(2,2,217)=0 exch2_pij(3,2,217)=0 exch2_pij(4,2,217)=1 exch2_oi(2,217)=0 exch2_oj(2,217)=0 exch2_neighbourId(3,217)=218 exch2_iLo(3,217)=35 exch2_iHi(3,217)=35 exch2_jLo(3,217)=0 exch2_jHi(3,217)=103 exch2_opposingSend(3,217)=4 exch2_pij(1,3,217)=1 exch2_pij(2,3,217)=0 exch2_pij(3,3,217)=0 exch2_pij(4,3,217)=1 exch2_oi(3,217)=0 exch2_oj(3,217)=0 exch2_neighbourId(4,217)=216 exch2_iLo(4,217)=0 exch2_iHi(4,217)=0 exch2_jLo(4,217)=0 exch2_jHi(4,217)=103 exch2_opposingSend(4,217)=3 exch2_pij(1,4,217)=1 exch2_pij(2,4,217)=0 exch2_pij(3,4,217)=0 exch2_pij(4,4,217)=1 exch2_oi(4,217)=0 exch2_oj(4,217)=0 RETURN END SUBROUTINE W2_E2SETUP_218 C Topology for tile 218 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(218)=34 exch2_tNy(218)=102 exch2_tBasex(218)=238 exch2_tBasey(218)=408 exch2_txGlobalo(218)=1259 exch2_tyGlobalo(218)=409 exch2_isWedge(218)=0 exch2_isNedge(218)=1 exch2_isEedge(218)=0 exch2_isSedge(218)=0 exch2_myFace(218)=3 exch2_mydNx(218)=510 exch2_mydNy(218)=510 exch2_nNeighbours(218)=4 exch2_neighbourId(1,218)=331 exch2_iLo(1,218)=0 exch2_iHi(1,218)=35 exch2_jLo(1,218)=103 exch2_jHi(1,218)=103 exch2_opposingSend(1,218)=5 exch2_pij(1,1,218)=0 exch2_pij(2,1,218)=-1 exch2_pij(3,1,218)=1 exch2_pij(4,1,218)=0 exch2_oi(1,218)=511 exch2_oj(1,218)=510 exch2_neighbourId(2,218)=203 exch2_iLo(2,218)=0 exch2_iHi(2,218)=35 exch2_jLo(2,218)=0 exch2_jHi(2,218)=0 exch2_opposingSend(2,218)=1 exch2_pij(1,2,218)=1 exch2_pij(2,2,218)=0 exch2_pij(3,2,218)=0 exch2_pij(4,2,218)=1 exch2_oi(2,218)=0 exch2_oj(2,218)=0 exch2_neighbourId(3,218)=219 exch2_iLo(3,218)=35 exch2_iHi(3,218)=35 exch2_jLo(3,218)=0 exch2_jHi(3,218)=103 exch2_opposingSend(3,218)=4 exch2_pij(1,3,218)=1 exch2_pij(2,3,218)=0 exch2_pij(3,3,218)=0 exch2_pij(4,3,218)=1 exch2_oi(3,218)=0 exch2_oj(3,218)=0 exch2_neighbourId(4,218)=217 exch2_iLo(4,218)=0 exch2_iHi(4,218)=0 exch2_jLo(4,218)=0 exch2_jHi(4,218)=103 exch2_opposingSend(4,218)=3 exch2_pij(1,4,218)=1 exch2_pij(2,4,218)=0 exch2_pij(3,4,218)=0 exch2_pij(4,4,218)=1 exch2_oi(4,218)=0 exch2_oj(4,218)=0 RETURN END SUBROUTINE W2_E2SETUP_219 C Topology for tile 219 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(219)=34 exch2_tNy(219)=102 exch2_tBasex(219)=272 exch2_tBasey(219)=408 exch2_txGlobalo(219)=1293 exch2_tyGlobalo(219)=409 exch2_isWedge(219)=0 exch2_isNedge(219)=1 exch2_isEedge(219)=0 exch2_isSedge(219)=0 exch2_myFace(219)=3 exch2_mydNx(219)=510 exch2_mydNy(219)=510 exch2_nNeighbours(219)=4 exch2_neighbourId(1,219)=331 exch2_iLo(1,219)=0 exch2_iHi(1,219)=35 exch2_jLo(1,219)=103 exch2_jHi(1,219)=103 exch2_opposingSend(1,219)=6 exch2_pij(1,1,219)=0 exch2_pij(2,1,219)=-1 exch2_pij(3,1,219)=1 exch2_pij(4,1,219)=0 exch2_oi(1,219)=511 exch2_oj(1,219)=510 exch2_neighbourId(2,219)=204 exch2_iLo(2,219)=0 exch2_iHi(2,219)=35 exch2_jLo(2,219)=0 exch2_jHi(2,219)=0 exch2_opposingSend(2,219)=1 exch2_pij(1,2,219)=1 exch2_pij(2,2,219)=0 exch2_pij(3,2,219)=0 exch2_pij(4,2,219)=1 exch2_oi(2,219)=0 exch2_oj(2,219)=0 exch2_neighbourId(3,219)=220 exch2_iLo(3,219)=35 exch2_iHi(3,219)=35 exch2_jLo(3,219)=0 exch2_jHi(3,219)=103 exch2_opposingSend(3,219)=4 exch2_pij(1,3,219)=1 exch2_pij(2,3,219)=0 exch2_pij(3,3,219)=0 exch2_pij(4,3,219)=1 exch2_oi(3,219)=0 exch2_oj(3,219)=0 exch2_neighbourId(4,219)=218 exch2_iLo(4,219)=0 exch2_iHi(4,219)=0 exch2_jLo(4,219)=0 exch2_jHi(4,219)=103 exch2_opposingSend(4,219)=3 exch2_pij(1,4,219)=1 exch2_pij(2,4,219)=0 exch2_pij(3,4,219)=0 exch2_pij(4,4,219)=1 exch2_oi(4,219)=0 exch2_oj(4,219)=0 RETURN END SUBROUTINE W2_E2SETUP_220 C Topology for tile 220 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(220)=34 exch2_tNy(220)=102 exch2_tBasex(220)=306 exch2_tBasey(220)=408 exch2_txGlobalo(220)=1327 exch2_tyGlobalo(220)=409 exch2_isWedge(220)=0 exch2_isNedge(220)=1 exch2_isEedge(220)=0 exch2_isSedge(220)=0 exch2_myFace(220)=3 exch2_mydNx(220)=510 exch2_mydNy(220)=510 exch2_nNeighbours(220)=4 exch2_neighbourId(1,220)=316 exch2_iLo(1,220)=0 exch2_iHi(1,220)=35 exch2_jLo(1,220)=103 exch2_jHi(1,220)=103 exch2_opposingSend(1,220)=4 exch2_pij(1,1,220)=0 exch2_pij(2,1,220)=-1 exch2_pij(3,1,220)=1 exch2_pij(4,1,220)=0 exch2_oi(1,220)=511 exch2_oj(1,220)=510 exch2_neighbourId(2,220)=205 exch2_iLo(2,220)=0 exch2_iHi(2,220)=35 exch2_jLo(2,220)=0 exch2_jHi(2,220)=0 exch2_opposingSend(2,220)=1 exch2_pij(1,2,220)=1 exch2_pij(2,2,220)=0 exch2_pij(3,2,220)=0 exch2_pij(4,2,220)=1 exch2_oi(2,220)=0 exch2_oj(2,220)=0 exch2_neighbourId(3,220)=221 exch2_iLo(3,220)=35 exch2_iHi(3,220)=35 exch2_jLo(3,220)=0 exch2_jHi(3,220)=103 exch2_opposingSend(3,220)=4 exch2_pij(1,3,220)=1 exch2_pij(2,3,220)=0 exch2_pij(3,3,220)=0 exch2_pij(4,3,220)=1 exch2_oi(3,220)=0 exch2_oj(3,220)=0 exch2_neighbourId(4,220)=219 exch2_iLo(4,220)=0 exch2_iHi(4,220)=0 exch2_jLo(4,220)=0 exch2_jHi(4,220)=103 exch2_opposingSend(4,220)=3 exch2_pij(1,4,220)=1 exch2_pij(2,4,220)=0 exch2_pij(3,4,220)=0 exch2_pij(4,4,220)=1 exch2_oi(4,220)=0 exch2_oj(4,220)=0 RETURN END SUBROUTINE W2_E2SETUP_221 C Topology for tile 221 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(221)=34 exch2_tNy(221)=102 exch2_tBasex(221)=340 exch2_tBasey(221)=408 exch2_txGlobalo(221)=1361 exch2_tyGlobalo(221)=409 exch2_isWedge(221)=0 exch2_isNedge(221)=1 exch2_isEedge(221)=0 exch2_isSedge(221)=0 exch2_myFace(221)=3 exch2_mydNx(221)=510 exch2_mydNy(221)=510 exch2_nNeighbours(221)=4 exch2_neighbourId(1,221)=316 exch2_iLo(1,221)=0 exch2_iHi(1,221)=35 exch2_jLo(1,221)=103 exch2_jHi(1,221)=103 exch2_opposingSend(1,221)=5 exch2_pij(1,1,221)=0 exch2_pij(2,1,221)=-1 exch2_pij(3,1,221)=1 exch2_pij(4,1,221)=0 exch2_oi(1,221)=511 exch2_oj(1,221)=510 exch2_neighbourId(2,221)=206 exch2_iLo(2,221)=0 exch2_iHi(2,221)=35 exch2_jLo(2,221)=0 exch2_jHi(2,221)=0 exch2_opposingSend(2,221)=1 exch2_pij(1,2,221)=1 exch2_pij(2,2,221)=0 exch2_pij(3,2,221)=0 exch2_pij(4,2,221)=1 exch2_oi(2,221)=0 exch2_oj(2,221)=0 exch2_neighbourId(3,221)=222 exch2_iLo(3,221)=35 exch2_iHi(3,221)=35 exch2_jLo(3,221)=0 exch2_jHi(3,221)=103 exch2_opposingSend(3,221)=4 exch2_pij(1,3,221)=1 exch2_pij(2,3,221)=0 exch2_pij(3,3,221)=0 exch2_pij(4,3,221)=1 exch2_oi(3,221)=0 exch2_oj(3,221)=0 exch2_neighbourId(4,221)=220 exch2_iLo(4,221)=0 exch2_iHi(4,221)=0 exch2_jLo(4,221)=0 exch2_jHi(4,221)=103 exch2_opposingSend(4,221)=3 exch2_pij(1,4,221)=1 exch2_pij(2,4,221)=0 exch2_pij(3,4,221)=0 exch2_pij(4,4,221)=1 exch2_oi(4,221)=0 exch2_oj(4,221)=0 RETURN END SUBROUTINE W2_E2SETUP_222 C Topology for tile 222 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(222)=34 exch2_tNy(222)=102 exch2_tBasex(222)=374 exch2_tBasey(222)=408 exch2_txGlobalo(222)=1395 exch2_tyGlobalo(222)=409 exch2_isWedge(222)=0 exch2_isNedge(222)=1 exch2_isEedge(222)=0 exch2_isSedge(222)=0 exch2_myFace(222)=3 exch2_mydNx(222)=510 exch2_mydNy(222)=510 exch2_nNeighbours(222)=4 exch2_neighbourId(1,222)=316 exch2_iLo(1,222)=0 exch2_iHi(1,222)=35 exch2_jLo(1,222)=103 exch2_jHi(1,222)=103 exch2_opposingSend(1,222)=6 exch2_pij(1,1,222)=0 exch2_pij(2,1,222)=-1 exch2_pij(3,1,222)=1 exch2_pij(4,1,222)=0 exch2_oi(1,222)=511 exch2_oj(1,222)=510 exch2_neighbourId(2,222)=207 exch2_iLo(2,222)=0 exch2_iHi(2,222)=35 exch2_jLo(2,222)=0 exch2_jHi(2,222)=0 exch2_opposingSend(2,222)=1 exch2_pij(1,2,222)=1 exch2_pij(2,2,222)=0 exch2_pij(3,2,222)=0 exch2_pij(4,2,222)=1 exch2_oi(2,222)=0 exch2_oj(2,222)=0 exch2_neighbourId(3,222)=223 exch2_iLo(3,222)=35 exch2_iHi(3,222)=35 exch2_jLo(3,222)=0 exch2_jHi(3,222)=103 exch2_opposingSend(3,222)=4 exch2_pij(1,3,222)=1 exch2_pij(2,3,222)=0 exch2_pij(3,3,222)=0 exch2_pij(4,3,222)=1 exch2_oi(3,222)=0 exch2_oj(3,222)=0 exch2_neighbourId(4,222)=221 exch2_iLo(4,222)=0 exch2_iHi(4,222)=0 exch2_jLo(4,222)=0 exch2_jHi(4,222)=103 exch2_opposingSend(4,222)=3 exch2_pij(1,4,222)=1 exch2_pij(2,4,222)=0 exch2_pij(3,4,222)=0 exch2_pij(4,4,222)=1 exch2_oi(4,222)=0 exch2_oj(4,222)=0 RETURN END SUBROUTINE W2_E2SETUP_223 C Topology for tile 223 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(223)=34 exch2_tNy(223)=102 exch2_tBasex(223)=408 exch2_tBasey(223)=408 exch2_txGlobalo(223)=1429 exch2_tyGlobalo(223)=409 exch2_isWedge(223)=0 exch2_isNedge(223)=1 exch2_isEedge(223)=0 exch2_isSedge(223)=0 exch2_myFace(223)=3 exch2_mydNx(223)=510 exch2_mydNy(223)=510 exch2_nNeighbours(223)=4 exch2_neighbourId(1,223)=301 exch2_iLo(1,223)=0 exch2_iHi(1,223)=35 exch2_jLo(1,223)=103 exch2_jHi(1,223)=103 exch2_opposingSend(1,223)=4 exch2_pij(1,1,223)=0 exch2_pij(2,1,223)=-1 exch2_pij(3,1,223)=1 exch2_pij(4,1,223)=0 exch2_oi(1,223)=511 exch2_oj(1,223)=510 exch2_neighbourId(2,223)=208 exch2_iLo(2,223)=0 exch2_iHi(2,223)=35 exch2_jLo(2,223)=0 exch2_jHi(2,223)=0 exch2_opposingSend(2,223)=1 exch2_pij(1,2,223)=1 exch2_pij(2,2,223)=0 exch2_pij(3,2,223)=0 exch2_pij(4,2,223)=1 exch2_oi(2,223)=0 exch2_oj(2,223)=0 exch2_neighbourId(3,223)=224 exch2_iLo(3,223)=35 exch2_iHi(3,223)=35 exch2_jLo(3,223)=0 exch2_jHi(3,223)=103 exch2_opposingSend(3,223)=4 exch2_pij(1,3,223)=1 exch2_pij(2,3,223)=0 exch2_pij(3,3,223)=0 exch2_pij(4,3,223)=1 exch2_oi(3,223)=0 exch2_oj(3,223)=0 exch2_neighbourId(4,223)=222 exch2_iLo(4,223)=0 exch2_iHi(4,223)=0 exch2_jLo(4,223)=0 exch2_jHi(4,223)=103 exch2_opposingSend(4,223)=3 exch2_pij(1,4,223)=1 exch2_pij(2,4,223)=0 exch2_pij(3,4,223)=0 exch2_pij(4,4,223)=1 exch2_oi(4,223)=0 exch2_oj(4,223)=0 RETURN END SUBROUTINE W2_E2SETUP_224 C Topology for tile 224 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(224)=34 exch2_tNy(224)=102 exch2_tBasex(224)=442 exch2_tBasey(224)=408 exch2_txGlobalo(224)=1463 exch2_tyGlobalo(224)=409 exch2_isWedge(224)=0 exch2_isNedge(224)=1 exch2_isEedge(224)=0 exch2_isSedge(224)=0 exch2_myFace(224)=3 exch2_mydNx(224)=510 exch2_mydNy(224)=510 exch2_nNeighbours(224)=4 exch2_neighbourId(1,224)=301 exch2_iLo(1,224)=0 exch2_iHi(1,224)=35 exch2_jLo(1,224)=103 exch2_jHi(1,224)=103 exch2_opposingSend(1,224)=5 exch2_pij(1,1,224)=0 exch2_pij(2,1,224)=-1 exch2_pij(3,1,224)=1 exch2_pij(4,1,224)=0 exch2_oi(1,224)=511 exch2_oj(1,224)=510 exch2_neighbourId(2,224)=209 exch2_iLo(2,224)=0 exch2_iHi(2,224)=35 exch2_jLo(2,224)=0 exch2_jHi(2,224)=0 exch2_opposingSend(2,224)=1 exch2_pij(1,2,224)=1 exch2_pij(2,2,224)=0 exch2_pij(3,2,224)=0 exch2_pij(4,2,224)=1 exch2_oi(2,224)=0 exch2_oj(2,224)=0 exch2_neighbourId(3,224)=225 exch2_iLo(3,224)=35 exch2_iHi(3,224)=35 exch2_jLo(3,224)=0 exch2_jHi(3,224)=103 exch2_opposingSend(3,224)=4 exch2_pij(1,3,224)=1 exch2_pij(2,3,224)=0 exch2_pij(3,3,224)=0 exch2_pij(4,3,224)=1 exch2_oi(3,224)=0 exch2_oj(3,224)=0 exch2_neighbourId(4,224)=223 exch2_iLo(4,224)=0 exch2_iHi(4,224)=0 exch2_jLo(4,224)=0 exch2_jHi(4,224)=103 exch2_opposingSend(4,224)=3 exch2_pij(1,4,224)=1 exch2_pij(2,4,224)=0 exch2_pij(3,4,224)=0 exch2_pij(4,4,224)=1 exch2_oi(4,224)=0 exch2_oj(4,224)=0 RETURN END SUBROUTINE W2_E2SETUP_225 C Topology for tile 225 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(225)=34 exch2_tNy(225)=102 exch2_tBasex(225)=476 exch2_tBasey(225)=408 exch2_txGlobalo(225)=1497 exch2_tyGlobalo(225)=409 exch2_isWedge(225)=0 exch2_isNedge(225)=1 exch2_isEedge(225)=1 exch2_isSedge(225)=0 exch2_myFace(225)=3 exch2_mydNx(225)=510 exch2_mydNy(225)=510 exch2_nNeighbours(225)=4 exch2_neighbourId(1,225)=301 exch2_iLo(1,225)=0 exch2_iHi(1,225)=35 exch2_jLo(1,225)=103 exch2_jHi(1,225)=103 exch2_opposingSend(1,225)=6 exch2_pij(1,1,225)=0 exch2_pij(2,1,225)=-1 exch2_pij(3,1,225)=1 exch2_pij(4,1,225)=0 exch2_oi(1,225)=511 exch2_oj(1,225)=510 exch2_neighbourId(2,225)=210 exch2_iLo(2,225)=0 exch2_iHi(2,225)=35 exch2_jLo(2,225)=0 exch2_jHi(2,225)=0 exch2_opposingSend(2,225)=1 exch2_pij(1,2,225)=1 exch2_pij(2,2,225)=0 exch2_pij(3,2,225)=0 exch2_pij(4,2,225)=1 exch2_oi(2,225)=0 exch2_oj(2,225)=0 exch2_neighbourId(3,225)=286 exch2_iLo(3,225)=35 exch2_iHi(3,225)=35 exch2_jLo(3,225)=0 exch2_jHi(3,225)=103 exch2_opposingSend(3,225)=4 exch2_pij(1,3,225)=1 exch2_pij(2,3,225)=0 exch2_pij(3,3,225)=0 exch2_pij(4,3,225)=1 exch2_oi(3,225)=510 exch2_oj(3,225)=0 exch2_neighbourId(4,225)=224 exch2_iLo(4,225)=0 exch2_iHi(4,225)=0 exch2_jLo(4,225)=0 exch2_jHi(4,225)=103 exch2_opposingSend(4,225)=3 exch2_pij(1,4,225)=1 exch2_pij(2,4,225)=0 exch2_pij(3,4,225)=0 exch2_pij(4,4,225)=1 exch2_oi(4,225)=0 exch2_oj(4,225)=0 RETURN END SUBROUTINE W2_E2SETUP_226 C Topology for tile 226 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(226)=34 exch2_tNy(226)=102 exch2_tBasex(226)=0 exch2_tBasey(226)=0 exch2_txGlobalo(226)=1531 exch2_tyGlobalo(226)=1 exch2_isWedge(226)=1 exch2_isNedge(226)=0 exch2_isEedge(226)=0 exch2_isSedge(226)=1 exch2_myFace(226)=4 exch2_mydNx(226)=510 exch2_mydNy(226)=510 exch2_nNeighbours(226)=4 exch2_neighbourId(1,226)=241 exch2_iLo(1,226)=0 exch2_iHi(1,226)=35 exch2_jLo(1,226)=103 exch2_jHi(1,226)=103 exch2_opposingSend(1,226)=2 exch2_pij(1,1,226)=1 exch2_pij(2,1,226)=0 exch2_pij(3,1,226)=0 exch2_pij(4,1,226)=1 exch2_oi(1,226)=0 exch2_oj(1,226)=0 exch2_neighbourId(2,226)=150 exch2_iLo(2,226)=0 exch2_iHi(2,226)=35 exch2_jLo(2,226)=0 exch2_jHi(2,226)=0 exch2_opposingSend(2,226)=3 exch2_pij(1,2,226)=0 exch2_pij(2,2,226)=-1 exch2_pij(3,2,226)=1 exch2_pij(4,2,226)=0 exch2_oi(2,226)=511 exch2_oj(2,226)=-510 exch2_neighbourId(3,226)=227 exch2_iLo(3,226)=35 exch2_iHi(3,226)=35 exch2_jLo(3,226)=0 exch2_jHi(3,226)=103 exch2_opposingSend(3,226)=4 exch2_pij(1,3,226)=1 exch2_pij(2,3,226)=0 exch2_pij(3,3,226)=0 exch2_pij(4,3,226)=1 exch2_oi(3,226)=0 exch2_oj(3,226)=0 exch2_neighbourId(4,226)=165 exch2_iLo(4,226)=0 exch2_iHi(4,226)=0 exch2_jLo(4,226)=0 exch2_jHi(4,226)=103 exch2_opposingSend(4,226)=3 exch2_pij(1,4,226)=1 exch2_pij(2,4,226)=0 exch2_pij(3,4,226)=0 exch2_pij(4,4,226)=1 exch2_oi(4,226)=-510 exch2_oj(4,226)=0 RETURN END SUBROUTINE W2_E2SETUP_227 C Topology for tile 227 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(227)=34 exch2_tNy(227)=102 exch2_tBasex(227)=34 exch2_tBasey(227)=0 exch2_txGlobalo(227)=1565 exch2_tyGlobalo(227)=1 exch2_isWedge(227)=0 exch2_isNedge(227)=0 exch2_isEedge(227)=0 exch2_isSedge(227)=1 exch2_myFace(227)=4 exch2_mydNx(227)=510 exch2_mydNy(227)=510 exch2_nNeighbours(227)=4 exch2_neighbourId(1,227)=242 exch2_iLo(1,227)=0 exch2_iHi(1,227)=35 exch2_jLo(1,227)=103 exch2_jHi(1,227)=103 exch2_opposingSend(1,227)=2 exch2_pij(1,1,227)=1 exch2_pij(2,1,227)=0 exch2_pij(3,1,227)=0 exch2_pij(4,1,227)=1 exch2_oi(1,227)=0 exch2_oj(1,227)=0 exch2_neighbourId(2,227)=150 exch2_iLo(2,227)=0 exch2_iHi(2,227)=35 exch2_jLo(2,227)=0 exch2_jHi(2,227)=0 exch2_opposingSend(2,227)=4 exch2_pij(1,2,227)=0 exch2_pij(2,2,227)=-1 exch2_pij(3,2,227)=1 exch2_pij(4,2,227)=0 exch2_oi(2,227)=511 exch2_oj(2,227)=-510 exch2_neighbourId(3,227)=228 exch2_iLo(3,227)=35 exch2_iHi(3,227)=35 exch2_jLo(3,227)=0 exch2_jHi(3,227)=103 exch2_opposingSend(3,227)=4 exch2_pij(1,3,227)=1 exch2_pij(2,3,227)=0 exch2_pij(3,3,227)=0 exch2_pij(4,3,227)=1 exch2_oi(3,227)=0 exch2_oj(3,227)=0 exch2_neighbourId(4,227)=226 exch2_iLo(4,227)=0 exch2_iHi(4,227)=0 exch2_jLo(4,227)=0 exch2_jHi(4,227)=103 exch2_opposingSend(4,227)=3 exch2_pij(1,4,227)=1 exch2_pij(2,4,227)=0 exch2_pij(3,4,227)=0 exch2_pij(4,4,227)=1 exch2_oi(4,227)=0 exch2_oj(4,227)=0 RETURN END SUBROUTINE W2_E2SETUP_228 C Topology for tile 228 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(228)=34 exch2_tNy(228)=102 exch2_tBasex(228)=68 exch2_tBasey(228)=0 exch2_txGlobalo(228)=1599 exch2_tyGlobalo(228)=1 exch2_isWedge(228)=0 exch2_isNedge(228)=0 exch2_isEedge(228)=0 exch2_isSedge(228)=1 exch2_myFace(228)=4 exch2_mydNx(228)=510 exch2_mydNy(228)=510 exch2_nNeighbours(228)=4 exch2_neighbourId(1,228)=243 exch2_iLo(1,228)=0 exch2_iHi(1,228)=35 exch2_jLo(1,228)=103 exch2_jHi(1,228)=103 exch2_opposingSend(1,228)=2 exch2_pij(1,1,228)=1 exch2_pij(2,1,228)=0 exch2_pij(3,1,228)=0 exch2_pij(4,1,228)=1 exch2_oi(1,228)=0 exch2_oj(1,228)=0 exch2_neighbourId(2,228)=150 exch2_iLo(2,228)=0 exch2_iHi(2,228)=35 exch2_jLo(2,228)=0 exch2_jHi(2,228)=0 exch2_opposingSend(2,228)=5 exch2_pij(1,2,228)=0 exch2_pij(2,2,228)=-1 exch2_pij(3,2,228)=1 exch2_pij(4,2,228)=0 exch2_oi(2,228)=511 exch2_oj(2,228)=-510 exch2_neighbourId(3,228)=229 exch2_iLo(3,228)=35 exch2_iHi(3,228)=35 exch2_jLo(3,228)=0 exch2_jHi(3,228)=103 exch2_opposingSend(3,228)=4 exch2_pij(1,3,228)=1 exch2_pij(2,3,228)=0 exch2_pij(3,3,228)=0 exch2_pij(4,3,228)=1 exch2_oi(3,228)=0 exch2_oj(3,228)=0 exch2_neighbourId(4,228)=227 exch2_iLo(4,228)=0 exch2_iHi(4,228)=0 exch2_jLo(4,228)=0 exch2_jHi(4,228)=103 exch2_opposingSend(4,228)=3 exch2_pij(1,4,228)=1 exch2_pij(2,4,228)=0 exch2_pij(3,4,228)=0 exch2_pij(4,4,228)=1 exch2_oi(4,228)=0 exch2_oj(4,228)=0 RETURN END SUBROUTINE W2_E2SETUP_229 C Topology for tile 229 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(229)=34 exch2_tNy(229)=102 exch2_tBasex(229)=102 exch2_tBasey(229)=0 exch2_txGlobalo(229)=1633 exch2_tyGlobalo(229)=1 exch2_isWedge(229)=0 exch2_isNedge(229)=0 exch2_isEedge(229)=0 exch2_isSedge(229)=1 exch2_myFace(229)=4 exch2_mydNx(229)=510 exch2_mydNy(229)=510 exch2_nNeighbours(229)=4 exch2_neighbourId(1,229)=244 exch2_iLo(1,229)=0 exch2_iHi(1,229)=35 exch2_jLo(1,229)=103 exch2_jHi(1,229)=103 exch2_opposingSend(1,229)=2 exch2_pij(1,1,229)=1 exch2_pij(2,1,229)=0 exch2_pij(3,1,229)=0 exch2_pij(4,1,229)=1 exch2_oi(1,229)=0 exch2_oj(1,229)=0 exch2_neighbourId(2,229)=135 exch2_iLo(2,229)=0 exch2_iHi(2,229)=35 exch2_jLo(2,229)=0 exch2_jHi(2,229)=0 exch2_opposingSend(2,229)=3 exch2_pij(1,2,229)=0 exch2_pij(2,2,229)=-1 exch2_pij(3,2,229)=1 exch2_pij(4,2,229)=0 exch2_oi(2,229)=511 exch2_oj(2,229)=-510 exch2_neighbourId(3,229)=230 exch2_iLo(3,229)=35 exch2_iHi(3,229)=35 exch2_jLo(3,229)=0 exch2_jHi(3,229)=103 exch2_opposingSend(3,229)=4 exch2_pij(1,3,229)=1 exch2_pij(2,3,229)=0 exch2_pij(3,3,229)=0 exch2_pij(4,3,229)=1 exch2_oi(3,229)=0 exch2_oj(3,229)=0 exch2_neighbourId(4,229)=228 exch2_iLo(4,229)=0 exch2_iHi(4,229)=0 exch2_jLo(4,229)=0 exch2_jHi(4,229)=103 exch2_opposingSend(4,229)=3 exch2_pij(1,4,229)=1 exch2_pij(2,4,229)=0 exch2_pij(3,4,229)=0 exch2_pij(4,4,229)=1 exch2_oi(4,229)=0 exch2_oj(4,229)=0 RETURN END SUBROUTINE W2_E2SETUP_230 C Topology for tile 230 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(230)=34 exch2_tNy(230)=102 exch2_tBasex(230)=136 exch2_tBasey(230)=0 exch2_txGlobalo(230)=1667 exch2_tyGlobalo(230)=1 exch2_isWedge(230)=0 exch2_isNedge(230)=0 exch2_isEedge(230)=0 exch2_isSedge(230)=1 exch2_myFace(230)=4 exch2_mydNx(230)=510 exch2_mydNy(230)=510 exch2_nNeighbours(230)=4 exch2_neighbourId(1,230)=245 exch2_iLo(1,230)=0 exch2_iHi(1,230)=35 exch2_jLo(1,230)=103 exch2_jHi(1,230)=103 exch2_opposingSend(1,230)=2 exch2_pij(1,1,230)=1 exch2_pij(2,1,230)=0 exch2_pij(3,1,230)=0 exch2_pij(4,1,230)=1 exch2_oi(1,230)=0 exch2_oj(1,230)=0 exch2_neighbourId(2,230)=135 exch2_iLo(2,230)=0 exch2_iHi(2,230)=35 exch2_jLo(2,230)=0 exch2_jHi(2,230)=0 exch2_opposingSend(2,230)=4 exch2_pij(1,2,230)=0 exch2_pij(2,2,230)=-1 exch2_pij(3,2,230)=1 exch2_pij(4,2,230)=0 exch2_oi(2,230)=511 exch2_oj(2,230)=-510 exch2_neighbourId(3,230)=231 exch2_iLo(3,230)=35 exch2_iHi(3,230)=35 exch2_jLo(3,230)=0 exch2_jHi(3,230)=103 exch2_opposingSend(3,230)=4 exch2_pij(1,3,230)=1 exch2_pij(2,3,230)=0 exch2_pij(3,3,230)=0 exch2_pij(4,3,230)=1 exch2_oi(3,230)=0 exch2_oj(3,230)=0 exch2_neighbourId(4,230)=229 exch2_iLo(4,230)=0 exch2_iHi(4,230)=0 exch2_jLo(4,230)=0 exch2_jHi(4,230)=103 exch2_opposingSend(4,230)=3 exch2_pij(1,4,230)=1 exch2_pij(2,4,230)=0 exch2_pij(3,4,230)=0 exch2_pij(4,4,230)=1 exch2_oi(4,230)=0 exch2_oj(4,230)=0 RETURN END SUBROUTINE W2_E2SETUP_231 C Topology for tile 231 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(231)=34 exch2_tNy(231)=102 exch2_tBasex(231)=170 exch2_tBasey(231)=0 exch2_txGlobalo(231)=1701 exch2_tyGlobalo(231)=1 exch2_isWedge(231)=0 exch2_isNedge(231)=0 exch2_isEedge(231)=0 exch2_isSedge(231)=1 exch2_myFace(231)=4 exch2_mydNx(231)=510 exch2_mydNy(231)=510 exch2_nNeighbours(231)=4 exch2_neighbourId(1,231)=246 exch2_iLo(1,231)=0 exch2_iHi(1,231)=35 exch2_jLo(1,231)=103 exch2_jHi(1,231)=103 exch2_opposingSend(1,231)=2 exch2_pij(1,1,231)=1 exch2_pij(2,1,231)=0 exch2_pij(3,1,231)=0 exch2_pij(4,1,231)=1 exch2_oi(1,231)=0 exch2_oj(1,231)=0 exch2_neighbourId(2,231)=135 exch2_iLo(2,231)=0 exch2_iHi(2,231)=35 exch2_jLo(2,231)=0 exch2_jHi(2,231)=0 exch2_opposingSend(2,231)=5 exch2_pij(1,2,231)=0 exch2_pij(2,2,231)=-1 exch2_pij(3,2,231)=1 exch2_pij(4,2,231)=0 exch2_oi(2,231)=511 exch2_oj(2,231)=-510 exch2_neighbourId(3,231)=232 exch2_iLo(3,231)=35 exch2_iHi(3,231)=35 exch2_jLo(3,231)=0 exch2_jHi(3,231)=103 exch2_opposingSend(3,231)=4 exch2_pij(1,3,231)=1 exch2_pij(2,3,231)=0 exch2_pij(3,3,231)=0 exch2_pij(4,3,231)=1 exch2_oi(3,231)=0 exch2_oj(3,231)=0 exch2_neighbourId(4,231)=230 exch2_iLo(4,231)=0 exch2_iHi(4,231)=0 exch2_jLo(4,231)=0 exch2_jHi(4,231)=103 exch2_opposingSend(4,231)=3 exch2_pij(1,4,231)=1 exch2_pij(2,4,231)=0 exch2_pij(3,4,231)=0 exch2_pij(4,4,231)=1 exch2_oi(4,231)=0 exch2_oj(4,231)=0 RETURN END SUBROUTINE W2_E2SETUP_232 C Topology for tile 232 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(232)=34 exch2_tNy(232)=102 exch2_tBasex(232)=204 exch2_tBasey(232)=0 exch2_txGlobalo(232)=1735 exch2_tyGlobalo(232)=1 exch2_isWedge(232)=0 exch2_isNedge(232)=0 exch2_isEedge(232)=0 exch2_isSedge(232)=1 exch2_myFace(232)=4 exch2_mydNx(232)=510 exch2_mydNy(232)=510 exch2_nNeighbours(232)=4 exch2_neighbourId(1,232)=247 exch2_iLo(1,232)=0 exch2_iHi(1,232)=35 exch2_jLo(1,232)=103 exch2_jHi(1,232)=103 exch2_opposingSend(1,232)=2 exch2_pij(1,1,232)=1 exch2_pij(2,1,232)=0 exch2_pij(3,1,232)=0 exch2_pij(4,1,232)=1 exch2_oi(1,232)=0 exch2_oj(1,232)=0 exch2_neighbourId(2,232)=120 exch2_iLo(2,232)=0 exch2_iHi(2,232)=35 exch2_jLo(2,232)=0 exch2_jHi(2,232)=0 exch2_opposingSend(2,232)=3 exch2_pij(1,2,232)=0 exch2_pij(2,2,232)=-1 exch2_pij(3,2,232)=1 exch2_pij(4,2,232)=0 exch2_oi(2,232)=511 exch2_oj(2,232)=-510 exch2_neighbourId(3,232)=233 exch2_iLo(3,232)=35 exch2_iHi(3,232)=35 exch2_jLo(3,232)=0 exch2_jHi(3,232)=103 exch2_opposingSend(3,232)=4 exch2_pij(1,3,232)=1 exch2_pij(2,3,232)=0 exch2_pij(3,3,232)=0 exch2_pij(4,3,232)=1 exch2_oi(3,232)=0 exch2_oj(3,232)=0 exch2_neighbourId(4,232)=231 exch2_iLo(4,232)=0 exch2_iHi(4,232)=0 exch2_jLo(4,232)=0 exch2_jHi(4,232)=103 exch2_opposingSend(4,232)=3 exch2_pij(1,4,232)=1 exch2_pij(2,4,232)=0 exch2_pij(3,4,232)=0 exch2_pij(4,4,232)=1 exch2_oi(4,232)=0 exch2_oj(4,232)=0 RETURN END SUBROUTINE W2_E2SETUP_233 C Topology for tile 233 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(233)=34 exch2_tNy(233)=102 exch2_tBasex(233)=238 exch2_tBasey(233)=0 exch2_txGlobalo(233)=1769 exch2_tyGlobalo(233)=1 exch2_isWedge(233)=0 exch2_isNedge(233)=0 exch2_isEedge(233)=0 exch2_isSedge(233)=1 exch2_myFace(233)=4 exch2_mydNx(233)=510 exch2_mydNy(233)=510 exch2_nNeighbours(233)=4 exch2_neighbourId(1,233)=248 exch2_iLo(1,233)=0 exch2_iHi(1,233)=35 exch2_jLo(1,233)=103 exch2_jHi(1,233)=103 exch2_opposingSend(1,233)=2 exch2_pij(1,1,233)=1 exch2_pij(2,1,233)=0 exch2_pij(3,1,233)=0 exch2_pij(4,1,233)=1 exch2_oi(1,233)=0 exch2_oj(1,233)=0 exch2_neighbourId(2,233)=120 exch2_iLo(2,233)=0 exch2_iHi(2,233)=35 exch2_jLo(2,233)=0 exch2_jHi(2,233)=0 exch2_opposingSend(2,233)=4 exch2_pij(1,2,233)=0 exch2_pij(2,2,233)=-1 exch2_pij(3,2,233)=1 exch2_pij(4,2,233)=0 exch2_oi(2,233)=511 exch2_oj(2,233)=-510 exch2_neighbourId(3,233)=234 exch2_iLo(3,233)=35 exch2_iHi(3,233)=35 exch2_jLo(3,233)=0 exch2_jHi(3,233)=103 exch2_opposingSend(3,233)=4 exch2_pij(1,3,233)=1 exch2_pij(2,3,233)=0 exch2_pij(3,3,233)=0 exch2_pij(4,3,233)=1 exch2_oi(3,233)=0 exch2_oj(3,233)=0 exch2_neighbourId(4,233)=232 exch2_iLo(4,233)=0 exch2_iHi(4,233)=0 exch2_jLo(4,233)=0 exch2_jHi(4,233)=103 exch2_opposingSend(4,233)=3 exch2_pij(1,4,233)=1 exch2_pij(2,4,233)=0 exch2_pij(3,4,233)=0 exch2_pij(4,4,233)=1 exch2_oi(4,233)=0 exch2_oj(4,233)=0 RETURN END SUBROUTINE W2_E2SETUP_234 C Topology for tile 234 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(234)=34 exch2_tNy(234)=102 exch2_tBasex(234)=272 exch2_tBasey(234)=0 exch2_txGlobalo(234)=1803 exch2_tyGlobalo(234)=1 exch2_isWedge(234)=0 exch2_isNedge(234)=0 exch2_isEedge(234)=0 exch2_isSedge(234)=1 exch2_myFace(234)=4 exch2_mydNx(234)=510 exch2_mydNy(234)=510 exch2_nNeighbours(234)=4 exch2_neighbourId(1,234)=249 exch2_iLo(1,234)=0 exch2_iHi(1,234)=35 exch2_jLo(1,234)=103 exch2_jHi(1,234)=103 exch2_opposingSend(1,234)=2 exch2_pij(1,1,234)=1 exch2_pij(2,1,234)=0 exch2_pij(3,1,234)=0 exch2_pij(4,1,234)=1 exch2_oi(1,234)=0 exch2_oj(1,234)=0 exch2_neighbourId(2,234)=120 exch2_iLo(2,234)=0 exch2_iHi(2,234)=35 exch2_jLo(2,234)=0 exch2_jHi(2,234)=0 exch2_opposingSend(2,234)=5 exch2_pij(1,2,234)=0 exch2_pij(2,2,234)=-1 exch2_pij(3,2,234)=1 exch2_pij(4,2,234)=0 exch2_oi(2,234)=511 exch2_oj(2,234)=-510 exch2_neighbourId(3,234)=235 exch2_iLo(3,234)=35 exch2_iHi(3,234)=35 exch2_jLo(3,234)=0 exch2_jHi(3,234)=103 exch2_opposingSend(3,234)=4 exch2_pij(1,3,234)=1 exch2_pij(2,3,234)=0 exch2_pij(3,3,234)=0 exch2_pij(4,3,234)=1 exch2_oi(3,234)=0 exch2_oj(3,234)=0 exch2_neighbourId(4,234)=233 exch2_iLo(4,234)=0 exch2_iHi(4,234)=0 exch2_jLo(4,234)=0 exch2_jHi(4,234)=103 exch2_opposingSend(4,234)=3 exch2_pij(1,4,234)=1 exch2_pij(2,4,234)=0 exch2_pij(3,4,234)=0 exch2_pij(4,4,234)=1 exch2_oi(4,234)=0 exch2_oj(4,234)=0 RETURN END SUBROUTINE W2_E2SETUP_235 C Topology for tile 235 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(235)=34 exch2_tNy(235)=102 exch2_tBasex(235)=306 exch2_tBasey(235)=0 exch2_txGlobalo(235)=1837 exch2_tyGlobalo(235)=1 exch2_isWedge(235)=0 exch2_isNedge(235)=0 exch2_isEedge(235)=0 exch2_isSedge(235)=1 exch2_myFace(235)=4 exch2_mydNx(235)=510 exch2_mydNy(235)=510 exch2_nNeighbours(235)=4 exch2_neighbourId(1,235)=250 exch2_iLo(1,235)=0 exch2_iHi(1,235)=35 exch2_jLo(1,235)=103 exch2_jHi(1,235)=103 exch2_opposingSend(1,235)=2 exch2_pij(1,1,235)=1 exch2_pij(2,1,235)=0 exch2_pij(3,1,235)=0 exch2_pij(4,1,235)=1 exch2_oi(1,235)=0 exch2_oj(1,235)=0 exch2_neighbourId(2,235)=105 exch2_iLo(2,235)=0 exch2_iHi(2,235)=35 exch2_jLo(2,235)=0 exch2_jHi(2,235)=0 exch2_opposingSend(2,235)=3 exch2_pij(1,2,235)=0 exch2_pij(2,2,235)=-1 exch2_pij(3,2,235)=1 exch2_pij(4,2,235)=0 exch2_oi(2,235)=511 exch2_oj(2,235)=-510 exch2_neighbourId(3,235)=236 exch2_iLo(3,235)=35 exch2_iHi(3,235)=35 exch2_jLo(3,235)=0 exch2_jHi(3,235)=103 exch2_opposingSend(3,235)=4 exch2_pij(1,3,235)=1 exch2_pij(2,3,235)=0 exch2_pij(3,3,235)=0 exch2_pij(4,3,235)=1 exch2_oi(3,235)=0 exch2_oj(3,235)=0 exch2_neighbourId(4,235)=234 exch2_iLo(4,235)=0 exch2_iHi(4,235)=0 exch2_jLo(4,235)=0 exch2_jHi(4,235)=103 exch2_opposingSend(4,235)=3 exch2_pij(1,4,235)=1 exch2_pij(2,4,235)=0 exch2_pij(3,4,235)=0 exch2_pij(4,4,235)=1 exch2_oi(4,235)=0 exch2_oj(4,235)=0 RETURN END SUBROUTINE W2_E2SETUP_236 C Topology for tile 236 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(236)=34 exch2_tNy(236)=102 exch2_tBasex(236)=340 exch2_tBasey(236)=0 exch2_txGlobalo(236)=1871 exch2_tyGlobalo(236)=1 exch2_isWedge(236)=0 exch2_isNedge(236)=0 exch2_isEedge(236)=0 exch2_isSedge(236)=1 exch2_myFace(236)=4 exch2_mydNx(236)=510 exch2_mydNy(236)=510 exch2_nNeighbours(236)=4 exch2_neighbourId(1,236)=251 exch2_iLo(1,236)=0 exch2_iHi(1,236)=35 exch2_jLo(1,236)=103 exch2_jHi(1,236)=103 exch2_opposingSend(1,236)=2 exch2_pij(1,1,236)=1 exch2_pij(2,1,236)=0 exch2_pij(3,1,236)=0 exch2_pij(4,1,236)=1 exch2_oi(1,236)=0 exch2_oj(1,236)=0 exch2_neighbourId(2,236)=105 exch2_iLo(2,236)=0 exch2_iHi(2,236)=35 exch2_jLo(2,236)=0 exch2_jHi(2,236)=0 exch2_opposingSend(2,236)=4 exch2_pij(1,2,236)=0 exch2_pij(2,2,236)=-1 exch2_pij(3,2,236)=1 exch2_pij(4,2,236)=0 exch2_oi(2,236)=511 exch2_oj(2,236)=-510 exch2_neighbourId(3,236)=237 exch2_iLo(3,236)=35 exch2_iHi(3,236)=35 exch2_jLo(3,236)=0 exch2_jHi(3,236)=103 exch2_opposingSend(3,236)=4 exch2_pij(1,3,236)=1 exch2_pij(2,3,236)=0 exch2_pij(3,3,236)=0 exch2_pij(4,3,236)=1 exch2_oi(3,236)=0 exch2_oj(3,236)=0 exch2_neighbourId(4,236)=235 exch2_iLo(4,236)=0 exch2_iHi(4,236)=0 exch2_jLo(4,236)=0 exch2_jHi(4,236)=103 exch2_opposingSend(4,236)=3 exch2_pij(1,4,236)=1 exch2_pij(2,4,236)=0 exch2_pij(3,4,236)=0 exch2_pij(4,4,236)=1 exch2_oi(4,236)=0 exch2_oj(4,236)=0 RETURN END SUBROUTINE W2_E2SETUP_237 C Topology for tile 237 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(237)=34 exch2_tNy(237)=102 exch2_tBasex(237)=374 exch2_tBasey(237)=0 exch2_txGlobalo(237)=1905 exch2_tyGlobalo(237)=1 exch2_isWedge(237)=0 exch2_isNedge(237)=0 exch2_isEedge(237)=0 exch2_isSedge(237)=1 exch2_myFace(237)=4 exch2_mydNx(237)=510 exch2_mydNy(237)=510 exch2_nNeighbours(237)=4 exch2_neighbourId(1,237)=252 exch2_iLo(1,237)=0 exch2_iHi(1,237)=35 exch2_jLo(1,237)=103 exch2_jHi(1,237)=103 exch2_opposingSend(1,237)=2 exch2_pij(1,1,237)=1 exch2_pij(2,1,237)=0 exch2_pij(3,1,237)=0 exch2_pij(4,1,237)=1 exch2_oi(1,237)=0 exch2_oj(1,237)=0 exch2_neighbourId(2,237)=105 exch2_iLo(2,237)=0 exch2_iHi(2,237)=35 exch2_jLo(2,237)=0 exch2_jHi(2,237)=0 exch2_opposingSend(2,237)=5 exch2_pij(1,2,237)=0 exch2_pij(2,2,237)=-1 exch2_pij(3,2,237)=1 exch2_pij(4,2,237)=0 exch2_oi(2,237)=511 exch2_oj(2,237)=-510 exch2_neighbourId(3,237)=238 exch2_iLo(3,237)=35 exch2_iHi(3,237)=35 exch2_jLo(3,237)=0 exch2_jHi(3,237)=103 exch2_opposingSend(3,237)=4 exch2_pij(1,3,237)=1 exch2_pij(2,3,237)=0 exch2_pij(3,3,237)=0 exch2_pij(4,3,237)=1 exch2_oi(3,237)=0 exch2_oj(3,237)=0 exch2_neighbourId(4,237)=236 exch2_iLo(4,237)=0 exch2_iHi(4,237)=0 exch2_jLo(4,237)=0 exch2_jHi(4,237)=103 exch2_opposingSend(4,237)=3 exch2_pij(1,4,237)=1 exch2_pij(2,4,237)=0 exch2_pij(3,4,237)=0 exch2_pij(4,4,237)=1 exch2_oi(4,237)=0 exch2_oj(4,237)=0 RETURN END SUBROUTINE W2_E2SETUP_238 C Topology for tile 238 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(238)=34 exch2_tNy(238)=102 exch2_tBasex(238)=408 exch2_tBasey(238)=0 exch2_txGlobalo(238)=1939 exch2_tyGlobalo(238)=1 exch2_isWedge(238)=0 exch2_isNedge(238)=0 exch2_isEedge(238)=0 exch2_isSedge(238)=1 exch2_myFace(238)=4 exch2_mydNx(238)=510 exch2_mydNy(238)=510 exch2_nNeighbours(238)=4 exch2_neighbourId(1,238)=253 exch2_iLo(1,238)=0 exch2_iHi(1,238)=35 exch2_jLo(1,238)=103 exch2_jHi(1,238)=103 exch2_opposingSend(1,238)=2 exch2_pij(1,1,238)=1 exch2_pij(2,1,238)=0 exch2_pij(3,1,238)=0 exch2_pij(4,1,238)=1 exch2_oi(1,238)=0 exch2_oj(1,238)=0 exch2_neighbourId(2,238)=90 exch2_iLo(2,238)=0 exch2_iHi(2,238)=35 exch2_jLo(2,238)=0 exch2_jHi(2,238)=0 exch2_opposingSend(2,238)=3 exch2_pij(1,2,238)=0 exch2_pij(2,2,238)=-1 exch2_pij(3,2,238)=1 exch2_pij(4,2,238)=0 exch2_oi(2,238)=511 exch2_oj(2,238)=-510 exch2_neighbourId(3,238)=239 exch2_iLo(3,238)=35 exch2_iHi(3,238)=35 exch2_jLo(3,238)=0 exch2_jHi(3,238)=103 exch2_opposingSend(3,238)=4 exch2_pij(1,3,238)=1 exch2_pij(2,3,238)=0 exch2_pij(3,3,238)=0 exch2_pij(4,3,238)=1 exch2_oi(3,238)=0 exch2_oj(3,238)=0 exch2_neighbourId(4,238)=237 exch2_iLo(4,238)=0 exch2_iHi(4,238)=0 exch2_jLo(4,238)=0 exch2_jHi(4,238)=103 exch2_opposingSend(4,238)=3 exch2_pij(1,4,238)=1 exch2_pij(2,4,238)=0 exch2_pij(3,4,238)=0 exch2_pij(4,4,238)=1 exch2_oi(4,238)=0 exch2_oj(4,238)=0 RETURN END SUBROUTINE W2_E2SETUP_239 C Topology for tile 239 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(239)=34 exch2_tNy(239)=102 exch2_tBasex(239)=442 exch2_tBasey(239)=0 exch2_txGlobalo(239)=1973 exch2_tyGlobalo(239)=1 exch2_isWedge(239)=0 exch2_isNedge(239)=0 exch2_isEedge(239)=0 exch2_isSedge(239)=1 exch2_myFace(239)=4 exch2_mydNx(239)=510 exch2_mydNy(239)=510 exch2_nNeighbours(239)=4 exch2_neighbourId(1,239)=254 exch2_iLo(1,239)=0 exch2_iHi(1,239)=35 exch2_jLo(1,239)=103 exch2_jHi(1,239)=103 exch2_opposingSend(1,239)=2 exch2_pij(1,1,239)=1 exch2_pij(2,1,239)=0 exch2_pij(3,1,239)=0 exch2_pij(4,1,239)=1 exch2_oi(1,239)=0 exch2_oj(1,239)=0 exch2_neighbourId(2,239)=90 exch2_iLo(2,239)=0 exch2_iHi(2,239)=35 exch2_jLo(2,239)=0 exch2_jHi(2,239)=0 exch2_opposingSend(2,239)=4 exch2_pij(1,2,239)=0 exch2_pij(2,2,239)=-1 exch2_pij(3,2,239)=1 exch2_pij(4,2,239)=0 exch2_oi(2,239)=511 exch2_oj(2,239)=-510 exch2_neighbourId(3,239)=240 exch2_iLo(3,239)=35 exch2_iHi(3,239)=35 exch2_jLo(3,239)=0 exch2_jHi(3,239)=103 exch2_opposingSend(3,239)=6 exch2_pij(1,3,239)=1 exch2_pij(2,3,239)=0 exch2_pij(3,3,239)=0 exch2_pij(4,3,239)=1 exch2_oi(3,239)=0 exch2_oj(3,239)=0 exch2_neighbourId(4,239)=238 exch2_iLo(4,239)=0 exch2_iHi(4,239)=0 exch2_jLo(4,239)=0 exch2_jHi(4,239)=103 exch2_opposingSend(4,239)=3 exch2_pij(1,4,239)=1 exch2_pij(2,4,239)=0 exch2_pij(3,4,239)=0 exch2_pij(4,4,239)=1 exch2_oi(4,239)=0 exch2_oj(4,239)=0 RETURN END SUBROUTINE W2_E2SETUP_240 C Topology for tile 240 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(240)=34 exch2_tNy(240)=102 exch2_tBasex(240)=476 exch2_tBasey(240)=0 exch2_txGlobalo(240)=2007 exch2_tyGlobalo(240)=1 exch2_isWedge(240)=0 exch2_isNedge(240)=0 exch2_isEedge(240)=1 exch2_isSedge(240)=1 exch2_myFace(240)=4 exch2_mydNx(240)=510 exch2_mydNy(240)=510 exch2_nNeighbours(240)=6 exch2_neighbourId(1,240)=255 exch2_iLo(1,240)=0 exch2_iHi(1,240)=35 exch2_jLo(1,240)=103 exch2_jHi(1,240)=103 exch2_opposingSend(1,240)=2 exch2_pij(1,1,240)=1 exch2_pij(2,1,240)=0 exch2_pij(3,1,240)=0 exch2_pij(4,1,240)=1 exch2_oi(1,240)=0 exch2_oj(1,240)=0 exch2_neighbourId(2,240)=90 exch2_iLo(2,240)=0 exch2_iHi(2,240)=35 exch2_jLo(2,240)=0 exch2_jHi(2,240)=0 exch2_opposingSend(2,240)=5 exch2_pij(1,2,240)=0 exch2_pij(2,2,240)=-1 exch2_pij(3,2,240)=1 exch2_pij(4,2,240)=0 exch2_oi(2,240)=511 exch2_oj(2,240)=-510 exch2_neighbourId(3,240)=388 exch2_iLo(3,240)=35 exch2_iHi(3,240)=35 exch2_jLo(3,240)=68 exch2_jHi(3,240)=103 exch2_opposingSend(3,240)=2 exch2_pij(1,3,240)=0 exch2_pij(2,3,240)=1 exch2_pij(3,3,240)=-1 exch2_pij(4,3,240)=0 exch2_oi(3,240)=510 exch2_oj(3,240)=511 exch2_neighbourId(4,240)=389 exch2_iLo(4,240)=35 exch2_iHi(4,240)=35 exch2_jLo(4,240)=34 exch2_jHi(4,240)=69 exch2_opposingSend(4,240)=2 exch2_pij(1,4,240)=0 exch2_pij(2,4,240)=1 exch2_pij(3,4,240)=-1 exch2_pij(4,4,240)=0 exch2_oi(4,240)=510 exch2_oj(4,240)=511 exch2_neighbourId(5,240)=390 exch2_iLo(5,240)=35 exch2_iHi(5,240)=35 exch2_jLo(5,240)=0 exch2_jHi(5,240)=35 exch2_opposingSend(5,240)=2 exch2_pij(1,5,240)=0 exch2_pij(2,5,240)=1 exch2_pij(3,5,240)=-1 exch2_pij(4,5,240)=0 exch2_oi(5,240)=510 exch2_oj(5,240)=511 exch2_neighbourId(6,240)=239 exch2_iLo(6,240)=0 exch2_iHi(6,240)=0 exch2_jLo(6,240)=0 exch2_jHi(6,240)=103 exch2_opposingSend(6,240)=3 exch2_pij(1,6,240)=1 exch2_pij(2,6,240)=0 exch2_pij(3,6,240)=0 exch2_pij(4,6,240)=1 exch2_oi(6,240)=0 exch2_oj(6,240)=0 RETURN END SUBROUTINE W2_E2SETUP_241 C Topology for tile 241 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(241)=34 exch2_tNy(241)=102 exch2_tBasex(241)=0 exch2_tBasey(241)=102 exch2_txGlobalo(241)=1531 exch2_tyGlobalo(241)=103 exch2_isWedge(241)=1 exch2_isNedge(241)=0 exch2_isEedge(241)=0 exch2_isSedge(241)=0 exch2_myFace(241)=4 exch2_mydNx(241)=510 exch2_mydNy(241)=510 exch2_nNeighbours(241)=4 exch2_neighbourId(1,241)=256 exch2_iLo(1,241)=0 exch2_iHi(1,241)=35 exch2_jLo(1,241)=103 exch2_jHi(1,241)=103 exch2_opposingSend(1,241)=2 exch2_pij(1,1,241)=1 exch2_pij(2,1,241)=0 exch2_pij(3,1,241)=0 exch2_pij(4,1,241)=1 exch2_oi(1,241)=0 exch2_oj(1,241)=0 exch2_neighbourId(2,241)=226 exch2_iLo(2,241)=0 exch2_iHi(2,241)=35 exch2_jLo(2,241)=0 exch2_jHi(2,241)=0 exch2_opposingSend(2,241)=1 exch2_pij(1,2,241)=1 exch2_pij(2,2,241)=0 exch2_pij(3,2,241)=0 exch2_pij(4,2,241)=1 exch2_oi(2,241)=0 exch2_oj(2,241)=0 exch2_neighbourId(3,241)=242 exch2_iLo(3,241)=35 exch2_iHi(3,241)=35 exch2_jLo(3,241)=0 exch2_jHi(3,241)=103 exch2_opposingSend(3,241)=4 exch2_pij(1,3,241)=1 exch2_pij(2,3,241)=0 exch2_pij(3,3,241)=0 exch2_pij(4,3,241)=1 exch2_oi(3,241)=0 exch2_oj(3,241)=0 exch2_neighbourId(4,241)=180 exch2_iLo(4,241)=0 exch2_iHi(4,241)=0 exch2_jLo(4,241)=0 exch2_jHi(4,241)=103 exch2_opposingSend(4,241)=3 exch2_pij(1,4,241)=1 exch2_pij(2,4,241)=0 exch2_pij(3,4,241)=0 exch2_pij(4,4,241)=1 exch2_oi(4,241)=-510 exch2_oj(4,241)=0 RETURN END SUBROUTINE W2_E2SETUP_242 C Topology for tile 242 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(242)=34 exch2_tNy(242)=102 exch2_tBasex(242)=34 exch2_tBasey(242)=102 exch2_txGlobalo(242)=1565 exch2_tyGlobalo(242)=103 exch2_isWedge(242)=0 exch2_isNedge(242)=0 exch2_isEedge(242)=0 exch2_isSedge(242)=0 exch2_myFace(242)=4 exch2_mydNx(242)=510 exch2_mydNy(242)=510 exch2_nNeighbours(242)=4 exch2_neighbourId(1,242)=257 exch2_iLo(1,242)=0 exch2_iHi(1,242)=35 exch2_jLo(1,242)=103 exch2_jHi(1,242)=103 exch2_opposingSend(1,242)=2 exch2_pij(1,1,242)=1 exch2_pij(2,1,242)=0 exch2_pij(3,1,242)=0 exch2_pij(4,1,242)=1 exch2_oi(1,242)=0 exch2_oj(1,242)=0 exch2_neighbourId(2,242)=227 exch2_iLo(2,242)=0 exch2_iHi(2,242)=35 exch2_jLo(2,242)=0 exch2_jHi(2,242)=0 exch2_opposingSend(2,242)=1 exch2_pij(1,2,242)=1 exch2_pij(2,2,242)=0 exch2_pij(3,2,242)=0 exch2_pij(4,2,242)=1 exch2_oi(2,242)=0 exch2_oj(2,242)=0 exch2_neighbourId(3,242)=243 exch2_iLo(3,242)=35 exch2_iHi(3,242)=35 exch2_jLo(3,242)=0 exch2_jHi(3,242)=103 exch2_opposingSend(3,242)=4 exch2_pij(1,3,242)=1 exch2_pij(2,3,242)=0 exch2_pij(3,3,242)=0 exch2_pij(4,3,242)=1 exch2_oi(3,242)=0 exch2_oj(3,242)=0 exch2_neighbourId(4,242)=241 exch2_iLo(4,242)=0 exch2_iHi(4,242)=0 exch2_jLo(4,242)=0 exch2_jHi(4,242)=103 exch2_opposingSend(4,242)=3 exch2_pij(1,4,242)=1 exch2_pij(2,4,242)=0 exch2_pij(3,4,242)=0 exch2_pij(4,4,242)=1 exch2_oi(4,242)=0 exch2_oj(4,242)=0 RETURN END SUBROUTINE W2_E2SETUP_243 C Topology for tile 243 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(243)=34 exch2_tNy(243)=102 exch2_tBasex(243)=68 exch2_tBasey(243)=102 exch2_txGlobalo(243)=1599 exch2_tyGlobalo(243)=103 exch2_isWedge(243)=0 exch2_isNedge(243)=0 exch2_isEedge(243)=0 exch2_isSedge(243)=0 exch2_myFace(243)=4 exch2_mydNx(243)=510 exch2_mydNy(243)=510 exch2_nNeighbours(243)=4 exch2_neighbourId(1,243)=258 exch2_iLo(1,243)=0 exch2_iHi(1,243)=35 exch2_jLo(1,243)=103 exch2_jHi(1,243)=103 exch2_opposingSend(1,243)=2 exch2_pij(1,1,243)=1 exch2_pij(2,1,243)=0 exch2_pij(3,1,243)=0 exch2_pij(4,1,243)=1 exch2_oi(1,243)=0 exch2_oj(1,243)=0 exch2_neighbourId(2,243)=228 exch2_iLo(2,243)=0 exch2_iHi(2,243)=35 exch2_jLo(2,243)=0 exch2_jHi(2,243)=0 exch2_opposingSend(2,243)=1 exch2_pij(1,2,243)=1 exch2_pij(2,2,243)=0 exch2_pij(3,2,243)=0 exch2_pij(4,2,243)=1 exch2_oi(2,243)=0 exch2_oj(2,243)=0 exch2_neighbourId(3,243)=244 exch2_iLo(3,243)=35 exch2_iHi(3,243)=35 exch2_jLo(3,243)=0 exch2_jHi(3,243)=103 exch2_opposingSend(3,243)=4 exch2_pij(1,3,243)=1 exch2_pij(2,3,243)=0 exch2_pij(3,3,243)=0 exch2_pij(4,3,243)=1 exch2_oi(3,243)=0 exch2_oj(3,243)=0 exch2_neighbourId(4,243)=242 exch2_iLo(4,243)=0 exch2_iHi(4,243)=0 exch2_jLo(4,243)=0 exch2_jHi(4,243)=103 exch2_opposingSend(4,243)=3 exch2_pij(1,4,243)=1 exch2_pij(2,4,243)=0 exch2_pij(3,4,243)=0 exch2_pij(4,4,243)=1 exch2_oi(4,243)=0 exch2_oj(4,243)=0 RETURN END SUBROUTINE W2_E2SETUP_244 C Topology for tile 244 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(244)=34 exch2_tNy(244)=102 exch2_tBasex(244)=102 exch2_tBasey(244)=102 exch2_txGlobalo(244)=1633 exch2_tyGlobalo(244)=103 exch2_isWedge(244)=0 exch2_isNedge(244)=0 exch2_isEedge(244)=0 exch2_isSedge(244)=0 exch2_myFace(244)=4 exch2_mydNx(244)=510 exch2_mydNy(244)=510 exch2_nNeighbours(244)=4 exch2_neighbourId(1,244)=259 exch2_iLo(1,244)=0 exch2_iHi(1,244)=35 exch2_jLo(1,244)=103 exch2_jHi(1,244)=103 exch2_opposingSend(1,244)=2 exch2_pij(1,1,244)=1 exch2_pij(2,1,244)=0 exch2_pij(3,1,244)=0 exch2_pij(4,1,244)=1 exch2_oi(1,244)=0 exch2_oj(1,244)=0 exch2_neighbourId(2,244)=229 exch2_iLo(2,244)=0 exch2_iHi(2,244)=35 exch2_jLo(2,244)=0 exch2_jHi(2,244)=0 exch2_opposingSend(2,244)=1 exch2_pij(1,2,244)=1 exch2_pij(2,2,244)=0 exch2_pij(3,2,244)=0 exch2_pij(4,2,244)=1 exch2_oi(2,244)=0 exch2_oj(2,244)=0 exch2_neighbourId(3,244)=245 exch2_iLo(3,244)=35 exch2_iHi(3,244)=35 exch2_jLo(3,244)=0 exch2_jHi(3,244)=103 exch2_opposingSend(3,244)=4 exch2_pij(1,3,244)=1 exch2_pij(2,3,244)=0 exch2_pij(3,3,244)=0 exch2_pij(4,3,244)=1 exch2_oi(3,244)=0 exch2_oj(3,244)=0 exch2_neighbourId(4,244)=243 exch2_iLo(4,244)=0 exch2_iHi(4,244)=0 exch2_jLo(4,244)=0 exch2_jHi(4,244)=103 exch2_opposingSend(4,244)=3 exch2_pij(1,4,244)=1 exch2_pij(2,4,244)=0 exch2_pij(3,4,244)=0 exch2_pij(4,4,244)=1 exch2_oi(4,244)=0 exch2_oj(4,244)=0 RETURN END SUBROUTINE W2_E2SETUP_245 C Topology for tile 245 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(245)=34 exch2_tNy(245)=102 exch2_tBasex(245)=136 exch2_tBasey(245)=102 exch2_txGlobalo(245)=1667 exch2_tyGlobalo(245)=103 exch2_isWedge(245)=0 exch2_isNedge(245)=0 exch2_isEedge(245)=0 exch2_isSedge(245)=0 exch2_myFace(245)=4 exch2_mydNx(245)=510 exch2_mydNy(245)=510 exch2_nNeighbours(245)=4 exch2_neighbourId(1,245)=260 exch2_iLo(1,245)=0 exch2_iHi(1,245)=35 exch2_jLo(1,245)=103 exch2_jHi(1,245)=103 exch2_opposingSend(1,245)=2 exch2_pij(1,1,245)=1 exch2_pij(2,1,245)=0 exch2_pij(3,1,245)=0 exch2_pij(4,1,245)=1 exch2_oi(1,245)=0 exch2_oj(1,245)=0 exch2_neighbourId(2,245)=230 exch2_iLo(2,245)=0 exch2_iHi(2,245)=35 exch2_jLo(2,245)=0 exch2_jHi(2,245)=0 exch2_opposingSend(2,245)=1 exch2_pij(1,2,245)=1 exch2_pij(2,2,245)=0 exch2_pij(3,2,245)=0 exch2_pij(4,2,245)=1 exch2_oi(2,245)=0 exch2_oj(2,245)=0 exch2_neighbourId(3,245)=246 exch2_iLo(3,245)=35 exch2_iHi(3,245)=35 exch2_jLo(3,245)=0 exch2_jHi(3,245)=103 exch2_opposingSend(3,245)=4 exch2_pij(1,3,245)=1 exch2_pij(2,3,245)=0 exch2_pij(3,3,245)=0 exch2_pij(4,3,245)=1 exch2_oi(3,245)=0 exch2_oj(3,245)=0 exch2_neighbourId(4,245)=244 exch2_iLo(4,245)=0 exch2_iHi(4,245)=0 exch2_jLo(4,245)=0 exch2_jHi(4,245)=103 exch2_opposingSend(4,245)=3 exch2_pij(1,4,245)=1 exch2_pij(2,4,245)=0 exch2_pij(3,4,245)=0 exch2_pij(4,4,245)=1 exch2_oi(4,245)=0 exch2_oj(4,245)=0 RETURN END SUBROUTINE W2_E2SETUP_246 C Topology for tile 246 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(246)=34 exch2_tNy(246)=102 exch2_tBasex(246)=170 exch2_tBasey(246)=102 exch2_txGlobalo(246)=1701 exch2_tyGlobalo(246)=103 exch2_isWedge(246)=0 exch2_isNedge(246)=0 exch2_isEedge(246)=0 exch2_isSedge(246)=0 exch2_myFace(246)=4 exch2_mydNx(246)=510 exch2_mydNy(246)=510 exch2_nNeighbours(246)=4 exch2_neighbourId(1,246)=261 exch2_iLo(1,246)=0 exch2_iHi(1,246)=35 exch2_jLo(1,246)=103 exch2_jHi(1,246)=103 exch2_opposingSend(1,246)=2 exch2_pij(1,1,246)=1 exch2_pij(2,1,246)=0 exch2_pij(3,1,246)=0 exch2_pij(4,1,246)=1 exch2_oi(1,246)=0 exch2_oj(1,246)=0 exch2_neighbourId(2,246)=231 exch2_iLo(2,246)=0 exch2_iHi(2,246)=35 exch2_jLo(2,246)=0 exch2_jHi(2,246)=0 exch2_opposingSend(2,246)=1 exch2_pij(1,2,246)=1 exch2_pij(2,2,246)=0 exch2_pij(3,2,246)=0 exch2_pij(4,2,246)=1 exch2_oi(2,246)=0 exch2_oj(2,246)=0 exch2_neighbourId(3,246)=247 exch2_iLo(3,246)=35 exch2_iHi(3,246)=35 exch2_jLo(3,246)=0 exch2_jHi(3,246)=103 exch2_opposingSend(3,246)=4 exch2_pij(1,3,246)=1 exch2_pij(2,3,246)=0 exch2_pij(3,3,246)=0 exch2_pij(4,3,246)=1 exch2_oi(3,246)=0 exch2_oj(3,246)=0 exch2_neighbourId(4,246)=245 exch2_iLo(4,246)=0 exch2_iHi(4,246)=0 exch2_jLo(4,246)=0 exch2_jHi(4,246)=103 exch2_opposingSend(4,246)=3 exch2_pij(1,4,246)=1 exch2_pij(2,4,246)=0 exch2_pij(3,4,246)=0 exch2_pij(4,4,246)=1 exch2_oi(4,246)=0 exch2_oj(4,246)=0 RETURN END SUBROUTINE W2_E2SETUP_247 C Topology for tile 247 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(247)=34 exch2_tNy(247)=102 exch2_tBasex(247)=204 exch2_tBasey(247)=102 exch2_txGlobalo(247)=1735 exch2_tyGlobalo(247)=103 exch2_isWedge(247)=0 exch2_isNedge(247)=0 exch2_isEedge(247)=0 exch2_isSedge(247)=0 exch2_myFace(247)=4 exch2_mydNx(247)=510 exch2_mydNy(247)=510 exch2_nNeighbours(247)=4 exch2_neighbourId(1,247)=262 exch2_iLo(1,247)=0 exch2_iHi(1,247)=35 exch2_jLo(1,247)=103 exch2_jHi(1,247)=103 exch2_opposingSend(1,247)=2 exch2_pij(1,1,247)=1 exch2_pij(2,1,247)=0 exch2_pij(3,1,247)=0 exch2_pij(4,1,247)=1 exch2_oi(1,247)=0 exch2_oj(1,247)=0 exch2_neighbourId(2,247)=232 exch2_iLo(2,247)=0 exch2_iHi(2,247)=35 exch2_jLo(2,247)=0 exch2_jHi(2,247)=0 exch2_opposingSend(2,247)=1 exch2_pij(1,2,247)=1 exch2_pij(2,2,247)=0 exch2_pij(3,2,247)=0 exch2_pij(4,2,247)=1 exch2_oi(2,247)=0 exch2_oj(2,247)=0 exch2_neighbourId(3,247)=248 exch2_iLo(3,247)=35 exch2_iHi(3,247)=35 exch2_jLo(3,247)=0 exch2_jHi(3,247)=103 exch2_opposingSend(3,247)=4 exch2_pij(1,3,247)=1 exch2_pij(2,3,247)=0 exch2_pij(3,3,247)=0 exch2_pij(4,3,247)=1 exch2_oi(3,247)=0 exch2_oj(3,247)=0 exch2_neighbourId(4,247)=246 exch2_iLo(4,247)=0 exch2_iHi(4,247)=0 exch2_jLo(4,247)=0 exch2_jHi(4,247)=103 exch2_opposingSend(4,247)=3 exch2_pij(1,4,247)=1 exch2_pij(2,4,247)=0 exch2_pij(3,4,247)=0 exch2_pij(4,4,247)=1 exch2_oi(4,247)=0 exch2_oj(4,247)=0 RETURN END SUBROUTINE W2_E2SETUP_248 C Topology for tile 248 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(248)=34 exch2_tNy(248)=102 exch2_tBasex(248)=238 exch2_tBasey(248)=102 exch2_txGlobalo(248)=1769 exch2_tyGlobalo(248)=103 exch2_isWedge(248)=0 exch2_isNedge(248)=0 exch2_isEedge(248)=0 exch2_isSedge(248)=0 exch2_myFace(248)=4 exch2_mydNx(248)=510 exch2_mydNy(248)=510 exch2_nNeighbours(248)=4 exch2_neighbourId(1,248)=263 exch2_iLo(1,248)=0 exch2_iHi(1,248)=35 exch2_jLo(1,248)=103 exch2_jHi(1,248)=103 exch2_opposingSend(1,248)=2 exch2_pij(1,1,248)=1 exch2_pij(2,1,248)=0 exch2_pij(3,1,248)=0 exch2_pij(4,1,248)=1 exch2_oi(1,248)=0 exch2_oj(1,248)=0 exch2_neighbourId(2,248)=233 exch2_iLo(2,248)=0 exch2_iHi(2,248)=35 exch2_jLo(2,248)=0 exch2_jHi(2,248)=0 exch2_opposingSend(2,248)=1 exch2_pij(1,2,248)=1 exch2_pij(2,2,248)=0 exch2_pij(3,2,248)=0 exch2_pij(4,2,248)=1 exch2_oi(2,248)=0 exch2_oj(2,248)=0 exch2_neighbourId(3,248)=249 exch2_iLo(3,248)=35 exch2_iHi(3,248)=35 exch2_jLo(3,248)=0 exch2_jHi(3,248)=103 exch2_opposingSend(3,248)=4 exch2_pij(1,3,248)=1 exch2_pij(2,3,248)=0 exch2_pij(3,3,248)=0 exch2_pij(4,3,248)=1 exch2_oi(3,248)=0 exch2_oj(3,248)=0 exch2_neighbourId(4,248)=247 exch2_iLo(4,248)=0 exch2_iHi(4,248)=0 exch2_jLo(4,248)=0 exch2_jHi(4,248)=103 exch2_opposingSend(4,248)=3 exch2_pij(1,4,248)=1 exch2_pij(2,4,248)=0 exch2_pij(3,4,248)=0 exch2_pij(4,4,248)=1 exch2_oi(4,248)=0 exch2_oj(4,248)=0 RETURN END SUBROUTINE W2_E2SETUP_249 C Topology for tile 249 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(249)=34 exch2_tNy(249)=102 exch2_tBasex(249)=272 exch2_tBasey(249)=102 exch2_txGlobalo(249)=1803 exch2_tyGlobalo(249)=103 exch2_isWedge(249)=0 exch2_isNedge(249)=0 exch2_isEedge(249)=0 exch2_isSedge(249)=0 exch2_myFace(249)=4 exch2_mydNx(249)=510 exch2_mydNy(249)=510 exch2_nNeighbours(249)=4 exch2_neighbourId(1,249)=264 exch2_iLo(1,249)=0 exch2_iHi(1,249)=35 exch2_jLo(1,249)=103 exch2_jHi(1,249)=103 exch2_opposingSend(1,249)=2 exch2_pij(1,1,249)=1 exch2_pij(2,1,249)=0 exch2_pij(3,1,249)=0 exch2_pij(4,1,249)=1 exch2_oi(1,249)=0 exch2_oj(1,249)=0 exch2_neighbourId(2,249)=234 exch2_iLo(2,249)=0 exch2_iHi(2,249)=35 exch2_jLo(2,249)=0 exch2_jHi(2,249)=0 exch2_opposingSend(2,249)=1 exch2_pij(1,2,249)=1 exch2_pij(2,2,249)=0 exch2_pij(3,2,249)=0 exch2_pij(4,2,249)=1 exch2_oi(2,249)=0 exch2_oj(2,249)=0 exch2_neighbourId(3,249)=250 exch2_iLo(3,249)=35 exch2_iHi(3,249)=35 exch2_jLo(3,249)=0 exch2_jHi(3,249)=103 exch2_opposingSend(3,249)=4 exch2_pij(1,3,249)=1 exch2_pij(2,3,249)=0 exch2_pij(3,3,249)=0 exch2_pij(4,3,249)=1 exch2_oi(3,249)=0 exch2_oj(3,249)=0 exch2_neighbourId(4,249)=248 exch2_iLo(4,249)=0 exch2_iHi(4,249)=0 exch2_jLo(4,249)=0 exch2_jHi(4,249)=103 exch2_opposingSend(4,249)=3 exch2_pij(1,4,249)=1 exch2_pij(2,4,249)=0 exch2_pij(3,4,249)=0 exch2_pij(4,4,249)=1 exch2_oi(4,249)=0 exch2_oj(4,249)=0 RETURN END SUBROUTINE W2_E2SETUP_250 C Topology for tile 250 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(250)=34 exch2_tNy(250)=102 exch2_tBasex(250)=306 exch2_tBasey(250)=102 exch2_txGlobalo(250)=1837 exch2_tyGlobalo(250)=103 exch2_isWedge(250)=0 exch2_isNedge(250)=0 exch2_isEedge(250)=0 exch2_isSedge(250)=0 exch2_myFace(250)=4 exch2_mydNx(250)=510 exch2_mydNy(250)=510 exch2_nNeighbours(250)=4 exch2_neighbourId(1,250)=265 exch2_iLo(1,250)=0 exch2_iHi(1,250)=35 exch2_jLo(1,250)=103 exch2_jHi(1,250)=103 exch2_opposingSend(1,250)=2 exch2_pij(1,1,250)=1 exch2_pij(2,1,250)=0 exch2_pij(3,1,250)=0 exch2_pij(4,1,250)=1 exch2_oi(1,250)=0 exch2_oj(1,250)=0 exch2_neighbourId(2,250)=235 exch2_iLo(2,250)=0 exch2_iHi(2,250)=35 exch2_jLo(2,250)=0 exch2_jHi(2,250)=0 exch2_opposingSend(2,250)=1 exch2_pij(1,2,250)=1 exch2_pij(2,2,250)=0 exch2_pij(3,2,250)=0 exch2_pij(4,2,250)=1 exch2_oi(2,250)=0 exch2_oj(2,250)=0 exch2_neighbourId(3,250)=251 exch2_iLo(3,250)=35 exch2_iHi(3,250)=35 exch2_jLo(3,250)=0 exch2_jHi(3,250)=103 exch2_opposingSend(3,250)=4 exch2_pij(1,3,250)=1 exch2_pij(2,3,250)=0 exch2_pij(3,3,250)=0 exch2_pij(4,3,250)=1 exch2_oi(3,250)=0 exch2_oj(3,250)=0 exch2_neighbourId(4,250)=249 exch2_iLo(4,250)=0 exch2_iHi(4,250)=0 exch2_jLo(4,250)=0 exch2_jHi(4,250)=103 exch2_opposingSend(4,250)=3 exch2_pij(1,4,250)=1 exch2_pij(2,4,250)=0 exch2_pij(3,4,250)=0 exch2_pij(4,4,250)=1 exch2_oi(4,250)=0 exch2_oj(4,250)=0 RETURN END SUBROUTINE W2_E2SETUP_251 C Topology for tile 251 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(251)=34 exch2_tNy(251)=102 exch2_tBasex(251)=340 exch2_tBasey(251)=102 exch2_txGlobalo(251)=1871 exch2_tyGlobalo(251)=103 exch2_isWedge(251)=0 exch2_isNedge(251)=0 exch2_isEedge(251)=0 exch2_isSedge(251)=0 exch2_myFace(251)=4 exch2_mydNx(251)=510 exch2_mydNy(251)=510 exch2_nNeighbours(251)=4 exch2_neighbourId(1,251)=266 exch2_iLo(1,251)=0 exch2_iHi(1,251)=35 exch2_jLo(1,251)=103 exch2_jHi(1,251)=103 exch2_opposingSend(1,251)=2 exch2_pij(1,1,251)=1 exch2_pij(2,1,251)=0 exch2_pij(3,1,251)=0 exch2_pij(4,1,251)=1 exch2_oi(1,251)=0 exch2_oj(1,251)=0 exch2_neighbourId(2,251)=236 exch2_iLo(2,251)=0 exch2_iHi(2,251)=35 exch2_jLo(2,251)=0 exch2_jHi(2,251)=0 exch2_opposingSend(2,251)=1 exch2_pij(1,2,251)=1 exch2_pij(2,2,251)=0 exch2_pij(3,2,251)=0 exch2_pij(4,2,251)=1 exch2_oi(2,251)=0 exch2_oj(2,251)=0 exch2_neighbourId(3,251)=252 exch2_iLo(3,251)=35 exch2_iHi(3,251)=35 exch2_jLo(3,251)=0 exch2_jHi(3,251)=103 exch2_opposingSend(3,251)=4 exch2_pij(1,3,251)=1 exch2_pij(2,3,251)=0 exch2_pij(3,3,251)=0 exch2_pij(4,3,251)=1 exch2_oi(3,251)=0 exch2_oj(3,251)=0 exch2_neighbourId(4,251)=250 exch2_iLo(4,251)=0 exch2_iHi(4,251)=0 exch2_jLo(4,251)=0 exch2_jHi(4,251)=103 exch2_opposingSend(4,251)=3 exch2_pij(1,4,251)=1 exch2_pij(2,4,251)=0 exch2_pij(3,4,251)=0 exch2_pij(4,4,251)=1 exch2_oi(4,251)=0 exch2_oj(4,251)=0 RETURN END SUBROUTINE W2_E2SETUP_252 C Topology for tile 252 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(252)=34 exch2_tNy(252)=102 exch2_tBasex(252)=374 exch2_tBasey(252)=102 exch2_txGlobalo(252)=1905 exch2_tyGlobalo(252)=103 exch2_isWedge(252)=0 exch2_isNedge(252)=0 exch2_isEedge(252)=0 exch2_isSedge(252)=0 exch2_myFace(252)=4 exch2_mydNx(252)=510 exch2_mydNy(252)=510 exch2_nNeighbours(252)=4 exch2_neighbourId(1,252)=267 exch2_iLo(1,252)=0 exch2_iHi(1,252)=35 exch2_jLo(1,252)=103 exch2_jHi(1,252)=103 exch2_opposingSend(1,252)=2 exch2_pij(1,1,252)=1 exch2_pij(2,1,252)=0 exch2_pij(3,1,252)=0 exch2_pij(4,1,252)=1 exch2_oi(1,252)=0 exch2_oj(1,252)=0 exch2_neighbourId(2,252)=237 exch2_iLo(2,252)=0 exch2_iHi(2,252)=35 exch2_jLo(2,252)=0 exch2_jHi(2,252)=0 exch2_opposingSend(2,252)=1 exch2_pij(1,2,252)=1 exch2_pij(2,2,252)=0 exch2_pij(3,2,252)=0 exch2_pij(4,2,252)=1 exch2_oi(2,252)=0 exch2_oj(2,252)=0 exch2_neighbourId(3,252)=253 exch2_iLo(3,252)=35 exch2_iHi(3,252)=35 exch2_jLo(3,252)=0 exch2_jHi(3,252)=103 exch2_opposingSend(3,252)=4 exch2_pij(1,3,252)=1 exch2_pij(2,3,252)=0 exch2_pij(3,3,252)=0 exch2_pij(4,3,252)=1 exch2_oi(3,252)=0 exch2_oj(3,252)=0 exch2_neighbourId(4,252)=251 exch2_iLo(4,252)=0 exch2_iHi(4,252)=0 exch2_jLo(4,252)=0 exch2_jHi(4,252)=103 exch2_opposingSend(4,252)=3 exch2_pij(1,4,252)=1 exch2_pij(2,4,252)=0 exch2_pij(3,4,252)=0 exch2_pij(4,4,252)=1 exch2_oi(4,252)=0 exch2_oj(4,252)=0 RETURN END SUBROUTINE W2_E2SETUP_253 C Topology for tile 253 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(253)=34 exch2_tNy(253)=102 exch2_tBasex(253)=408 exch2_tBasey(253)=102 exch2_txGlobalo(253)=1939 exch2_tyGlobalo(253)=103 exch2_isWedge(253)=0 exch2_isNedge(253)=0 exch2_isEedge(253)=0 exch2_isSedge(253)=0 exch2_myFace(253)=4 exch2_mydNx(253)=510 exch2_mydNy(253)=510 exch2_nNeighbours(253)=4 exch2_neighbourId(1,253)=268 exch2_iLo(1,253)=0 exch2_iHi(1,253)=35 exch2_jLo(1,253)=103 exch2_jHi(1,253)=103 exch2_opposingSend(1,253)=2 exch2_pij(1,1,253)=1 exch2_pij(2,1,253)=0 exch2_pij(3,1,253)=0 exch2_pij(4,1,253)=1 exch2_oi(1,253)=0 exch2_oj(1,253)=0 exch2_neighbourId(2,253)=238 exch2_iLo(2,253)=0 exch2_iHi(2,253)=35 exch2_jLo(2,253)=0 exch2_jHi(2,253)=0 exch2_opposingSend(2,253)=1 exch2_pij(1,2,253)=1 exch2_pij(2,2,253)=0 exch2_pij(3,2,253)=0 exch2_pij(4,2,253)=1 exch2_oi(2,253)=0 exch2_oj(2,253)=0 exch2_neighbourId(3,253)=254 exch2_iLo(3,253)=35 exch2_iHi(3,253)=35 exch2_jLo(3,253)=0 exch2_jHi(3,253)=103 exch2_opposingSend(3,253)=4 exch2_pij(1,3,253)=1 exch2_pij(2,3,253)=0 exch2_pij(3,3,253)=0 exch2_pij(4,3,253)=1 exch2_oi(3,253)=0 exch2_oj(3,253)=0 exch2_neighbourId(4,253)=252 exch2_iLo(4,253)=0 exch2_iHi(4,253)=0 exch2_jLo(4,253)=0 exch2_jHi(4,253)=103 exch2_opposingSend(4,253)=3 exch2_pij(1,4,253)=1 exch2_pij(2,4,253)=0 exch2_pij(3,4,253)=0 exch2_pij(4,4,253)=1 exch2_oi(4,253)=0 exch2_oj(4,253)=0 RETURN END SUBROUTINE W2_E2SETUP_254 C Topology for tile 254 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(254)=34 exch2_tNy(254)=102 exch2_tBasex(254)=442 exch2_tBasey(254)=102 exch2_txGlobalo(254)=1973 exch2_tyGlobalo(254)=103 exch2_isWedge(254)=0 exch2_isNedge(254)=0 exch2_isEedge(254)=0 exch2_isSedge(254)=0 exch2_myFace(254)=4 exch2_mydNx(254)=510 exch2_mydNy(254)=510 exch2_nNeighbours(254)=4 exch2_neighbourId(1,254)=269 exch2_iLo(1,254)=0 exch2_iHi(1,254)=35 exch2_jLo(1,254)=103 exch2_jHi(1,254)=103 exch2_opposingSend(1,254)=2 exch2_pij(1,1,254)=1 exch2_pij(2,1,254)=0 exch2_pij(3,1,254)=0 exch2_pij(4,1,254)=1 exch2_oi(1,254)=0 exch2_oj(1,254)=0 exch2_neighbourId(2,254)=239 exch2_iLo(2,254)=0 exch2_iHi(2,254)=35 exch2_jLo(2,254)=0 exch2_jHi(2,254)=0 exch2_opposingSend(2,254)=1 exch2_pij(1,2,254)=1 exch2_pij(2,2,254)=0 exch2_pij(3,2,254)=0 exch2_pij(4,2,254)=1 exch2_oi(2,254)=0 exch2_oj(2,254)=0 exch2_neighbourId(3,254)=255 exch2_iLo(3,254)=35 exch2_iHi(3,254)=35 exch2_jLo(3,254)=0 exch2_jHi(3,254)=103 exch2_opposingSend(3,254)=6 exch2_pij(1,3,254)=1 exch2_pij(2,3,254)=0 exch2_pij(3,3,254)=0 exch2_pij(4,3,254)=1 exch2_oi(3,254)=0 exch2_oj(3,254)=0 exch2_neighbourId(4,254)=253 exch2_iLo(4,254)=0 exch2_iHi(4,254)=0 exch2_jLo(4,254)=0 exch2_jHi(4,254)=103 exch2_opposingSend(4,254)=3 exch2_pij(1,4,254)=1 exch2_pij(2,4,254)=0 exch2_pij(3,4,254)=0 exch2_pij(4,4,254)=1 exch2_oi(4,254)=0 exch2_oj(4,254)=0 RETURN END SUBROUTINE W2_E2SETUP_255 C Topology for tile 255 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(255)=34 exch2_tNy(255)=102 exch2_tBasex(255)=476 exch2_tBasey(255)=102 exch2_txGlobalo(255)=2007 exch2_tyGlobalo(255)=103 exch2_isWedge(255)=0 exch2_isNedge(255)=0 exch2_isEedge(255)=1 exch2_isSedge(255)=0 exch2_myFace(255)=4 exch2_mydNx(255)=510 exch2_mydNy(255)=510 exch2_nNeighbours(255)=6 exch2_neighbourId(1,255)=270 exch2_iLo(1,255)=0 exch2_iHi(1,255)=35 exch2_jLo(1,255)=103 exch2_jHi(1,255)=103 exch2_opposingSend(1,255)=2 exch2_pij(1,1,255)=1 exch2_pij(2,1,255)=0 exch2_pij(3,1,255)=0 exch2_pij(4,1,255)=1 exch2_oi(1,255)=0 exch2_oj(1,255)=0 exch2_neighbourId(2,255)=240 exch2_iLo(2,255)=0 exch2_iHi(2,255)=35 exch2_jLo(2,255)=0 exch2_jHi(2,255)=0 exch2_opposingSend(2,255)=1 exch2_pij(1,2,255)=1 exch2_pij(2,2,255)=0 exch2_pij(3,2,255)=0 exch2_pij(4,2,255)=1 exch2_oi(2,255)=0 exch2_oj(2,255)=0 exch2_neighbourId(3,255)=385 exch2_iLo(3,255)=35 exch2_iHi(3,255)=35 exch2_jLo(3,255)=68 exch2_jHi(3,255)=103 exch2_opposingSend(3,255)=2 exch2_pij(1,3,255)=0 exch2_pij(2,3,255)=1 exch2_pij(3,3,255)=-1 exch2_pij(4,3,255)=0 exch2_oi(3,255)=510 exch2_oj(3,255)=511 exch2_neighbourId(4,255)=386 exch2_iLo(4,255)=35 exch2_iHi(4,255)=35 exch2_jLo(4,255)=34 exch2_jHi(4,255)=69 exch2_opposingSend(4,255)=2 exch2_pij(1,4,255)=0 exch2_pij(2,4,255)=1 exch2_pij(3,4,255)=-1 exch2_pij(4,4,255)=0 exch2_oi(4,255)=510 exch2_oj(4,255)=511 exch2_neighbourId(5,255)=387 exch2_iLo(5,255)=35 exch2_iHi(5,255)=35 exch2_jLo(5,255)=0 exch2_jHi(5,255)=35 exch2_opposingSend(5,255)=2 exch2_pij(1,5,255)=0 exch2_pij(2,5,255)=1 exch2_pij(3,5,255)=-1 exch2_pij(4,5,255)=0 exch2_oi(5,255)=510 exch2_oj(5,255)=511 exch2_neighbourId(6,255)=254 exch2_iLo(6,255)=0 exch2_iHi(6,255)=0 exch2_jLo(6,255)=0 exch2_jHi(6,255)=103 exch2_opposingSend(6,255)=3 exch2_pij(1,6,255)=1 exch2_pij(2,6,255)=0 exch2_pij(3,6,255)=0 exch2_pij(4,6,255)=1 exch2_oi(6,255)=0 exch2_oj(6,255)=0 RETURN END SUBROUTINE W2_E2SETUP_256 C Topology for tile 256 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(256)=34 exch2_tNy(256)=102 exch2_tBasex(256)=0 exch2_tBasey(256)=204 exch2_txGlobalo(256)=1531 exch2_tyGlobalo(256)=205 exch2_isWedge(256)=1 exch2_isNedge(256)=0 exch2_isEedge(256)=0 exch2_isSedge(256)=0 exch2_myFace(256)=4 exch2_mydNx(256)=510 exch2_mydNy(256)=510 exch2_nNeighbours(256)=4 exch2_neighbourId(1,256)=271 exch2_iLo(1,256)=0 exch2_iHi(1,256)=35 exch2_jLo(1,256)=103 exch2_jHi(1,256)=103 exch2_opposingSend(1,256)=2 exch2_pij(1,1,256)=1 exch2_pij(2,1,256)=0 exch2_pij(3,1,256)=0 exch2_pij(4,1,256)=1 exch2_oi(1,256)=0 exch2_oj(1,256)=0 exch2_neighbourId(2,256)=241 exch2_iLo(2,256)=0 exch2_iHi(2,256)=35 exch2_jLo(2,256)=0 exch2_jHi(2,256)=0 exch2_opposingSend(2,256)=1 exch2_pij(1,2,256)=1 exch2_pij(2,2,256)=0 exch2_pij(3,2,256)=0 exch2_pij(4,2,256)=1 exch2_oi(2,256)=0 exch2_oj(2,256)=0 exch2_neighbourId(3,256)=257 exch2_iLo(3,256)=35 exch2_iHi(3,256)=35 exch2_jLo(3,256)=0 exch2_jHi(3,256)=103 exch2_opposingSend(3,256)=4 exch2_pij(1,3,256)=1 exch2_pij(2,3,256)=0 exch2_pij(3,3,256)=0 exch2_pij(4,3,256)=1 exch2_oi(3,256)=0 exch2_oj(3,256)=0 exch2_neighbourId(4,256)=195 exch2_iLo(4,256)=0 exch2_iHi(4,256)=0 exch2_jLo(4,256)=0 exch2_jHi(4,256)=103 exch2_opposingSend(4,256)=3 exch2_pij(1,4,256)=1 exch2_pij(2,4,256)=0 exch2_pij(3,4,256)=0 exch2_pij(4,4,256)=1 exch2_oi(4,256)=-510 exch2_oj(4,256)=0 RETURN END SUBROUTINE W2_E2SETUP_257 C Topology for tile 257 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(257)=34 exch2_tNy(257)=102 exch2_tBasex(257)=34 exch2_tBasey(257)=204 exch2_txGlobalo(257)=1565 exch2_tyGlobalo(257)=205 exch2_isWedge(257)=0 exch2_isNedge(257)=0 exch2_isEedge(257)=0 exch2_isSedge(257)=0 exch2_myFace(257)=4 exch2_mydNx(257)=510 exch2_mydNy(257)=510 exch2_nNeighbours(257)=4 exch2_neighbourId(1,257)=272 exch2_iLo(1,257)=0 exch2_iHi(1,257)=35 exch2_jLo(1,257)=103 exch2_jHi(1,257)=103 exch2_opposingSend(1,257)=2 exch2_pij(1,1,257)=1 exch2_pij(2,1,257)=0 exch2_pij(3,1,257)=0 exch2_pij(4,1,257)=1 exch2_oi(1,257)=0 exch2_oj(1,257)=0 exch2_neighbourId(2,257)=242 exch2_iLo(2,257)=0 exch2_iHi(2,257)=35 exch2_jLo(2,257)=0 exch2_jHi(2,257)=0 exch2_opposingSend(2,257)=1 exch2_pij(1,2,257)=1 exch2_pij(2,2,257)=0 exch2_pij(3,2,257)=0 exch2_pij(4,2,257)=1 exch2_oi(2,257)=0 exch2_oj(2,257)=0 exch2_neighbourId(3,257)=258 exch2_iLo(3,257)=35 exch2_iHi(3,257)=35 exch2_jLo(3,257)=0 exch2_jHi(3,257)=103 exch2_opposingSend(3,257)=4 exch2_pij(1,3,257)=1 exch2_pij(2,3,257)=0 exch2_pij(3,3,257)=0 exch2_pij(4,3,257)=1 exch2_oi(3,257)=0 exch2_oj(3,257)=0 exch2_neighbourId(4,257)=256 exch2_iLo(4,257)=0 exch2_iHi(4,257)=0 exch2_jLo(4,257)=0 exch2_jHi(4,257)=103 exch2_opposingSend(4,257)=3 exch2_pij(1,4,257)=1 exch2_pij(2,4,257)=0 exch2_pij(3,4,257)=0 exch2_pij(4,4,257)=1 exch2_oi(4,257)=0 exch2_oj(4,257)=0 RETURN END SUBROUTINE W2_E2SETUP_258 C Topology for tile 258 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(258)=34 exch2_tNy(258)=102 exch2_tBasex(258)=68 exch2_tBasey(258)=204 exch2_txGlobalo(258)=1599 exch2_tyGlobalo(258)=205 exch2_isWedge(258)=0 exch2_isNedge(258)=0 exch2_isEedge(258)=0 exch2_isSedge(258)=0 exch2_myFace(258)=4 exch2_mydNx(258)=510 exch2_mydNy(258)=510 exch2_nNeighbours(258)=4 exch2_neighbourId(1,258)=273 exch2_iLo(1,258)=0 exch2_iHi(1,258)=35 exch2_jLo(1,258)=103 exch2_jHi(1,258)=103 exch2_opposingSend(1,258)=2 exch2_pij(1,1,258)=1 exch2_pij(2,1,258)=0 exch2_pij(3,1,258)=0 exch2_pij(4,1,258)=1 exch2_oi(1,258)=0 exch2_oj(1,258)=0 exch2_neighbourId(2,258)=243 exch2_iLo(2,258)=0 exch2_iHi(2,258)=35 exch2_jLo(2,258)=0 exch2_jHi(2,258)=0 exch2_opposingSend(2,258)=1 exch2_pij(1,2,258)=1 exch2_pij(2,2,258)=0 exch2_pij(3,2,258)=0 exch2_pij(4,2,258)=1 exch2_oi(2,258)=0 exch2_oj(2,258)=0 exch2_neighbourId(3,258)=259 exch2_iLo(3,258)=35 exch2_iHi(3,258)=35 exch2_jLo(3,258)=0 exch2_jHi(3,258)=103 exch2_opposingSend(3,258)=4 exch2_pij(1,3,258)=1 exch2_pij(2,3,258)=0 exch2_pij(3,3,258)=0 exch2_pij(4,3,258)=1 exch2_oi(3,258)=0 exch2_oj(3,258)=0 exch2_neighbourId(4,258)=257 exch2_iLo(4,258)=0 exch2_iHi(4,258)=0 exch2_jLo(4,258)=0 exch2_jHi(4,258)=103 exch2_opposingSend(4,258)=3 exch2_pij(1,4,258)=1 exch2_pij(2,4,258)=0 exch2_pij(3,4,258)=0 exch2_pij(4,4,258)=1 exch2_oi(4,258)=0 exch2_oj(4,258)=0 RETURN END SUBROUTINE W2_E2SETUP_259 C Topology for tile 259 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(259)=34 exch2_tNy(259)=102 exch2_tBasex(259)=102 exch2_tBasey(259)=204 exch2_txGlobalo(259)=1633 exch2_tyGlobalo(259)=205 exch2_isWedge(259)=0 exch2_isNedge(259)=0 exch2_isEedge(259)=0 exch2_isSedge(259)=0 exch2_myFace(259)=4 exch2_mydNx(259)=510 exch2_mydNy(259)=510 exch2_nNeighbours(259)=4 exch2_neighbourId(1,259)=274 exch2_iLo(1,259)=0 exch2_iHi(1,259)=35 exch2_jLo(1,259)=103 exch2_jHi(1,259)=103 exch2_opposingSend(1,259)=2 exch2_pij(1,1,259)=1 exch2_pij(2,1,259)=0 exch2_pij(3,1,259)=0 exch2_pij(4,1,259)=1 exch2_oi(1,259)=0 exch2_oj(1,259)=0 exch2_neighbourId(2,259)=244 exch2_iLo(2,259)=0 exch2_iHi(2,259)=35 exch2_jLo(2,259)=0 exch2_jHi(2,259)=0 exch2_opposingSend(2,259)=1 exch2_pij(1,2,259)=1 exch2_pij(2,2,259)=0 exch2_pij(3,2,259)=0 exch2_pij(4,2,259)=1 exch2_oi(2,259)=0 exch2_oj(2,259)=0 exch2_neighbourId(3,259)=260 exch2_iLo(3,259)=35 exch2_iHi(3,259)=35 exch2_jLo(3,259)=0 exch2_jHi(3,259)=103 exch2_opposingSend(3,259)=4 exch2_pij(1,3,259)=1 exch2_pij(2,3,259)=0 exch2_pij(3,3,259)=0 exch2_pij(4,3,259)=1 exch2_oi(3,259)=0 exch2_oj(3,259)=0 exch2_neighbourId(4,259)=258 exch2_iLo(4,259)=0 exch2_iHi(4,259)=0 exch2_jLo(4,259)=0 exch2_jHi(4,259)=103 exch2_opposingSend(4,259)=3 exch2_pij(1,4,259)=1 exch2_pij(2,4,259)=0 exch2_pij(3,4,259)=0 exch2_pij(4,4,259)=1 exch2_oi(4,259)=0 exch2_oj(4,259)=0 RETURN END SUBROUTINE W2_E2SETUP_260 C Topology for tile 260 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(260)=34 exch2_tNy(260)=102 exch2_tBasex(260)=136 exch2_tBasey(260)=204 exch2_txGlobalo(260)=1667 exch2_tyGlobalo(260)=205 exch2_isWedge(260)=0 exch2_isNedge(260)=0 exch2_isEedge(260)=0 exch2_isSedge(260)=0 exch2_myFace(260)=4 exch2_mydNx(260)=510 exch2_mydNy(260)=510 exch2_nNeighbours(260)=4 exch2_neighbourId(1,260)=275 exch2_iLo(1,260)=0 exch2_iHi(1,260)=35 exch2_jLo(1,260)=103 exch2_jHi(1,260)=103 exch2_opposingSend(1,260)=2 exch2_pij(1,1,260)=1 exch2_pij(2,1,260)=0 exch2_pij(3,1,260)=0 exch2_pij(4,1,260)=1 exch2_oi(1,260)=0 exch2_oj(1,260)=0 exch2_neighbourId(2,260)=245 exch2_iLo(2,260)=0 exch2_iHi(2,260)=35 exch2_jLo(2,260)=0 exch2_jHi(2,260)=0 exch2_opposingSend(2,260)=1 exch2_pij(1,2,260)=1 exch2_pij(2,2,260)=0 exch2_pij(3,2,260)=0 exch2_pij(4,2,260)=1 exch2_oi(2,260)=0 exch2_oj(2,260)=0 exch2_neighbourId(3,260)=261 exch2_iLo(3,260)=35 exch2_iHi(3,260)=35 exch2_jLo(3,260)=0 exch2_jHi(3,260)=103 exch2_opposingSend(3,260)=4 exch2_pij(1,3,260)=1 exch2_pij(2,3,260)=0 exch2_pij(3,3,260)=0 exch2_pij(4,3,260)=1 exch2_oi(3,260)=0 exch2_oj(3,260)=0 exch2_neighbourId(4,260)=259 exch2_iLo(4,260)=0 exch2_iHi(4,260)=0 exch2_jLo(4,260)=0 exch2_jHi(4,260)=103 exch2_opposingSend(4,260)=3 exch2_pij(1,4,260)=1 exch2_pij(2,4,260)=0 exch2_pij(3,4,260)=0 exch2_pij(4,4,260)=1 exch2_oi(4,260)=0 exch2_oj(4,260)=0 RETURN END SUBROUTINE W2_E2SETUP_261 C Topology for tile 261 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(261)=34 exch2_tNy(261)=102 exch2_tBasex(261)=170 exch2_tBasey(261)=204 exch2_txGlobalo(261)=1701 exch2_tyGlobalo(261)=205 exch2_isWedge(261)=0 exch2_isNedge(261)=0 exch2_isEedge(261)=0 exch2_isSedge(261)=0 exch2_myFace(261)=4 exch2_mydNx(261)=510 exch2_mydNy(261)=510 exch2_nNeighbours(261)=4 exch2_neighbourId(1,261)=276 exch2_iLo(1,261)=0 exch2_iHi(1,261)=35 exch2_jLo(1,261)=103 exch2_jHi(1,261)=103 exch2_opposingSend(1,261)=2 exch2_pij(1,1,261)=1 exch2_pij(2,1,261)=0 exch2_pij(3,1,261)=0 exch2_pij(4,1,261)=1 exch2_oi(1,261)=0 exch2_oj(1,261)=0 exch2_neighbourId(2,261)=246 exch2_iLo(2,261)=0 exch2_iHi(2,261)=35 exch2_jLo(2,261)=0 exch2_jHi(2,261)=0 exch2_opposingSend(2,261)=1 exch2_pij(1,2,261)=1 exch2_pij(2,2,261)=0 exch2_pij(3,2,261)=0 exch2_pij(4,2,261)=1 exch2_oi(2,261)=0 exch2_oj(2,261)=0 exch2_neighbourId(3,261)=262 exch2_iLo(3,261)=35 exch2_iHi(3,261)=35 exch2_jLo(3,261)=0 exch2_jHi(3,261)=103 exch2_opposingSend(3,261)=4 exch2_pij(1,3,261)=1 exch2_pij(2,3,261)=0 exch2_pij(3,3,261)=0 exch2_pij(4,3,261)=1 exch2_oi(3,261)=0 exch2_oj(3,261)=0 exch2_neighbourId(4,261)=260 exch2_iLo(4,261)=0 exch2_iHi(4,261)=0 exch2_jLo(4,261)=0 exch2_jHi(4,261)=103 exch2_opposingSend(4,261)=3 exch2_pij(1,4,261)=1 exch2_pij(2,4,261)=0 exch2_pij(3,4,261)=0 exch2_pij(4,4,261)=1 exch2_oi(4,261)=0 exch2_oj(4,261)=0 RETURN END SUBROUTINE W2_E2SETUP_262 C Topology for tile 262 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(262)=34 exch2_tNy(262)=102 exch2_tBasex(262)=204 exch2_tBasey(262)=204 exch2_txGlobalo(262)=1735 exch2_tyGlobalo(262)=205 exch2_isWedge(262)=0 exch2_isNedge(262)=0 exch2_isEedge(262)=0 exch2_isSedge(262)=0 exch2_myFace(262)=4 exch2_mydNx(262)=510 exch2_mydNy(262)=510 exch2_nNeighbours(262)=4 exch2_neighbourId(1,262)=277 exch2_iLo(1,262)=0 exch2_iHi(1,262)=35 exch2_jLo(1,262)=103 exch2_jHi(1,262)=103 exch2_opposingSend(1,262)=2 exch2_pij(1,1,262)=1 exch2_pij(2,1,262)=0 exch2_pij(3,1,262)=0 exch2_pij(4,1,262)=1 exch2_oi(1,262)=0 exch2_oj(1,262)=0 exch2_neighbourId(2,262)=247 exch2_iLo(2,262)=0 exch2_iHi(2,262)=35 exch2_jLo(2,262)=0 exch2_jHi(2,262)=0 exch2_opposingSend(2,262)=1 exch2_pij(1,2,262)=1 exch2_pij(2,2,262)=0 exch2_pij(3,2,262)=0 exch2_pij(4,2,262)=1 exch2_oi(2,262)=0 exch2_oj(2,262)=0 exch2_neighbourId(3,262)=263 exch2_iLo(3,262)=35 exch2_iHi(3,262)=35 exch2_jLo(3,262)=0 exch2_jHi(3,262)=103 exch2_opposingSend(3,262)=4 exch2_pij(1,3,262)=1 exch2_pij(2,3,262)=0 exch2_pij(3,3,262)=0 exch2_pij(4,3,262)=1 exch2_oi(3,262)=0 exch2_oj(3,262)=0 exch2_neighbourId(4,262)=261 exch2_iLo(4,262)=0 exch2_iHi(4,262)=0 exch2_jLo(4,262)=0 exch2_jHi(4,262)=103 exch2_opposingSend(4,262)=3 exch2_pij(1,4,262)=1 exch2_pij(2,4,262)=0 exch2_pij(3,4,262)=0 exch2_pij(4,4,262)=1 exch2_oi(4,262)=0 exch2_oj(4,262)=0 RETURN END SUBROUTINE W2_E2SETUP_263 C Topology for tile 263 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(263)=34 exch2_tNy(263)=102 exch2_tBasex(263)=238 exch2_tBasey(263)=204 exch2_txGlobalo(263)=1769 exch2_tyGlobalo(263)=205 exch2_isWedge(263)=0 exch2_isNedge(263)=0 exch2_isEedge(263)=0 exch2_isSedge(263)=0 exch2_myFace(263)=4 exch2_mydNx(263)=510 exch2_mydNy(263)=510 exch2_nNeighbours(263)=4 exch2_neighbourId(1,263)=278 exch2_iLo(1,263)=0 exch2_iHi(1,263)=35 exch2_jLo(1,263)=103 exch2_jHi(1,263)=103 exch2_opposingSend(1,263)=2 exch2_pij(1,1,263)=1 exch2_pij(2,1,263)=0 exch2_pij(3,1,263)=0 exch2_pij(4,1,263)=1 exch2_oi(1,263)=0 exch2_oj(1,263)=0 exch2_neighbourId(2,263)=248 exch2_iLo(2,263)=0 exch2_iHi(2,263)=35 exch2_jLo(2,263)=0 exch2_jHi(2,263)=0 exch2_opposingSend(2,263)=1 exch2_pij(1,2,263)=1 exch2_pij(2,2,263)=0 exch2_pij(3,2,263)=0 exch2_pij(4,2,263)=1 exch2_oi(2,263)=0 exch2_oj(2,263)=0 exch2_neighbourId(3,263)=264 exch2_iLo(3,263)=35 exch2_iHi(3,263)=35 exch2_jLo(3,263)=0 exch2_jHi(3,263)=103 exch2_opposingSend(3,263)=4 exch2_pij(1,3,263)=1 exch2_pij(2,3,263)=0 exch2_pij(3,3,263)=0 exch2_pij(4,3,263)=1 exch2_oi(3,263)=0 exch2_oj(3,263)=0 exch2_neighbourId(4,263)=262 exch2_iLo(4,263)=0 exch2_iHi(4,263)=0 exch2_jLo(4,263)=0 exch2_jHi(4,263)=103 exch2_opposingSend(4,263)=3 exch2_pij(1,4,263)=1 exch2_pij(2,4,263)=0 exch2_pij(3,4,263)=0 exch2_pij(4,4,263)=1 exch2_oi(4,263)=0 exch2_oj(4,263)=0 RETURN END SUBROUTINE W2_E2SETUP_264 C Topology for tile 264 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(264)=34 exch2_tNy(264)=102 exch2_tBasex(264)=272 exch2_tBasey(264)=204 exch2_txGlobalo(264)=1803 exch2_tyGlobalo(264)=205 exch2_isWedge(264)=0 exch2_isNedge(264)=0 exch2_isEedge(264)=0 exch2_isSedge(264)=0 exch2_myFace(264)=4 exch2_mydNx(264)=510 exch2_mydNy(264)=510 exch2_nNeighbours(264)=4 exch2_neighbourId(1,264)=279 exch2_iLo(1,264)=0 exch2_iHi(1,264)=35 exch2_jLo(1,264)=103 exch2_jHi(1,264)=103 exch2_opposingSend(1,264)=2 exch2_pij(1,1,264)=1 exch2_pij(2,1,264)=0 exch2_pij(3,1,264)=0 exch2_pij(4,1,264)=1 exch2_oi(1,264)=0 exch2_oj(1,264)=0 exch2_neighbourId(2,264)=249 exch2_iLo(2,264)=0 exch2_iHi(2,264)=35 exch2_jLo(2,264)=0 exch2_jHi(2,264)=0 exch2_opposingSend(2,264)=1 exch2_pij(1,2,264)=1 exch2_pij(2,2,264)=0 exch2_pij(3,2,264)=0 exch2_pij(4,2,264)=1 exch2_oi(2,264)=0 exch2_oj(2,264)=0 exch2_neighbourId(3,264)=265 exch2_iLo(3,264)=35 exch2_iHi(3,264)=35 exch2_jLo(3,264)=0 exch2_jHi(3,264)=103 exch2_opposingSend(3,264)=4 exch2_pij(1,3,264)=1 exch2_pij(2,3,264)=0 exch2_pij(3,3,264)=0 exch2_pij(4,3,264)=1 exch2_oi(3,264)=0 exch2_oj(3,264)=0 exch2_neighbourId(4,264)=263 exch2_iLo(4,264)=0 exch2_iHi(4,264)=0 exch2_jLo(4,264)=0 exch2_jHi(4,264)=103 exch2_opposingSend(4,264)=3 exch2_pij(1,4,264)=1 exch2_pij(2,4,264)=0 exch2_pij(3,4,264)=0 exch2_pij(4,4,264)=1 exch2_oi(4,264)=0 exch2_oj(4,264)=0 RETURN END SUBROUTINE W2_E2SETUP_265 C Topology for tile 265 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(265)=34 exch2_tNy(265)=102 exch2_tBasex(265)=306 exch2_tBasey(265)=204 exch2_txGlobalo(265)=1837 exch2_tyGlobalo(265)=205 exch2_isWedge(265)=0 exch2_isNedge(265)=0 exch2_isEedge(265)=0 exch2_isSedge(265)=0 exch2_myFace(265)=4 exch2_mydNx(265)=510 exch2_mydNy(265)=510 exch2_nNeighbours(265)=4 exch2_neighbourId(1,265)=280 exch2_iLo(1,265)=0 exch2_iHi(1,265)=35 exch2_jLo(1,265)=103 exch2_jHi(1,265)=103 exch2_opposingSend(1,265)=2 exch2_pij(1,1,265)=1 exch2_pij(2,1,265)=0 exch2_pij(3,1,265)=0 exch2_pij(4,1,265)=1 exch2_oi(1,265)=0 exch2_oj(1,265)=0 exch2_neighbourId(2,265)=250 exch2_iLo(2,265)=0 exch2_iHi(2,265)=35 exch2_jLo(2,265)=0 exch2_jHi(2,265)=0 exch2_opposingSend(2,265)=1 exch2_pij(1,2,265)=1 exch2_pij(2,2,265)=0 exch2_pij(3,2,265)=0 exch2_pij(4,2,265)=1 exch2_oi(2,265)=0 exch2_oj(2,265)=0 exch2_neighbourId(3,265)=266 exch2_iLo(3,265)=35 exch2_iHi(3,265)=35 exch2_jLo(3,265)=0 exch2_jHi(3,265)=103 exch2_opposingSend(3,265)=4 exch2_pij(1,3,265)=1 exch2_pij(2,3,265)=0 exch2_pij(3,3,265)=0 exch2_pij(4,3,265)=1 exch2_oi(3,265)=0 exch2_oj(3,265)=0 exch2_neighbourId(4,265)=264 exch2_iLo(4,265)=0 exch2_iHi(4,265)=0 exch2_jLo(4,265)=0 exch2_jHi(4,265)=103 exch2_opposingSend(4,265)=3 exch2_pij(1,4,265)=1 exch2_pij(2,4,265)=0 exch2_pij(3,4,265)=0 exch2_pij(4,4,265)=1 exch2_oi(4,265)=0 exch2_oj(4,265)=0 RETURN END SUBROUTINE W2_E2SETUP_266 C Topology for tile 266 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(266)=34 exch2_tNy(266)=102 exch2_tBasex(266)=340 exch2_tBasey(266)=204 exch2_txGlobalo(266)=1871 exch2_tyGlobalo(266)=205 exch2_isWedge(266)=0 exch2_isNedge(266)=0 exch2_isEedge(266)=0 exch2_isSedge(266)=0 exch2_myFace(266)=4 exch2_mydNx(266)=510 exch2_mydNy(266)=510 exch2_nNeighbours(266)=4 exch2_neighbourId(1,266)=281 exch2_iLo(1,266)=0 exch2_iHi(1,266)=35 exch2_jLo(1,266)=103 exch2_jHi(1,266)=103 exch2_opposingSend(1,266)=2 exch2_pij(1,1,266)=1 exch2_pij(2,1,266)=0 exch2_pij(3,1,266)=0 exch2_pij(4,1,266)=1 exch2_oi(1,266)=0 exch2_oj(1,266)=0 exch2_neighbourId(2,266)=251 exch2_iLo(2,266)=0 exch2_iHi(2,266)=35 exch2_jLo(2,266)=0 exch2_jHi(2,266)=0 exch2_opposingSend(2,266)=1 exch2_pij(1,2,266)=1 exch2_pij(2,2,266)=0 exch2_pij(3,2,266)=0 exch2_pij(4,2,266)=1 exch2_oi(2,266)=0 exch2_oj(2,266)=0 exch2_neighbourId(3,266)=267 exch2_iLo(3,266)=35 exch2_iHi(3,266)=35 exch2_jLo(3,266)=0 exch2_jHi(3,266)=103 exch2_opposingSend(3,266)=4 exch2_pij(1,3,266)=1 exch2_pij(2,3,266)=0 exch2_pij(3,3,266)=0 exch2_pij(4,3,266)=1 exch2_oi(3,266)=0 exch2_oj(3,266)=0 exch2_neighbourId(4,266)=265 exch2_iLo(4,266)=0 exch2_iHi(4,266)=0 exch2_jLo(4,266)=0 exch2_jHi(4,266)=103 exch2_opposingSend(4,266)=3 exch2_pij(1,4,266)=1 exch2_pij(2,4,266)=0 exch2_pij(3,4,266)=0 exch2_pij(4,4,266)=1 exch2_oi(4,266)=0 exch2_oj(4,266)=0 RETURN END SUBROUTINE W2_E2SETUP_267 C Topology for tile 267 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(267)=34 exch2_tNy(267)=102 exch2_tBasex(267)=374 exch2_tBasey(267)=204 exch2_txGlobalo(267)=1905 exch2_tyGlobalo(267)=205 exch2_isWedge(267)=0 exch2_isNedge(267)=0 exch2_isEedge(267)=0 exch2_isSedge(267)=0 exch2_myFace(267)=4 exch2_mydNx(267)=510 exch2_mydNy(267)=510 exch2_nNeighbours(267)=4 exch2_neighbourId(1,267)=282 exch2_iLo(1,267)=0 exch2_iHi(1,267)=35 exch2_jLo(1,267)=103 exch2_jHi(1,267)=103 exch2_opposingSend(1,267)=2 exch2_pij(1,1,267)=1 exch2_pij(2,1,267)=0 exch2_pij(3,1,267)=0 exch2_pij(4,1,267)=1 exch2_oi(1,267)=0 exch2_oj(1,267)=0 exch2_neighbourId(2,267)=252 exch2_iLo(2,267)=0 exch2_iHi(2,267)=35 exch2_jLo(2,267)=0 exch2_jHi(2,267)=0 exch2_opposingSend(2,267)=1 exch2_pij(1,2,267)=1 exch2_pij(2,2,267)=0 exch2_pij(3,2,267)=0 exch2_pij(4,2,267)=1 exch2_oi(2,267)=0 exch2_oj(2,267)=0 exch2_neighbourId(3,267)=268 exch2_iLo(3,267)=35 exch2_iHi(3,267)=35 exch2_jLo(3,267)=0 exch2_jHi(3,267)=103 exch2_opposingSend(3,267)=4 exch2_pij(1,3,267)=1 exch2_pij(2,3,267)=0 exch2_pij(3,3,267)=0 exch2_pij(4,3,267)=1 exch2_oi(3,267)=0 exch2_oj(3,267)=0 exch2_neighbourId(4,267)=266 exch2_iLo(4,267)=0 exch2_iHi(4,267)=0 exch2_jLo(4,267)=0 exch2_jHi(4,267)=103 exch2_opposingSend(4,267)=3 exch2_pij(1,4,267)=1 exch2_pij(2,4,267)=0 exch2_pij(3,4,267)=0 exch2_pij(4,4,267)=1 exch2_oi(4,267)=0 exch2_oj(4,267)=0 RETURN END SUBROUTINE W2_E2SETUP_268 C Topology for tile 268 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(268)=34 exch2_tNy(268)=102 exch2_tBasex(268)=408 exch2_tBasey(268)=204 exch2_txGlobalo(268)=1939 exch2_tyGlobalo(268)=205 exch2_isWedge(268)=0 exch2_isNedge(268)=0 exch2_isEedge(268)=0 exch2_isSedge(268)=0 exch2_myFace(268)=4 exch2_mydNx(268)=510 exch2_mydNy(268)=510 exch2_nNeighbours(268)=4 exch2_neighbourId(1,268)=283 exch2_iLo(1,268)=0 exch2_iHi(1,268)=35 exch2_jLo(1,268)=103 exch2_jHi(1,268)=103 exch2_opposingSend(1,268)=2 exch2_pij(1,1,268)=1 exch2_pij(2,1,268)=0 exch2_pij(3,1,268)=0 exch2_pij(4,1,268)=1 exch2_oi(1,268)=0 exch2_oj(1,268)=0 exch2_neighbourId(2,268)=253 exch2_iLo(2,268)=0 exch2_iHi(2,268)=35 exch2_jLo(2,268)=0 exch2_jHi(2,268)=0 exch2_opposingSend(2,268)=1 exch2_pij(1,2,268)=1 exch2_pij(2,2,268)=0 exch2_pij(3,2,268)=0 exch2_pij(4,2,268)=1 exch2_oi(2,268)=0 exch2_oj(2,268)=0 exch2_neighbourId(3,268)=269 exch2_iLo(3,268)=35 exch2_iHi(3,268)=35 exch2_jLo(3,268)=0 exch2_jHi(3,268)=103 exch2_opposingSend(3,268)=4 exch2_pij(1,3,268)=1 exch2_pij(2,3,268)=0 exch2_pij(3,3,268)=0 exch2_pij(4,3,268)=1 exch2_oi(3,268)=0 exch2_oj(3,268)=0 exch2_neighbourId(4,268)=267 exch2_iLo(4,268)=0 exch2_iHi(4,268)=0 exch2_jLo(4,268)=0 exch2_jHi(4,268)=103 exch2_opposingSend(4,268)=3 exch2_pij(1,4,268)=1 exch2_pij(2,4,268)=0 exch2_pij(3,4,268)=0 exch2_pij(4,4,268)=1 exch2_oi(4,268)=0 exch2_oj(4,268)=0 RETURN END SUBROUTINE W2_E2SETUP_269 C Topology for tile 269 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(269)=34 exch2_tNy(269)=102 exch2_tBasex(269)=442 exch2_tBasey(269)=204 exch2_txGlobalo(269)=1973 exch2_tyGlobalo(269)=205 exch2_isWedge(269)=0 exch2_isNedge(269)=0 exch2_isEedge(269)=0 exch2_isSedge(269)=0 exch2_myFace(269)=4 exch2_mydNx(269)=510 exch2_mydNy(269)=510 exch2_nNeighbours(269)=4 exch2_neighbourId(1,269)=284 exch2_iLo(1,269)=0 exch2_iHi(1,269)=35 exch2_jLo(1,269)=103 exch2_jHi(1,269)=103 exch2_opposingSend(1,269)=2 exch2_pij(1,1,269)=1 exch2_pij(2,1,269)=0 exch2_pij(3,1,269)=0 exch2_pij(4,1,269)=1 exch2_oi(1,269)=0 exch2_oj(1,269)=0 exch2_neighbourId(2,269)=254 exch2_iLo(2,269)=0 exch2_iHi(2,269)=35 exch2_jLo(2,269)=0 exch2_jHi(2,269)=0 exch2_opposingSend(2,269)=1 exch2_pij(1,2,269)=1 exch2_pij(2,2,269)=0 exch2_pij(3,2,269)=0 exch2_pij(4,2,269)=1 exch2_oi(2,269)=0 exch2_oj(2,269)=0 exch2_neighbourId(3,269)=270 exch2_iLo(3,269)=35 exch2_iHi(3,269)=35 exch2_jLo(3,269)=0 exch2_jHi(3,269)=103 exch2_opposingSend(3,269)=6 exch2_pij(1,3,269)=1 exch2_pij(2,3,269)=0 exch2_pij(3,3,269)=0 exch2_pij(4,3,269)=1 exch2_oi(3,269)=0 exch2_oj(3,269)=0 exch2_neighbourId(4,269)=268 exch2_iLo(4,269)=0 exch2_iHi(4,269)=0 exch2_jLo(4,269)=0 exch2_jHi(4,269)=103 exch2_opposingSend(4,269)=3 exch2_pij(1,4,269)=1 exch2_pij(2,4,269)=0 exch2_pij(3,4,269)=0 exch2_pij(4,4,269)=1 exch2_oi(4,269)=0 exch2_oj(4,269)=0 RETURN END SUBROUTINE W2_E2SETUP_270 C Topology for tile 270 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(270)=34 exch2_tNy(270)=102 exch2_tBasex(270)=476 exch2_tBasey(270)=204 exch2_txGlobalo(270)=2007 exch2_tyGlobalo(270)=205 exch2_isWedge(270)=0 exch2_isNedge(270)=0 exch2_isEedge(270)=1 exch2_isSedge(270)=0 exch2_myFace(270)=4 exch2_mydNx(270)=510 exch2_mydNy(270)=510 exch2_nNeighbours(270)=6 exch2_neighbourId(1,270)=285 exch2_iLo(1,270)=0 exch2_iHi(1,270)=35 exch2_jLo(1,270)=103 exch2_jHi(1,270)=103 exch2_opposingSend(1,270)=2 exch2_pij(1,1,270)=1 exch2_pij(2,1,270)=0 exch2_pij(3,1,270)=0 exch2_pij(4,1,270)=1 exch2_oi(1,270)=0 exch2_oj(1,270)=0 exch2_neighbourId(2,270)=255 exch2_iLo(2,270)=0 exch2_iHi(2,270)=35 exch2_jLo(2,270)=0 exch2_jHi(2,270)=0 exch2_opposingSend(2,270)=1 exch2_pij(1,2,270)=1 exch2_pij(2,2,270)=0 exch2_pij(3,2,270)=0 exch2_pij(4,2,270)=1 exch2_oi(2,270)=0 exch2_oj(2,270)=0 exch2_neighbourId(3,270)=382 exch2_iLo(3,270)=35 exch2_iHi(3,270)=35 exch2_jLo(3,270)=68 exch2_jHi(3,270)=103 exch2_opposingSend(3,270)=2 exch2_pij(1,3,270)=0 exch2_pij(2,3,270)=1 exch2_pij(3,3,270)=-1 exch2_pij(4,3,270)=0 exch2_oi(3,270)=510 exch2_oj(3,270)=511 exch2_neighbourId(4,270)=383 exch2_iLo(4,270)=35 exch2_iHi(4,270)=35 exch2_jLo(4,270)=34 exch2_jHi(4,270)=69 exch2_opposingSend(4,270)=2 exch2_pij(1,4,270)=0 exch2_pij(2,4,270)=1 exch2_pij(3,4,270)=-1 exch2_pij(4,4,270)=0 exch2_oi(4,270)=510 exch2_oj(4,270)=511 exch2_neighbourId(5,270)=384 exch2_iLo(5,270)=35 exch2_iHi(5,270)=35 exch2_jLo(5,270)=0 exch2_jHi(5,270)=35 exch2_opposingSend(5,270)=2 exch2_pij(1,5,270)=0 exch2_pij(2,5,270)=1 exch2_pij(3,5,270)=-1 exch2_pij(4,5,270)=0 exch2_oi(5,270)=510 exch2_oj(5,270)=511 exch2_neighbourId(6,270)=269 exch2_iLo(6,270)=0 exch2_iHi(6,270)=0 exch2_jLo(6,270)=0 exch2_jHi(6,270)=103 exch2_opposingSend(6,270)=3 exch2_pij(1,6,270)=1 exch2_pij(2,6,270)=0 exch2_pij(3,6,270)=0 exch2_pij(4,6,270)=1 exch2_oi(6,270)=0 exch2_oj(6,270)=0 RETURN END SUBROUTINE W2_E2SETUP_271 C Topology for tile 271 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(271)=34 exch2_tNy(271)=102 exch2_tBasex(271)=0 exch2_tBasey(271)=306 exch2_txGlobalo(271)=1531 exch2_tyGlobalo(271)=307 exch2_isWedge(271)=1 exch2_isNedge(271)=0 exch2_isEedge(271)=0 exch2_isSedge(271)=0 exch2_myFace(271)=4 exch2_mydNx(271)=510 exch2_mydNy(271)=510 exch2_nNeighbours(271)=4 exch2_neighbourId(1,271)=286 exch2_iLo(1,271)=0 exch2_iHi(1,271)=35 exch2_jLo(1,271)=103 exch2_jHi(1,271)=103 exch2_opposingSend(1,271)=2 exch2_pij(1,1,271)=1 exch2_pij(2,1,271)=0 exch2_pij(3,1,271)=0 exch2_pij(4,1,271)=1 exch2_oi(1,271)=0 exch2_oj(1,271)=0 exch2_neighbourId(2,271)=256 exch2_iLo(2,271)=0 exch2_iHi(2,271)=35 exch2_jLo(2,271)=0 exch2_jHi(2,271)=0 exch2_opposingSend(2,271)=1 exch2_pij(1,2,271)=1 exch2_pij(2,2,271)=0 exch2_pij(3,2,271)=0 exch2_pij(4,2,271)=1 exch2_oi(2,271)=0 exch2_oj(2,271)=0 exch2_neighbourId(3,271)=272 exch2_iLo(3,271)=35 exch2_iHi(3,271)=35 exch2_jLo(3,271)=0 exch2_jHi(3,271)=103 exch2_opposingSend(3,271)=4 exch2_pij(1,3,271)=1 exch2_pij(2,3,271)=0 exch2_pij(3,3,271)=0 exch2_pij(4,3,271)=1 exch2_oi(3,271)=0 exch2_oj(3,271)=0 exch2_neighbourId(4,271)=210 exch2_iLo(4,271)=0 exch2_iHi(4,271)=0 exch2_jLo(4,271)=0 exch2_jHi(4,271)=103 exch2_opposingSend(4,271)=3 exch2_pij(1,4,271)=1 exch2_pij(2,4,271)=0 exch2_pij(3,4,271)=0 exch2_pij(4,4,271)=1 exch2_oi(4,271)=-510 exch2_oj(4,271)=0 RETURN END SUBROUTINE W2_E2SETUP_272 C Topology for tile 272 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(272)=34 exch2_tNy(272)=102 exch2_tBasex(272)=34 exch2_tBasey(272)=306 exch2_txGlobalo(272)=1565 exch2_tyGlobalo(272)=307 exch2_isWedge(272)=0 exch2_isNedge(272)=0 exch2_isEedge(272)=0 exch2_isSedge(272)=0 exch2_myFace(272)=4 exch2_mydNx(272)=510 exch2_mydNy(272)=510 exch2_nNeighbours(272)=4 exch2_neighbourId(1,272)=287 exch2_iLo(1,272)=0 exch2_iHi(1,272)=35 exch2_jLo(1,272)=103 exch2_jHi(1,272)=103 exch2_opposingSend(1,272)=2 exch2_pij(1,1,272)=1 exch2_pij(2,1,272)=0 exch2_pij(3,1,272)=0 exch2_pij(4,1,272)=1 exch2_oi(1,272)=0 exch2_oj(1,272)=0 exch2_neighbourId(2,272)=257 exch2_iLo(2,272)=0 exch2_iHi(2,272)=35 exch2_jLo(2,272)=0 exch2_jHi(2,272)=0 exch2_opposingSend(2,272)=1 exch2_pij(1,2,272)=1 exch2_pij(2,2,272)=0 exch2_pij(3,2,272)=0 exch2_pij(4,2,272)=1 exch2_oi(2,272)=0 exch2_oj(2,272)=0 exch2_neighbourId(3,272)=273 exch2_iLo(3,272)=35 exch2_iHi(3,272)=35 exch2_jLo(3,272)=0 exch2_jHi(3,272)=103 exch2_opposingSend(3,272)=4 exch2_pij(1,3,272)=1 exch2_pij(2,3,272)=0 exch2_pij(3,3,272)=0 exch2_pij(4,3,272)=1 exch2_oi(3,272)=0 exch2_oj(3,272)=0 exch2_neighbourId(4,272)=271 exch2_iLo(4,272)=0 exch2_iHi(4,272)=0 exch2_jLo(4,272)=0 exch2_jHi(4,272)=103 exch2_opposingSend(4,272)=3 exch2_pij(1,4,272)=1 exch2_pij(2,4,272)=0 exch2_pij(3,4,272)=0 exch2_pij(4,4,272)=1 exch2_oi(4,272)=0 exch2_oj(4,272)=0 RETURN END SUBROUTINE W2_E2SETUP_273 C Topology for tile 273 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(273)=34 exch2_tNy(273)=102 exch2_tBasex(273)=68 exch2_tBasey(273)=306 exch2_txGlobalo(273)=1599 exch2_tyGlobalo(273)=307 exch2_isWedge(273)=0 exch2_isNedge(273)=0 exch2_isEedge(273)=0 exch2_isSedge(273)=0 exch2_myFace(273)=4 exch2_mydNx(273)=510 exch2_mydNy(273)=510 exch2_nNeighbours(273)=4 exch2_neighbourId(1,273)=288 exch2_iLo(1,273)=0 exch2_iHi(1,273)=35 exch2_jLo(1,273)=103 exch2_jHi(1,273)=103 exch2_opposingSend(1,273)=2 exch2_pij(1,1,273)=1 exch2_pij(2,1,273)=0 exch2_pij(3,1,273)=0 exch2_pij(4,1,273)=1 exch2_oi(1,273)=0 exch2_oj(1,273)=0 exch2_neighbourId(2,273)=258 exch2_iLo(2,273)=0 exch2_iHi(2,273)=35 exch2_jLo(2,273)=0 exch2_jHi(2,273)=0 exch2_opposingSend(2,273)=1 exch2_pij(1,2,273)=1 exch2_pij(2,2,273)=0 exch2_pij(3,2,273)=0 exch2_pij(4,2,273)=1 exch2_oi(2,273)=0 exch2_oj(2,273)=0 exch2_neighbourId(3,273)=274 exch2_iLo(3,273)=35 exch2_iHi(3,273)=35 exch2_jLo(3,273)=0 exch2_jHi(3,273)=103 exch2_opposingSend(3,273)=4 exch2_pij(1,3,273)=1 exch2_pij(2,3,273)=0 exch2_pij(3,3,273)=0 exch2_pij(4,3,273)=1 exch2_oi(3,273)=0 exch2_oj(3,273)=0 exch2_neighbourId(4,273)=272 exch2_iLo(4,273)=0 exch2_iHi(4,273)=0 exch2_jLo(4,273)=0 exch2_jHi(4,273)=103 exch2_opposingSend(4,273)=3 exch2_pij(1,4,273)=1 exch2_pij(2,4,273)=0 exch2_pij(3,4,273)=0 exch2_pij(4,4,273)=1 exch2_oi(4,273)=0 exch2_oj(4,273)=0 RETURN END SUBROUTINE W2_E2SETUP_274 C Topology for tile 274 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(274)=34 exch2_tNy(274)=102 exch2_tBasex(274)=102 exch2_tBasey(274)=306 exch2_txGlobalo(274)=1633 exch2_tyGlobalo(274)=307 exch2_isWedge(274)=0 exch2_isNedge(274)=0 exch2_isEedge(274)=0 exch2_isSedge(274)=0 exch2_myFace(274)=4 exch2_mydNx(274)=510 exch2_mydNy(274)=510 exch2_nNeighbours(274)=4 exch2_neighbourId(1,274)=289 exch2_iLo(1,274)=0 exch2_iHi(1,274)=35 exch2_jLo(1,274)=103 exch2_jHi(1,274)=103 exch2_opposingSend(1,274)=2 exch2_pij(1,1,274)=1 exch2_pij(2,1,274)=0 exch2_pij(3,1,274)=0 exch2_pij(4,1,274)=1 exch2_oi(1,274)=0 exch2_oj(1,274)=0 exch2_neighbourId(2,274)=259 exch2_iLo(2,274)=0 exch2_iHi(2,274)=35 exch2_jLo(2,274)=0 exch2_jHi(2,274)=0 exch2_opposingSend(2,274)=1 exch2_pij(1,2,274)=1 exch2_pij(2,2,274)=0 exch2_pij(3,2,274)=0 exch2_pij(4,2,274)=1 exch2_oi(2,274)=0 exch2_oj(2,274)=0 exch2_neighbourId(3,274)=275 exch2_iLo(3,274)=35 exch2_iHi(3,274)=35 exch2_jLo(3,274)=0 exch2_jHi(3,274)=103 exch2_opposingSend(3,274)=4 exch2_pij(1,3,274)=1 exch2_pij(2,3,274)=0 exch2_pij(3,3,274)=0 exch2_pij(4,3,274)=1 exch2_oi(3,274)=0 exch2_oj(3,274)=0 exch2_neighbourId(4,274)=273 exch2_iLo(4,274)=0 exch2_iHi(4,274)=0 exch2_jLo(4,274)=0 exch2_jHi(4,274)=103 exch2_opposingSend(4,274)=3 exch2_pij(1,4,274)=1 exch2_pij(2,4,274)=0 exch2_pij(3,4,274)=0 exch2_pij(4,4,274)=1 exch2_oi(4,274)=0 exch2_oj(4,274)=0 RETURN END SUBROUTINE W2_E2SETUP_275 C Topology for tile 275 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(275)=34 exch2_tNy(275)=102 exch2_tBasex(275)=136 exch2_tBasey(275)=306 exch2_txGlobalo(275)=1667 exch2_tyGlobalo(275)=307 exch2_isWedge(275)=0 exch2_isNedge(275)=0 exch2_isEedge(275)=0 exch2_isSedge(275)=0 exch2_myFace(275)=4 exch2_mydNx(275)=510 exch2_mydNy(275)=510 exch2_nNeighbours(275)=4 exch2_neighbourId(1,275)=290 exch2_iLo(1,275)=0 exch2_iHi(1,275)=35 exch2_jLo(1,275)=103 exch2_jHi(1,275)=103 exch2_opposingSend(1,275)=2 exch2_pij(1,1,275)=1 exch2_pij(2,1,275)=0 exch2_pij(3,1,275)=0 exch2_pij(4,1,275)=1 exch2_oi(1,275)=0 exch2_oj(1,275)=0 exch2_neighbourId(2,275)=260 exch2_iLo(2,275)=0 exch2_iHi(2,275)=35 exch2_jLo(2,275)=0 exch2_jHi(2,275)=0 exch2_opposingSend(2,275)=1 exch2_pij(1,2,275)=1 exch2_pij(2,2,275)=0 exch2_pij(3,2,275)=0 exch2_pij(4,2,275)=1 exch2_oi(2,275)=0 exch2_oj(2,275)=0 exch2_neighbourId(3,275)=276 exch2_iLo(3,275)=35 exch2_iHi(3,275)=35 exch2_jLo(3,275)=0 exch2_jHi(3,275)=103 exch2_opposingSend(3,275)=4 exch2_pij(1,3,275)=1 exch2_pij(2,3,275)=0 exch2_pij(3,3,275)=0 exch2_pij(4,3,275)=1 exch2_oi(3,275)=0 exch2_oj(3,275)=0 exch2_neighbourId(4,275)=274 exch2_iLo(4,275)=0 exch2_iHi(4,275)=0 exch2_jLo(4,275)=0 exch2_jHi(4,275)=103 exch2_opposingSend(4,275)=3 exch2_pij(1,4,275)=1 exch2_pij(2,4,275)=0 exch2_pij(3,4,275)=0 exch2_pij(4,4,275)=1 exch2_oi(4,275)=0 exch2_oj(4,275)=0 RETURN END SUBROUTINE W2_E2SETUP_276 C Topology for tile 276 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(276)=34 exch2_tNy(276)=102 exch2_tBasex(276)=170 exch2_tBasey(276)=306 exch2_txGlobalo(276)=1701 exch2_tyGlobalo(276)=307 exch2_isWedge(276)=0 exch2_isNedge(276)=0 exch2_isEedge(276)=0 exch2_isSedge(276)=0 exch2_myFace(276)=4 exch2_mydNx(276)=510 exch2_mydNy(276)=510 exch2_nNeighbours(276)=4 exch2_neighbourId(1,276)=291 exch2_iLo(1,276)=0 exch2_iHi(1,276)=35 exch2_jLo(1,276)=103 exch2_jHi(1,276)=103 exch2_opposingSend(1,276)=2 exch2_pij(1,1,276)=1 exch2_pij(2,1,276)=0 exch2_pij(3,1,276)=0 exch2_pij(4,1,276)=1 exch2_oi(1,276)=0 exch2_oj(1,276)=0 exch2_neighbourId(2,276)=261 exch2_iLo(2,276)=0 exch2_iHi(2,276)=35 exch2_jLo(2,276)=0 exch2_jHi(2,276)=0 exch2_opposingSend(2,276)=1 exch2_pij(1,2,276)=1 exch2_pij(2,2,276)=0 exch2_pij(3,2,276)=0 exch2_pij(4,2,276)=1 exch2_oi(2,276)=0 exch2_oj(2,276)=0 exch2_neighbourId(3,276)=277 exch2_iLo(3,276)=35 exch2_iHi(3,276)=35 exch2_jLo(3,276)=0 exch2_jHi(3,276)=103 exch2_opposingSend(3,276)=4 exch2_pij(1,3,276)=1 exch2_pij(2,3,276)=0 exch2_pij(3,3,276)=0 exch2_pij(4,3,276)=1 exch2_oi(3,276)=0 exch2_oj(3,276)=0 exch2_neighbourId(4,276)=275 exch2_iLo(4,276)=0 exch2_iHi(4,276)=0 exch2_jLo(4,276)=0 exch2_jHi(4,276)=103 exch2_opposingSend(4,276)=3 exch2_pij(1,4,276)=1 exch2_pij(2,4,276)=0 exch2_pij(3,4,276)=0 exch2_pij(4,4,276)=1 exch2_oi(4,276)=0 exch2_oj(4,276)=0 RETURN END SUBROUTINE W2_E2SETUP_277 C Topology for tile 277 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(277)=34 exch2_tNy(277)=102 exch2_tBasex(277)=204 exch2_tBasey(277)=306 exch2_txGlobalo(277)=1735 exch2_tyGlobalo(277)=307 exch2_isWedge(277)=0 exch2_isNedge(277)=0 exch2_isEedge(277)=0 exch2_isSedge(277)=0 exch2_myFace(277)=4 exch2_mydNx(277)=510 exch2_mydNy(277)=510 exch2_nNeighbours(277)=4 exch2_neighbourId(1,277)=292 exch2_iLo(1,277)=0 exch2_iHi(1,277)=35 exch2_jLo(1,277)=103 exch2_jHi(1,277)=103 exch2_opposingSend(1,277)=2 exch2_pij(1,1,277)=1 exch2_pij(2,1,277)=0 exch2_pij(3,1,277)=0 exch2_pij(4,1,277)=1 exch2_oi(1,277)=0 exch2_oj(1,277)=0 exch2_neighbourId(2,277)=262 exch2_iLo(2,277)=0 exch2_iHi(2,277)=35 exch2_jLo(2,277)=0 exch2_jHi(2,277)=0 exch2_opposingSend(2,277)=1 exch2_pij(1,2,277)=1 exch2_pij(2,2,277)=0 exch2_pij(3,2,277)=0 exch2_pij(4,2,277)=1 exch2_oi(2,277)=0 exch2_oj(2,277)=0 exch2_neighbourId(3,277)=278 exch2_iLo(3,277)=35 exch2_iHi(3,277)=35 exch2_jLo(3,277)=0 exch2_jHi(3,277)=103 exch2_opposingSend(3,277)=4 exch2_pij(1,3,277)=1 exch2_pij(2,3,277)=0 exch2_pij(3,3,277)=0 exch2_pij(4,3,277)=1 exch2_oi(3,277)=0 exch2_oj(3,277)=0 exch2_neighbourId(4,277)=276 exch2_iLo(4,277)=0 exch2_iHi(4,277)=0 exch2_jLo(4,277)=0 exch2_jHi(4,277)=103 exch2_opposingSend(4,277)=3 exch2_pij(1,4,277)=1 exch2_pij(2,4,277)=0 exch2_pij(3,4,277)=0 exch2_pij(4,4,277)=1 exch2_oi(4,277)=0 exch2_oj(4,277)=0 RETURN END SUBROUTINE W2_E2SETUP_278 C Topology for tile 278 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(278)=34 exch2_tNy(278)=102 exch2_tBasex(278)=238 exch2_tBasey(278)=306 exch2_txGlobalo(278)=1769 exch2_tyGlobalo(278)=307 exch2_isWedge(278)=0 exch2_isNedge(278)=0 exch2_isEedge(278)=0 exch2_isSedge(278)=0 exch2_myFace(278)=4 exch2_mydNx(278)=510 exch2_mydNy(278)=510 exch2_nNeighbours(278)=4 exch2_neighbourId(1,278)=293 exch2_iLo(1,278)=0 exch2_iHi(1,278)=35 exch2_jLo(1,278)=103 exch2_jHi(1,278)=103 exch2_opposingSend(1,278)=2 exch2_pij(1,1,278)=1 exch2_pij(2,1,278)=0 exch2_pij(3,1,278)=0 exch2_pij(4,1,278)=1 exch2_oi(1,278)=0 exch2_oj(1,278)=0 exch2_neighbourId(2,278)=263 exch2_iLo(2,278)=0 exch2_iHi(2,278)=35 exch2_jLo(2,278)=0 exch2_jHi(2,278)=0 exch2_opposingSend(2,278)=1 exch2_pij(1,2,278)=1 exch2_pij(2,2,278)=0 exch2_pij(3,2,278)=0 exch2_pij(4,2,278)=1 exch2_oi(2,278)=0 exch2_oj(2,278)=0 exch2_neighbourId(3,278)=279 exch2_iLo(3,278)=35 exch2_iHi(3,278)=35 exch2_jLo(3,278)=0 exch2_jHi(3,278)=103 exch2_opposingSend(3,278)=4 exch2_pij(1,3,278)=1 exch2_pij(2,3,278)=0 exch2_pij(3,3,278)=0 exch2_pij(4,3,278)=1 exch2_oi(3,278)=0 exch2_oj(3,278)=0 exch2_neighbourId(4,278)=277 exch2_iLo(4,278)=0 exch2_iHi(4,278)=0 exch2_jLo(4,278)=0 exch2_jHi(4,278)=103 exch2_opposingSend(4,278)=3 exch2_pij(1,4,278)=1 exch2_pij(2,4,278)=0 exch2_pij(3,4,278)=0 exch2_pij(4,4,278)=1 exch2_oi(4,278)=0 exch2_oj(4,278)=0 RETURN END SUBROUTINE W2_E2SETUP_279 C Topology for tile 279 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(279)=34 exch2_tNy(279)=102 exch2_tBasex(279)=272 exch2_tBasey(279)=306 exch2_txGlobalo(279)=1803 exch2_tyGlobalo(279)=307 exch2_isWedge(279)=0 exch2_isNedge(279)=0 exch2_isEedge(279)=0 exch2_isSedge(279)=0 exch2_myFace(279)=4 exch2_mydNx(279)=510 exch2_mydNy(279)=510 exch2_nNeighbours(279)=4 exch2_neighbourId(1,279)=294 exch2_iLo(1,279)=0 exch2_iHi(1,279)=35 exch2_jLo(1,279)=103 exch2_jHi(1,279)=103 exch2_opposingSend(1,279)=2 exch2_pij(1,1,279)=1 exch2_pij(2,1,279)=0 exch2_pij(3,1,279)=0 exch2_pij(4,1,279)=1 exch2_oi(1,279)=0 exch2_oj(1,279)=0 exch2_neighbourId(2,279)=264 exch2_iLo(2,279)=0 exch2_iHi(2,279)=35 exch2_jLo(2,279)=0 exch2_jHi(2,279)=0 exch2_opposingSend(2,279)=1 exch2_pij(1,2,279)=1 exch2_pij(2,2,279)=0 exch2_pij(3,2,279)=0 exch2_pij(4,2,279)=1 exch2_oi(2,279)=0 exch2_oj(2,279)=0 exch2_neighbourId(3,279)=280 exch2_iLo(3,279)=35 exch2_iHi(3,279)=35 exch2_jLo(3,279)=0 exch2_jHi(3,279)=103 exch2_opposingSend(3,279)=4 exch2_pij(1,3,279)=1 exch2_pij(2,3,279)=0 exch2_pij(3,3,279)=0 exch2_pij(4,3,279)=1 exch2_oi(3,279)=0 exch2_oj(3,279)=0 exch2_neighbourId(4,279)=278 exch2_iLo(4,279)=0 exch2_iHi(4,279)=0 exch2_jLo(4,279)=0 exch2_jHi(4,279)=103 exch2_opposingSend(4,279)=3 exch2_pij(1,4,279)=1 exch2_pij(2,4,279)=0 exch2_pij(3,4,279)=0 exch2_pij(4,4,279)=1 exch2_oi(4,279)=0 exch2_oj(4,279)=0 RETURN END SUBROUTINE W2_E2SETUP_280 C Topology for tile 280 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(280)=34 exch2_tNy(280)=102 exch2_tBasex(280)=306 exch2_tBasey(280)=306 exch2_txGlobalo(280)=1837 exch2_tyGlobalo(280)=307 exch2_isWedge(280)=0 exch2_isNedge(280)=0 exch2_isEedge(280)=0 exch2_isSedge(280)=0 exch2_myFace(280)=4 exch2_mydNx(280)=510 exch2_mydNy(280)=510 exch2_nNeighbours(280)=4 exch2_neighbourId(1,280)=295 exch2_iLo(1,280)=0 exch2_iHi(1,280)=35 exch2_jLo(1,280)=103 exch2_jHi(1,280)=103 exch2_opposingSend(1,280)=2 exch2_pij(1,1,280)=1 exch2_pij(2,1,280)=0 exch2_pij(3,1,280)=0 exch2_pij(4,1,280)=1 exch2_oi(1,280)=0 exch2_oj(1,280)=0 exch2_neighbourId(2,280)=265 exch2_iLo(2,280)=0 exch2_iHi(2,280)=35 exch2_jLo(2,280)=0 exch2_jHi(2,280)=0 exch2_opposingSend(2,280)=1 exch2_pij(1,2,280)=1 exch2_pij(2,2,280)=0 exch2_pij(3,2,280)=0 exch2_pij(4,2,280)=1 exch2_oi(2,280)=0 exch2_oj(2,280)=0 exch2_neighbourId(3,280)=281 exch2_iLo(3,280)=35 exch2_iHi(3,280)=35 exch2_jLo(3,280)=0 exch2_jHi(3,280)=103 exch2_opposingSend(3,280)=4 exch2_pij(1,3,280)=1 exch2_pij(2,3,280)=0 exch2_pij(3,3,280)=0 exch2_pij(4,3,280)=1 exch2_oi(3,280)=0 exch2_oj(3,280)=0 exch2_neighbourId(4,280)=279 exch2_iLo(4,280)=0 exch2_iHi(4,280)=0 exch2_jLo(4,280)=0 exch2_jHi(4,280)=103 exch2_opposingSend(4,280)=3 exch2_pij(1,4,280)=1 exch2_pij(2,4,280)=0 exch2_pij(3,4,280)=0 exch2_pij(4,4,280)=1 exch2_oi(4,280)=0 exch2_oj(4,280)=0 RETURN END SUBROUTINE W2_E2SETUP_281 C Topology for tile 281 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(281)=34 exch2_tNy(281)=102 exch2_tBasex(281)=340 exch2_tBasey(281)=306 exch2_txGlobalo(281)=1871 exch2_tyGlobalo(281)=307 exch2_isWedge(281)=0 exch2_isNedge(281)=0 exch2_isEedge(281)=0 exch2_isSedge(281)=0 exch2_myFace(281)=4 exch2_mydNx(281)=510 exch2_mydNy(281)=510 exch2_nNeighbours(281)=4 exch2_neighbourId(1,281)=296 exch2_iLo(1,281)=0 exch2_iHi(1,281)=35 exch2_jLo(1,281)=103 exch2_jHi(1,281)=103 exch2_opposingSend(1,281)=2 exch2_pij(1,1,281)=1 exch2_pij(2,1,281)=0 exch2_pij(3,1,281)=0 exch2_pij(4,1,281)=1 exch2_oi(1,281)=0 exch2_oj(1,281)=0 exch2_neighbourId(2,281)=266 exch2_iLo(2,281)=0 exch2_iHi(2,281)=35 exch2_jLo(2,281)=0 exch2_jHi(2,281)=0 exch2_opposingSend(2,281)=1 exch2_pij(1,2,281)=1 exch2_pij(2,2,281)=0 exch2_pij(3,2,281)=0 exch2_pij(4,2,281)=1 exch2_oi(2,281)=0 exch2_oj(2,281)=0 exch2_neighbourId(3,281)=282 exch2_iLo(3,281)=35 exch2_iHi(3,281)=35 exch2_jLo(3,281)=0 exch2_jHi(3,281)=103 exch2_opposingSend(3,281)=4 exch2_pij(1,3,281)=1 exch2_pij(2,3,281)=0 exch2_pij(3,3,281)=0 exch2_pij(4,3,281)=1 exch2_oi(3,281)=0 exch2_oj(3,281)=0 exch2_neighbourId(4,281)=280 exch2_iLo(4,281)=0 exch2_iHi(4,281)=0 exch2_jLo(4,281)=0 exch2_jHi(4,281)=103 exch2_opposingSend(4,281)=3 exch2_pij(1,4,281)=1 exch2_pij(2,4,281)=0 exch2_pij(3,4,281)=0 exch2_pij(4,4,281)=1 exch2_oi(4,281)=0 exch2_oj(4,281)=0 RETURN END SUBROUTINE W2_E2SETUP_282 C Topology for tile 282 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(282)=34 exch2_tNy(282)=102 exch2_tBasex(282)=374 exch2_tBasey(282)=306 exch2_txGlobalo(282)=1905 exch2_tyGlobalo(282)=307 exch2_isWedge(282)=0 exch2_isNedge(282)=0 exch2_isEedge(282)=0 exch2_isSedge(282)=0 exch2_myFace(282)=4 exch2_mydNx(282)=510 exch2_mydNy(282)=510 exch2_nNeighbours(282)=4 exch2_neighbourId(1,282)=297 exch2_iLo(1,282)=0 exch2_iHi(1,282)=35 exch2_jLo(1,282)=103 exch2_jHi(1,282)=103 exch2_opposingSend(1,282)=2 exch2_pij(1,1,282)=1 exch2_pij(2,1,282)=0 exch2_pij(3,1,282)=0 exch2_pij(4,1,282)=1 exch2_oi(1,282)=0 exch2_oj(1,282)=0 exch2_neighbourId(2,282)=267 exch2_iLo(2,282)=0 exch2_iHi(2,282)=35 exch2_jLo(2,282)=0 exch2_jHi(2,282)=0 exch2_opposingSend(2,282)=1 exch2_pij(1,2,282)=1 exch2_pij(2,2,282)=0 exch2_pij(3,2,282)=0 exch2_pij(4,2,282)=1 exch2_oi(2,282)=0 exch2_oj(2,282)=0 exch2_neighbourId(3,282)=283 exch2_iLo(3,282)=35 exch2_iHi(3,282)=35 exch2_jLo(3,282)=0 exch2_jHi(3,282)=103 exch2_opposingSend(3,282)=4 exch2_pij(1,3,282)=1 exch2_pij(2,3,282)=0 exch2_pij(3,3,282)=0 exch2_pij(4,3,282)=1 exch2_oi(3,282)=0 exch2_oj(3,282)=0 exch2_neighbourId(4,282)=281 exch2_iLo(4,282)=0 exch2_iHi(4,282)=0 exch2_jLo(4,282)=0 exch2_jHi(4,282)=103 exch2_opposingSend(4,282)=3 exch2_pij(1,4,282)=1 exch2_pij(2,4,282)=0 exch2_pij(3,4,282)=0 exch2_pij(4,4,282)=1 exch2_oi(4,282)=0 exch2_oj(4,282)=0 RETURN END SUBROUTINE W2_E2SETUP_283 C Topology for tile 283 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(283)=34 exch2_tNy(283)=102 exch2_tBasex(283)=408 exch2_tBasey(283)=306 exch2_txGlobalo(283)=1939 exch2_tyGlobalo(283)=307 exch2_isWedge(283)=0 exch2_isNedge(283)=0 exch2_isEedge(283)=0 exch2_isSedge(283)=0 exch2_myFace(283)=4 exch2_mydNx(283)=510 exch2_mydNy(283)=510 exch2_nNeighbours(283)=4 exch2_neighbourId(1,283)=298 exch2_iLo(1,283)=0 exch2_iHi(1,283)=35 exch2_jLo(1,283)=103 exch2_jHi(1,283)=103 exch2_opposingSend(1,283)=2 exch2_pij(1,1,283)=1 exch2_pij(2,1,283)=0 exch2_pij(3,1,283)=0 exch2_pij(4,1,283)=1 exch2_oi(1,283)=0 exch2_oj(1,283)=0 exch2_neighbourId(2,283)=268 exch2_iLo(2,283)=0 exch2_iHi(2,283)=35 exch2_jLo(2,283)=0 exch2_jHi(2,283)=0 exch2_opposingSend(2,283)=1 exch2_pij(1,2,283)=1 exch2_pij(2,2,283)=0 exch2_pij(3,2,283)=0 exch2_pij(4,2,283)=1 exch2_oi(2,283)=0 exch2_oj(2,283)=0 exch2_neighbourId(3,283)=284 exch2_iLo(3,283)=35 exch2_iHi(3,283)=35 exch2_jLo(3,283)=0 exch2_jHi(3,283)=103 exch2_opposingSend(3,283)=4 exch2_pij(1,3,283)=1 exch2_pij(2,3,283)=0 exch2_pij(3,3,283)=0 exch2_pij(4,3,283)=1 exch2_oi(3,283)=0 exch2_oj(3,283)=0 exch2_neighbourId(4,283)=282 exch2_iLo(4,283)=0 exch2_iHi(4,283)=0 exch2_jLo(4,283)=0 exch2_jHi(4,283)=103 exch2_opposingSend(4,283)=3 exch2_pij(1,4,283)=1 exch2_pij(2,4,283)=0 exch2_pij(3,4,283)=0 exch2_pij(4,4,283)=1 exch2_oi(4,283)=0 exch2_oj(4,283)=0 RETURN END SUBROUTINE W2_E2SETUP_284 C Topology for tile 284 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(284)=34 exch2_tNy(284)=102 exch2_tBasex(284)=442 exch2_tBasey(284)=306 exch2_txGlobalo(284)=1973 exch2_tyGlobalo(284)=307 exch2_isWedge(284)=0 exch2_isNedge(284)=0 exch2_isEedge(284)=0 exch2_isSedge(284)=0 exch2_myFace(284)=4 exch2_mydNx(284)=510 exch2_mydNy(284)=510 exch2_nNeighbours(284)=4 exch2_neighbourId(1,284)=299 exch2_iLo(1,284)=0 exch2_iHi(1,284)=35 exch2_jLo(1,284)=103 exch2_jHi(1,284)=103 exch2_opposingSend(1,284)=2 exch2_pij(1,1,284)=1 exch2_pij(2,1,284)=0 exch2_pij(3,1,284)=0 exch2_pij(4,1,284)=1 exch2_oi(1,284)=0 exch2_oj(1,284)=0 exch2_neighbourId(2,284)=269 exch2_iLo(2,284)=0 exch2_iHi(2,284)=35 exch2_jLo(2,284)=0 exch2_jHi(2,284)=0 exch2_opposingSend(2,284)=1 exch2_pij(1,2,284)=1 exch2_pij(2,2,284)=0 exch2_pij(3,2,284)=0 exch2_pij(4,2,284)=1 exch2_oi(2,284)=0 exch2_oj(2,284)=0 exch2_neighbourId(3,284)=285 exch2_iLo(3,284)=35 exch2_iHi(3,284)=35 exch2_jLo(3,284)=0 exch2_jHi(3,284)=103 exch2_opposingSend(3,284)=6 exch2_pij(1,3,284)=1 exch2_pij(2,3,284)=0 exch2_pij(3,3,284)=0 exch2_pij(4,3,284)=1 exch2_oi(3,284)=0 exch2_oj(3,284)=0 exch2_neighbourId(4,284)=283 exch2_iLo(4,284)=0 exch2_iHi(4,284)=0 exch2_jLo(4,284)=0 exch2_jHi(4,284)=103 exch2_opposingSend(4,284)=3 exch2_pij(1,4,284)=1 exch2_pij(2,4,284)=0 exch2_pij(3,4,284)=0 exch2_pij(4,4,284)=1 exch2_oi(4,284)=0 exch2_oj(4,284)=0 RETURN END SUBROUTINE W2_E2SETUP_285 C Topology for tile 285 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(285)=34 exch2_tNy(285)=102 exch2_tBasex(285)=476 exch2_tBasey(285)=306 exch2_txGlobalo(285)=2007 exch2_tyGlobalo(285)=307 exch2_isWedge(285)=0 exch2_isNedge(285)=0 exch2_isEedge(285)=1 exch2_isSedge(285)=0 exch2_myFace(285)=4 exch2_mydNx(285)=510 exch2_mydNy(285)=510 exch2_nNeighbours(285)=6 exch2_neighbourId(1,285)=300 exch2_iLo(1,285)=0 exch2_iHi(1,285)=35 exch2_jLo(1,285)=103 exch2_jHi(1,285)=103 exch2_opposingSend(1,285)=2 exch2_pij(1,1,285)=1 exch2_pij(2,1,285)=0 exch2_pij(3,1,285)=0 exch2_pij(4,1,285)=1 exch2_oi(1,285)=0 exch2_oj(1,285)=0 exch2_neighbourId(2,285)=270 exch2_iLo(2,285)=0 exch2_iHi(2,285)=35 exch2_jLo(2,285)=0 exch2_jHi(2,285)=0 exch2_opposingSend(2,285)=1 exch2_pij(1,2,285)=1 exch2_pij(2,2,285)=0 exch2_pij(3,2,285)=0 exch2_pij(4,2,285)=1 exch2_oi(2,285)=0 exch2_oj(2,285)=0 exch2_neighbourId(3,285)=379 exch2_iLo(3,285)=35 exch2_iHi(3,285)=35 exch2_jLo(3,285)=68 exch2_jHi(3,285)=103 exch2_opposingSend(3,285)=2 exch2_pij(1,3,285)=0 exch2_pij(2,3,285)=1 exch2_pij(3,3,285)=-1 exch2_pij(4,3,285)=0 exch2_oi(3,285)=510 exch2_oj(3,285)=511 exch2_neighbourId(4,285)=380 exch2_iLo(4,285)=35 exch2_iHi(4,285)=35 exch2_jLo(4,285)=34 exch2_jHi(4,285)=69 exch2_opposingSend(4,285)=2 exch2_pij(1,4,285)=0 exch2_pij(2,4,285)=1 exch2_pij(3,4,285)=-1 exch2_pij(4,4,285)=0 exch2_oi(4,285)=510 exch2_oj(4,285)=511 exch2_neighbourId(5,285)=381 exch2_iLo(5,285)=35 exch2_iHi(5,285)=35 exch2_jLo(5,285)=0 exch2_jHi(5,285)=35 exch2_opposingSend(5,285)=2 exch2_pij(1,5,285)=0 exch2_pij(2,5,285)=1 exch2_pij(3,5,285)=-1 exch2_pij(4,5,285)=0 exch2_oi(5,285)=510 exch2_oj(5,285)=511 exch2_neighbourId(6,285)=284 exch2_iLo(6,285)=0 exch2_iHi(6,285)=0 exch2_jLo(6,285)=0 exch2_jHi(6,285)=103 exch2_opposingSend(6,285)=3 exch2_pij(1,6,285)=1 exch2_pij(2,6,285)=0 exch2_pij(3,6,285)=0 exch2_pij(4,6,285)=1 exch2_oi(6,285)=0 exch2_oj(6,285)=0 RETURN END SUBROUTINE W2_E2SETUP_286 C Topology for tile 286 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(286)=34 exch2_tNy(286)=102 exch2_tBasex(286)=0 exch2_tBasey(286)=408 exch2_txGlobalo(286)=1531 exch2_tyGlobalo(286)=409 exch2_isWedge(286)=1 exch2_isNedge(286)=1 exch2_isEedge(286)=0 exch2_isSedge(286)=0 exch2_myFace(286)=4 exch2_mydNx(286)=510 exch2_mydNy(286)=510 exch2_nNeighbours(286)=4 exch2_neighbourId(1,286)=301 exch2_iLo(1,286)=0 exch2_iHi(1,286)=35 exch2_jLo(1,286)=103 exch2_jHi(1,286)=103 exch2_opposingSend(1,286)=2 exch2_pij(1,1,286)=1 exch2_pij(2,1,286)=0 exch2_pij(3,1,286)=0 exch2_pij(4,1,286)=1 exch2_oi(1,286)=0 exch2_oj(1,286)=510 exch2_neighbourId(2,286)=271 exch2_iLo(2,286)=0 exch2_iHi(2,286)=35 exch2_jLo(2,286)=0 exch2_jHi(2,286)=0 exch2_opposingSend(2,286)=1 exch2_pij(1,2,286)=1 exch2_pij(2,2,286)=0 exch2_pij(3,2,286)=0 exch2_pij(4,2,286)=1 exch2_oi(2,286)=0 exch2_oj(2,286)=0 exch2_neighbourId(3,286)=287 exch2_iLo(3,286)=35 exch2_iHi(3,286)=35 exch2_jLo(3,286)=0 exch2_jHi(3,286)=103 exch2_opposingSend(3,286)=4 exch2_pij(1,3,286)=1 exch2_pij(2,3,286)=0 exch2_pij(3,3,286)=0 exch2_pij(4,3,286)=1 exch2_oi(3,286)=0 exch2_oj(3,286)=0 exch2_neighbourId(4,286)=225 exch2_iLo(4,286)=0 exch2_iHi(4,286)=0 exch2_jLo(4,286)=0 exch2_jHi(4,286)=103 exch2_opposingSend(4,286)=3 exch2_pij(1,4,286)=1 exch2_pij(2,4,286)=0 exch2_pij(3,4,286)=0 exch2_pij(4,4,286)=1 exch2_oi(4,286)=-510 exch2_oj(4,286)=0 RETURN END SUBROUTINE W2_E2SETUP_287 C Topology for tile 287 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(287)=34 exch2_tNy(287)=102 exch2_tBasex(287)=34 exch2_tBasey(287)=408 exch2_txGlobalo(287)=1565 exch2_tyGlobalo(287)=409 exch2_isWedge(287)=0 exch2_isNedge(287)=1 exch2_isEedge(287)=0 exch2_isSedge(287)=0 exch2_myFace(287)=4 exch2_mydNx(287)=510 exch2_mydNy(287)=510 exch2_nNeighbours(287)=4 exch2_neighbourId(1,287)=302 exch2_iLo(1,287)=0 exch2_iHi(1,287)=35 exch2_jLo(1,287)=103 exch2_jHi(1,287)=103 exch2_opposingSend(1,287)=2 exch2_pij(1,1,287)=1 exch2_pij(2,1,287)=0 exch2_pij(3,1,287)=0 exch2_pij(4,1,287)=1 exch2_oi(1,287)=0 exch2_oj(1,287)=510 exch2_neighbourId(2,287)=272 exch2_iLo(2,287)=0 exch2_iHi(2,287)=35 exch2_jLo(2,287)=0 exch2_jHi(2,287)=0 exch2_opposingSend(2,287)=1 exch2_pij(1,2,287)=1 exch2_pij(2,2,287)=0 exch2_pij(3,2,287)=0 exch2_pij(4,2,287)=1 exch2_oi(2,287)=0 exch2_oj(2,287)=0 exch2_neighbourId(3,287)=288 exch2_iLo(3,287)=35 exch2_iHi(3,287)=35 exch2_jLo(3,287)=0 exch2_jHi(3,287)=103 exch2_opposingSend(3,287)=4 exch2_pij(1,3,287)=1 exch2_pij(2,3,287)=0 exch2_pij(3,3,287)=0 exch2_pij(4,3,287)=1 exch2_oi(3,287)=0 exch2_oj(3,287)=0 exch2_neighbourId(4,287)=286 exch2_iLo(4,287)=0 exch2_iHi(4,287)=0 exch2_jLo(4,287)=0 exch2_jHi(4,287)=103 exch2_opposingSend(4,287)=3 exch2_pij(1,4,287)=1 exch2_pij(2,4,287)=0 exch2_pij(3,4,287)=0 exch2_pij(4,4,287)=1 exch2_oi(4,287)=0 exch2_oj(4,287)=0 RETURN END SUBROUTINE W2_E2SETUP_288 C Topology for tile 288 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(288)=34 exch2_tNy(288)=102 exch2_tBasex(288)=68 exch2_tBasey(288)=408 exch2_txGlobalo(288)=1599 exch2_tyGlobalo(288)=409 exch2_isWedge(288)=0 exch2_isNedge(288)=1 exch2_isEedge(288)=0 exch2_isSedge(288)=0 exch2_myFace(288)=4 exch2_mydNx(288)=510 exch2_mydNy(288)=510 exch2_nNeighbours(288)=4 exch2_neighbourId(1,288)=303 exch2_iLo(1,288)=0 exch2_iHi(1,288)=35 exch2_jLo(1,288)=103 exch2_jHi(1,288)=103 exch2_opposingSend(1,288)=2 exch2_pij(1,1,288)=1 exch2_pij(2,1,288)=0 exch2_pij(3,1,288)=0 exch2_pij(4,1,288)=1 exch2_oi(1,288)=0 exch2_oj(1,288)=510 exch2_neighbourId(2,288)=273 exch2_iLo(2,288)=0 exch2_iHi(2,288)=35 exch2_jLo(2,288)=0 exch2_jHi(2,288)=0 exch2_opposingSend(2,288)=1 exch2_pij(1,2,288)=1 exch2_pij(2,2,288)=0 exch2_pij(3,2,288)=0 exch2_pij(4,2,288)=1 exch2_oi(2,288)=0 exch2_oj(2,288)=0 exch2_neighbourId(3,288)=289 exch2_iLo(3,288)=35 exch2_iHi(3,288)=35 exch2_jLo(3,288)=0 exch2_jHi(3,288)=103 exch2_opposingSend(3,288)=4 exch2_pij(1,3,288)=1 exch2_pij(2,3,288)=0 exch2_pij(3,3,288)=0 exch2_pij(4,3,288)=1 exch2_oi(3,288)=0 exch2_oj(3,288)=0 exch2_neighbourId(4,288)=287 exch2_iLo(4,288)=0 exch2_iHi(4,288)=0 exch2_jLo(4,288)=0 exch2_jHi(4,288)=103 exch2_opposingSend(4,288)=3 exch2_pij(1,4,288)=1 exch2_pij(2,4,288)=0 exch2_pij(3,4,288)=0 exch2_pij(4,4,288)=1 exch2_oi(4,288)=0 exch2_oj(4,288)=0 RETURN END SUBROUTINE W2_E2SETUP_289 C Topology for tile 289 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(289)=34 exch2_tNy(289)=102 exch2_tBasex(289)=102 exch2_tBasey(289)=408 exch2_txGlobalo(289)=1633 exch2_tyGlobalo(289)=409 exch2_isWedge(289)=0 exch2_isNedge(289)=1 exch2_isEedge(289)=0 exch2_isSedge(289)=0 exch2_myFace(289)=4 exch2_mydNx(289)=510 exch2_mydNy(289)=510 exch2_nNeighbours(289)=4 exch2_neighbourId(1,289)=304 exch2_iLo(1,289)=0 exch2_iHi(1,289)=35 exch2_jLo(1,289)=103 exch2_jHi(1,289)=103 exch2_opposingSend(1,289)=2 exch2_pij(1,1,289)=1 exch2_pij(2,1,289)=0 exch2_pij(3,1,289)=0 exch2_pij(4,1,289)=1 exch2_oi(1,289)=0 exch2_oj(1,289)=510 exch2_neighbourId(2,289)=274 exch2_iLo(2,289)=0 exch2_iHi(2,289)=35 exch2_jLo(2,289)=0 exch2_jHi(2,289)=0 exch2_opposingSend(2,289)=1 exch2_pij(1,2,289)=1 exch2_pij(2,2,289)=0 exch2_pij(3,2,289)=0 exch2_pij(4,2,289)=1 exch2_oi(2,289)=0 exch2_oj(2,289)=0 exch2_neighbourId(3,289)=290 exch2_iLo(3,289)=35 exch2_iHi(3,289)=35 exch2_jLo(3,289)=0 exch2_jHi(3,289)=103 exch2_opposingSend(3,289)=4 exch2_pij(1,3,289)=1 exch2_pij(2,3,289)=0 exch2_pij(3,3,289)=0 exch2_pij(4,3,289)=1 exch2_oi(3,289)=0 exch2_oj(3,289)=0 exch2_neighbourId(4,289)=288 exch2_iLo(4,289)=0 exch2_iHi(4,289)=0 exch2_jLo(4,289)=0 exch2_jHi(4,289)=103 exch2_opposingSend(4,289)=3 exch2_pij(1,4,289)=1 exch2_pij(2,4,289)=0 exch2_pij(3,4,289)=0 exch2_pij(4,4,289)=1 exch2_oi(4,289)=0 exch2_oj(4,289)=0 RETURN END SUBROUTINE W2_E2SETUP_290 C Topology for tile 290 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(290)=34 exch2_tNy(290)=102 exch2_tBasex(290)=136 exch2_tBasey(290)=408 exch2_txGlobalo(290)=1667 exch2_tyGlobalo(290)=409 exch2_isWedge(290)=0 exch2_isNedge(290)=1 exch2_isEedge(290)=0 exch2_isSedge(290)=0 exch2_myFace(290)=4 exch2_mydNx(290)=510 exch2_mydNy(290)=510 exch2_nNeighbours(290)=4 exch2_neighbourId(1,290)=305 exch2_iLo(1,290)=0 exch2_iHi(1,290)=35 exch2_jLo(1,290)=103 exch2_jHi(1,290)=103 exch2_opposingSend(1,290)=2 exch2_pij(1,1,290)=1 exch2_pij(2,1,290)=0 exch2_pij(3,1,290)=0 exch2_pij(4,1,290)=1 exch2_oi(1,290)=0 exch2_oj(1,290)=510 exch2_neighbourId(2,290)=275 exch2_iLo(2,290)=0 exch2_iHi(2,290)=35 exch2_jLo(2,290)=0 exch2_jHi(2,290)=0 exch2_opposingSend(2,290)=1 exch2_pij(1,2,290)=1 exch2_pij(2,2,290)=0 exch2_pij(3,2,290)=0 exch2_pij(4,2,290)=1 exch2_oi(2,290)=0 exch2_oj(2,290)=0 exch2_neighbourId(3,290)=291 exch2_iLo(3,290)=35 exch2_iHi(3,290)=35 exch2_jLo(3,290)=0 exch2_jHi(3,290)=103 exch2_opposingSend(3,290)=4 exch2_pij(1,3,290)=1 exch2_pij(2,3,290)=0 exch2_pij(3,3,290)=0 exch2_pij(4,3,290)=1 exch2_oi(3,290)=0 exch2_oj(3,290)=0 exch2_neighbourId(4,290)=289 exch2_iLo(4,290)=0 exch2_iHi(4,290)=0 exch2_jLo(4,290)=0 exch2_jHi(4,290)=103 exch2_opposingSend(4,290)=3 exch2_pij(1,4,290)=1 exch2_pij(2,4,290)=0 exch2_pij(3,4,290)=0 exch2_pij(4,4,290)=1 exch2_oi(4,290)=0 exch2_oj(4,290)=0 RETURN END SUBROUTINE W2_E2SETUP_291 C Topology for tile 291 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(291)=34 exch2_tNy(291)=102 exch2_tBasex(291)=170 exch2_tBasey(291)=408 exch2_txGlobalo(291)=1701 exch2_tyGlobalo(291)=409 exch2_isWedge(291)=0 exch2_isNedge(291)=1 exch2_isEedge(291)=0 exch2_isSedge(291)=0 exch2_myFace(291)=4 exch2_mydNx(291)=510 exch2_mydNy(291)=510 exch2_nNeighbours(291)=4 exch2_neighbourId(1,291)=306 exch2_iLo(1,291)=0 exch2_iHi(1,291)=35 exch2_jLo(1,291)=103 exch2_jHi(1,291)=103 exch2_opposingSend(1,291)=2 exch2_pij(1,1,291)=1 exch2_pij(2,1,291)=0 exch2_pij(3,1,291)=0 exch2_pij(4,1,291)=1 exch2_oi(1,291)=0 exch2_oj(1,291)=510 exch2_neighbourId(2,291)=276 exch2_iLo(2,291)=0 exch2_iHi(2,291)=35 exch2_jLo(2,291)=0 exch2_jHi(2,291)=0 exch2_opposingSend(2,291)=1 exch2_pij(1,2,291)=1 exch2_pij(2,2,291)=0 exch2_pij(3,2,291)=0 exch2_pij(4,2,291)=1 exch2_oi(2,291)=0 exch2_oj(2,291)=0 exch2_neighbourId(3,291)=292 exch2_iLo(3,291)=35 exch2_iHi(3,291)=35 exch2_jLo(3,291)=0 exch2_jHi(3,291)=103 exch2_opposingSend(3,291)=4 exch2_pij(1,3,291)=1 exch2_pij(2,3,291)=0 exch2_pij(3,3,291)=0 exch2_pij(4,3,291)=1 exch2_oi(3,291)=0 exch2_oj(3,291)=0 exch2_neighbourId(4,291)=290 exch2_iLo(4,291)=0 exch2_iHi(4,291)=0 exch2_jLo(4,291)=0 exch2_jHi(4,291)=103 exch2_opposingSend(4,291)=3 exch2_pij(1,4,291)=1 exch2_pij(2,4,291)=0 exch2_pij(3,4,291)=0 exch2_pij(4,4,291)=1 exch2_oi(4,291)=0 exch2_oj(4,291)=0 RETURN END SUBROUTINE W2_E2SETUP_292 C Topology for tile 292 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(292)=34 exch2_tNy(292)=102 exch2_tBasex(292)=204 exch2_tBasey(292)=408 exch2_txGlobalo(292)=1735 exch2_tyGlobalo(292)=409 exch2_isWedge(292)=0 exch2_isNedge(292)=1 exch2_isEedge(292)=0 exch2_isSedge(292)=0 exch2_myFace(292)=4 exch2_mydNx(292)=510 exch2_mydNy(292)=510 exch2_nNeighbours(292)=4 exch2_neighbourId(1,292)=307 exch2_iLo(1,292)=0 exch2_iHi(1,292)=35 exch2_jLo(1,292)=103 exch2_jHi(1,292)=103 exch2_opposingSend(1,292)=2 exch2_pij(1,1,292)=1 exch2_pij(2,1,292)=0 exch2_pij(3,1,292)=0 exch2_pij(4,1,292)=1 exch2_oi(1,292)=0 exch2_oj(1,292)=510 exch2_neighbourId(2,292)=277 exch2_iLo(2,292)=0 exch2_iHi(2,292)=35 exch2_jLo(2,292)=0 exch2_jHi(2,292)=0 exch2_opposingSend(2,292)=1 exch2_pij(1,2,292)=1 exch2_pij(2,2,292)=0 exch2_pij(3,2,292)=0 exch2_pij(4,2,292)=1 exch2_oi(2,292)=0 exch2_oj(2,292)=0 exch2_neighbourId(3,292)=293 exch2_iLo(3,292)=35 exch2_iHi(3,292)=35 exch2_jLo(3,292)=0 exch2_jHi(3,292)=103 exch2_opposingSend(3,292)=4 exch2_pij(1,3,292)=1 exch2_pij(2,3,292)=0 exch2_pij(3,3,292)=0 exch2_pij(4,3,292)=1 exch2_oi(3,292)=0 exch2_oj(3,292)=0 exch2_neighbourId(4,292)=291 exch2_iLo(4,292)=0 exch2_iHi(4,292)=0 exch2_jLo(4,292)=0 exch2_jHi(4,292)=103 exch2_opposingSend(4,292)=3 exch2_pij(1,4,292)=1 exch2_pij(2,4,292)=0 exch2_pij(3,4,292)=0 exch2_pij(4,4,292)=1 exch2_oi(4,292)=0 exch2_oj(4,292)=0 RETURN END SUBROUTINE W2_E2SETUP_293 C Topology for tile 293 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(293)=34 exch2_tNy(293)=102 exch2_tBasex(293)=238 exch2_tBasey(293)=408 exch2_txGlobalo(293)=1769 exch2_tyGlobalo(293)=409 exch2_isWedge(293)=0 exch2_isNedge(293)=1 exch2_isEedge(293)=0 exch2_isSedge(293)=0 exch2_myFace(293)=4 exch2_mydNx(293)=510 exch2_mydNy(293)=510 exch2_nNeighbours(293)=4 exch2_neighbourId(1,293)=308 exch2_iLo(1,293)=0 exch2_iHi(1,293)=35 exch2_jLo(1,293)=103 exch2_jHi(1,293)=103 exch2_opposingSend(1,293)=2 exch2_pij(1,1,293)=1 exch2_pij(2,1,293)=0 exch2_pij(3,1,293)=0 exch2_pij(4,1,293)=1 exch2_oi(1,293)=0 exch2_oj(1,293)=510 exch2_neighbourId(2,293)=278 exch2_iLo(2,293)=0 exch2_iHi(2,293)=35 exch2_jLo(2,293)=0 exch2_jHi(2,293)=0 exch2_opposingSend(2,293)=1 exch2_pij(1,2,293)=1 exch2_pij(2,2,293)=0 exch2_pij(3,2,293)=0 exch2_pij(4,2,293)=1 exch2_oi(2,293)=0 exch2_oj(2,293)=0 exch2_neighbourId(3,293)=294 exch2_iLo(3,293)=35 exch2_iHi(3,293)=35 exch2_jLo(3,293)=0 exch2_jHi(3,293)=103 exch2_opposingSend(3,293)=4 exch2_pij(1,3,293)=1 exch2_pij(2,3,293)=0 exch2_pij(3,3,293)=0 exch2_pij(4,3,293)=1 exch2_oi(3,293)=0 exch2_oj(3,293)=0 exch2_neighbourId(4,293)=292 exch2_iLo(4,293)=0 exch2_iHi(4,293)=0 exch2_jLo(4,293)=0 exch2_jHi(4,293)=103 exch2_opposingSend(4,293)=3 exch2_pij(1,4,293)=1 exch2_pij(2,4,293)=0 exch2_pij(3,4,293)=0 exch2_pij(4,4,293)=1 exch2_oi(4,293)=0 exch2_oj(4,293)=0 RETURN END SUBROUTINE W2_E2SETUP_294 C Topology for tile 294 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(294)=34 exch2_tNy(294)=102 exch2_tBasex(294)=272 exch2_tBasey(294)=408 exch2_txGlobalo(294)=1803 exch2_tyGlobalo(294)=409 exch2_isWedge(294)=0 exch2_isNedge(294)=1 exch2_isEedge(294)=0 exch2_isSedge(294)=0 exch2_myFace(294)=4 exch2_mydNx(294)=510 exch2_mydNy(294)=510 exch2_nNeighbours(294)=4 exch2_neighbourId(1,294)=309 exch2_iLo(1,294)=0 exch2_iHi(1,294)=35 exch2_jLo(1,294)=103 exch2_jHi(1,294)=103 exch2_opposingSend(1,294)=2 exch2_pij(1,1,294)=1 exch2_pij(2,1,294)=0 exch2_pij(3,1,294)=0 exch2_pij(4,1,294)=1 exch2_oi(1,294)=0 exch2_oj(1,294)=510 exch2_neighbourId(2,294)=279 exch2_iLo(2,294)=0 exch2_iHi(2,294)=35 exch2_jLo(2,294)=0 exch2_jHi(2,294)=0 exch2_opposingSend(2,294)=1 exch2_pij(1,2,294)=1 exch2_pij(2,2,294)=0 exch2_pij(3,2,294)=0 exch2_pij(4,2,294)=1 exch2_oi(2,294)=0 exch2_oj(2,294)=0 exch2_neighbourId(3,294)=295 exch2_iLo(3,294)=35 exch2_iHi(3,294)=35 exch2_jLo(3,294)=0 exch2_jHi(3,294)=103 exch2_opposingSend(3,294)=4 exch2_pij(1,3,294)=1 exch2_pij(2,3,294)=0 exch2_pij(3,3,294)=0 exch2_pij(4,3,294)=1 exch2_oi(3,294)=0 exch2_oj(3,294)=0 exch2_neighbourId(4,294)=293 exch2_iLo(4,294)=0 exch2_iHi(4,294)=0 exch2_jLo(4,294)=0 exch2_jHi(4,294)=103 exch2_opposingSend(4,294)=3 exch2_pij(1,4,294)=1 exch2_pij(2,4,294)=0 exch2_pij(3,4,294)=0 exch2_pij(4,4,294)=1 exch2_oi(4,294)=0 exch2_oj(4,294)=0 RETURN END SUBROUTINE W2_E2SETUP_295 C Topology for tile 295 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(295)=34 exch2_tNy(295)=102 exch2_tBasex(295)=306 exch2_tBasey(295)=408 exch2_txGlobalo(295)=1837 exch2_tyGlobalo(295)=409 exch2_isWedge(295)=0 exch2_isNedge(295)=1 exch2_isEedge(295)=0 exch2_isSedge(295)=0 exch2_myFace(295)=4 exch2_mydNx(295)=510 exch2_mydNy(295)=510 exch2_nNeighbours(295)=4 exch2_neighbourId(1,295)=310 exch2_iLo(1,295)=0 exch2_iHi(1,295)=35 exch2_jLo(1,295)=103 exch2_jHi(1,295)=103 exch2_opposingSend(1,295)=2 exch2_pij(1,1,295)=1 exch2_pij(2,1,295)=0 exch2_pij(3,1,295)=0 exch2_pij(4,1,295)=1 exch2_oi(1,295)=0 exch2_oj(1,295)=510 exch2_neighbourId(2,295)=280 exch2_iLo(2,295)=0 exch2_iHi(2,295)=35 exch2_jLo(2,295)=0 exch2_jHi(2,295)=0 exch2_opposingSend(2,295)=1 exch2_pij(1,2,295)=1 exch2_pij(2,2,295)=0 exch2_pij(3,2,295)=0 exch2_pij(4,2,295)=1 exch2_oi(2,295)=0 exch2_oj(2,295)=0 exch2_neighbourId(3,295)=296 exch2_iLo(3,295)=35 exch2_iHi(3,295)=35 exch2_jLo(3,295)=0 exch2_jHi(3,295)=103 exch2_opposingSend(3,295)=4 exch2_pij(1,3,295)=1 exch2_pij(2,3,295)=0 exch2_pij(3,3,295)=0 exch2_pij(4,3,295)=1 exch2_oi(3,295)=0 exch2_oj(3,295)=0 exch2_neighbourId(4,295)=294 exch2_iLo(4,295)=0 exch2_iHi(4,295)=0 exch2_jLo(4,295)=0 exch2_jHi(4,295)=103 exch2_opposingSend(4,295)=3 exch2_pij(1,4,295)=1 exch2_pij(2,4,295)=0 exch2_pij(3,4,295)=0 exch2_pij(4,4,295)=1 exch2_oi(4,295)=0 exch2_oj(4,295)=0 RETURN END SUBROUTINE W2_E2SETUP_296 C Topology for tile 296 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(296)=34 exch2_tNy(296)=102 exch2_tBasex(296)=340 exch2_tBasey(296)=408 exch2_txGlobalo(296)=1871 exch2_tyGlobalo(296)=409 exch2_isWedge(296)=0 exch2_isNedge(296)=1 exch2_isEedge(296)=0 exch2_isSedge(296)=0 exch2_myFace(296)=4 exch2_mydNx(296)=510 exch2_mydNy(296)=510 exch2_nNeighbours(296)=4 exch2_neighbourId(1,296)=311 exch2_iLo(1,296)=0 exch2_iHi(1,296)=35 exch2_jLo(1,296)=103 exch2_jHi(1,296)=103 exch2_opposingSend(1,296)=2 exch2_pij(1,1,296)=1 exch2_pij(2,1,296)=0 exch2_pij(3,1,296)=0 exch2_pij(4,1,296)=1 exch2_oi(1,296)=0 exch2_oj(1,296)=510 exch2_neighbourId(2,296)=281 exch2_iLo(2,296)=0 exch2_iHi(2,296)=35 exch2_jLo(2,296)=0 exch2_jHi(2,296)=0 exch2_opposingSend(2,296)=1 exch2_pij(1,2,296)=1 exch2_pij(2,2,296)=0 exch2_pij(3,2,296)=0 exch2_pij(4,2,296)=1 exch2_oi(2,296)=0 exch2_oj(2,296)=0 exch2_neighbourId(3,296)=297 exch2_iLo(3,296)=35 exch2_iHi(3,296)=35 exch2_jLo(3,296)=0 exch2_jHi(3,296)=103 exch2_opposingSend(3,296)=4 exch2_pij(1,3,296)=1 exch2_pij(2,3,296)=0 exch2_pij(3,3,296)=0 exch2_pij(4,3,296)=1 exch2_oi(3,296)=0 exch2_oj(3,296)=0 exch2_neighbourId(4,296)=295 exch2_iLo(4,296)=0 exch2_iHi(4,296)=0 exch2_jLo(4,296)=0 exch2_jHi(4,296)=103 exch2_opposingSend(4,296)=3 exch2_pij(1,4,296)=1 exch2_pij(2,4,296)=0 exch2_pij(3,4,296)=0 exch2_pij(4,4,296)=1 exch2_oi(4,296)=0 exch2_oj(4,296)=0 RETURN END SUBROUTINE W2_E2SETUP_297 C Topology for tile 297 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(297)=34 exch2_tNy(297)=102 exch2_tBasex(297)=374 exch2_tBasey(297)=408 exch2_txGlobalo(297)=1905 exch2_tyGlobalo(297)=409 exch2_isWedge(297)=0 exch2_isNedge(297)=1 exch2_isEedge(297)=0 exch2_isSedge(297)=0 exch2_myFace(297)=4 exch2_mydNx(297)=510 exch2_mydNy(297)=510 exch2_nNeighbours(297)=4 exch2_neighbourId(1,297)=312 exch2_iLo(1,297)=0 exch2_iHi(1,297)=35 exch2_jLo(1,297)=103 exch2_jHi(1,297)=103 exch2_opposingSend(1,297)=2 exch2_pij(1,1,297)=1 exch2_pij(2,1,297)=0 exch2_pij(3,1,297)=0 exch2_pij(4,1,297)=1 exch2_oi(1,297)=0 exch2_oj(1,297)=510 exch2_neighbourId(2,297)=282 exch2_iLo(2,297)=0 exch2_iHi(2,297)=35 exch2_jLo(2,297)=0 exch2_jHi(2,297)=0 exch2_opposingSend(2,297)=1 exch2_pij(1,2,297)=1 exch2_pij(2,2,297)=0 exch2_pij(3,2,297)=0 exch2_pij(4,2,297)=1 exch2_oi(2,297)=0 exch2_oj(2,297)=0 exch2_neighbourId(3,297)=298 exch2_iLo(3,297)=35 exch2_iHi(3,297)=35 exch2_jLo(3,297)=0 exch2_jHi(3,297)=103 exch2_opposingSend(3,297)=4 exch2_pij(1,3,297)=1 exch2_pij(2,3,297)=0 exch2_pij(3,3,297)=0 exch2_pij(4,3,297)=1 exch2_oi(3,297)=0 exch2_oj(3,297)=0 exch2_neighbourId(4,297)=296 exch2_iLo(4,297)=0 exch2_iHi(4,297)=0 exch2_jLo(4,297)=0 exch2_jHi(4,297)=103 exch2_opposingSend(4,297)=3 exch2_pij(1,4,297)=1 exch2_pij(2,4,297)=0 exch2_pij(3,4,297)=0 exch2_pij(4,4,297)=1 exch2_oi(4,297)=0 exch2_oj(4,297)=0 RETURN END SUBROUTINE W2_E2SETUP_298 C Topology for tile 298 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(298)=34 exch2_tNy(298)=102 exch2_tBasex(298)=408 exch2_tBasey(298)=408 exch2_txGlobalo(298)=1939 exch2_tyGlobalo(298)=409 exch2_isWedge(298)=0 exch2_isNedge(298)=1 exch2_isEedge(298)=0 exch2_isSedge(298)=0 exch2_myFace(298)=4 exch2_mydNx(298)=510 exch2_mydNy(298)=510 exch2_nNeighbours(298)=4 exch2_neighbourId(1,298)=313 exch2_iLo(1,298)=0 exch2_iHi(1,298)=35 exch2_jLo(1,298)=103 exch2_jHi(1,298)=103 exch2_opposingSend(1,298)=2 exch2_pij(1,1,298)=1 exch2_pij(2,1,298)=0 exch2_pij(3,1,298)=0 exch2_pij(4,1,298)=1 exch2_oi(1,298)=0 exch2_oj(1,298)=510 exch2_neighbourId(2,298)=283 exch2_iLo(2,298)=0 exch2_iHi(2,298)=35 exch2_jLo(2,298)=0 exch2_jHi(2,298)=0 exch2_opposingSend(2,298)=1 exch2_pij(1,2,298)=1 exch2_pij(2,2,298)=0 exch2_pij(3,2,298)=0 exch2_pij(4,2,298)=1 exch2_oi(2,298)=0 exch2_oj(2,298)=0 exch2_neighbourId(3,298)=299 exch2_iLo(3,298)=35 exch2_iHi(3,298)=35 exch2_jLo(3,298)=0 exch2_jHi(3,298)=103 exch2_opposingSend(3,298)=4 exch2_pij(1,3,298)=1 exch2_pij(2,3,298)=0 exch2_pij(3,3,298)=0 exch2_pij(4,3,298)=1 exch2_oi(3,298)=0 exch2_oj(3,298)=0 exch2_neighbourId(4,298)=297 exch2_iLo(4,298)=0 exch2_iHi(4,298)=0 exch2_jLo(4,298)=0 exch2_jHi(4,298)=103 exch2_opposingSend(4,298)=3 exch2_pij(1,4,298)=1 exch2_pij(2,4,298)=0 exch2_pij(3,4,298)=0 exch2_pij(4,4,298)=1 exch2_oi(4,298)=0 exch2_oj(4,298)=0 RETURN END SUBROUTINE W2_E2SETUP_299 C Topology for tile 299 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(299)=34 exch2_tNy(299)=102 exch2_tBasex(299)=442 exch2_tBasey(299)=408 exch2_txGlobalo(299)=1973 exch2_tyGlobalo(299)=409 exch2_isWedge(299)=0 exch2_isNedge(299)=1 exch2_isEedge(299)=0 exch2_isSedge(299)=0 exch2_myFace(299)=4 exch2_mydNx(299)=510 exch2_mydNy(299)=510 exch2_nNeighbours(299)=4 exch2_neighbourId(1,299)=314 exch2_iLo(1,299)=0 exch2_iHi(1,299)=35 exch2_jLo(1,299)=103 exch2_jHi(1,299)=103 exch2_opposingSend(1,299)=2 exch2_pij(1,1,299)=1 exch2_pij(2,1,299)=0 exch2_pij(3,1,299)=0 exch2_pij(4,1,299)=1 exch2_oi(1,299)=0 exch2_oj(1,299)=510 exch2_neighbourId(2,299)=284 exch2_iLo(2,299)=0 exch2_iHi(2,299)=35 exch2_jLo(2,299)=0 exch2_jHi(2,299)=0 exch2_opposingSend(2,299)=1 exch2_pij(1,2,299)=1 exch2_pij(2,2,299)=0 exch2_pij(3,2,299)=0 exch2_pij(4,2,299)=1 exch2_oi(2,299)=0 exch2_oj(2,299)=0 exch2_neighbourId(3,299)=300 exch2_iLo(3,299)=35 exch2_iHi(3,299)=35 exch2_jLo(3,299)=0 exch2_jHi(3,299)=103 exch2_opposingSend(3,299)=6 exch2_pij(1,3,299)=1 exch2_pij(2,3,299)=0 exch2_pij(3,3,299)=0 exch2_pij(4,3,299)=1 exch2_oi(3,299)=0 exch2_oj(3,299)=0 exch2_neighbourId(4,299)=298 exch2_iLo(4,299)=0 exch2_iHi(4,299)=0 exch2_jLo(4,299)=0 exch2_jHi(4,299)=103 exch2_opposingSend(4,299)=3 exch2_pij(1,4,299)=1 exch2_pij(2,4,299)=0 exch2_pij(3,4,299)=0 exch2_pij(4,4,299)=1 exch2_oi(4,299)=0 exch2_oj(4,299)=0 RETURN END SUBROUTINE W2_E2SETUP_300 C Topology for tile 300 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(300)=34 exch2_tNy(300)=102 exch2_tBasex(300)=476 exch2_tBasey(300)=408 exch2_txGlobalo(300)=2007 exch2_tyGlobalo(300)=409 exch2_isWedge(300)=0 exch2_isNedge(300)=1 exch2_isEedge(300)=1 exch2_isSedge(300)=0 exch2_myFace(300)=4 exch2_mydNx(300)=510 exch2_mydNy(300)=510 exch2_nNeighbours(300)=6 exch2_neighbourId(1,300)=315 exch2_iLo(1,300)=0 exch2_iHi(1,300)=35 exch2_jLo(1,300)=103 exch2_jHi(1,300)=103 exch2_opposingSend(1,300)=2 exch2_pij(1,1,300)=1 exch2_pij(2,1,300)=0 exch2_pij(3,1,300)=0 exch2_pij(4,1,300)=1 exch2_oi(1,300)=0 exch2_oj(1,300)=510 exch2_neighbourId(2,300)=285 exch2_iLo(2,300)=0 exch2_iHi(2,300)=35 exch2_jLo(2,300)=0 exch2_jHi(2,300)=0 exch2_opposingSend(2,300)=1 exch2_pij(1,2,300)=1 exch2_pij(2,2,300)=0 exch2_pij(3,2,300)=0 exch2_pij(4,2,300)=1 exch2_oi(2,300)=0 exch2_oj(2,300)=0 exch2_neighbourId(3,300)=376 exch2_iLo(3,300)=35 exch2_iHi(3,300)=35 exch2_jLo(3,300)=68 exch2_jHi(3,300)=103 exch2_opposingSend(3,300)=2 exch2_pij(1,3,300)=0 exch2_pij(2,3,300)=1 exch2_pij(3,3,300)=-1 exch2_pij(4,3,300)=0 exch2_oi(3,300)=510 exch2_oj(3,300)=511 exch2_neighbourId(4,300)=377 exch2_iLo(4,300)=35 exch2_iHi(4,300)=35 exch2_jLo(4,300)=34 exch2_jHi(4,300)=69 exch2_opposingSend(4,300)=2 exch2_pij(1,4,300)=0 exch2_pij(2,4,300)=1 exch2_pij(3,4,300)=-1 exch2_pij(4,4,300)=0 exch2_oi(4,300)=510 exch2_oj(4,300)=511 exch2_neighbourId(5,300)=378 exch2_iLo(5,300)=35 exch2_iHi(5,300)=35 exch2_jLo(5,300)=0 exch2_jHi(5,300)=35 exch2_opposingSend(5,300)=2 exch2_pij(1,5,300)=0 exch2_pij(2,5,300)=1 exch2_pij(3,5,300)=-1 exch2_pij(4,5,300)=0 exch2_oi(5,300)=510 exch2_oj(5,300)=511 exch2_neighbourId(6,300)=299 exch2_iLo(6,300)=0 exch2_iHi(6,300)=0 exch2_jLo(6,300)=0 exch2_jHi(6,300)=103 exch2_opposingSend(6,300)=3 exch2_pij(1,6,300)=1 exch2_pij(2,6,300)=0 exch2_pij(3,6,300)=0 exch2_pij(4,6,300)=1 exch2_oi(6,300)=0 exch2_oj(6,300)=0 RETURN END SUBROUTINE W2_E2SETUP_301 C Topology for tile 301 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(301)=34 exch2_tNy(301)=102 exch2_tBasex(301)=0 exch2_tBasey(301)=0 exch2_txGlobalo(301)=2041 exch2_tyGlobalo(301)=1 exch2_isWedge(301)=1 exch2_isNedge(301)=0 exch2_isEedge(301)=0 exch2_isSedge(301)=1 exch2_myFace(301)=5 exch2_mydNx(301)=510 exch2_mydNy(301)=510 exch2_nNeighbours(301)=6 exch2_neighbourId(1,301)=316 exch2_iLo(1,301)=0 exch2_iHi(1,301)=35 exch2_jLo(1,301)=103 exch2_jHi(1,301)=103 exch2_opposingSend(1,301)=2 exch2_pij(1,1,301)=1 exch2_pij(2,1,301)=0 exch2_pij(3,1,301)=0 exch2_pij(4,1,301)=1 exch2_oi(1,301)=0 exch2_oj(1,301)=0 exch2_neighbourId(2,301)=286 exch2_iLo(2,301)=0 exch2_iHi(2,301)=35 exch2_jLo(2,301)=0 exch2_jHi(2,301)=0 exch2_opposingSend(2,301)=1 exch2_pij(1,2,301)=1 exch2_pij(2,2,301)=0 exch2_pij(3,2,301)=0 exch2_pij(4,2,301)=1 exch2_oi(2,301)=0 exch2_oj(2,301)=-510 exch2_neighbourId(3,301)=302 exch2_iLo(3,301)=35 exch2_iHi(3,301)=35 exch2_jLo(3,301)=0 exch2_jHi(3,301)=103 exch2_opposingSend(3,301)=4 exch2_pij(1,3,301)=1 exch2_pij(2,3,301)=0 exch2_pij(3,3,301)=0 exch2_pij(4,3,301)=1 exch2_oi(3,301)=0 exch2_oj(3,301)=0 exch2_neighbourId(4,301)=223 exch2_iLo(4,301)=0 exch2_iHi(4,301)=0 exch2_jLo(4,301)=68 exch2_jHi(4,301)=103 exch2_opposingSend(4,301)=1 exch2_pij(1,4,301)=0 exch2_pij(2,4,301)=1 exch2_pij(3,4,301)=-1 exch2_pij(4,4,301)=0 exch2_oi(4,301)=-510 exch2_oj(4,301)=511 exch2_neighbourId(5,301)=224 exch2_iLo(5,301)=0 exch2_iHi(5,301)=0 exch2_jLo(5,301)=34 exch2_jHi(5,301)=69 exch2_opposingSend(5,301)=1 exch2_pij(1,5,301)=0 exch2_pij(2,5,301)=1 exch2_pij(3,5,301)=-1 exch2_pij(4,5,301)=0 exch2_oi(5,301)=-510 exch2_oj(5,301)=511 exch2_neighbourId(6,301)=225 exch2_iLo(6,301)=0 exch2_iHi(6,301)=0 exch2_jLo(6,301)=0 exch2_jHi(6,301)=35 exch2_opposingSend(6,301)=1 exch2_pij(1,6,301)=0 exch2_pij(2,6,301)=1 exch2_pij(3,6,301)=-1 exch2_pij(4,6,301)=0 exch2_oi(6,301)=-510 exch2_oj(6,301)=511 RETURN END SUBROUTINE W2_E2SETUP_302 C Topology for tile 302 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(302)=34 exch2_tNy(302)=102 exch2_tBasex(302)=34 exch2_tBasey(302)=0 exch2_txGlobalo(302)=2075 exch2_tyGlobalo(302)=1 exch2_isWedge(302)=0 exch2_isNedge(302)=0 exch2_isEedge(302)=0 exch2_isSedge(302)=1 exch2_myFace(302)=5 exch2_mydNx(302)=510 exch2_mydNy(302)=510 exch2_nNeighbours(302)=4 exch2_neighbourId(1,302)=317 exch2_iLo(1,302)=0 exch2_iHi(1,302)=35 exch2_jLo(1,302)=103 exch2_jHi(1,302)=103 exch2_opposingSend(1,302)=2 exch2_pij(1,1,302)=1 exch2_pij(2,1,302)=0 exch2_pij(3,1,302)=0 exch2_pij(4,1,302)=1 exch2_oi(1,302)=0 exch2_oj(1,302)=0 exch2_neighbourId(2,302)=287 exch2_iLo(2,302)=0 exch2_iHi(2,302)=35 exch2_jLo(2,302)=0 exch2_jHi(2,302)=0 exch2_opposingSend(2,302)=1 exch2_pij(1,2,302)=1 exch2_pij(2,2,302)=0 exch2_pij(3,2,302)=0 exch2_pij(4,2,302)=1 exch2_oi(2,302)=0 exch2_oj(2,302)=-510 exch2_neighbourId(3,302)=303 exch2_iLo(3,302)=35 exch2_iHi(3,302)=35 exch2_jLo(3,302)=0 exch2_jHi(3,302)=103 exch2_opposingSend(3,302)=4 exch2_pij(1,3,302)=1 exch2_pij(2,3,302)=0 exch2_pij(3,3,302)=0 exch2_pij(4,3,302)=1 exch2_oi(3,302)=0 exch2_oj(3,302)=0 exch2_neighbourId(4,302)=301 exch2_iLo(4,302)=0 exch2_iHi(4,302)=0 exch2_jLo(4,302)=0 exch2_jHi(4,302)=103 exch2_opposingSend(4,302)=3 exch2_pij(1,4,302)=1 exch2_pij(2,4,302)=0 exch2_pij(3,4,302)=0 exch2_pij(4,4,302)=1 exch2_oi(4,302)=0 exch2_oj(4,302)=0 RETURN END SUBROUTINE W2_E2SETUP_303 C Topology for tile 303 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(303)=34 exch2_tNy(303)=102 exch2_tBasex(303)=68 exch2_tBasey(303)=0 exch2_txGlobalo(303)=2109 exch2_tyGlobalo(303)=1 exch2_isWedge(303)=0 exch2_isNedge(303)=0 exch2_isEedge(303)=0 exch2_isSedge(303)=1 exch2_myFace(303)=5 exch2_mydNx(303)=510 exch2_mydNy(303)=510 exch2_nNeighbours(303)=4 exch2_neighbourId(1,303)=318 exch2_iLo(1,303)=0 exch2_iHi(1,303)=35 exch2_jLo(1,303)=103 exch2_jHi(1,303)=103 exch2_opposingSend(1,303)=2 exch2_pij(1,1,303)=1 exch2_pij(2,1,303)=0 exch2_pij(3,1,303)=0 exch2_pij(4,1,303)=1 exch2_oi(1,303)=0 exch2_oj(1,303)=0 exch2_neighbourId(2,303)=288 exch2_iLo(2,303)=0 exch2_iHi(2,303)=35 exch2_jLo(2,303)=0 exch2_jHi(2,303)=0 exch2_opposingSend(2,303)=1 exch2_pij(1,2,303)=1 exch2_pij(2,2,303)=0 exch2_pij(3,2,303)=0 exch2_pij(4,2,303)=1 exch2_oi(2,303)=0 exch2_oj(2,303)=-510 exch2_neighbourId(3,303)=304 exch2_iLo(3,303)=35 exch2_iHi(3,303)=35 exch2_jLo(3,303)=0 exch2_jHi(3,303)=103 exch2_opposingSend(3,303)=4 exch2_pij(1,3,303)=1 exch2_pij(2,3,303)=0 exch2_pij(3,3,303)=0 exch2_pij(4,3,303)=1 exch2_oi(3,303)=0 exch2_oj(3,303)=0 exch2_neighbourId(4,303)=302 exch2_iLo(4,303)=0 exch2_iHi(4,303)=0 exch2_jLo(4,303)=0 exch2_jHi(4,303)=103 exch2_opposingSend(4,303)=3 exch2_pij(1,4,303)=1 exch2_pij(2,4,303)=0 exch2_pij(3,4,303)=0 exch2_pij(4,4,303)=1 exch2_oi(4,303)=0 exch2_oj(4,303)=0 RETURN END SUBROUTINE W2_E2SETUP_304 C Topology for tile 304 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(304)=34 exch2_tNy(304)=102 exch2_tBasex(304)=102 exch2_tBasey(304)=0 exch2_txGlobalo(304)=2143 exch2_tyGlobalo(304)=1 exch2_isWedge(304)=0 exch2_isNedge(304)=0 exch2_isEedge(304)=0 exch2_isSedge(304)=1 exch2_myFace(304)=5 exch2_mydNx(304)=510 exch2_mydNy(304)=510 exch2_nNeighbours(304)=4 exch2_neighbourId(1,304)=319 exch2_iLo(1,304)=0 exch2_iHi(1,304)=35 exch2_jLo(1,304)=103 exch2_jHi(1,304)=103 exch2_opposingSend(1,304)=2 exch2_pij(1,1,304)=1 exch2_pij(2,1,304)=0 exch2_pij(3,1,304)=0 exch2_pij(4,1,304)=1 exch2_oi(1,304)=0 exch2_oj(1,304)=0 exch2_neighbourId(2,304)=289 exch2_iLo(2,304)=0 exch2_iHi(2,304)=35 exch2_jLo(2,304)=0 exch2_jHi(2,304)=0 exch2_opposingSend(2,304)=1 exch2_pij(1,2,304)=1 exch2_pij(2,2,304)=0 exch2_pij(3,2,304)=0 exch2_pij(4,2,304)=1 exch2_oi(2,304)=0 exch2_oj(2,304)=-510 exch2_neighbourId(3,304)=305 exch2_iLo(3,304)=35 exch2_iHi(3,304)=35 exch2_jLo(3,304)=0 exch2_jHi(3,304)=103 exch2_opposingSend(3,304)=4 exch2_pij(1,3,304)=1 exch2_pij(2,3,304)=0 exch2_pij(3,3,304)=0 exch2_pij(4,3,304)=1 exch2_oi(3,304)=0 exch2_oj(3,304)=0 exch2_neighbourId(4,304)=303 exch2_iLo(4,304)=0 exch2_iHi(4,304)=0 exch2_jLo(4,304)=0 exch2_jHi(4,304)=103 exch2_opposingSend(4,304)=3 exch2_pij(1,4,304)=1 exch2_pij(2,4,304)=0 exch2_pij(3,4,304)=0 exch2_pij(4,4,304)=1 exch2_oi(4,304)=0 exch2_oj(4,304)=0 RETURN END SUBROUTINE W2_E2SETUP_305 C Topology for tile 305 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(305)=34 exch2_tNy(305)=102 exch2_tBasex(305)=136 exch2_tBasey(305)=0 exch2_txGlobalo(305)=2177 exch2_tyGlobalo(305)=1 exch2_isWedge(305)=0 exch2_isNedge(305)=0 exch2_isEedge(305)=0 exch2_isSedge(305)=1 exch2_myFace(305)=5 exch2_mydNx(305)=510 exch2_mydNy(305)=510 exch2_nNeighbours(305)=4 exch2_neighbourId(1,305)=320 exch2_iLo(1,305)=0 exch2_iHi(1,305)=35 exch2_jLo(1,305)=103 exch2_jHi(1,305)=103 exch2_opposingSend(1,305)=2 exch2_pij(1,1,305)=1 exch2_pij(2,1,305)=0 exch2_pij(3,1,305)=0 exch2_pij(4,1,305)=1 exch2_oi(1,305)=0 exch2_oj(1,305)=0 exch2_neighbourId(2,305)=290 exch2_iLo(2,305)=0 exch2_iHi(2,305)=35 exch2_jLo(2,305)=0 exch2_jHi(2,305)=0 exch2_opposingSend(2,305)=1 exch2_pij(1,2,305)=1 exch2_pij(2,2,305)=0 exch2_pij(3,2,305)=0 exch2_pij(4,2,305)=1 exch2_oi(2,305)=0 exch2_oj(2,305)=-510 exch2_neighbourId(3,305)=306 exch2_iLo(3,305)=35 exch2_iHi(3,305)=35 exch2_jLo(3,305)=0 exch2_jHi(3,305)=103 exch2_opposingSend(3,305)=4 exch2_pij(1,3,305)=1 exch2_pij(2,3,305)=0 exch2_pij(3,3,305)=0 exch2_pij(4,3,305)=1 exch2_oi(3,305)=0 exch2_oj(3,305)=0 exch2_neighbourId(4,305)=304 exch2_iLo(4,305)=0 exch2_iHi(4,305)=0 exch2_jLo(4,305)=0 exch2_jHi(4,305)=103 exch2_opposingSend(4,305)=3 exch2_pij(1,4,305)=1 exch2_pij(2,4,305)=0 exch2_pij(3,4,305)=0 exch2_pij(4,4,305)=1 exch2_oi(4,305)=0 exch2_oj(4,305)=0 RETURN END SUBROUTINE W2_E2SETUP_306 C Topology for tile 306 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(306)=34 exch2_tNy(306)=102 exch2_tBasex(306)=170 exch2_tBasey(306)=0 exch2_txGlobalo(306)=2211 exch2_tyGlobalo(306)=1 exch2_isWedge(306)=0 exch2_isNedge(306)=0 exch2_isEedge(306)=0 exch2_isSedge(306)=1 exch2_myFace(306)=5 exch2_mydNx(306)=510 exch2_mydNy(306)=510 exch2_nNeighbours(306)=4 exch2_neighbourId(1,306)=321 exch2_iLo(1,306)=0 exch2_iHi(1,306)=35 exch2_jLo(1,306)=103 exch2_jHi(1,306)=103 exch2_opposingSend(1,306)=2 exch2_pij(1,1,306)=1 exch2_pij(2,1,306)=0 exch2_pij(3,1,306)=0 exch2_pij(4,1,306)=1 exch2_oi(1,306)=0 exch2_oj(1,306)=0 exch2_neighbourId(2,306)=291 exch2_iLo(2,306)=0 exch2_iHi(2,306)=35 exch2_jLo(2,306)=0 exch2_jHi(2,306)=0 exch2_opposingSend(2,306)=1 exch2_pij(1,2,306)=1 exch2_pij(2,2,306)=0 exch2_pij(3,2,306)=0 exch2_pij(4,2,306)=1 exch2_oi(2,306)=0 exch2_oj(2,306)=-510 exch2_neighbourId(3,306)=307 exch2_iLo(3,306)=35 exch2_iHi(3,306)=35 exch2_jLo(3,306)=0 exch2_jHi(3,306)=103 exch2_opposingSend(3,306)=4 exch2_pij(1,3,306)=1 exch2_pij(2,3,306)=0 exch2_pij(3,3,306)=0 exch2_pij(4,3,306)=1 exch2_oi(3,306)=0 exch2_oj(3,306)=0 exch2_neighbourId(4,306)=305 exch2_iLo(4,306)=0 exch2_iHi(4,306)=0 exch2_jLo(4,306)=0 exch2_jHi(4,306)=103 exch2_opposingSend(4,306)=3 exch2_pij(1,4,306)=1 exch2_pij(2,4,306)=0 exch2_pij(3,4,306)=0 exch2_pij(4,4,306)=1 exch2_oi(4,306)=0 exch2_oj(4,306)=0 RETURN END SUBROUTINE W2_E2SETUP_307 C Topology for tile 307 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(307)=34 exch2_tNy(307)=102 exch2_tBasex(307)=204 exch2_tBasey(307)=0 exch2_txGlobalo(307)=2245 exch2_tyGlobalo(307)=1 exch2_isWedge(307)=0 exch2_isNedge(307)=0 exch2_isEedge(307)=0 exch2_isSedge(307)=1 exch2_myFace(307)=5 exch2_mydNx(307)=510 exch2_mydNy(307)=510 exch2_nNeighbours(307)=4 exch2_neighbourId(1,307)=322 exch2_iLo(1,307)=0 exch2_iHi(1,307)=35 exch2_jLo(1,307)=103 exch2_jHi(1,307)=103 exch2_opposingSend(1,307)=2 exch2_pij(1,1,307)=1 exch2_pij(2,1,307)=0 exch2_pij(3,1,307)=0 exch2_pij(4,1,307)=1 exch2_oi(1,307)=0 exch2_oj(1,307)=0 exch2_neighbourId(2,307)=292 exch2_iLo(2,307)=0 exch2_iHi(2,307)=35 exch2_jLo(2,307)=0 exch2_jHi(2,307)=0 exch2_opposingSend(2,307)=1 exch2_pij(1,2,307)=1 exch2_pij(2,2,307)=0 exch2_pij(3,2,307)=0 exch2_pij(4,2,307)=1 exch2_oi(2,307)=0 exch2_oj(2,307)=-510 exch2_neighbourId(3,307)=308 exch2_iLo(3,307)=35 exch2_iHi(3,307)=35 exch2_jLo(3,307)=0 exch2_jHi(3,307)=103 exch2_opposingSend(3,307)=4 exch2_pij(1,3,307)=1 exch2_pij(2,3,307)=0 exch2_pij(3,3,307)=0 exch2_pij(4,3,307)=1 exch2_oi(3,307)=0 exch2_oj(3,307)=0 exch2_neighbourId(4,307)=306 exch2_iLo(4,307)=0 exch2_iHi(4,307)=0 exch2_jLo(4,307)=0 exch2_jHi(4,307)=103 exch2_opposingSend(4,307)=3 exch2_pij(1,4,307)=1 exch2_pij(2,4,307)=0 exch2_pij(3,4,307)=0 exch2_pij(4,4,307)=1 exch2_oi(4,307)=0 exch2_oj(4,307)=0 RETURN END SUBROUTINE W2_E2SETUP_308 C Topology for tile 308 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(308)=34 exch2_tNy(308)=102 exch2_tBasex(308)=238 exch2_tBasey(308)=0 exch2_txGlobalo(308)=2279 exch2_tyGlobalo(308)=1 exch2_isWedge(308)=0 exch2_isNedge(308)=0 exch2_isEedge(308)=0 exch2_isSedge(308)=1 exch2_myFace(308)=5 exch2_mydNx(308)=510 exch2_mydNy(308)=510 exch2_nNeighbours(308)=4 exch2_neighbourId(1,308)=323 exch2_iLo(1,308)=0 exch2_iHi(1,308)=35 exch2_jLo(1,308)=103 exch2_jHi(1,308)=103 exch2_opposingSend(1,308)=2 exch2_pij(1,1,308)=1 exch2_pij(2,1,308)=0 exch2_pij(3,1,308)=0 exch2_pij(4,1,308)=1 exch2_oi(1,308)=0 exch2_oj(1,308)=0 exch2_neighbourId(2,308)=293 exch2_iLo(2,308)=0 exch2_iHi(2,308)=35 exch2_jLo(2,308)=0 exch2_jHi(2,308)=0 exch2_opposingSend(2,308)=1 exch2_pij(1,2,308)=1 exch2_pij(2,2,308)=0 exch2_pij(3,2,308)=0 exch2_pij(4,2,308)=1 exch2_oi(2,308)=0 exch2_oj(2,308)=-510 exch2_neighbourId(3,308)=309 exch2_iLo(3,308)=35 exch2_iHi(3,308)=35 exch2_jLo(3,308)=0 exch2_jHi(3,308)=103 exch2_opposingSend(3,308)=4 exch2_pij(1,3,308)=1 exch2_pij(2,3,308)=0 exch2_pij(3,3,308)=0 exch2_pij(4,3,308)=1 exch2_oi(3,308)=0 exch2_oj(3,308)=0 exch2_neighbourId(4,308)=307 exch2_iLo(4,308)=0 exch2_iHi(4,308)=0 exch2_jLo(4,308)=0 exch2_jHi(4,308)=103 exch2_opposingSend(4,308)=3 exch2_pij(1,4,308)=1 exch2_pij(2,4,308)=0 exch2_pij(3,4,308)=0 exch2_pij(4,4,308)=1 exch2_oi(4,308)=0 exch2_oj(4,308)=0 RETURN END SUBROUTINE W2_E2SETUP_309 C Topology for tile 309 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(309)=34 exch2_tNy(309)=102 exch2_tBasex(309)=272 exch2_tBasey(309)=0 exch2_txGlobalo(309)=2313 exch2_tyGlobalo(309)=1 exch2_isWedge(309)=0 exch2_isNedge(309)=0 exch2_isEedge(309)=0 exch2_isSedge(309)=1 exch2_myFace(309)=5 exch2_mydNx(309)=510 exch2_mydNy(309)=510 exch2_nNeighbours(309)=4 exch2_neighbourId(1,309)=324 exch2_iLo(1,309)=0 exch2_iHi(1,309)=35 exch2_jLo(1,309)=103 exch2_jHi(1,309)=103 exch2_opposingSend(1,309)=2 exch2_pij(1,1,309)=1 exch2_pij(2,1,309)=0 exch2_pij(3,1,309)=0 exch2_pij(4,1,309)=1 exch2_oi(1,309)=0 exch2_oj(1,309)=0 exch2_neighbourId(2,309)=294 exch2_iLo(2,309)=0 exch2_iHi(2,309)=35 exch2_jLo(2,309)=0 exch2_jHi(2,309)=0 exch2_opposingSend(2,309)=1 exch2_pij(1,2,309)=1 exch2_pij(2,2,309)=0 exch2_pij(3,2,309)=0 exch2_pij(4,2,309)=1 exch2_oi(2,309)=0 exch2_oj(2,309)=-510 exch2_neighbourId(3,309)=310 exch2_iLo(3,309)=35 exch2_iHi(3,309)=35 exch2_jLo(3,309)=0 exch2_jHi(3,309)=103 exch2_opposingSend(3,309)=4 exch2_pij(1,3,309)=1 exch2_pij(2,3,309)=0 exch2_pij(3,3,309)=0 exch2_pij(4,3,309)=1 exch2_oi(3,309)=0 exch2_oj(3,309)=0 exch2_neighbourId(4,309)=308 exch2_iLo(4,309)=0 exch2_iHi(4,309)=0 exch2_jLo(4,309)=0 exch2_jHi(4,309)=103 exch2_opposingSend(4,309)=3 exch2_pij(1,4,309)=1 exch2_pij(2,4,309)=0 exch2_pij(3,4,309)=0 exch2_pij(4,4,309)=1 exch2_oi(4,309)=0 exch2_oj(4,309)=0 RETURN END SUBROUTINE W2_E2SETUP_310 C Topology for tile 310 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(310)=34 exch2_tNy(310)=102 exch2_tBasex(310)=306 exch2_tBasey(310)=0 exch2_txGlobalo(310)=2347 exch2_tyGlobalo(310)=1 exch2_isWedge(310)=0 exch2_isNedge(310)=0 exch2_isEedge(310)=0 exch2_isSedge(310)=1 exch2_myFace(310)=5 exch2_mydNx(310)=510 exch2_mydNy(310)=510 exch2_nNeighbours(310)=4 exch2_neighbourId(1,310)=325 exch2_iLo(1,310)=0 exch2_iHi(1,310)=35 exch2_jLo(1,310)=103 exch2_jHi(1,310)=103 exch2_opposingSend(1,310)=2 exch2_pij(1,1,310)=1 exch2_pij(2,1,310)=0 exch2_pij(3,1,310)=0 exch2_pij(4,1,310)=1 exch2_oi(1,310)=0 exch2_oj(1,310)=0 exch2_neighbourId(2,310)=295 exch2_iLo(2,310)=0 exch2_iHi(2,310)=35 exch2_jLo(2,310)=0 exch2_jHi(2,310)=0 exch2_opposingSend(2,310)=1 exch2_pij(1,2,310)=1 exch2_pij(2,2,310)=0 exch2_pij(3,2,310)=0 exch2_pij(4,2,310)=1 exch2_oi(2,310)=0 exch2_oj(2,310)=-510 exch2_neighbourId(3,310)=311 exch2_iLo(3,310)=35 exch2_iHi(3,310)=35 exch2_jLo(3,310)=0 exch2_jHi(3,310)=103 exch2_opposingSend(3,310)=4 exch2_pij(1,3,310)=1 exch2_pij(2,3,310)=0 exch2_pij(3,3,310)=0 exch2_pij(4,3,310)=1 exch2_oi(3,310)=0 exch2_oj(3,310)=0 exch2_neighbourId(4,310)=309 exch2_iLo(4,310)=0 exch2_iHi(4,310)=0 exch2_jLo(4,310)=0 exch2_jHi(4,310)=103 exch2_opposingSend(4,310)=3 exch2_pij(1,4,310)=1 exch2_pij(2,4,310)=0 exch2_pij(3,4,310)=0 exch2_pij(4,4,310)=1 exch2_oi(4,310)=0 exch2_oj(4,310)=0 RETURN END SUBROUTINE W2_E2SETUP_311 C Topology for tile 311 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(311)=34 exch2_tNy(311)=102 exch2_tBasex(311)=340 exch2_tBasey(311)=0 exch2_txGlobalo(311)=2381 exch2_tyGlobalo(311)=1 exch2_isWedge(311)=0 exch2_isNedge(311)=0 exch2_isEedge(311)=0 exch2_isSedge(311)=1 exch2_myFace(311)=5 exch2_mydNx(311)=510 exch2_mydNy(311)=510 exch2_nNeighbours(311)=4 exch2_neighbourId(1,311)=326 exch2_iLo(1,311)=0 exch2_iHi(1,311)=35 exch2_jLo(1,311)=103 exch2_jHi(1,311)=103 exch2_opposingSend(1,311)=2 exch2_pij(1,1,311)=1 exch2_pij(2,1,311)=0 exch2_pij(3,1,311)=0 exch2_pij(4,1,311)=1 exch2_oi(1,311)=0 exch2_oj(1,311)=0 exch2_neighbourId(2,311)=296 exch2_iLo(2,311)=0 exch2_iHi(2,311)=35 exch2_jLo(2,311)=0 exch2_jHi(2,311)=0 exch2_opposingSend(2,311)=1 exch2_pij(1,2,311)=1 exch2_pij(2,2,311)=0 exch2_pij(3,2,311)=0 exch2_pij(4,2,311)=1 exch2_oi(2,311)=0 exch2_oj(2,311)=-510 exch2_neighbourId(3,311)=312 exch2_iLo(3,311)=35 exch2_iHi(3,311)=35 exch2_jLo(3,311)=0 exch2_jHi(3,311)=103 exch2_opposingSend(3,311)=4 exch2_pij(1,3,311)=1 exch2_pij(2,3,311)=0 exch2_pij(3,3,311)=0 exch2_pij(4,3,311)=1 exch2_oi(3,311)=0 exch2_oj(3,311)=0 exch2_neighbourId(4,311)=310 exch2_iLo(4,311)=0 exch2_iHi(4,311)=0 exch2_jLo(4,311)=0 exch2_jHi(4,311)=103 exch2_opposingSend(4,311)=3 exch2_pij(1,4,311)=1 exch2_pij(2,4,311)=0 exch2_pij(3,4,311)=0 exch2_pij(4,4,311)=1 exch2_oi(4,311)=0 exch2_oj(4,311)=0 RETURN END SUBROUTINE W2_E2SETUP_312 C Topology for tile 312 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(312)=34 exch2_tNy(312)=102 exch2_tBasex(312)=374 exch2_tBasey(312)=0 exch2_txGlobalo(312)=2415 exch2_tyGlobalo(312)=1 exch2_isWedge(312)=0 exch2_isNedge(312)=0 exch2_isEedge(312)=0 exch2_isSedge(312)=1 exch2_myFace(312)=5 exch2_mydNx(312)=510 exch2_mydNy(312)=510 exch2_nNeighbours(312)=4 exch2_neighbourId(1,312)=327 exch2_iLo(1,312)=0 exch2_iHi(1,312)=35 exch2_jLo(1,312)=103 exch2_jHi(1,312)=103 exch2_opposingSend(1,312)=2 exch2_pij(1,1,312)=1 exch2_pij(2,1,312)=0 exch2_pij(3,1,312)=0 exch2_pij(4,1,312)=1 exch2_oi(1,312)=0 exch2_oj(1,312)=0 exch2_neighbourId(2,312)=297 exch2_iLo(2,312)=0 exch2_iHi(2,312)=35 exch2_jLo(2,312)=0 exch2_jHi(2,312)=0 exch2_opposingSend(2,312)=1 exch2_pij(1,2,312)=1 exch2_pij(2,2,312)=0 exch2_pij(3,2,312)=0 exch2_pij(4,2,312)=1 exch2_oi(2,312)=0 exch2_oj(2,312)=-510 exch2_neighbourId(3,312)=313 exch2_iLo(3,312)=35 exch2_iHi(3,312)=35 exch2_jLo(3,312)=0 exch2_jHi(3,312)=103 exch2_opposingSend(3,312)=4 exch2_pij(1,3,312)=1 exch2_pij(2,3,312)=0 exch2_pij(3,3,312)=0 exch2_pij(4,3,312)=1 exch2_oi(3,312)=0 exch2_oj(3,312)=0 exch2_neighbourId(4,312)=311 exch2_iLo(4,312)=0 exch2_iHi(4,312)=0 exch2_jLo(4,312)=0 exch2_jHi(4,312)=103 exch2_opposingSend(4,312)=3 exch2_pij(1,4,312)=1 exch2_pij(2,4,312)=0 exch2_pij(3,4,312)=0 exch2_pij(4,4,312)=1 exch2_oi(4,312)=0 exch2_oj(4,312)=0 RETURN END SUBROUTINE W2_E2SETUP_313 C Topology for tile 313 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(313)=34 exch2_tNy(313)=102 exch2_tBasex(313)=408 exch2_tBasey(313)=0 exch2_txGlobalo(313)=2449 exch2_tyGlobalo(313)=1 exch2_isWedge(313)=0 exch2_isNedge(313)=0 exch2_isEedge(313)=0 exch2_isSedge(313)=1 exch2_myFace(313)=5 exch2_mydNx(313)=510 exch2_mydNy(313)=510 exch2_nNeighbours(313)=4 exch2_neighbourId(1,313)=328 exch2_iLo(1,313)=0 exch2_iHi(1,313)=35 exch2_jLo(1,313)=103 exch2_jHi(1,313)=103 exch2_opposingSend(1,313)=2 exch2_pij(1,1,313)=1 exch2_pij(2,1,313)=0 exch2_pij(3,1,313)=0 exch2_pij(4,1,313)=1 exch2_oi(1,313)=0 exch2_oj(1,313)=0 exch2_neighbourId(2,313)=298 exch2_iLo(2,313)=0 exch2_iHi(2,313)=35 exch2_jLo(2,313)=0 exch2_jHi(2,313)=0 exch2_opposingSend(2,313)=1 exch2_pij(1,2,313)=1 exch2_pij(2,2,313)=0 exch2_pij(3,2,313)=0 exch2_pij(4,2,313)=1 exch2_oi(2,313)=0 exch2_oj(2,313)=-510 exch2_neighbourId(3,313)=314 exch2_iLo(3,313)=35 exch2_iHi(3,313)=35 exch2_jLo(3,313)=0 exch2_jHi(3,313)=103 exch2_opposingSend(3,313)=4 exch2_pij(1,3,313)=1 exch2_pij(2,3,313)=0 exch2_pij(3,3,313)=0 exch2_pij(4,3,313)=1 exch2_oi(3,313)=0 exch2_oj(3,313)=0 exch2_neighbourId(4,313)=312 exch2_iLo(4,313)=0 exch2_iHi(4,313)=0 exch2_jLo(4,313)=0 exch2_jHi(4,313)=103 exch2_opposingSend(4,313)=3 exch2_pij(1,4,313)=1 exch2_pij(2,4,313)=0 exch2_pij(3,4,313)=0 exch2_pij(4,4,313)=1 exch2_oi(4,313)=0 exch2_oj(4,313)=0 RETURN END SUBROUTINE W2_E2SETUP_314 C Topology for tile 314 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(314)=34 exch2_tNy(314)=102 exch2_tBasex(314)=442 exch2_tBasey(314)=0 exch2_txGlobalo(314)=2483 exch2_tyGlobalo(314)=1 exch2_isWedge(314)=0 exch2_isNedge(314)=0 exch2_isEedge(314)=0 exch2_isSedge(314)=1 exch2_myFace(314)=5 exch2_mydNx(314)=510 exch2_mydNy(314)=510 exch2_nNeighbours(314)=4 exch2_neighbourId(1,314)=329 exch2_iLo(1,314)=0 exch2_iHi(1,314)=35 exch2_jLo(1,314)=103 exch2_jHi(1,314)=103 exch2_opposingSend(1,314)=2 exch2_pij(1,1,314)=1 exch2_pij(2,1,314)=0 exch2_pij(3,1,314)=0 exch2_pij(4,1,314)=1 exch2_oi(1,314)=0 exch2_oj(1,314)=0 exch2_neighbourId(2,314)=299 exch2_iLo(2,314)=0 exch2_iHi(2,314)=35 exch2_jLo(2,314)=0 exch2_jHi(2,314)=0 exch2_opposingSend(2,314)=1 exch2_pij(1,2,314)=1 exch2_pij(2,2,314)=0 exch2_pij(3,2,314)=0 exch2_pij(4,2,314)=1 exch2_oi(2,314)=0 exch2_oj(2,314)=-510 exch2_neighbourId(3,314)=315 exch2_iLo(3,314)=35 exch2_iHi(3,314)=35 exch2_jLo(3,314)=0 exch2_jHi(3,314)=103 exch2_opposingSend(3,314)=4 exch2_pij(1,3,314)=1 exch2_pij(2,3,314)=0 exch2_pij(3,3,314)=0 exch2_pij(4,3,314)=1 exch2_oi(3,314)=0 exch2_oj(3,314)=0 exch2_neighbourId(4,314)=313 exch2_iLo(4,314)=0 exch2_iHi(4,314)=0 exch2_jLo(4,314)=0 exch2_jHi(4,314)=103 exch2_opposingSend(4,314)=3 exch2_pij(1,4,314)=1 exch2_pij(2,4,314)=0 exch2_pij(3,4,314)=0 exch2_pij(4,4,314)=1 exch2_oi(4,314)=0 exch2_oj(4,314)=0 RETURN END SUBROUTINE W2_E2SETUP_315 C Topology for tile 315 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(315)=34 exch2_tNy(315)=102 exch2_tBasex(315)=476 exch2_tBasey(315)=0 exch2_txGlobalo(315)=2517 exch2_tyGlobalo(315)=1 exch2_isWedge(315)=0 exch2_isNedge(315)=0 exch2_isEedge(315)=1 exch2_isSedge(315)=1 exch2_myFace(315)=5 exch2_mydNx(315)=510 exch2_mydNy(315)=510 exch2_nNeighbours(315)=4 exch2_neighbourId(1,315)=330 exch2_iLo(1,315)=0 exch2_iHi(1,315)=35 exch2_jLo(1,315)=103 exch2_jHi(1,315)=103 exch2_opposingSend(1,315)=2 exch2_pij(1,1,315)=1 exch2_pij(2,1,315)=0 exch2_pij(3,1,315)=0 exch2_pij(4,1,315)=1 exch2_oi(1,315)=0 exch2_oj(1,315)=0 exch2_neighbourId(2,315)=300 exch2_iLo(2,315)=0 exch2_iHi(2,315)=35 exch2_jLo(2,315)=0 exch2_jHi(2,315)=0 exch2_opposingSend(2,315)=1 exch2_pij(1,2,315)=1 exch2_pij(2,2,315)=0 exch2_pij(3,2,315)=0 exch2_pij(4,2,315)=1 exch2_oi(2,315)=0 exch2_oj(2,315)=-510 exch2_neighbourId(3,315)=376 exch2_iLo(3,315)=35 exch2_iHi(3,315)=35 exch2_jLo(3,315)=0 exch2_jHi(3,315)=103 exch2_opposingSend(3,315)=4 exch2_pij(1,3,315)=1 exch2_pij(2,3,315)=0 exch2_pij(3,3,315)=0 exch2_pij(4,3,315)=1 exch2_oi(3,315)=510 exch2_oj(3,315)=0 exch2_neighbourId(4,315)=314 exch2_iLo(4,315)=0 exch2_iHi(4,315)=0 exch2_jLo(4,315)=0 exch2_jHi(4,315)=103 exch2_opposingSend(4,315)=3 exch2_pij(1,4,315)=1 exch2_pij(2,4,315)=0 exch2_pij(3,4,315)=0 exch2_pij(4,4,315)=1 exch2_oi(4,315)=0 exch2_oj(4,315)=0 RETURN END SUBROUTINE W2_E2SETUP_316 C Topology for tile 316 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(316)=34 exch2_tNy(316)=102 exch2_tBasex(316)=0 exch2_tBasey(316)=102 exch2_txGlobalo(316)=2041 exch2_tyGlobalo(316)=103 exch2_isWedge(316)=1 exch2_isNedge(316)=0 exch2_isEedge(316)=0 exch2_isSedge(316)=0 exch2_myFace(316)=5 exch2_mydNx(316)=510 exch2_mydNy(316)=510 exch2_nNeighbours(316)=6 exch2_neighbourId(1,316)=331 exch2_iLo(1,316)=0 exch2_iHi(1,316)=35 exch2_jLo(1,316)=103 exch2_jHi(1,316)=103 exch2_opposingSend(1,316)=2 exch2_pij(1,1,316)=1 exch2_pij(2,1,316)=0 exch2_pij(3,1,316)=0 exch2_pij(4,1,316)=1 exch2_oi(1,316)=0 exch2_oj(1,316)=0 exch2_neighbourId(2,316)=301 exch2_iLo(2,316)=0 exch2_iHi(2,316)=35 exch2_jLo(2,316)=0 exch2_jHi(2,316)=0 exch2_opposingSend(2,316)=1 exch2_pij(1,2,316)=1 exch2_pij(2,2,316)=0 exch2_pij(3,2,316)=0 exch2_pij(4,2,316)=1 exch2_oi(2,316)=0 exch2_oj(2,316)=0 exch2_neighbourId(3,316)=317 exch2_iLo(3,316)=35 exch2_iHi(3,316)=35 exch2_jLo(3,316)=0 exch2_jHi(3,316)=103 exch2_opposingSend(3,316)=4 exch2_pij(1,3,316)=1 exch2_pij(2,3,316)=0 exch2_pij(3,3,316)=0 exch2_pij(4,3,316)=1 exch2_oi(3,316)=0 exch2_oj(3,316)=0 exch2_neighbourId(4,316)=220 exch2_iLo(4,316)=0 exch2_iHi(4,316)=0 exch2_jLo(4,316)=68 exch2_jHi(4,316)=103 exch2_opposingSend(4,316)=1 exch2_pij(1,4,316)=0 exch2_pij(2,4,316)=1 exch2_pij(3,4,316)=-1 exch2_pij(4,4,316)=0 exch2_oi(4,316)=-510 exch2_oj(4,316)=511 exch2_neighbourId(5,316)=221 exch2_iLo(5,316)=0 exch2_iHi(5,316)=0 exch2_jLo(5,316)=34 exch2_jHi(5,316)=69 exch2_opposingSend(5,316)=1 exch2_pij(1,5,316)=0 exch2_pij(2,5,316)=1 exch2_pij(3,5,316)=-1 exch2_pij(4,5,316)=0 exch2_oi(5,316)=-510 exch2_oj(5,316)=511 exch2_neighbourId(6,316)=222 exch2_iLo(6,316)=0 exch2_iHi(6,316)=0 exch2_jLo(6,316)=0 exch2_jHi(6,316)=35 exch2_opposingSend(6,316)=1 exch2_pij(1,6,316)=0 exch2_pij(2,6,316)=1 exch2_pij(3,6,316)=-1 exch2_pij(4,6,316)=0 exch2_oi(6,316)=-510 exch2_oj(6,316)=511 RETURN END SUBROUTINE W2_E2SETUP_317 C Topology for tile 317 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(317)=34 exch2_tNy(317)=102 exch2_tBasex(317)=34 exch2_tBasey(317)=102 exch2_txGlobalo(317)=2075 exch2_tyGlobalo(317)=103 exch2_isWedge(317)=0 exch2_isNedge(317)=0 exch2_isEedge(317)=0 exch2_isSedge(317)=0 exch2_myFace(317)=5 exch2_mydNx(317)=510 exch2_mydNy(317)=510 exch2_nNeighbours(317)=4 exch2_neighbourId(1,317)=332 exch2_iLo(1,317)=0 exch2_iHi(1,317)=35 exch2_jLo(1,317)=103 exch2_jHi(1,317)=103 exch2_opposingSend(1,317)=2 exch2_pij(1,1,317)=1 exch2_pij(2,1,317)=0 exch2_pij(3,1,317)=0 exch2_pij(4,1,317)=1 exch2_oi(1,317)=0 exch2_oj(1,317)=0 exch2_neighbourId(2,317)=302 exch2_iLo(2,317)=0 exch2_iHi(2,317)=35 exch2_jLo(2,317)=0 exch2_jHi(2,317)=0 exch2_opposingSend(2,317)=1 exch2_pij(1,2,317)=1 exch2_pij(2,2,317)=0 exch2_pij(3,2,317)=0 exch2_pij(4,2,317)=1 exch2_oi(2,317)=0 exch2_oj(2,317)=0 exch2_neighbourId(3,317)=318 exch2_iLo(3,317)=35 exch2_iHi(3,317)=35 exch2_jLo(3,317)=0 exch2_jHi(3,317)=103 exch2_opposingSend(3,317)=4 exch2_pij(1,3,317)=1 exch2_pij(2,3,317)=0 exch2_pij(3,3,317)=0 exch2_pij(4,3,317)=1 exch2_oi(3,317)=0 exch2_oj(3,317)=0 exch2_neighbourId(4,317)=316 exch2_iLo(4,317)=0 exch2_iHi(4,317)=0 exch2_jLo(4,317)=0 exch2_jHi(4,317)=103 exch2_opposingSend(4,317)=3 exch2_pij(1,4,317)=1 exch2_pij(2,4,317)=0 exch2_pij(3,4,317)=0 exch2_pij(4,4,317)=1 exch2_oi(4,317)=0 exch2_oj(4,317)=0 RETURN END SUBROUTINE W2_E2SETUP_318 C Topology for tile 318 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(318)=34 exch2_tNy(318)=102 exch2_tBasex(318)=68 exch2_tBasey(318)=102 exch2_txGlobalo(318)=2109 exch2_tyGlobalo(318)=103 exch2_isWedge(318)=0 exch2_isNedge(318)=0 exch2_isEedge(318)=0 exch2_isSedge(318)=0 exch2_myFace(318)=5 exch2_mydNx(318)=510 exch2_mydNy(318)=510 exch2_nNeighbours(318)=4 exch2_neighbourId(1,318)=333 exch2_iLo(1,318)=0 exch2_iHi(1,318)=35 exch2_jLo(1,318)=103 exch2_jHi(1,318)=103 exch2_opposingSend(1,318)=2 exch2_pij(1,1,318)=1 exch2_pij(2,1,318)=0 exch2_pij(3,1,318)=0 exch2_pij(4,1,318)=1 exch2_oi(1,318)=0 exch2_oj(1,318)=0 exch2_neighbourId(2,318)=303 exch2_iLo(2,318)=0 exch2_iHi(2,318)=35 exch2_jLo(2,318)=0 exch2_jHi(2,318)=0 exch2_opposingSend(2,318)=1 exch2_pij(1,2,318)=1 exch2_pij(2,2,318)=0 exch2_pij(3,2,318)=0 exch2_pij(4,2,318)=1 exch2_oi(2,318)=0 exch2_oj(2,318)=0 exch2_neighbourId(3,318)=319 exch2_iLo(3,318)=35 exch2_iHi(3,318)=35 exch2_jLo(3,318)=0 exch2_jHi(3,318)=103 exch2_opposingSend(3,318)=4 exch2_pij(1,3,318)=1 exch2_pij(2,3,318)=0 exch2_pij(3,3,318)=0 exch2_pij(4,3,318)=1 exch2_oi(3,318)=0 exch2_oj(3,318)=0 exch2_neighbourId(4,318)=317 exch2_iLo(4,318)=0 exch2_iHi(4,318)=0 exch2_jLo(4,318)=0 exch2_jHi(4,318)=103 exch2_opposingSend(4,318)=3 exch2_pij(1,4,318)=1 exch2_pij(2,4,318)=0 exch2_pij(3,4,318)=0 exch2_pij(4,4,318)=1 exch2_oi(4,318)=0 exch2_oj(4,318)=0 RETURN END SUBROUTINE W2_E2SETUP_319 C Topology for tile 319 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(319)=34 exch2_tNy(319)=102 exch2_tBasex(319)=102 exch2_tBasey(319)=102 exch2_txGlobalo(319)=2143 exch2_tyGlobalo(319)=103 exch2_isWedge(319)=0 exch2_isNedge(319)=0 exch2_isEedge(319)=0 exch2_isSedge(319)=0 exch2_myFace(319)=5 exch2_mydNx(319)=510 exch2_mydNy(319)=510 exch2_nNeighbours(319)=4 exch2_neighbourId(1,319)=334 exch2_iLo(1,319)=0 exch2_iHi(1,319)=35 exch2_jLo(1,319)=103 exch2_jHi(1,319)=103 exch2_opposingSend(1,319)=2 exch2_pij(1,1,319)=1 exch2_pij(2,1,319)=0 exch2_pij(3,1,319)=0 exch2_pij(4,1,319)=1 exch2_oi(1,319)=0 exch2_oj(1,319)=0 exch2_neighbourId(2,319)=304 exch2_iLo(2,319)=0 exch2_iHi(2,319)=35 exch2_jLo(2,319)=0 exch2_jHi(2,319)=0 exch2_opposingSend(2,319)=1 exch2_pij(1,2,319)=1 exch2_pij(2,2,319)=0 exch2_pij(3,2,319)=0 exch2_pij(4,2,319)=1 exch2_oi(2,319)=0 exch2_oj(2,319)=0 exch2_neighbourId(3,319)=320 exch2_iLo(3,319)=35 exch2_iHi(3,319)=35 exch2_jLo(3,319)=0 exch2_jHi(3,319)=103 exch2_opposingSend(3,319)=4 exch2_pij(1,3,319)=1 exch2_pij(2,3,319)=0 exch2_pij(3,3,319)=0 exch2_pij(4,3,319)=1 exch2_oi(3,319)=0 exch2_oj(3,319)=0 exch2_neighbourId(4,319)=318 exch2_iLo(4,319)=0 exch2_iHi(4,319)=0 exch2_jLo(4,319)=0 exch2_jHi(4,319)=103 exch2_opposingSend(4,319)=3 exch2_pij(1,4,319)=1 exch2_pij(2,4,319)=0 exch2_pij(3,4,319)=0 exch2_pij(4,4,319)=1 exch2_oi(4,319)=0 exch2_oj(4,319)=0 RETURN END SUBROUTINE W2_E2SETUP_320 C Topology for tile 320 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(320)=34 exch2_tNy(320)=102 exch2_tBasex(320)=136 exch2_tBasey(320)=102 exch2_txGlobalo(320)=2177 exch2_tyGlobalo(320)=103 exch2_isWedge(320)=0 exch2_isNedge(320)=0 exch2_isEedge(320)=0 exch2_isSedge(320)=0 exch2_myFace(320)=5 exch2_mydNx(320)=510 exch2_mydNy(320)=510 exch2_nNeighbours(320)=4 exch2_neighbourId(1,320)=335 exch2_iLo(1,320)=0 exch2_iHi(1,320)=35 exch2_jLo(1,320)=103 exch2_jHi(1,320)=103 exch2_opposingSend(1,320)=2 exch2_pij(1,1,320)=1 exch2_pij(2,1,320)=0 exch2_pij(3,1,320)=0 exch2_pij(4,1,320)=1 exch2_oi(1,320)=0 exch2_oj(1,320)=0 exch2_neighbourId(2,320)=305 exch2_iLo(2,320)=0 exch2_iHi(2,320)=35 exch2_jLo(2,320)=0 exch2_jHi(2,320)=0 exch2_opposingSend(2,320)=1 exch2_pij(1,2,320)=1 exch2_pij(2,2,320)=0 exch2_pij(3,2,320)=0 exch2_pij(4,2,320)=1 exch2_oi(2,320)=0 exch2_oj(2,320)=0 exch2_neighbourId(3,320)=321 exch2_iLo(3,320)=35 exch2_iHi(3,320)=35 exch2_jLo(3,320)=0 exch2_jHi(3,320)=103 exch2_opposingSend(3,320)=4 exch2_pij(1,3,320)=1 exch2_pij(2,3,320)=0 exch2_pij(3,3,320)=0 exch2_pij(4,3,320)=1 exch2_oi(3,320)=0 exch2_oj(3,320)=0 exch2_neighbourId(4,320)=319 exch2_iLo(4,320)=0 exch2_iHi(4,320)=0 exch2_jLo(4,320)=0 exch2_jHi(4,320)=103 exch2_opposingSend(4,320)=3 exch2_pij(1,4,320)=1 exch2_pij(2,4,320)=0 exch2_pij(3,4,320)=0 exch2_pij(4,4,320)=1 exch2_oi(4,320)=0 exch2_oj(4,320)=0 RETURN END SUBROUTINE W2_E2SETUP_321 C Topology for tile 321 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(321)=34 exch2_tNy(321)=102 exch2_tBasex(321)=170 exch2_tBasey(321)=102 exch2_txGlobalo(321)=2211 exch2_tyGlobalo(321)=103 exch2_isWedge(321)=0 exch2_isNedge(321)=0 exch2_isEedge(321)=0 exch2_isSedge(321)=0 exch2_myFace(321)=5 exch2_mydNx(321)=510 exch2_mydNy(321)=510 exch2_nNeighbours(321)=4 exch2_neighbourId(1,321)=336 exch2_iLo(1,321)=0 exch2_iHi(1,321)=35 exch2_jLo(1,321)=103 exch2_jHi(1,321)=103 exch2_opposingSend(1,321)=2 exch2_pij(1,1,321)=1 exch2_pij(2,1,321)=0 exch2_pij(3,1,321)=0 exch2_pij(4,1,321)=1 exch2_oi(1,321)=0 exch2_oj(1,321)=0 exch2_neighbourId(2,321)=306 exch2_iLo(2,321)=0 exch2_iHi(2,321)=35 exch2_jLo(2,321)=0 exch2_jHi(2,321)=0 exch2_opposingSend(2,321)=1 exch2_pij(1,2,321)=1 exch2_pij(2,2,321)=0 exch2_pij(3,2,321)=0 exch2_pij(4,2,321)=1 exch2_oi(2,321)=0 exch2_oj(2,321)=0 exch2_neighbourId(3,321)=322 exch2_iLo(3,321)=35 exch2_iHi(3,321)=35 exch2_jLo(3,321)=0 exch2_jHi(3,321)=103 exch2_opposingSend(3,321)=4 exch2_pij(1,3,321)=1 exch2_pij(2,3,321)=0 exch2_pij(3,3,321)=0 exch2_pij(4,3,321)=1 exch2_oi(3,321)=0 exch2_oj(3,321)=0 exch2_neighbourId(4,321)=320 exch2_iLo(4,321)=0 exch2_iHi(4,321)=0 exch2_jLo(4,321)=0 exch2_jHi(4,321)=103 exch2_opposingSend(4,321)=3 exch2_pij(1,4,321)=1 exch2_pij(2,4,321)=0 exch2_pij(3,4,321)=0 exch2_pij(4,4,321)=1 exch2_oi(4,321)=0 exch2_oj(4,321)=0 RETURN END SUBROUTINE W2_E2SETUP_322 C Topology for tile 322 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(322)=34 exch2_tNy(322)=102 exch2_tBasex(322)=204 exch2_tBasey(322)=102 exch2_txGlobalo(322)=2245 exch2_tyGlobalo(322)=103 exch2_isWedge(322)=0 exch2_isNedge(322)=0 exch2_isEedge(322)=0 exch2_isSedge(322)=0 exch2_myFace(322)=5 exch2_mydNx(322)=510 exch2_mydNy(322)=510 exch2_nNeighbours(322)=4 exch2_neighbourId(1,322)=337 exch2_iLo(1,322)=0 exch2_iHi(1,322)=35 exch2_jLo(1,322)=103 exch2_jHi(1,322)=103 exch2_opposingSend(1,322)=2 exch2_pij(1,1,322)=1 exch2_pij(2,1,322)=0 exch2_pij(3,1,322)=0 exch2_pij(4,1,322)=1 exch2_oi(1,322)=0 exch2_oj(1,322)=0 exch2_neighbourId(2,322)=307 exch2_iLo(2,322)=0 exch2_iHi(2,322)=35 exch2_jLo(2,322)=0 exch2_jHi(2,322)=0 exch2_opposingSend(2,322)=1 exch2_pij(1,2,322)=1 exch2_pij(2,2,322)=0 exch2_pij(3,2,322)=0 exch2_pij(4,2,322)=1 exch2_oi(2,322)=0 exch2_oj(2,322)=0 exch2_neighbourId(3,322)=323 exch2_iLo(3,322)=35 exch2_iHi(3,322)=35 exch2_jLo(3,322)=0 exch2_jHi(3,322)=103 exch2_opposingSend(3,322)=4 exch2_pij(1,3,322)=1 exch2_pij(2,3,322)=0 exch2_pij(3,3,322)=0 exch2_pij(4,3,322)=1 exch2_oi(3,322)=0 exch2_oj(3,322)=0 exch2_neighbourId(4,322)=321 exch2_iLo(4,322)=0 exch2_iHi(4,322)=0 exch2_jLo(4,322)=0 exch2_jHi(4,322)=103 exch2_opposingSend(4,322)=3 exch2_pij(1,4,322)=1 exch2_pij(2,4,322)=0 exch2_pij(3,4,322)=0 exch2_pij(4,4,322)=1 exch2_oi(4,322)=0 exch2_oj(4,322)=0 RETURN END SUBROUTINE W2_E2SETUP_323 C Topology for tile 323 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(323)=34 exch2_tNy(323)=102 exch2_tBasex(323)=238 exch2_tBasey(323)=102 exch2_txGlobalo(323)=2279 exch2_tyGlobalo(323)=103 exch2_isWedge(323)=0 exch2_isNedge(323)=0 exch2_isEedge(323)=0 exch2_isSedge(323)=0 exch2_myFace(323)=5 exch2_mydNx(323)=510 exch2_mydNy(323)=510 exch2_nNeighbours(323)=4 exch2_neighbourId(1,323)=338 exch2_iLo(1,323)=0 exch2_iHi(1,323)=35 exch2_jLo(1,323)=103 exch2_jHi(1,323)=103 exch2_opposingSend(1,323)=2 exch2_pij(1,1,323)=1 exch2_pij(2,1,323)=0 exch2_pij(3,1,323)=0 exch2_pij(4,1,323)=1 exch2_oi(1,323)=0 exch2_oj(1,323)=0 exch2_neighbourId(2,323)=308 exch2_iLo(2,323)=0 exch2_iHi(2,323)=35 exch2_jLo(2,323)=0 exch2_jHi(2,323)=0 exch2_opposingSend(2,323)=1 exch2_pij(1,2,323)=1 exch2_pij(2,2,323)=0 exch2_pij(3,2,323)=0 exch2_pij(4,2,323)=1 exch2_oi(2,323)=0 exch2_oj(2,323)=0 exch2_neighbourId(3,323)=324 exch2_iLo(3,323)=35 exch2_iHi(3,323)=35 exch2_jLo(3,323)=0 exch2_jHi(3,323)=103 exch2_opposingSend(3,323)=4 exch2_pij(1,3,323)=1 exch2_pij(2,3,323)=0 exch2_pij(3,3,323)=0 exch2_pij(4,3,323)=1 exch2_oi(3,323)=0 exch2_oj(3,323)=0 exch2_neighbourId(4,323)=322 exch2_iLo(4,323)=0 exch2_iHi(4,323)=0 exch2_jLo(4,323)=0 exch2_jHi(4,323)=103 exch2_opposingSend(4,323)=3 exch2_pij(1,4,323)=1 exch2_pij(2,4,323)=0 exch2_pij(3,4,323)=0 exch2_pij(4,4,323)=1 exch2_oi(4,323)=0 exch2_oj(4,323)=0 RETURN END SUBROUTINE W2_E2SETUP_324 C Topology for tile 324 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(324)=34 exch2_tNy(324)=102 exch2_tBasex(324)=272 exch2_tBasey(324)=102 exch2_txGlobalo(324)=2313 exch2_tyGlobalo(324)=103 exch2_isWedge(324)=0 exch2_isNedge(324)=0 exch2_isEedge(324)=0 exch2_isSedge(324)=0 exch2_myFace(324)=5 exch2_mydNx(324)=510 exch2_mydNy(324)=510 exch2_nNeighbours(324)=4 exch2_neighbourId(1,324)=339 exch2_iLo(1,324)=0 exch2_iHi(1,324)=35 exch2_jLo(1,324)=103 exch2_jHi(1,324)=103 exch2_opposingSend(1,324)=2 exch2_pij(1,1,324)=1 exch2_pij(2,1,324)=0 exch2_pij(3,1,324)=0 exch2_pij(4,1,324)=1 exch2_oi(1,324)=0 exch2_oj(1,324)=0 exch2_neighbourId(2,324)=309 exch2_iLo(2,324)=0 exch2_iHi(2,324)=35 exch2_jLo(2,324)=0 exch2_jHi(2,324)=0 exch2_opposingSend(2,324)=1 exch2_pij(1,2,324)=1 exch2_pij(2,2,324)=0 exch2_pij(3,2,324)=0 exch2_pij(4,2,324)=1 exch2_oi(2,324)=0 exch2_oj(2,324)=0 exch2_neighbourId(3,324)=325 exch2_iLo(3,324)=35 exch2_iHi(3,324)=35 exch2_jLo(3,324)=0 exch2_jHi(3,324)=103 exch2_opposingSend(3,324)=4 exch2_pij(1,3,324)=1 exch2_pij(2,3,324)=0 exch2_pij(3,3,324)=0 exch2_pij(4,3,324)=1 exch2_oi(3,324)=0 exch2_oj(3,324)=0 exch2_neighbourId(4,324)=323 exch2_iLo(4,324)=0 exch2_iHi(4,324)=0 exch2_jLo(4,324)=0 exch2_jHi(4,324)=103 exch2_opposingSend(4,324)=3 exch2_pij(1,4,324)=1 exch2_pij(2,4,324)=0 exch2_pij(3,4,324)=0 exch2_pij(4,4,324)=1 exch2_oi(4,324)=0 exch2_oj(4,324)=0 RETURN END SUBROUTINE W2_E2SETUP_325 C Topology for tile 325 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(325)=34 exch2_tNy(325)=102 exch2_tBasex(325)=306 exch2_tBasey(325)=102 exch2_txGlobalo(325)=2347 exch2_tyGlobalo(325)=103 exch2_isWedge(325)=0 exch2_isNedge(325)=0 exch2_isEedge(325)=0 exch2_isSedge(325)=0 exch2_myFace(325)=5 exch2_mydNx(325)=510 exch2_mydNy(325)=510 exch2_nNeighbours(325)=4 exch2_neighbourId(1,325)=340 exch2_iLo(1,325)=0 exch2_iHi(1,325)=35 exch2_jLo(1,325)=103 exch2_jHi(1,325)=103 exch2_opposingSend(1,325)=2 exch2_pij(1,1,325)=1 exch2_pij(2,1,325)=0 exch2_pij(3,1,325)=0 exch2_pij(4,1,325)=1 exch2_oi(1,325)=0 exch2_oj(1,325)=0 exch2_neighbourId(2,325)=310 exch2_iLo(2,325)=0 exch2_iHi(2,325)=35 exch2_jLo(2,325)=0 exch2_jHi(2,325)=0 exch2_opposingSend(2,325)=1 exch2_pij(1,2,325)=1 exch2_pij(2,2,325)=0 exch2_pij(3,2,325)=0 exch2_pij(4,2,325)=1 exch2_oi(2,325)=0 exch2_oj(2,325)=0 exch2_neighbourId(3,325)=326 exch2_iLo(3,325)=35 exch2_iHi(3,325)=35 exch2_jLo(3,325)=0 exch2_jHi(3,325)=103 exch2_opposingSend(3,325)=4 exch2_pij(1,3,325)=1 exch2_pij(2,3,325)=0 exch2_pij(3,3,325)=0 exch2_pij(4,3,325)=1 exch2_oi(3,325)=0 exch2_oj(3,325)=0 exch2_neighbourId(4,325)=324 exch2_iLo(4,325)=0 exch2_iHi(4,325)=0 exch2_jLo(4,325)=0 exch2_jHi(4,325)=103 exch2_opposingSend(4,325)=3 exch2_pij(1,4,325)=1 exch2_pij(2,4,325)=0 exch2_pij(3,4,325)=0 exch2_pij(4,4,325)=1 exch2_oi(4,325)=0 exch2_oj(4,325)=0 RETURN END SUBROUTINE W2_E2SETUP_326 C Topology for tile 326 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(326)=34 exch2_tNy(326)=102 exch2_tBasex(326)=340 exch2_tBasey(326)=102 exch2_txGlobalo(326)=2381 exch2_tyGlobalo(326)=103 exch2_isWedge(326)=0 exch2_isNedge(326)=0 exch2_isEedge(326)=0 exch2_isSedge(326)=0 exch2_myFace(326)=5 exch2_mydNx(326)=510 exch2_mydNy(326)=510 exch2_nNeighbours(326)=4 exch2_neighbourId(1,326)=341 exch2_iLo(1,326)=0 exch2_iHi(1,326)=35 exch2_jLo(1,326)=103 exch2_jHi(1,326)=103 exch2_opposingSend(1,326)=2 exch2_pij(1,1,326)=1 exch2_pij(2,1,326)=0 exch2_pij(3,1,326)=0 exch2_pij(4,1,326)=1 exch2_oi(1,326)=0 exch2_oj(1,326)=0 exch2_neighbourId(2,326)=311 exch2_iLo(2,326)=0 exch2_iHi(2,326)=35 exch2_jLo(2,326)=0 exch2_jHi(2,326)=0 exch2_opposingSend(2,326)=1 exch2_pij(1,2,326)=1 exch2_pij(2,2,326)=0 exch2_pij(3,2,326)=0 exch2_pij(4,2,326)=1 exch2_oi(2,326)=0 exch2_oj(2,326)=0 exch2_neighbourId(3,326)=327 exch2_iLo(3,326)=35 exch2_iHi(3,326)=35 exch2_jLo(3,326)=0 exch2_jHi(3,326)=103 exch2_opposingSend(3,326)=4 exch2_pij(1,3,326)=1 exch2_pij(2,3,326)=0 exch2_pij(3,3,326)=0 exch2_pij(4,3,326)=1 exch2_oi(3,326)=0 exch2_oj(3,326)=0 exch2_neighbourId(4,326)=325 exch2_iLo(4,326)=0 exch2_iHi(4,326)=0 exch2_jLo(4,326)=0 exch2_jHi(4,326)=103 exch2_opposingSend(4,326)=3 exch2_pij(1,4,326)=1 exch2_pij(2,4,326)=0 exch2_pij(3,4,326)=0 exch2_pij(4,4,326)=1 exch2_oi(4,326)=0 exch2_oj(4,326)=0 RETURN END SUBROUTINE W2_E2SETUP_327 C Topology for tile 327 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(327)=34 exch2_tNy(327)=102 exch2_tBasex(327)=374 exch2_tBasey(327)=102 exch2_txGlobalo(327)=2415 exch2_tyGlobalo(327)=103 exch2_isWedge(327)=0 exch2_isNedge(327)=0 exch2_isEedge(327)=0 exch2_isSedge(327)=0 exch2_myFace(327)=5 exch2_mydNx(327)=510 exch2_mydNy(327)=510 exch2_nNeighbours(327)=4 exch2_neighbourId(1,327)=342 exch2_iLo(1,327)=0 exch2_iHi(1,327)=35 exch2_jLo(1,327)=103 exch2_jHi(1,327)=103 exch2_opposingSend(1,327)=2 exch2_pij(1,1,327)=1 exch2_pij(2,1,327)=0 exch2_pij(3,1,327)=0 exch2_pij(4,1,327)=1 exch2_oi(1,327)=0 exch2_oj(1,327)=0 exch2_neighbourId(2,327)=312 exch2_iLo(2,327)=0 exch2_iHi(2,327)=35 exch2_jLo(2,327)=0 exch2_jHi(2,327)=0 exch2_opposingSend(2,327)=1 exch2_pij(1,2,327)=1 exch2_pij(2,2,327)=0 exch2_pij(3,2,327)=0 exch2_pij(4,2,327)=1 exch2_oi(2,327)=0 exch2_oj(2,327)=0 exch2_neighbourId(3,327)=328 exch2_iLo(3,327)=35 exch2_iHi(3,327)=35 exch2_jLo(3,327)=0 exch2_jHi(3,327)=103 exch2_opposingSend(3,327)=4 exch2_pij(1,3,327)=1 exch2_pij(2,3,327)=0 exch2_pij(3,3,327)=0 exch2_pij(4,3,327)=1 exch2_oi(3,327)=0 exch2_oj(3,327)=0 exch2_neighbourId(4,327)=326 exch2_iLo(4,327)=0 exch2_iHi(4,327)=0 exch2_jLo(4,327)=0 exch2_jHi(4,327)=103 exch2_opposingSend(4,327)=3 exch2_pij(1,4,327)=1 exch2_pij(2,4,327)=0 exch2_pij(3,4,327)=0 exch2_pij(4,4,327)=1 exch2_oi(4,327)=0 exch2_oj(4,327)=0 RETURN END SUBROUTINE W2_E2SETUP_328 C Topology for tile 328 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(328)=34 exch2_tNy(328)=102 exch2_tBasex(328)=408 exch2_tBasey(328)=102 exch2_txGlobalo(328)=2449 exch2_tyGlobalo(328)=103 exch2_isWedge(328)=0 exch2_isNedge(328)=0 exch2_isEedge(328)=0 exch2_isSedge(328)=0 exch2_myFace(328)=5 exch2_mydNx(328)=510 exch2_mydNy(328)=510 exch2_nNeighbours(328)=4 exch2_neighbourId(1,328)=343 exch2_iLo(1,328)=0 exch2_iHi(1,328)=35 exch2_jLo(1,328)=103 exch2_jHi(1,328)=103 exch2_opposingSend(1,328)=2 exch2_pij(1,1,328)=1 exch2_pij(2,1,328)=0 exch2_pij(3,1,328)=0 exch2_pij(4,1,328)=1 exch2_oi(1,328)=0 exch2_oj(1,328)=0 exch2_neighbourId(2,328)=313 exch2_iLo(2,328)=0 exch2_iHi(2,328)=35 exch2_jLo(2,328)=0 exch2_jHi(2,328)=0 exch2_opposingSend(2,328)=1 exch2_pij(1,2,328)=1 exch2_pij(2,2,328)=0 exch2_pij(3,2,328)=0 exch2_pij(4,2,328)=1 exch2_oi(2,328)=0 exch2_oj(2,328)=0 exch2_neighbourId(3,328)=329 exch2_iLo(3,328)=35 exch2_iHi(3,328)=35 exch2_jLo(3,328)=0 exch2_jHi(3,328)=103 exch2_opposingSend(3,328)=4 exch2_pij(1,3,328)=1 exch2_pij(2,3,328)=0 exch2_pij(3,3,328)=0 exch2_pij(4,3,328)=1 exch2_oi(3,328)=0 exch2_oj(3,328)=0 exch2_neighbourId(4,328)=327 exch2_iLo(4,328)=0 exch2_iHi(4,328)=0 exch2_jLo(4,328)=0 exch2_jHi(4,328)=103 exch2_opposingSend(4,328)=3 exch2_pij(1,4,328)=1 exch2_pij(2,4,328)=0 exch2_pij(3,4,328)=0 exch2_pij(4,4,328)=1 exch2_oi(4,328)=0 exch2_oj(4,328)=0 RETURN END SUBROUTINE W2_E2SETUP_329 C Topology for tile 329 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(329)=34 exch2_tNy(329)=102 exch2_tBasex(329)=442 exch2_tBasey(329)=102 exch2_txGlobalo(329)=2483 exch2_tyGlobalo(329)=103 exch2_isWedge(329)=0 exch2_isNedge(329)=0 exch2_isEedge(329)=0 exch2_isSedge(329)=0 exch2_myFace(329)=5 exch2_mydNx(329)=510 exch2_mydNy(329)=510 exch2_nNeighbours(329)=4 exch2_neighbourId(1,329)=344 exch2_iLo(1,329)=0 exch2_iHi(1,329)=35 exch2_jLo(1,329)=103 exch2_jHi(1,329)=103 exch2_opposingSend(1,329)=2 exch2_pij(1,1,329)=1 exch2_pij(2,1,329)=0 exch2_pij(3,1,329)=0 exch2_pij(4,1,329)=1 exch2_oi(1,329)=0 exch2_oj(1,329)=0 exch2_neighbourId(2,329)=314 exch2_iLo(2,329)=0 exch2_iHi(2,329)=35 exch2_jLo(2,329)=0 exch2_jHi(2,329)=0 exch2_opposingSend(2,329)=1 exch2_pij(1,2,329)=1 exch2_pij(2,2,329)=0 exch2_pij(3,2,329)=0 exch2_pij(4,2,329)=1 exch2_oi(2,329)=0 exch2_oj(2,329)=0 exch2_neighbourId(3,329)=330 exch2_iLo(3,329)=35 exch2_iHi(3,329)=35 exch2_jLo(3,329)=0 exch2_jHi(3,329)=103 exch2_opposingSend(3,329)=4 exch2_pij(1,3,329)=1 exch2_pij(2,3,329)=0 exch2_pij(3,3,329)=0 exch2_pij(4,3,329)=1 exch2_oi(3,329)=0 exch2_oj(3,329)=0 exch2_neighbourId(4,329)=328 exch2_iLo(4,329)=0 exch2_iHi(4,329)=0 exch2_jLo(4,329)=0 exch2_jHi(4,329)=103 exch2_opposingSend(4,329)=3 exch2_pij(1,4,329)=1 exch2_pij(2,4,329)=0 exch2_pij(3,4,329)=0 exch2_pij(4,4,329)=1 exch2_oi(4,329)=0 exch2_oj(4,329)=0 RETURN END SUBROUTINE W2_E2SETUP_330 C Topology for tile 330 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(330)=34 exch2_tNy(330)=102 exch2_tBasex(330)=476 exch2_tBasey(330)=102 exch2_txGlobalo(330)=2517 exch2_tyGlobalo(330)=103 exch2_isWedge(330)=0 exch2_isNedge(330)=0 exch2_isEedge(330)=1 exch2_isSedge(330)=0 exch2_myFace(330)=5 exch2_mydNx(330)=510 exch2_mydNy(330)=510 exch2_nNeighbours(330)=4 exch2_neighbourId(1,330)=345 exch2_iLo(1,330)=0 exch2_iHi(1,330)=35 exch2_jLo(1,330)=103 exch2_jHi(1,330)=103 exch2_opposingSend(1,330)=2 exch2_pij(1,1,330)=1 exch2_pij(2,1,330)=0 exch2_pij(3,1,330)=0 exch2_pij(4,1,330)=1 exch2_oi(1,330)=0 exch2_oj(1,330)=0 exch2_neighbourId(2,330)=315 exch2_iLo(2,330)=0 exch2_iHi(2,330)=35 exch2_jLo(2,330)=0 exch2_jHi(2,330)=0 exch2_opposingSend(2,330)=1 exch2_pij(1,2,330)=1 exch2_pij(2,2,330)=0 exch2_pij(3,2,330)=0 exch2_pij(4,2,330)=1 exch2_oi(2,330)=0 exch2_oj(2,330)=0 exch2_neighbourId(3,330)=391 exch2_iLo(3,330)=35 exch2_iHi(3,330)=35 exch2_jLo(3,330)=0 exch2_jHi(3,330)=103 exch2_opposingSend(3,330)=4 exch2_pij(1,3,330)=1 exch2_pij(2,3,330)=0 exch2_pij(3,3,330)=0 exch2_pij(4,3,330)=1 exch2_oi(3,330)=510 exch2_oj(3,330)=0 exch2_neighbourId(4,330)=329 exch2_iLo(4,330)=0 exch2_iHi(4,330)=0 exch2_jLo(4,330)=0 exch2_jHi(4,330)=103 exch2_opposingSend(4,330)=3 exch2_pij(1,4,330)=1 exch2_pij(2,4,330)=0 exch2_pij(3,4,330)=0 exch2_pij(4,4,330)=1 exch2_oi(4,330)=0 exch2_oj(4,330)=0 RETURN END SUBROUTINE W2_E2SETUP_331 C Topology for tile 331 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(331)=34 exch2_tNy(331)=102 exch2_tBasex(331)=0 exch2_tBasey(331)=204 exch2_txGlobalo(331)=2041 exch2_tyGlobalo(331)=205 exch2_isWedge(331)=1 exch2_isNedge(331)=0 exch2_isEedge(331)=0 exch2_isSedge(331)=0 exch2_myFace(331)=5 exch2_mydNx(331)=510 exch2_mydNy(331)=510 exch2_nNeighbours(331)=6 exch2_neighbourId(1,331)=346 exch2_iLo(1,331)=0 exch2_iHi(1,331)=35 exch2_jLo(1,331)=103 exch2_jHi(1,331)=103 exch2_opposingSend(1,331)=2 exch2_pij(1,1,331)=1 exch2_pij(2,1,331)=0 exch2_pij(3,1,331)=0 exch2_pij(4,1,331)=1 exch2_oi(1,331)=0 exch2_oj(1,331)=0 exch2_neighbourId(2,331)=316 exch2_iLo(2,331)=0 exch2_iHi(2,331)=35 exch2_jLo(2,331)=0 exch2_jHi(2,331)=0 exch2_opposingSend(2,331)=1 exch2_pij(1,2,331)=1 exch2_pij(2,2,331)=0 exch2_pij(3,2,331)=0 exch2_pij(4,2,331)=1 exch2_oi(2,331)=0 exch2_oj(2,331)=0 exch2_neighbourId(3,331)=332 exch2_iLo(3,331)=35 exch2_iHi(3,331)=35 exch2_jLo(3,331)=0 exch2_jHi(3,331)=103 exch2_opposingSend(3,331)=4 exch2_pij(1,3,331)=1 exch2_pij(2,3,331)=0 exch2_pij(3,3,331)=0 exch2_pij(4,3,331)=1 exch2_oi(3,331)=0 exch2_oj(3,331)=0 exch2_neighbourId(4,331)=217 exch2_iLo(4,331)=0 exch2_iHi(4,331)=0 exch2_jLo(4,331)=68 exch2_jHi(4,331)=103 exch2_opposingSend(4,331)=1 exch2_pij(1,4,331)=0 exch2_pij(2,4,331)=1 exch2_pij(3,4,331)=-1 exch2_pij(4,4,331)=0 exch2_oi(4,331)=-510 exch2_oj(4,331)=511 exch2_neighbourId(5,331)=218 exch2_iLo(5,331)=0 exch2_iHi(5,331)=0 exch2_jLo(5,331)=34 exch2_jHi(5,331)=69 exch2_opposingSend(5,331)=1 exch2_pij(1,5,331)=0 exch2_pij(2,5,331)=1 exch2_pij(3,5,331)=-1 exch2_pij(4,5,331)=0 exch2_oi(5,331)=-510 exch2_oj(5,331)=511 exch2_neighbourId(6,331)=219 exch2_iLo(6,331)=0 exch2_iHi(6,331)=0 exch2_jLo(6,331)=0 exch2_jHi(6,331)=35 exch2_opposingSend(6,331)=1 exch2_pij(1,6,331)=0 exch2_pij(2,6,331)=1 exch2_pij(3,6,331)=-1 exch2_pij(4,6,331)=0 exch2_oi(6,331)=-510 exch2_oj(6,331)=511 RETURN END SUBROUTINE W2_E2SETUP_332 C Topology for tile 332 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(332)=34 exch2_tNy(332)=102 exch2_tBasex(332)=34 exch2_tBasey(332)=204 exch2_txGlobalo(332)=2075 exch2_tyGlobalo(332)=205 exch2_isWedge(332)=0 exch2_isNedge(332)=0 exch2_isEedge(332)=0 exch2_isSedge(332)=0 exch2_myFace(332)=5 exch2_mydNx(332)=510 exch2_mydNy(332)=510 exch2_nNeighbours(332)=4 exch2_neighbourId(1,332)=347 exch2_iLo(1,332)=0 exch2_iHi(1,332)=35 exch2_jLo(1,332)=103 exch2_jHi(1,332)=103 exch2_opposingSend(1,332)=2 exch2_pij(1,1,332)=1 exch2_pij(2,1,332)=0 exch2_pij(3,1,332)=0 exch2_pij(4,1,332)=1 exch2_oi(1,332)=0 exch2_oj(1,332)=0 exch2_neighbourId(2,332)=317 exch2_iLo(2,332)=0 exch2_iHi(2,332)=35 exch2_jLo(2,332)=0 exch2_jHi(2,332)=0 exch2_opposingSend(2,332)=1 exch2_pij(1,2,332)=1 exch2_pij(2,2,332)=0 exch2_pij(3,2,332)=0 exch2_pij(4,2,332)=1 exch2_oi(2,332)=0 exch2_oj(2,332)=0 exch2_neighbourId(3,332)=333 exch2_iLo(3,332)=35 exch2_iHi(3,332)=35 exch2_jLo(3,332)=0 exch2_jHi(3,332)=103 exch2_opposingSend(3,332)=4 exch2_pij(1,3,332)=1 exch2_pij(2,3,332)=0 exch2_pij(3,3,332)=0 exch2_pij(4,3,332)=1 exch2_oi(3,332)=0 exch2_oj(3,332)=0 exch2_neighbourId(4,332)=331 exch2_iLo(4,332)=0 exch2_iHi(4,332)=0 exch2_jLo(4,332)=0 exch2_jHi(4,332)=103 exch2_opposingSend(4,332)=3 exch2_pij(1,4,332)=1 exch2_pij(2,4,332)=0 exch2_pij(3,4,332)=0 exch2_pij(4,4,332)=1 exch2_oi(4,332)=0 exch2_oj(4,332)=0 RETURN END SUBROUTINE W2_E2SETUP_333 C Topology for tile 333 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(333)=34 exch2_tNy(333)=102 exch2_tBasex(333)=68 exch2_tBasey(333)=204 exch2_txGlobalo(333)=2109 exch2_tyGlobalo(333)=205 exch2_isWedge(333)=0 exch2_isNedge(333)=0 exch2_isEedge(333)=0 exch2_isSedge(333)=0 exch2_myFace(333)=5 exch2_mydNx(333)=510 exch2_mydNy(333)=510 exch2_nNeighbours(333)=4 exch2_neighbourId(1,333)=348 exch2_iLo(1,333)=0 exch2_iHi(1,333)=35 exch2_jLo(1,333)=103 exch2_jHi(1,333)=103 exch2_opposingSend(1,333)=2 exch2_pij(1,1,333)=1 exch2_pij(2,1,333)=0 exch2_pij(3,1,333)=0 exch2_pij(4,1,333)=1 exch2_oi(1,333)=0 exch2_oj(1,333)=0 exch2_neighbourId(2,333)=318 exch2_iLo(2,333)=0 exch2_iHi(2,333)=35 exch2_jLo(2,333)=0 exch2_jHi(2,333)=0 exch2_opposingSend(2,333)=1 exch2_pij(1,2,333)=1 exch2_pij(2,2,333)=0 exch2_pij(3,2,333)=0 exch2_pij(4,2,333)=1 exch2_oi(2,333)=0 exch2_oj(2,333)=0 exch2_neighbourId(3,333)=334 exch2_iLo(3,333)=35 exch2_iHi(3,333)=35 exch2_jLo(3,333)=0 exch2_jHi(3,333)=103 exch2_opposingSend(3,333)=4 exch2_pij(1,3,333)=1 exch2_pij(2,3,333)=0 exch2_pij(3,3,333)=0 exch2_pij(4,3,333)=1 exch2_oi(3,333)=0 exch2_oj(3,333)=0 exch2_neighbourId(4,333)=332 exch2_iLo(4,333)=0 exch2_iHi(4,333)=0 exch2_jLo(4,333)=0 exch2_jHi(4,333)=103 exch2_opposingSend(4,333)=3 exch2_pij(1,4,333)=1 exch2_pij(2,4,333)=0 exch2_pij(3,4,333)=0 exch2_pij(4,4,333)=1 exch2_oi(4,333)=0 exch2_oj(4,333)=0 RETURN END SUBROUTINE W2_E2SETUP_334 C Topology for tile 334 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(334)=34 exch2_tNy(334)=102 exch2_tBasex(334)=102 exch2_tBasey(334)=204 exch2_txGlobalo(334)=2143 exch2_tyGlobalo(334)=205 exch2_isWedge(334)=0 exch2_isNedge(334)=0 exch2_isEedge(334)=0 exch2_isSedge(334)=0 exch2_myFace(334)=5 exch2_mydNx(334)=510 exch2_mydNy(334)=510 exch2_nNeighbours(334)=4 exch2_neighbourId(1,334)=349 exch2_iLo(1,334)=0 exch2_iHi(1,334)=35 exch2_jLo(1,334)=103 exch2_jHi(1,334)=103 exch2_opposingSend(1,334)=2 exch2_pij(1,1,334)=1 exch2_pij(2,1,334)=0 exch2_pij(3,1,334)=0 exch2_pij(4,1,334)=1 exch2_oi(1,334)=0 exch2_oj(1,334)=0 exch2_neighbourId(2,334)=319 exch2_iLo(2,334)=0 exch2_iHi(2,334)=35 exch2_jLo(2,334)=0 exch2_jHi(2,334)=0 exch2_opposingSend(2,334)=1 exch2_pij(1,2,334)=1 exch2_pij(2,2,334)=0 exch2_pij(3,2,334)=0 exch2_pij(4,2,334)=1 exch2_oi(2,334)=0 exch2_oj(2,334)=0 exch2_neighbourId(3,334)=335 exch2_iLo(3,334)=35 exch2_iHi(3,334)=35 exch2_jLo(3,334)=0 exch2_jHi(3,334)=103 exch2_opposingSend(3,334)=4 exch2_pij(1,3,334)=1 exch2_pij(2,3,334)=0 exch2_pij(3,3,334)=0 exch2_pij(4,3,334)=1 exch2_oi(3,334)=0 exch2_oj(3,334)=0 exch2_neighbourId(4,334)=333 exch2_iLo(4,334)=0 exch2_iHi(4,334)=0 exch2_jLo(4,334)=0 exch2_jHi(4,334)=103 exch2_opposingSend(4,334)=3 exch2_pij(1,4,334)=1 exch2_pij(2,4,334)=0 exch2_pij(3,4,334)=0 exch2_pij(4,4,334)=1 exch2_oi(4,334)=0 exch2_oj(4,334)=0 RETURN END SUBROUTINE W2_E2SETUP_335 C Topology for tile 335 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(335)=34 exch2_tNy(335)=102 exch2_tBasex(335)=136 exch2_tBasey(335)=204 exch2_txGlobalo(335)=2177 exch2_tyGlobalo(335)=205 exch2_isWedge(335)=0 exch2_isNedge(335)=0 exch2_isEedge(335)=0 exch2_isSedge(335)=0 exch2_myFace(335)=5 exch2_mydNx(335)=510 exch2_mydNy(335)=510 exch2_nNeighbours(335)=4 exch2_neighbourId(1,335)=350 exch2_iLo(1,335)=0 exch2_iHi(1,335)=35 exch2_jLo(1,335)=103 exch2_jHi(1,335)=103 exch2_opposingSend(1,335)=2 exch2_pij(1,1,335)=1 exch2_pij(2,1,335)=0 exch2_pij(3,1,335)=0 exch2_pij(4,1,335)=1 exch2_oi(1,335)=0 exch2_oj(1,335)=0 exch2_neighbourId(2,335)=320 exch2_iLo(2,335)=0 exch2_iHi(2,335)=35 exch2_jLo(2,335)=0 exch2_jHi(2,335)=0 exch2_opposingSend(2,335)=1 exch2_pij(1,2,335)=1 exch2_pij(2,2,335)=0 exch2_pij(3,2,335)=0 exch2_pij(4,2,335)=1 exch2_oi(2,335)=0 exch2_oj(2,335)=0 exch2_neighbourId(3,335)=336 exch2_iLo(3,335)=35 exch2_iHi(3,335)=35 exch2_jLo(3,335)=0 exch2_jHi(3,335)=103 exch2_opposingSend(3,335)=4 exch2_pij(1,3,335)=1 exch2_pij(2,3,335)=0 exch2_pij(3,3,335)=0 exch2_pij(4,3,335)=1 exch2_oi(3,335)=0 exch2_oj(3,335)=0 exch2_neighbourId(4,335)=334 exch2_iLo(4,335)=0 exch2_iHi(4,335)=0 exch2_jLo(4,335)=0 exch2_jHi(4,335)=103 exch2_opposingSend(4,335)=3 exch2_pij(1,4,335)=1 exch2_pij(2,4,335)=0 exch2_pij(3,4,335)=0 exch2_pij(4,4,335)=1 exch2_oi(4,335)=0 exch2_oj(4,335)=0 RETURN END SUBROUTINE W2_E2SETUP_336 C Topology for tile 336 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(336)=34 exch2_tNy(336)=102 exch2_tBasex(336)=170 exch2_tBasey(336)=204 exch2_txGlobalo(336)=2211 exch2_tyGlobalo(336)=205 exch2_isWedge(336)=0 exch2_isNedge(336)=0 exch2_isEedge(336)=0 exch2_isSedge(336)=0 exch2_myFace(336)=5 exch2_mydNx(336)=510 exch2_mydNy(336)=510 exch2_nNeighbours(336)=4 exch2_neighbourId(1,336)=351 exch2_iLo(1,336)=0 exch2_iHi(1,336)=35 exch2_jLo(1,336)=103 exch2_jHi(1,336)=103 exch2_opposingSend(1,336)=2 exch2_pij(1,1,336)=1 exch2_pij(2,1,336)=0 exch2_pij(3,1,336)=0 exch2_pij(4,1,336)=1 exch2_oi(1,336)=0 exch2_oj(1,336)=0 exch2_neighbourId(2,336)=321 exch2_iLo(2,336)=0 exch2_iHi(2,336)=35 exch2_jLo(2,336)=0 exch2_jHi(2,336)=0 exch2_opposingSend(2,336)=1 exch2_pij(1,2,336)=1 exch2_pij(2,2,336)=0 exch2_pij(3,2,336)=0 exch2_pij(4,2,336)=1 exch2_oi(2,336)=0 exch2_oj(2,336)=0 exch2_neighbourId(3,336)=337 exch2_iLo(3,336)=35 exch2_iHi(3,336)=35 exch2_jLo(3,336)=0 exch2_jHi(3,336)=103 exch2_opposingSend(3,336)=4 exch2_pij(1,3,336)=1 exch2_pij(2,3,336)=0 exch2_pij(3,3,336)=0 exch2_pij(4,3,336)=1 exch2_oi(3,336)=0 exch2_oj(3,336)=0 exch2_neighbourId(4,336)=335 exch2_iLo(4,336)=0 exch2_iHi(4,336)=0 exch2_jLo(4,336)=0 exch2_jHi(4,336)=103 exch2_opposingSend(4,336)=3 exch2_pij(1,4,336)=1 exch2_pij(2,4,336)=0 exch2_pij(3,4,336)=0 exch2_pij(4,4,336)=1 exch2_oi(4,336)=0 exch2_oj(4,336)=0 RETURN END SUBROUTINE W2_E2SETUP_337 C Topology for tile 337 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(337)=34 exch2_tNy(337)=102 exch2_tBasex(337)=204 exch2_tBasey(337)=204 exch2_txGlobalo(337)=2245 exch2_tyGlobalo(337)=205 exch2_isWedge(337)=0 exch2_isNedge(337)=0 exch2_isEedge(337)=0 exch2_isSedge(337)=0 exch2_myFace(337)=5 exch2_mydNx(337)=510 exch2_mydNy(337)=510 exch2_nNeighbours(337)=4 exch2_neighbourId(1,337)=352 exch2_iLo(1,337)=0 exch2_iHi(1,337)=35 exch2_jLo(1,337)=103 exch2_jHi(1,337)=103 exch2_opposingSend(1,337)=2 exch2_pij(1,1,337)=1 exch2_pij(2,1,337)=0 exch2_pij(3,1,337)=0 exch2_pij(4,1,337)=1 exch2_oi(1,337)=0 exch2_oj(1,337)=0 exch2_neighbourId(2,337)=322 exch2_iLo(2,337)=0 exch2_iHi(2,337)=35 exch2_jLo(2,337)=0 exch2_jHi(2,337)=0 exch2_opposingSend(2,337)=1 exch2_pij(1,2,337)=1 exch2_pij(2,2,337)=0 exch2_pij(3,2,337)=0 exch2_pij(4,2,337)=1 exch2_oi(2,337)=0 exch2_oj(2,337)=0 exch2_neighbourId(3,337)=338 exch2_iLo(3,337)=35 exch2_iHi(3,337)=35 exch2_jLo(3,337)=0 exch2_jHi(3,337)=103 exch2_opposingSend(3,337)=4 exch2_pij(1,3,337)=1 exch2_pij(2,3,337)=0 exch2_pij(3,3,337)=0 exch2_pij(4,3,337)=1 exch2_oi(3,337)=0 exch2_oj(3,337)=0 exch2_neighbourId(4,337)=336 exch2_iLo(4,337)=0 exch2_iHi(4,337)=0 exch2_jLo(4,337)=0 exch2_jHi(4,337)=103 exch2_opposingSend(4,337)=3 exch2_pij(1,4,337)=1 exch2_pij(2,4,337)=0 exch2_pij(3,4,337)=0 exch2_pij(4,4,337)=1 exch2_oi(4,337)=0 exch2_oj(4,337)=0 RETURN END SUBROUTINE W2_E2SETUP_338 C Topology for tile 338 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(338)=34 exch2_tNy(338)=102 exch2_tBasex(338)=238 exch2_tBasey(338)=204 exch2_txGlobalo(338)=2279 exch2_tyGlobalo(338)=205 exch2_isWedge(338)=0 exch2_isNedge(338)=0 exch2_isEedge(338)=0 exch2_isSedge(338)=0 exch2_myFace(338)=5 exch2_mydNx(338)=510 exch2_mydNy(338)=510 exch2_nNeighbours(338)=4 exch2_neighbourId(1,338)=353 exch2_iLo(1,338)=0 exch2_iHi(1,338)=35 exch2_jLo(1,338)=103 exch2_jHi(1,338)=103 exch2_opposingSend(1,338)=2 exch2_pij(1,1,338)=1 exch2_pij(2,1,338)=0 exch2_pij(3,1,338)=0 exch2_pij(4,1,338)=1 exch2_oi(1,338)=0 exch2_oj(1,338)=0 exch2_neighbourId(2,338)=323 exch2_iLo(2,338)=0 exch2_iHi(2,338)=35 exch2_jLo(2,338)=0 exch2_jHi(2,338)=0 exch2_opposingSend(2,338)=1 exch2_pij(1,2,338)=1 exch2_pij(2,2,338)=0 exch2_pij(3,2,338)=0 exch2_pij(4,2,338)=1 exch2_oi(2,338)=0 exch2_oj(2,338)=0 exch2_neighbourId(3,338)=339 exch2_iLo(3,338)=35 exch2_iHi(3,338)=35 exch2_jLo(3,338)=0 exch2_jHi(3,338)=103 exch2_opposingSend(3,338)=4 exch2_pij(1,3,338)=1 exch2_pij(2,3,338)=0 exch2_pij(3,3,338)=0 exch2_pij(4,3,338)=1 exch2_oi(3,338)=0 exch2_oj(3,338)=0 exch2_neighbourId(4,338)=337 exch2_iLo(4,338)=0 exch2_iHi(4,338)=0 exch2_jLo(4,338)=0 exch2_jHi(4,338)=103 exch2_opposingSend(4,338)=3 exch2_pij(1,4,338)=1 exch2_pij(2,4,338)=0 exch2_pij(3,4,338)=0 exch2_pij(4,4,338)=1 exch2_oi(4,338)=0 exch2_oj(4,338)=0 RETURN END SUBROUTINE W2_E2SETUP_339 C Topology for tile 339 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(339)=34 exch2_tNy(339)=102 exch2_tBasex(339)=272 exch2_tBasey(339)=204 exch2_txGlobalo(339)=2313 exch2_tyGlobalo(339)=205 exch2_isWedge(339)=0 exch2_isNedge(339)=0 exch2_isEedge(339)=0 exch2_isSedge(339)=0 exch2_myFace(339)=5 exch2_mydNx(339)=510 exch2_mydNy(339)=510 exch2_nNeighbours(339)=4 exch2_neighbourId(1,339)=354 exch2_iLo(1,339)=0 exch2_iHi(1,339)=35 exch2_jLo(1,339)=103 exch2_jHi(1,339)=103 exch2_opposingSend(1,339)=2 exch2_pij(1,1,339)=1 exch2_pij(2,1,339)=0 exch2_pij(3,1,339)=0 exch2_pij(4,1,339)=1 exch2_oi(1,339)=0 exch2_oj(1,339)=0 exch2_neighbourId(2,339)=324 exch2_iLo(2,339)=0 exch2_iHi(2,339)=35 exch2_jLo(2,339)=0 exch2_jHi(2,339)=0 exch2_opposingSend(2,339)=1 exch2_pij(1,2,339)=1 exch2_pij(2,2,339)=0 exch2_pij(3,2,339)=0 exch2_pij(4,2,339)=1 exch2_oi(2,339)=0 exch2_oj(2,339)=0 exch2_neighbourId(3,339)=340 exch2_iLo(3,339)=35 exch2_iHi(3,339)=35 exch2_jLo(3,339)=0 exch2_jHi(3,339)=103 exch2_opposingSend(3,339)=4 exch2_pij(1,3,339)=1 exch2_pij(2,3,339)=0 exch2_pij(3,3,339)=0 exch2_pij(4,3,339)=1 exch2_oi(3,339)=0 exch2_oj(3,339)=0 exch2_neighbourId(4,339)=338 exch2_iLo(4,339)=0 exch2_iHi(4,339)=0 exch2_jLo(4,339)=0 exch2_jHi(4,339)=103 exch2_opposingSend(4,339)=3 exch2_pij(1,4,339)=1 exch2_pij(2,4,339)=0 exch2_pij(3,4,339)=0 exch2_pij(4,4,339)=1 exch2_oi(4,339)=0 exch2_oj(4,339)=0 RETURN END SUBROUTINE W2_E2SETUP_340 C Topology for tile 340 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(340)=34 exch2_tNy(340)=102 exch2_tBasex(340)=306 exch2_tBasey(340)=204 exch2_txGlobalo(340)=2347 exch2_tyGlobalo(340)=205 exch2_isWedge(340)=0 exch2_isNedge(340)=0 exch2_isEedge(340)=0 exch2_isSedge(340)=0 exch2_myFace(340)=5 exch2_mydNx(340)=510 exch2_mydNy(340)=510 exch2_nNeighbours(340)=4 exch2_neighbourId(1,340)=355 exch2_iLo(1,340)=0 exch2_iHi(1,340)=35 exch2_jLo(1,340)=103 exch2_jHi(1,340)=103 exch2_opposingSend(1,340)=2 exch2_pij(1,1,340)=1 exch2_pij(2,1,340)=0 exch2_pij(3,1,340)=0 exch2_pij(4,1,340)=1 exch2_oi(1,340)=0 exch2_oj(1,340)=0 exch2_neighbourId(2,340)=325 exch2_iLo(2,340)=0 exch2_iHi(2,340)=35 exch2_jLo(2,340)=0 exch2_jHi(2,340)=0 exch2_opposingSend(2,340)=1 exch2_pij(1,2,340)=1 exch2_pij(2,2,340)=0 exch2_pij(3,2,340)=0 exch2_pij(4,2,340)=1 exch2_oi(2,340)=0 exch2_oj(2,340)=0 exch2_neighbourId(3,340)=341 exch2_iLo(3,340)=35 exch2_iHi(3,340)=35 exch2_jLo(3,340)=0 exch2_jHi(3,340)=103 exch2_opposingSend(3,340)=4 exch2_pij(1,3,340)=1 exch2_pij(2,3,340)=0 exch2_pij(3,3,340)=0 exch2_pij(4,3,340)=1 exch2_oi(3,340)=0 exch2_oj(3,340)=0 exch2_neighbourId(4,340)=339 exch2_iLo(4,340)=0 exch2_iHi(4,340)=0 exch2_jLo(4,340)=0 exch2_jHi(4,340)=103 exch2_opposingSend(4,340)=3 exch2_pij(1,4,340)=1 exch2_pij(2,4,340)=0 exch2_pij(3,4,340)=0 exch2_pij(4,4,340)=1 exch2_oi(4,340)=0 exch2_oj(4,340)=0 RETURN END SUBROUTINE W2_E2SETUP_341 C Topology for tile 341 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(341)=34 exch2_tNy(341)=102 exch2_tBasex(341)=340 exch2_tBasey(341)=204 exch2_txGlobalo(341)=2381 exch2_tyGlobalo(341)=205 exch2_isWedge(341)=0 exch2_isNedge(341)=0 exch2_isEedge(341)=0 exch2_isSedge(341)=0 exch2_myFace(341)=5 exch2_mydNx(341)=510 exch2_mydNy(341)=510 exch2_nNeighbours(341)=4 exch2_neighbourId(1,341)=356 exch2_iLo(1,341)=0 exch2_iHi(1,341)=35 exch2_jLo(1,341)=103 exch2_jHi(1,341)=103 exch2_opposingSend(1,341)=2 exch2_pij(1,1,341)=1 exch2_pij(2,1,341)=0 exch2_pij(3,1,341)=0 exch2_pij(4,1,341)=1 exch2_oi(1,341)=0 exch2_oj(1,341)=0 exch2_neighbourId(2,341)=326 exch2_iLo(2,341)=0 exch2_iHi(2,341)=35 exch2_jLo(2,341)=0 exch2_jHi(2,341)=0 exch2_opposingSend(2,341)=1 exch2_pij(1,2,341)=1 exch2_pij(2,2,341)=0 exch2_pij(3,2,341)=0 exch2_pij(4,2,341)=1 exch2_oi(2,341)=0 exch2_oj(2,341)=0 exch2_neighbourId(3,341)=342 exch2_iLo(3,341)=35 exch2_iHi(3,341)=35 exch2_jLo(3,341)=0 exch2_jHi(3,341)=103 exch2_opposingSend(3,341)=4 exch2_pij(1,3,341)=1 exch2_pij(2,3,341)=0 exch2_pij(3,3,341)=0 exch2_pij(4,3,341)=1 exch2_oi(3,341)=0 exch2_oj(3,341)=0 exch2_neighbourId(4,341)=340 exch2_iLo(4,341)=0 exch2_iHi(4,341)=0 exch2_jLo(4,341)=0 exch2_jHi(4,341)=103 exch2_opposingSend(4,341)=3 exch2_pij(1,4,341)=1 exch2_pij(2,4,341)=0 exch2_pij(3,4,341)=0 exch2_pij(4,4,341)=1 exch2_oi(4,341)=0 exch2_oj(4,341)=0 RETURN END SUBROUTINE W2_E2SETUP_342 C Topology for tile 342 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(342)=34 exch2_tNy(342)=102 exch2_tBasex(342)=374 exch2_tBasey(342)=204 exch2_txGlobalo(342)=2415 exch2_tyGlobalo(342)=205 exch2_isWedge(342)=0 exch2_isNedge(342)=0 exch2_isEedge(342)=0 exch2_isSedge(342)=0 exch2_myFace(342)=5 exch2_mydNx(342)=510 exch2_mydNy(342)=510 exch2_nNeighbours(342)=4 exch2_neighbourId(1,342)=357 exch2_iLo(1,342)=0 exch2_iHi(1,342)=35 exch2_jLo(1,342)=103 exch2_jHi(1,342)=103 exch2_opposingSend(1,342)=2 exch2_pij(1,1,342)=1 exch2_pij(2,1,342)=0 exch2_pij(3,1,342)=0 exch2_pij(4,1,342)=1 exch2_oi(1,342)=0 exch2_oj(1,342)=0 exch2_neighbourId(2,342)=327 exch2_iLo(2,342)=0 exch2_iHi(2,342)=35 exch2_jLo(2,342)=0 exch2_jHi(2,342)=0 exch2_opposingSend(2,342)=1 exch2_pij(1,2,342)=1 exch2_pij(2,2,342)=0 exch2_pij(3,2,342)=0 exch2_pij(4,2,342)=1 exch2_oi(2,342)=0 exch2_oj(2,342)=0 exch2_neighbourId(3,342)=343 exch2_iLo(3,342)=35 exch2_iHi(3,342)=35 exch2_jLo(3,342)=0 exch2_jHi(3,342)=103 exch2_opposingSend(3,342)=4 exch2_pij(1,3,342)=1 exch2_pij(2,3,342)=0 exch2_pij(3,3,342)=0 exch2_pij(4,3,342)=1 exch2_oi(3,342)=0 exch2_oj(3,342)=0 exch2_neighbourId(4,342)=341 exch2_iLo(4,342)=0 exch2_iHi(4,342)=0 exch2_jLo(4,342)=0 exch2_jHi(4,342)=103 exch2_opposingSend(4,342)=3 exch2_pij(1,4,342)=1 exch2_pij(2,4,342)=0 exch2_pij(3,4,342)=0 exch2_pij(4,4,342)=1 exch2_oi(4,342)=0 exch2_oj(4,342)=0 RETURN END SUBROUTINE W2_E2SETUP_343 C Topology for tile 343 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(343)=34 exch2_tNy(343)=102 exch2_tBasex(343)=408 exch2_tBasey(343)=204 exch2_txGlobalo(343)=2449 exch2_tyGlobalo(343)=205 exch2_isWedge(343)=0 exch2_isNedge(343)=0 exch2_isEedge(343)=0 exch2_isSedge(343)=0 exch2_myFace(343)=5 exch2_mydNx(343)=510 exch2_mydNy(343)=510 exch2_nNeighbours(343)=4 exch2_neighbourId(1,343)=358 exch2_iLo(1,343)=0 exch2_iHi(1,343)=35 exch2_jLo(1,343)=103 exch2_jHi(1,343)=103 exch2_opposingSend(1,343)=2 exch2_pij(1,1,343)=1 exch2_pij(2,1,343)=0 exch2_pij(3,1,343)=0 exch2_pij(4,1,343)=1 exch2_oi(1,343)=0 exch2_oj(1,343)=0 exch2_neighbourId(2,343)=328 exch2_iLo(2,343)=0 exch2_iHi(2,343)=35 exch2_jLo(2,343)=0 exch2_jHi(2,343)=0 exch2_opposingSend(2,343)=1 exch2_pij(1,2,343)=1 exch2_pij(2,2,343)=0 exch2_pij(3,2,343)=0 exch2_pij(4,2,343)=1 exch2_oi(2,343)=0 exch2_oj(2,343)=0 exch2_neighbourId(3,343)=344 exch2_iLo(3,343)=35 exch2_iHi(3,343)=35 exch2_jLo(3,343)=0 exch2_jHi(3,343)=103 exch2_opposingSend(3,343)=4 exch2_pij(1,3,343)=1 exch2_pij(2,3,343)=0 exch2_pij(3,3,343)=0 exch2_pij(4,3,343)=1 exch2_oi(3,343)=0 exch2_oj(3,343)=0 exch2_neighbourId(4,343)=342 exch2_iLo(4,343)=0 exch2_iHi(4,343)=0 exch2_jLo(4,343)=0 exch2_jHi(4,343)=103 exch2_opposingSend(4,343)=3 exch2_pij(1,4,343)=1 exch2_pij(2,4,343)=0 exch2_pij(3,4,343)=0 exch2_pij(4,4,343)=1 exch2_oi(4,343)=0 exch2_oj(4,343)=0 RETURN END SUBROUTINE W2_E2SETUP_344 C Topology for tile 344 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(344)=34 exch2_tNy(344)=102 exch2_tBasex(344)=442 exch2_tBasey(344)=204 exch2_txGlobalo(344)=2483 exch2_tyGlobalo(344)=205 exch2_isWedge(344)=0 exch2_isNedge(344)=0 exch2_isEedge(344)=0 exch2_isSedge(344)=0 exch2_myFace(344)=5 exch2_mydNx(344)=510 exch2_mydNy(344)=510 exch2_nNeighbours(344)=4 exch2_neighbourId(1,344)=359 exch2_iLo(1,344)=0 exch2_iHi(1,344)=35 exch2_jLo(1,344)=103 exch2_jHi(1,344)=103 exch2_opposingSend(1,344)=2 exch2_pij(1,1,344)=1 exch2_pij(2,1,344)=0 exch2_pij(3,1,344)=0 exch2_pij(4,1,344)=1 exch2_oi(1,344)=0 exch2_oj(1,344)=0 exch2_neighbourId(2,344)=329 exch2_iLo(2,344)=0 exch2_iHi(2,344)=35 exch2_jLo(2,344)=0 exch2_jHi(2,344)=0 exch2_opposingSend(2,344)=1 exch2_pij(1,2,344)=1 exch2_pij(2,2,344)=0 exch2_pij(3,2,344)=0 exch2_pij(4,2,344)=1 exch2_oi(2,344)=0 exch2_oj(2,344)=0 exch2_neighbourId(3,344)=345 exch2_iLo(3,344)=35 exch2_iHi(3,344)=35 exch2_jLo(3,344)=0 exch2_jHi(3,344)=103 exch2_opposingSend(3,344)=4 exch2_pij(1,3,344)=1 exch2_pij(2,3,344)=0 exch2_pij(3,3,344)=0 exch2_pij(4,3,344)=1 exch2_oi(3,344)=0 exch2_oj(3,344)=0 exch2_neighbourId(4,344)=343 exch2_iLo(4,344)=0 exch2_iHi(4,344)=0 exch2_jLo(4,344)=0 exch2_jHi(4,344)=103 exch2_opposingSend(4,344)=3 exch2_pij(1,4,344)=1 exch2_pij(2,4,344)=0 exch2_pij(3,4,344)=0 exch2_pij(4,4,344)=1 exch2_oi(4,344)=0 exch2_oj(4,344)=0 RETURN END SUBROUTINE W2_E2SETUP_345 C Topology for tile 345 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(345)=34 exch2_tNy(345)=102 exch2_tBasex(345)=476 exch2_tBasey(345)=204 exch2_txGlobalo(345)=2517 exch2_tyGlobalo(345)=205 exch2_isWedge(345)=0 exch2_isNedge(345)=0 exch2_isEedge(345)=1 exch2_isSedge(345)=0 exch2_myFace(345)=5 exch2_mydNx(345)=510 exch2_mydNy(345)=510 exch2_nNeighbours(345)=4 exch2_neighbourId(1,345)=360 exch2_iLo(1,345)=0 exch2_iHi(1,345)=35 exch2_jLo(1,345)=103 exch2_jHi(1,345)=103 exch2_opposingSend(1,345)=2 exch2_pij(1,1,345)=1 exch2_pij(2,1,345)=0 exch2_pij(3,1,345)=0 exch2_pij(4,1,345)=1 exch2_oi(1,345)=0 exch2_oj(1,345)=0 exch2_neighbourId(2,345)=330 exch2_iLo(2,345)=0 exch2_iHi(2,345)=35 exch2_jLo(2,345)=0 exch2_jHi(2,345)=0 exch2_opposingSend(2,345)=1 exch2_pij(1,2,345)=1 exch2_pij(2,2,345)=0 exch2_pij(3,2,345)=0 exch2_pij(4,2,345)=1 exch2_oi(2,345)=0 exch2_oj(2,345)=0 exch2_neighbourId(3,345)=406 exch2_iLo(3,345)=35 exch2_iHi(3,345)=35 exch2_jLo(3,345)=0 exch2_jHi(3,345)=103 exch2_opposingSend(3,345)=4 exch2_pij(1,3,345)=1 exch2_pij(2,3,345)=0 exch2_pij(3,3,345)=0 exch2_pij(4,3,345)=1 exch2_oi(3,345)=510 exch2_oj(3,345)=0 exch2_neighbourId(4,345)=344 exch2_iLo(4,345)=0 exch2_iHi(4,345)=0 exch2_jLo(4,345)=0 exch2_jHi(4,345)=103 exch2_opposingSend(4,345)=3 exch2_pij(1,4,345)=1 exch2_pij(2,4,345)=0 exch2_pij(3,4,345)=0 exch2_pij(4,4,345)=1 exch2_oi(4,345)=0 exch2_oj(4,345)=0 RETURN END SUBROUTINE W2_E2SETUP_346 C Topology for tile 346 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(346)=34 exch2_tNy(346)=102 exch2_tBasex(346)=0 exch2_tBasey(346)=306 exch2_txGlobalo(346)=2041 exch2_tyGlobalo(346)=307 exch2_isWedge(346)=1 exch2_isNedge(346)=0 exch2_isEedge(346)=0 exch2_isSedge(346)=0 exch2_myFace(346)=5 exch2_mydNx(346)=510 exch2_mydNy(346)=510 exch2_nNeighbours(346)=6 exch2_neighbourId(1,346)=361 exch2_iLo(1,346)=0 exch2_iHi(1,346)=35 exch2_jLo(1,346)=103 exch2_jHi(1,346)=103 exch2_opposingSend(1,346)=2 exch2_pij(1,1,346)=1 exch2_pij(2,1,346)=0 exch2_pij(3,1,346)=0 exch2_pij(4,1,346)=1 exch2_oi(1,346)=0 exch2_oj(1,346)=0 exch2_neighbourId(2,346)=331 exch2_iLo(2,346)=0 exch2_iHi(2,346)=35 exch2_jLo(2,346)=0 exch2_jHi(2,346)=0 exch2_opposingSend(2,346)=1 exch2_pij(1,2,346)=1 exch2_pij(2,2,346)=0 exch2_pij(3,2,346)=0 exch2_pij(4,2,346)=1 exch2_oi(2,346)=0 exch2_oj(2,346)=0 exch2_neighbourId(3,346)=347 exch2_iLo(3,346)=35 exch2_iHi(3,346)=35 exch2_jLo(3,346)=0 exch2_jHi(3,346)=103 exch2_opposingSend(3,346)=4 exch2_pij(1,3,346)=1 exch2_pij(2,3,346)=0 exch2_pij(3,3,346)=0 exch2_pij(4,3,346)=1 exch2_oi(3,346)=0 exch2_oj(3,346)=0 exch2_neighbourId(4,346)=214 exch2_iLo(4,346)=0 exch2_iHi(4,346)=0 exch2_jLo(4,346)=68 exch2_jHi(4,346)=103 exch2_opposingSend(4,346)=1 exch2_pij(1,4,346)=0 exch2_pij(2,4,346)=1 exch2_pij(3,4,346)=-1 exch2_pij(4,4,346)=0 exch2_oi(4,346)=-510 exch2_oj(4,346)=511 exch2_neighbourId(5,346)=215 exch2_iLo(5,346)=0 exch2_iHi(5,346)=0 exch2_jLo(5,346)=34 exch2_jHi(5,346)=69 exch2_opposingSend(5,346)=1 exch2_pij(1,5,346)=0 exch2_pij(2,5,346)=1 exch2_pij(3,5,346)=-1 exch2_pij(4,5,346)=0 exch2_oi(5,346)=-510 exch2_oj(5,346)=511 exch2_neighbourId(6,346)=216 exch2_iLo(6,346)=0 exch2_iHi(6,346)=0 exch2_jLo(6,346)=0 exch2_jHi(6,346)=35 exch2_opposingSend(6,346)=1 exch2_pij(1,6,346)=0 exch2_pij(2,6,346)=1 exch2_pij(3,6,346)=-1 exch2_pij(4,6,346)=0 exch2_oi(6,346)=-510 exch2_oj(6,346)=511 RETURN END SUBROUTINE W2_E2SETUP_347 C Topology for tile 347 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(347)=34 exch2_tNy(347)=102 exch2_tBasex(347)=34 exch2_tBasey(347)=306 exch2_txGlobalo(347)=2075 exch2_tyGlobalo(347)=307 exch2_isWedge(347)=0 exch2_isNedge(347)=0 exch2_isEedge(347)=0 exch2_isSedge(347)=0 exch2_myFace(347)=5 exch2_mydNx(347)=510 exch2_mydNy(347)=510 exch2_nNeighbours(347)=4 exch2_neighbourId(1,347)=362 exch2_iLo(1,347)=0 exch2_iHi(1,347)=35 exch2_jLo(1,347)=103 exch2_jHi(1,347)=103 exch2_opposingSend(1,347)=2 exch2_pij(1,1,347)=1 exch2_pij(2,1,347)=0 exch2_pij(3,1,347)=0 exch2_pij(4,1,347)=1 exch2_oi(1,347)=0 exch2_oj(1,347)=0 exch2_neighbourId(2,347)=332 exch2_iLo(2,347)=0 exch2_iHi(2,347)=35 exch2_jLo(2,347)=0 exch2_jHi(2,347)=0 exch2_opposingSend(2,347)=1 exch2_pij(1,2,347)=1 exch2_pij(2,2,347)=0 exch2_pij(3,2,347)=0 exch2_pij(4,2,347)=1 exch2_oi(2,347)=0 exch2_oj(2,347)=0 exch2_neighbourId(3,347)=348 exch2_iLo(3,347)=35 exch2_iHi(3,347)=35 exch2_jLo(3,347)=0 exch2_jHi(3,347)=103 exch2_opposingSend(3,347)=4 exch2_pij(1,3,347)=1 exch2_pij(2,3,347)=0 exch2_pij(3,3,347)=0 exch2_pij(4,3,347)=1 exch2_oi(3,347)=0 exch2_oj(3,347)=0 exch2_neighbourId(4,347)=346 exch2_iLo(4,347)=0 exch2_iHi(4,347)=0 exch2_jLo(4,347)=0 exch2_jHi(4,347)=103 exch2_opposingSend(4,347)=3 exch2_pij(1,4,347)=1 exch2_pij(2,4,347)=0 exch2_pij(3,4,347)=0 exch2_pij(4,4,347)=1 exch2_oi(4,347)=0 exch2_oj(4,347)=0 RETURN END SUBROUTINE W2_E2SETUP_348 C Topology for tile 348 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(348)=34 exch2_tNy(348)=102 exch2_tBasex(348)=68 exch2_tBasey(348)=306 exch2_txGlobalo(348)=2109 exch2_tyGlobalo(348)=307 exch2_isWedge(348)=0 exch2_isNedge(348)=0 exch2_isEedge(348)=0 exch2_isSedge(348)=0 exch2_myFace(348)=5 exch2_mydNx(348)=510 exch2_mydNy(348)=510 exch2_nNeighbours(348)=4 exch2_neighbourId(1,348)=363 exch2_iLo(1,348)=0 exch2_iHi(1,348)=35 exch2_jLo(1,348)=103 exch2_jHi(1,348)=103 exch2_opposingSend(1,348)=2 exch2_pij(1,1,348)=1 exch2_pij(2,1,348)=0 exch2_pij(3,1,348)=0 exch2_pij(4,1,348)=1 exch2_oi(1,348)=0 exch2_oj(1,348)=0 exch2_neighbourId(2,348)=333 exch2_iLo(2,348)=0 exch2_iHi(2,348)=35 exch2_jLo(2,348)=0 exch2_jHi(2,348)=0 exch2_opposingSend(2,348)=1 exch2_pij(1,2,348)=1 exch2_pij(2,2,348)=0 exch2_pij(3,2,348)=0 exch2_pij(4,2,348)=1 exch2_oi(2,348)=0 exch2_oj(2,348)=0 exch2_neighbourId(3,348)=349 exch2_iLo(3,348)=35 exch2_iHi(3,348)=35 exch2_jLo(3,348)=0 exch2_jHi(3,348)=103 exch2_opposingSend(3,348)=4 exch2_pij(1,3,348)=1 exch2_pij(2,3,348)=0 exch2_pij(3,3,348)=0 exch2_pij(4,3,348)=1 exch2_oi(3,348)=0 exch2_oj(3,348)=0 exch2_neighbourId(4,348)=347 exch2_iLo(4,348)=0 exch2_iHi(4,348)=0 exch2_jLo(4,348)=0 exch2_jHi(4,348)=103 exch2_opposingSend(4,348)=3 exch2_pij(1,4,348)=1 exch2_pij(2,4,348)=0 exch2_pij(3,4,348)=0 exch2_pij(4,4,348)=1 exch2_oi(4,348)=0 exch2_oj(4,348)=0 RETURN END SUBROUTINE W2_E2SETUP_349 C Topology for tile 349 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(349)=34 exch2_tNy(349)=102 exch2_tBasex(349)=102 exch2_tBasey(349)=306 exch2_txGlobalo(349)=2143 exch2_tyGlobalo(349)=307 exch2_isWedge(349)=0 exch2_isNedge(349)=0 exch2_isEedge(349)=0 exch2_isSedge(349)=0 exch2_myFace(349)=5 exch2_mydNx(349)=510 exch2_mydNy(349)=510 exch2_nNeighbours(349)=4 exch2_neighbourId(1,349)=364 exch2_iLo(1,349)=0 exch2_iHi(1,349)=35 exch2_jLo(1,349)=103 exch2_jHi(1,349)=103 exch2_opposingSend(1,349)=2 exch2_pij(1,1,349)=1 exch2_pij(2,1,349)=0 exch2_pij(3,1,349)=0 exch2_pij(4,1,349)=1 exch2_oi(1,349)=0 exch2_oj(1,349)=0 exch2_neighbourId(2,349)=334 exch2_iLo(2,349)=0 exch2_iHi(2,349)=35 exch2_jLo(2,349)=0 exch2_jHi(2,349)=0 exch2_opposingSend(2,349)=1 exch2_pij(1,2,349)=1 exch2_pij(2,2,349)=0 exch2_pij(3,2,349)=0 exch2_pij(4,2,349)=1 exch2_oi(2,349)=0 exch2_oj(2,349)=0 exch2_neighbourId(3,349)=350 exch2_iLo(3,349)=35 exch2_iHi(3,349)=35 exch2_jLo(3,349)=0 exch2_jHi(3,349)=103 exch2_opposingSend(3,349)=4 exch2_pij(1,3,349)=1 exch2_pij(2,3,349)=0 exch2_pij(3,3,349)=0 exch2_pij(4,3,349)=1 exch2_oi(3,349)=0 exch2_oj(3,349)=0 exch2_neighbourId(4,349)=348 exch2_iLo(4,349)=0 exch2_iHi(4,349)=0 exch2_jLo(4,349)=0 exch2_jHi(4,349)=103 exch2_opposingSend(4,349)=3 exch2_pij(1,4,349)=1 exch2_pij(2,4,349)=0 exch2_pij(3,4,349)=0 exch2_pij(4,4,349)=1 exch2_oi(4,349)=0 exch2_oj(4,349)=0 RETURN END SUBROUTINE W2_E2SETUP_350 C Topology for tile 350 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(350)=34 exch2_tNy(350)=102 exch2_tBasex(350)=136 exch2_tBasey(350)=306 exch2_txGlobalo(350)=2177 exch2_tyGlobalo(350)=307 exch2_isWedge(350)=0 exch2_isNedge(350)=0 exch2_isEedge(350)=0 exch2_isSedge(350)=0 exch2_myFace(350)=5 exch2_mydNx(350)=510 exch2_mydNy(350)=510 exch2_nNeighbours(350)=4 exch2_neighbourId(1,350)=365 exch2_iLo(1,350)=0 exch2_iHi(1,350)=35 exch2_jLo(1,350)=103 exch2_jHi(1,350)=103 exch2_opposingSend(1,350)=2 exch2_pij(1,1,350)=1 exch2_pij(2,1,350)=0 exch2_pij(3,1,350)=0 exch2_pij(4,1,350)=1 exch2_oi(1,350)=0 exch2_oj(1,350)=0 exch2_neighbourId(2,350)=335 exch2_iLo(2,350)=0 exch2_iHi(2,350)=35 exch2_jLo(2,350)=0 exch2_jHi(2,350)=0 exch2_opposingSend(2,350)=1 exch2_pij(1,2,350)=1 exch2_pij(2,2,350)=0 exch2_pij(3,2,350)=0 exch2_pij(4,2,350)=1 exch2_oi(2,350)=0 exch2_oj(2,350)=0 exch2_neighbourId(3,350)=351 exch2_iLo(3,350)=35 exch2_iHi(3,350)=35 exch2_jLo(3,350)=0 exch2_jHi(3,350)=103 exch2_opposingSend(3,350)=4 exch2_pij(1,3,350)=1 exch2_pij(2,3,350)=0 exch2_pij(3,3,350)=0 exch2_pij(4,3,350)=1 exch2_oi(3,350)=0 exch2_oj(3,350)=0 exch2_neighbourId(4,350)=349 exch2_iLo(4,350)=0 exch2_iHi(4,350)=0 exch2_jLo(4,350)=0 exch2_jHi(4,350)=103 exch2_opposingSend(4,350)=3 exch2_pij(1,4,350)=1 exch2_pij(2,4,350)=0 exch2_pij(3,4,350)=0 exch2_pij(4,4,350)=1 exch2_oi(4,350)=0 exch2_oj(4,350)=0 RETURN END SUBROUTINE W2_E2SETUP_351 C Topology for tile 351 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(351)=34 exch2_tNy(351)=102 exch2_tBasex(351)=170 exch2_tBasey(351)=306 exch2_txGlobalo(351)=2211 exch2_tyGlobalo(351)=307 exch2_isWedge(351)=0 exch2_isNedge(351)=0 exch2_isEedge(351)=0 exch2_isSedge(351)=0 exch2_myFace(351)=5 exch2_mydNx(351)=510 exch2_mydNy(351)=510 exch2_nNeighbours(351)=4 exch2_neighbourId(1,351)=366 exch2_iLo(1,351)=0 exch2_iHi(1,351)=35 exch2_jLo(1,351)=103 exch2_jHi(1,351)=103 exch2_opposingSend(1,351)=2 exch2_pij(1,1,351)=1 exch2_pij(2,1,351)=0 exch2_pij(3,1,351)=0 exch2_pij(4,1,351)=1 exch2_oi(1,351)=0 exch2_oj(1,351)=0 exch2_neighbourId(2,351)=336 exch2_iLo(2,351)=0 exch2_iHi(2,351)=35 exch2_jLo(2,351)=0 exch2_jHi(2,351)=0 exch2_opposingSend(2,351)=1 exch2_pij(1,2,351)=1 exch2_pij(2,2,351)=0 exch2_pij(3,2,351)=0 exch2_pij(4,2,351)=1 exch2_oi(2,351)=0 exch2_oj(2,351)=0 exch2_neighbourId(3,351)=352 exch2_iLo(3,351)=35 exch2_iHi(3,351)=35 exch2_jLo(3,351)=0 exch2_jHi(3,351)=103 exch2_opposingSend(3,351)=4 exch2_pij(1,3,351)=1 exch2_pij(2,3,351)=0 exch2_pij(3,3,351)=0 exch2_pij(4,3,351)=1 exch2_oi(3,351)=0 exch2_oj(3,351)=0 exch2_neighbourId(4,351)=350 exch2_iLo(4,351)=0 exch2_iHi(4,351)=0 exch2_jLo(4,351)=0 exch2_jHi(4,351)=103 exch2_opposingSend(4,351)=3 exch2_pij(1,4,351)=1 exch2_pij(2,4,351)=0 exch2_pij(3,4,351)=0 exch2_pij(4,4,351)=1 exch2_oi(4,351)=0 exch2_oj(4,351)=0 RETURN END SUBROUTINE W2_E2SETUP_352 C Topology for tile 352 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(352)=34 exch2_tNy(352)=102 exch2_tBasex(352)=204 exch2_tBasey(352)=306 exch2_txGlobalo(352)=2245 exch2_tyGlobalo(352)=307 exch2_isWedge(352)=0 exch2_isNedge(352)=0 exch2_isEedge(352)=0 exch2_isSedge(352)=0 exch2_myFace(352)=5 exch2_mydNx(352)=510 exch2_mydNy(352)=510 exch2_nNeighbours(352)=4 exch2_neighbourId(1,352)=367 exch2_iLo(1,352)=0 exch2_iHi(1,352)=35 exch2_jLo(1,352)=103 exch2_jHi(1,352)=103 exch2_opposingSend(1,352)=2 exch2_pij(1,1,352)=1 exch2_pij(2,1,352)=0 exch2_pij(3,1,352)=0 exch2_pij(4,1,352)=1 exch2_oi(1,352)=0 exch2_oj(1,352)=0 exch2_neighbourId(2,352)=337 exch2_iLo(2,352)=0 exch2_iHi(2,352)=35 exch2_jLo(2,352)=0 exch2_jHi(2,352)=0 exch2_opposingSend(2,352)=1 exch2_pij(1,2,352)=1 exch2_pij(2,2,352)=0 exch2_pij(3,2,352)=0 exch2_pij(4,2,352)=1 exch2_oi(2,352)=0 exch2_oj(2,352)=0 exch2_neighbourId(3,352)=353 exch2_iLo(3,352)=35 exch2_iHi(3,352)=35 exch2_jLo(3,352)=0 exch2_jHi(3,352)=103 exch2_opposingSend(3,352)=4 exch2_pij(1,3,352)=1 exch2_pij(2,3,352)=0 exch2_pij(3,3,352)=0 exch2_pij(4,3,352)=1 exch2_oi(3,352)=0 exch2_oj(3,352)=0 exch2_neighbourId(4,352)=351 exch2_iLo(4,352)=0 exch2_iHi(4,352)=0 exch2_jLo(4,352)=0 exch2_jHi(4,352)=103 exch2_opposingSend(4,352)=3 exch2_pij(1,4,352)=1 exch2_pij(2,4,352)=0 exch2_pij(3,4,352)=0 exch2_pij(4,4,352)=1 exch2_oi(4,352)=0 exch2_oj(4,352)=0 RETURN END SUBROUTINE W2_E2SETUP_353 C Topology for tile 353 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(353)=34 exch2_tNy(353)=102 exch2_tBasex(353)=238 exch2_tBasey(353)=306 exch2_txGlobalo(353)=2279 exch2_tyGlobalo(353)=307 exch2_isWedge(353)=0 exch2_isNedge(353)=0 exch2_isEedge(353)=0 exch2_isSedge(353)=0 exch2_myFace(353)=5 exch2_mydNx(353)=510 exch2_mydNy(353)=510 exch2_nNeighbours(353)=4 exch2_neighbourId(1,353)=368 exch2_iLo(1,353)=0 exch2_iHi(1,353)=35 exch2_jLo(1,353)=103 exch2_jHi(1,353)=103 exch2_opposingSend(1,353)=2 exch2_pij(1,1,353)=1 exch2_pij(2,1,353)=0 exch2_pij(3,1,353)=0 exch2_pij(4,1,353)=1 exch2_oi(1,353)=0 exch2_oj(1,353)=0 exch2_neighbourId(2,353)=338 exch2_iLo(2,353)=0 exch2_iHi(2,353)=35 exch2_jLo(2,353)=0 exch2_jHi(2,353)=0 exch2_opposingSend(2,353)=1 exch2_pij(1,2,353)=1 exch2_pij(2,2,353)=0 exch2_pij(3,2,353)=0 exch2_pij(4,2,353)=1 exch2_oi(2,353)=0 exch2_oj(2,353)=0 exch2_neighbourId(3,353)=354 exch2_iLo(3,353)=35 exch2_iHi(3,353)=35 exch2_jLo(3,353)=0 exch2_jHi(3,353)=103 exch2_opposingSend(3,353)=4 exch2_pij(1,3,353)=1 exch2_pij(2,3,353)=0 exch2_pij(3,3,353)=0 exch2_pij(4,3,353)=1 exch2_oi(3,353)=0 exch2_oj(3,353)=0 exch2_neighbourId(4,353)=352 exch2_iLo(4,353)=0 exch2_iHi(4,353)=0 exch2_jLo(4,353)=0 exch2_jHi(4,353)=103 exch2_opposingSend(4,353)=3 exch2_pij(1,4,353)=1 exch2_pij(2,4,353)=0 exch2_pij(3,4,353)=0 exch2_pij(4,4,353)=1 exch2_oi(4,353)=0 exch2_oj(4,353)=0 RETURN END SUBROUTINE W2_E2SETUP_354 C Topology for tile 354 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(354)=34 exch2_tNy(354)=102 exch2_tBasex(354)=272 exch2_tBasey(354)=306 exch2_txGlobalo(354)=2313 exch2_tyGlobalo(354)=307 exch2_isWedge(354)=0 exch2_isNedge(354)=0 exch2_isEedge(354)=0 exch2_isSedge(354)=0 exch2_myFace(354)=5 exch2_mydNx(354)=510 exch2_mydNy(354)=510 exch2_nNeighbours(354)=4 exch2_neighbourId(1,354)=369 exch2_iLo(1,354)=0 exch2_iHi(1,354)=35 exch2_jLo(1,354)=103 exch2_jHi(1,354)=103 exch2_opposingSend(1,354)=2 exch2_pij(1,1,354)=1 exch2_pij(2,1,354)=0 exch2_pij(3,1,354)=0 exch2_pij(4,1,354)=1 exch2_oi(1,354)=0 exch2_oj(1,354)=0 exch2_neighbourId(2,354)=339 exch2_iLo(2,354)=0 exch2_iHi(2,354)=35 exch2_jLo(2,354)=0 exch2_jHi(2,354)=0 exch2_opposingSend(2,354)=1 exch2_pij(1,2,354)=1 exch2_pij(2,2,354)=0 exch2_pij(3,2,354)=0 exch2_pij(4,2,354)=1 exch2_oi(2,354)=0 exch2_oj(2,354)=0 exch2_neighbourId(3,354)=355 exch2_iLo(3,354)=35 exch2_iHi(3,354)=35 exch2_jLo(3,354)=0 exch2_jHi(3,354)=103 exch2_opposingSend(3,354)=4 exch2_pij(1,3,354)=1 exch2_pij(2,3,354)=0 exch2_pij(3,3,354)=0 exch2_pij(4,3,354)=1 exch2_oi(3,354)=0 exch2_oj(3,354)=0 exch2_neighbourId(4,354)=353 exch2_iLo(4,354)=0 exch2_iHi(4,354)=0 exch2_jLo(4,354)=0 exch2_jHi(4,354)=103 exch2_opposingSend(4,354)=3 exch2_pij(1,4,354)=1 exch2_pij(2,4,354)=0 exch2_pij(3,4,354)=0 exch2_pij(4,4,354)=1 exch2_oi(4,354)=0 exch2_oj(4,354)=0 RETURN END SUBROUTINE W2_E2SETUP_355 C Topology for tile 355 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(355)=34 exch2_tNy(355)=102 exch2_tBasex(355)=306 exch2_tBasey(355)=306 exch2_txGlobalo(355)=2347 exch2_tyGlobalo(355)=307 exch2_isWedge(355)=0 exch2_isNedge(355)=0 exch2_isEedge(355)=0 exch2_isSedge(355)=0 exch2_myFace(355)=5 exch2_mydNx(355)=510 exch2_mydNy(355)=510 exch2_nNeighbours(355)=4 exch2_neighbourId(1,355)=370 exch2_iLo(1,355)=0 exch2_iHi(1,355)=35 exch2_jLo(1,355)=103 exch2_jHi(1,355)=103 exch2_opposingSend(1,355)=2 exch2_pij(1,1,355)=1 exch2_pij(2,1,355)=0 exch2_pij(3,1,355)=0 exch2_pij(4,1,355)=1 exch2_oi(1,355)=0 exch2_oj(1,355)=0 exch2_neighbourId(2,355)=340 exch2_iLo(2,355)=0 exch2_iHi(2,355)=35 exch2_jLo(2,355)=0 exch2_jHi(2,355)=0 exch2_opposingSend(2,355)=1 exch2_pij(1,2,355)=1 exch2_pij(2,2,355)=0 exch2_pij(3,2,355)=0 exch2_pij(4,2,355)=1 exch2_oi(2,355)=0 exch2_oj(2,355)=0 exch2_neighbourId(3,355)=356 exch2_iLo(3,355)=35 exch2_iHi(3,355)=35 exch2_jLo(3,355)=0 exch2_jHi(3,355)=103 exch2_opposingSend(3,355)=4 exch2_pij(1,3,355)=1 exch2_pij(2,3,355)=0 exch2_pij(3,3,355)=0 exch2_pij(4,3,355)=1 exch2_oi(3,355)=0 exch2_oj(3,355)=0 exch2_neighbourId(4,355)=354 exch2_iLo(4,355)=0 exch2_iHi(4,355)=0 exch2_jLo(4,355)=0 exch2_jHi(4,355)=103 exch2_opposingSend(4,355)=3 exch2_pij(1,4,355)=1 exch2_pij(2,4,355)=0 exch2_pij(3,4,355)=0 exch2_pij(4,4,355)=1 exch2_oi(4,355)=0 exch2_oj(4,355)=0 RETURN END SUBROUTINE W2_E2SETUP_356 C Topology for tile 356 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(356)=34 exch2_tNy(356)=102 exch2_tBasex(356)=340 exch2_tBasey(356)=306 exch2_txGlobalo(356)=2381 exch2_tyGlobalo(356)=307 exch2_isWedge(356)=0 exch2_isNedge(356)=0 exch2_isEedge(356)=0 exch2_isSedge(356)=0 exch2_myFace(356)=5 exch2_mydNx(356)=510 exch2_mydNy(356)=510 exch2_nNeighbours(356)=4 exch2_neighbourId(1,356)=371 exch2_iLo(1,356)=0 exch2_iHi(1,356)=35 exch2_jLo(1,356)=103 exch2_jHi(1,356)=103 exch2_opposingSend(1,356)=2 exch2_pij(1,1,356)=1 exch2_pij(2,1,356)=0 exch2_pij(3,1,356)=0 exch2_pij(4,1,356)=1 exch2_oi(1,356)=0 exch2_oj(1,356)=0 exch2_neighbourId(2,356)=341 exch2_iLo(2,356)=0 exch2_iHi(2,356)=35 exch2_jLo(2,356)=0 exch2_jHi(2,356)=0 exch2_opposingSend(2,356)=1 exch2_pij(1,2,356)=1 exch2_pij(2,2,356)=0 exch2_pij(3,2,356)=0 exch2_pij(4,2,356)=1 exch2_oi(2,356)=0 exch2_oj(2,356)=0 exch2_neighbourId(3,356)=357 exch2_iLo(3,356)=35 exch2_iHi(3,356)=35 exch2_jLo(3,356)=0 exch2_jHi(3,356)=103 exch2_opposingSend(3,356)=4 exch2_pij(1,3,356)=1 exch2_pij(2,3,356)=0 exch2_pij(3,3,356)=0 exch2_pij(4,3,356)=1 exch2_oi(3,356)=0 exch2_oj(3,356)=0 exch2_neighbourId(4,356)=355 exch2_iLo(4,356)=0 exch2_iHi(4,356)=0 exch2_jLo(4,356)=0 exch2_jHi(4,356)=103 exch2_opposingSend(4,356)=3 exch2_pij(1,4,356)=1 exch2_pij(2,4,356)=0 exch2_pij(3,4,356)=0 exch2_pij(4,4,356)=1 exch2_oi(4,356)=0 exch2_oj(4,356)=0 RETURN END SUBROUTINE W2_E2SETUP_357 C Topology for tile 357 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(357)=34 exch2_tNy(357)=102 exch2_tBasex(357)=374 exch2_tBasey(357)=306 exch2_txGlobalo(357)=2415 exch2_tyGlobalo(357)=307 exch2_isWedge(357)=0 exch2_isNedge(357)=0 exch2_isEedge(357)=0 exch2_isSedge(357)=0 exch2_myFace(357)=5 exch2_mydNx(357)=510 exch2_mydNy(357)=510 exch2_nNeighbours(357)=4 exch2_neighbourId(1,357)=372 exch2_iLo(1,357)=0 exch2_iHi(1,357)=35 exch2_jLo(1,357)=103 exch2_jHi(1,357)=103 exch2_opposingSend(1,357)=2 exch2_pij(1,1,357)=1 exch2_pij(2,1,357)=0 exch2_pij(3,1,357)=0 exch2_pij(4,1,357)=1 exch2_oi(1,357)=0 exch2_oj(1,357)=0 exch2_neighbourId(2,357)=342 exch2_iLo(2,357)=0 exch2_iHi(2,357)=35 exch2_jLo(2,357)=0 exch2_jHi(2,357)=0 exch2_opposingSend(2,357)=1 exch2_pij(1,2,357)=1 exch2_pij(2,2,357)=0 exch2_pij(3,2,357)=0 exch2_pij(4,2,357)=1 exch2_oi(2,357)=0 exch2_oj(2,357)=0 exch2_neighbourId(3,357)=358 exch2_iLo(3,357)=35 exch2_iHi(3,357)=35 exch2_jLo(3,357)=0 exch2_jHi(3,357)=103 exch2_opposingSend(3,357)=4 exch2_pij(1,3,357)=1 exch2_pij(2,3,357)=0 exch2_pij(3,3,357)=0 exch2_pij(4,3,357)=1 exch2_oi(3,357)=0 exch2_oj(3,357)=0 exch2_neighbourId(4,357)=356 exch2_iLo(4,357)=0 exch2_iHi(4,357)=0 exch2_jLo(4,357)=0 exch2_jHi(4,357)=103 exch2_opposingSend(4,357)=3 exch2_pij(1,4,357)=1 exch2_pij(2,4,357)=0 exch2_pij(3,4,357)=0 exch2_pij(4,4,357)=1 exch2_oi(4,357)=0 exch2_oj(4,357)=0 RETURN END SUBROUTINE W2_E2SETUP_358 C Topology for tile 358 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(358)=34 exch2_tNy(358)=102 exch2_tBasex(358)=408 exch2_tBasey(358)=306 exch2_txGlobalo(358)=2449 exch2_tyGlobalo(358)=307 exch2_isWedge(358)=0 exch2_isNedge(358)=0 exch2_isEedge(358)=0 exch2_isSedge(358)=0 exch2_myFace(358)=5 exch2_mydNx(358)=510 exch2_mydNy(358)=510 exch2_nNeighbours(358)=4 exch2_neighbourId(1,358)=373 exch2_iLo(1,358)=0 exch2_iHi(1,358)=35 exch2_jLo(1,358)=103 exch2_jHi(1,358)=103 exch2_opposingSend(1,358)=2 exch2_pij(1,1,358)=1 exch2_pij(2,1,358)=0 exch2_pij(3,1,358)=0 exch2_pij(4,1,358)=1 exch2_oi(1,358)=0 exch2_oj(1,358)=0 exch2_neighbourId(2,358)=343 exch2_iLo(2,358)=0 exch2_iHi(2,358)=35 exch2_jLo(2,358)=0 exch2_jHi(2,358)=0 exch2_opposingSend(2,358)=1 exch2_pij(1,2,358)=1 exch2_pij(2,2,358)=0 exch2_pij(3,2,358)=0 exch2_pij(4,2,358)=1 exch2_oi(2,358)=0 exch2_oj(2,358)=0 exch2_neighbourId(3,358)=359 exch2_iLo(3,358)=35 exch2_iHi(3,358)=35 exch2_jLo(3,358)=0 exch2_jHi(3,358)=103 exch2_opposingSend(3,358)=4 exch2_pij(1,3,358)=1 exch2_pij(2,3,358)=0 exch2_pij(3,3,358)=0 exch2_pij(4,3,358)=1 exch2_oi(3,358)=0 exch2_oj(3,358)=0 exch2_neighbourId(4,358)=357 exch2_iLo(4,358)=0 exch2_iHi(4,358)=0 exch2_jLo(4,358)=0 exch2_jHi(4,358)=103 exch2_opposingSend(4,358)=3 exch2_pij(1,4,358)=1 exch2_pij(2,4,358)=0 exch2_pij(3,4,358)=0 exch2_pij(4,4,358)=1 exch2_oi(4,358)=0 exch2_oj(4,358)=0 RETURN END SUBROUTINE W2_E2SETUP_359 C Topology for tile 359 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(359)=34 exch2_tNy(359)=102 exch2_tBasex(359)=442 exch2_tBasey(359)=306 exch2_txGlobalo(359)=2483 exch2_tyGlobalo(359)=307 exch2_isWedge(359)=0 exch2_isNedge(359)=0 exch2_isEedge(359)=0 exch2_isSedge(359)=0 exch2_myFace(359)=5 exch2_mydNx(359)=510 exch2_mydNy(359)=510 exch2_nNeighbours(359)=4 exch2_neighbourId(1,359)=374 exch2_iLo(1,359)=0 exch2_iHi(1,359)=35 exch2_jLo(1,359)=103 exch2_jHi(1,359)=103 exch2_opposingSend(1,359)=2 exch2_pij(1,1,359)=1 exch2_pij(2,1,359)=0 exch2_pij(3,1,359)=0 exch2_pij(4,1,359)=1 exch2_oi(1,359)=0 exch2_oj(1,359)=0 exch2_neighbourId(2,359)=344 exch2_iLo(2,359)=0 exch2_iHi(2,359)=35 exch2_jLo(2,359)=0 exch2_jHi(2,359)=0 exch2_opposingSend(2,359)=1 exch2_pij(1,2,359)=1 exch2_pij(2,2,359)=0 exch2_pij(3,2,359)=0 exch2_pij(4,2,359)=1 exch2_oi(2,359)=0 exch2_oj(2,359)=0 exch2_neighbourId(3,359)=360 exch2_iLo(3,359)=35 exch2_iHi(3,359)=35 exch2_jLo(3,359)=0 exch2_jHi(3,359)=103 exch2_opposingSend(3,359)=4 exch2_pij(1,3,359)=1 exch2_pij(2,3,359)=0 exch2_pij(3,3,359)=0 exch2_pij(4,3,359)=1 exch2_oi(3,359)=0 exch2_oj(3,359)=0 exch2_neighbourId(4,359)=358 exch2_iLo(4,359)=0 exch2_iHi(4,359)=0 exch2_jLo(4,359)=0 exch2_jHi(4,359)=103 exch2_opposingSend(4,359)=3 exch2_pij(1,4,359)=1 exch2_pij(2,4,359)=0 exch2_pij(3,4,359)=0 exch2_pij(4,4,359)=1 exch2_oi(4,359)=0 exch2_oj(4,359)=0 RETURN END SUBROUTINE W2_E2SETUP_360 C Topology for tile 360 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(360)=34 exch2_tNy(360)=102 exch2_tBasex(360)=476 exch2_tBasey(360)=306 exch2_txGlobalo(360)=2517 exch2_tyGlobalo(360)=307 exch2_isWedge(360)=0 exch2_isNedge(360)=0 exch2_isEedge(360)=1 exch2_isSedge(360)=0 exch2_myFace(360)=5 exch2_mydNx(360)=510 exch2_mydNy(360)=510 exch2_nNeighbours(360)=4 exch2_neighbourId(1,360)=375 exch2_iLo(1,360)=0 exch2_iHi(1,360)=35 exch2_jLo(1,360)=103 exch2_jHi(1,360)=103 exch2_opposingSend(1,360)=2 exch2_pij(1,1,360)=1 exch2_pij(2,1,360)=0 exch2_pij(3,1,360)=0 exch2_pij(4,1,360)=1 exch2_oi(1,360)=0 exch2_oj(1,360)=0 exch2_neighbourId(2,360)=345 exch2_iLo(2,360)=0 exch2_iHi(2,360)=35 exch2_jLo(2,360)=0 exch2_jHi(2,360)=0 exch2_opposingSend(2,360)=1 exch2_pij(1,2,360)=1 exch2_pij(2,2,360)=0 exch2_pij(3,2,360)=0 exch2_pij(4,2,360)=1 exch2_oi(2,360)=0 exch2_oj(2,360)=0 exch2_neighbourId(3,360)=421 exch2_iLo(3,360)=35 exch2_iHi(3,360)=35 exch2_jLo(3,360)=0 exch2_jHi(3,360)=103 exch2_opposingSend(3,360)=4 exch2_pij(1,3,360)=1 exch2_pij(2,3,360)=0 exch2_pij(3,3,360)=0 exch2_pij(4,3,360)=1 exch2_oi(3,360)=510 exch2_oj(3,360)=0 exch2_neighbourId(4,360)=359 exch2_iLo(4,360)=0 exch2_iHi(4,360)=0 exch2_jLo(4,360)=0 exch2_jHi(4,360)=103 exch2_opposingSend(4,360)=3 exch2_pij(1,4,360)=1 exch2_pij(2,4,360)=0 exch2_pij(3,4,360)=0 exch2_pij(4,4,360)=1 exch2_oi(4,360)=0 exch2_oj(4,360)=0 RETURN END SUBROUTINE W2_E2SETUP_361 C Topology for tile 361 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(361)=34 exch2_tNy(361)=102 exch2_tBasex(361)=0 exch2_tBasey(361)=408 exch2_txGlobalo(361)=2041 exch2_tyGlobalo(361)=409 exch2_isWedge(361)=1 exch2_isNedge(361)=1 exch2_isEedge(361)=0 exch2_isSedge(361)=0 exch2_myFace(361)=5 exch2_mydNx(361)=510 exch2_mydNy(361)=510 exch2_nNeighbours(361)=6 exch2_neighbourId(1,361)=61 exch2_iLo(1,361)=0 exch2_iHi(1,361)=35 exch2_jLo(1,361)=103 exch2_jHi(1,361)=103 exch2_opposingSend(1,361)=4 exch2_pij(1,1,361)=0 exch2_pij(2,1,361)=-1 exch2_pij(3,1,361)=1 exch2_pij(4,1,361)=0 exch2_oi(1,361)=511 exch2_oj(1,361)=510 exch2_neighbourId(2,361)=346 exch2_iLo(2,361)=0 exch2_iHi(2,361)=35 exch2_jLo(2,361)=0 exch2_jHi(2,361)=0 exch2_opposingSend(2,361)=1 exch2_pij(1,2,361)=1 exch2_pij(2,2,361)=0 exch2_pij(3,2,361)=0 exch2_pij(4,2,361)=1 exch2_oi(2,361)=0 exch2_oj(2,361)=0 exch2_neighbourId(3,361)=362 exch2_iLo(3,361)=35 exch2_iHi(3,361)=35 exch2_jLo(3,361)=0 exch2_jHi(3,361)=103 exch2_opposingSend(3,361)=4 exch2_pij(1,3,361)=1 exch2_pij(2,3,361)=0 exch2_pij(3,3,361)=0 exch2_pij(4,3,361)=1 exch2_oi(3,361)=0 exch2_oj(3,361)=0 exch2_neighbourId(4,361)=211 exch2_iLo(4,361)=0 exch2_iHi(4,361)=0 exch2_jLo(4,361)=68 exch2_jHi(4,361)=103 exch2_opposingSend(4,361)=1 exch2_pij(1,4,361)=0 exch2_pij(2,4,361)=1 exch2_pij(3,4,361)=-1 exch2_pij(4,4,361)=0 exch2_oi(4,361)=-510 exch2_oj(4,361)=511 exch2_neighbourId(5,361)=212 exch2_iLo(5,361)=0 exch2_iHi(5,361)=0 exch2_jLo(5,361)=34 exch2_jHi(5,361)=69 exch2_opposingSend(5,361)=1 exch2_pij(1,5,361)=0 exch2_pij(2,5,361)=1 exch2_pij(3,5,361)=-1 exch2_pij(4,5,361)=0 exch2_oi(5,361)=-510 exch2_oj(5,361)=511 exch2_neighbourId(6,361)=213 exch2_iLo(6,361)=0 exch2_iHi(6,361)=0 exch2_jLo(6,361)=0 exch2_jHi(6,361)=35 exch2_opposingSend(6,361)=1 exch2_pij(1,6,361)=0 exch2_pij(2,6,361)=1 exch2_pij(3,6,361)=-1 exch2_pij(4,6,361)=0 exch2_oi(6,361)=-510 exch2_oj(6,361)=511 RETURN END SUBROUTINE W2_E2SETUP_362 C Topology for tile 362 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(362)=34 exch2_tNy(362)=102 exch2_tBasex(362)=34 exch2_tBasey(362)=408 exch2_txGlobalo(362)=2075 exch2_tyGlobalo(362)=409 exch2_isWedge(362)=0 exch2_isNedge(362)=1 exch2_isEedge(362)=0 exch2_isSedge(362)=0 exch2_myFace(362)=5 exch2_mydNx(362)=510 exch2_mydNy(362)=510 exch2_nNeighbours(362)=4 exch2_neighbourId(1,362)=61 exch2_iLo(1,362)=0 exch2_iHi(1,362)=35 exch2_jLo(1,362)=103 exch2_jHi(1,362)=103 exch2_opposingSend(1,362)=5 exch2_pij(1,1,362)=0 exch2_pij(2,1,362)=-1 exch2_pij(3,1,362)=1 exch2_pij(4,1,362)=0 exch2_oi(1,362)=511 exch2_oj(1,362)=510 exch2_neighbourId(2,362)=347 exch2_iLo(2,362)=0 exch2_iHi(2,362)=35 exch2_jLo(2,362)=0 exch2_jHi(2,362)=0 exch2_opposingSend(2,362)=1 exch2_pij(1,2,362)=1 exch2_pij(2,2,362)=0 exch2_pij(3,2,362)=0 exch2_pij(4,2,362)=1 exch2_oi(2,362)=0 exch2_oj(2,362)=0 exch2_neighbourId(3,362)=363 exch2_iLo(3,362)=35 exch2_iHi(3,362)=35 exch2_jLo(3,362)=0 exch2_jHi(3,362)=103 exch2_opposingSend(3,362)=4 exch2_pij(1,3,362)=1 exch2_pij(2,3,362)=0 exch2_pij(3,3,362)=0 exch2_pij(4,3,362)=1 exch2_oi(3,362)=0 exch2_oj(3,362)=0 exch2_neighbourId(4,362)=361 exch2_iLo(4,362)=0 exch2_iHi(4,362)=0 exch2_jLo(4,362)=0 exch2_jHi(4,362)=103 exch2_opposingSend(4,362)=3 exch2_pij(1,4,362)=1 exch2_pij(2,4,362)=0 exch2_pij(3,4,362)=0 exch2_pij(4,4,362)=1 exch2_oi(4,362)=0 exch2_oj(4,362)=0 RETURN END SUBROUTINE W2_E2SETUP_363 C Topology for tile 363 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(363)=34 exch2_tNy(363)=102 exch2_tBasex(363)=68 exch2_tBasey(363)=408 exch2_txGlobalo(363)=2109 exch2_tyGlobalo(363)=409 exch2_isWedge(363)=0 exch2_isNedge(363)=1 exch2_isEedge(363)=0 exch2_isSedge(363)=0 exch2_myFace(363)=5 exch2_mydNx(363)=510 exch2_mydNy(363)=510 exch2_nNeighbours(363)=4 exch2_neighbourId(1,363)=61 exch2_iLo(1,363)=0 exch2_iHi(1,363)=35 exch2_jLo(1,363)=103 exch2_jHi(1,363)=103 exch2_opposingSend(1,363)=6 exch2_pij(1,1,363)=0 exch2_pij(2,1,363)=-1 exch2_pij(3,1,363)=1 exch2_pij(4,1,363)=0 exch2_oi(1,363)=511 exch2_oj(1,363)=510 exch2_neighbourId(2,363)=348 exch2_iLo(2,363)=0 exch2_iHi(2,363)=35 exch2_jLo(2,363)=0 exch2_jHi(2,363)=0 exch2_opposingSend(2,363)=1 exch2_pij(1,2,363)=1 exch2_pij(2,2,363)=0 exch2_pij(3,2,363)=0 exch2_pij(4,2,363)=1 exch2_oi(2,363)=0 exch2_oj(2,363)=0 exch2_neighbourId(3,363)=364 exch2_iLo(3,363)=35 exch2_iHi(3,363)=35 exch2_jLo(3,363)=0 exch2_jHi(3,363)=103 exch2_opposingSend(3,363)=4 exch2_pij(1,3,363)=1 exch2_pij(2,3,363)=0 exch2_pij(3,3,363)=0 exch2_pij(4,3,363)=1 exch2_oi(3,363)=0 exch2_oj(3,363)=0 exch2_neighbourId(4,363)=362 exch2_iLo(4,363)=0 exch2_iHi(4,363)=0 exch2_jLo(4,363)=0 exch2_jHi(4,363)=103 exch2_opposingSend(4,363)=3 exch2_pij(1,4,363)=1 exch2_pij(2,4,363)=0 exch2_pij(3,4,363)=0 exch2_pij(4,4,363)=1 exch2_oi(4,363)=0 exch2_oj(4,363)=0 RETURN END SUBROUTINE W2_E2SETUP_364 C Topology for tile 364 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(364)=34 exch2_tNy(364)=102 exch2_tBasex(364)=102 exch2_tBasey(364)=408 exch2_txGlobalo(364)=2143 exch2_tyGlobalo(364)=409 exch2_isWedge(364)=0 exch2_isNedge(364)=1 exch2_isEedge(364)=0 exch2_isSedge(364)=0 exch2_myFace(364)=5 exch2_mydNx(364)=510 exch2_mydNy(364)=510 exch2_nNeighbours(364)=4 exch2_neighbourId(1,364)=46 exch2_iLo(1,364)=0 exch2_iHi(1,364)=35 exch2_jLo(1,364)=103 exch2_jHi(1,364)=103 exch2_opposingSend(1,364)=4 exch2_pij(1,1,364)=0 exch2_pij(2,1,364)=-1 exch2_pij(3,1,364)=1 exch2_pij(4,1,364)=0 exch2_oi(1,364)=511 exch2_oj(1,364)=510 exch2_neighbourId(2,364)=349 exch2_iLo(2,364)=0 exch2_iHi(2,364)=35 exch2_jLo(2,364)=0 exch2_jHi(2,364)=0 exch2_opposingSend(2,364)=1 exch2_pij(1,2,364)=1 exch2_pij(2,2,364)=0 exch2_pij(3,2,364)=0 exch2_pij(4,2,364)=1 exch2_oi(2,364)=0 exch2_oj(2,364)=0 exch2_neighbourId(3,364)=365 exch2_iLo(3,364)=35 exch2_iHi(3,364)=35 exch2_jLo(3,364)=0 exch2_jHi(3,364)=103 exch2_opposingSend(3,364)=4 exch2_pij(1,3,364)=1 exch2_pij(2,3,364)=0 exch2_pij(3,3,364)=0 exch2_pij(4,3,364)=1 exch2_oi(3,364)=0 exch2_oj(3,364)=0 exch2_neighbourId(4,364)=363 exch2_iLo(4,364)=0 exch2_iHi(4,364)=0 exch2_jLo(4,364)=0 exch2_jHi(4,364)=103 exch2_opposingSend(4,364)=3 exch2_pij(1,4,364)=1 exch2_pij(2,4,364)=0 exch2_pij(3,4,364)=0 exch2_pij(4,4,364)=1 exch2_oi(4,364)=0 exch2_oj(4,364)=0 RETURN END SUBROUTINE W2_E2SETUP_365 C Topology for tile 365 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(365)=34 exch2_tNy(365)=102 exch2_tBasex(365)=136 exch2_tBasey(365)=408 exch2_txGlobalo(365)=2177 exch2_tyGlobalo(365)=409 exch2_isWedge(365)=0 exch2_isNedge(365)=1 exch2_isEedge(365)=0 exch2_isSedge(365)=0 exch2_myFace(365)=5 exch2_mydNx(365)=510 exch2_mydNy(365)=510 exch2_nNeighbours(365)=4 exch2_neighbourId(1,365)=46 exch2_iLo(1,365)=0 exch2_iHi(1,365)=35 exch2_jLo(1,365)=103 exch2_jHi(1,365)=103 exch2_opposingSend(1,365)=5 exch2_pij(1,1,365)=0 exch2_pij(2,1,365)=-1 exch2_pij(3,1,365)=1 exch2_pij(4,1,365)=0 exch2_oi(1,365)=511 exch2_oj(1,365)=510 exch2_neighbourId(2,365)=350 exch2_iLo(2,365)=0 exch2_iHi(2,365)=35 exch2_jLo(2,365)=0 exch2_jHi(2,365)=0 exch2_opposingSend(2,365)=1 exch2_pij(1,2,365)=1 exch2_pij(2,2,365)=0 exch2_pij(3,2,365)=0 exch2_pij(4,2,365)=1 exch2_oi(2,365)=0 exch2_oj(2,365)=0 exch2_neighbourId(3,365)=366 exch2_iLo(3,365)=35 exch2_iHi(3,365)=35 exch2_jLo(3,365)=0 exch2_jHi(3,365)=103 exch2_opposingSend(3,365)=4 exch2_pij(1,3,365)=1 exch2_pij(2,3,365)=0 exch2_pij(3,3,365)=0 exch2_pij(4,3,365)=1 exch2_oi(3,365)=0 exch2_oj(3,365)=0 exch2_neighbourId(4,365)=364 exch2_iLo(4,365)=0 exch2_iHi(4,365)=0 exch2_jLo(4,365)=0 exch2_jHi(4,365)=103 exch2_opposingSend(4,365)=3 exch2_pij(1,4,365)=1 exch2_pij(2,4,365)=0 exch2_pij(3,4,365)=0 exch2_pij(4,4,365)=1 exch2_oi(4,365)=0 exch2_oj(4,365)=0 RETURN END SUBROUTINE W2_E2SETUP_366 C Topology for tile 366 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(366)=34 exch2_tNy(366)=102 exch2_tBasex(366)=170 exch2_tBasey(366)=408 exch2_txGlobalo(366)=2211 exch2_tyGlobalo(366)=409 exch2_isWedge(366)=0 exch2_isNedge(366)=1 exch2_isEedge(366)=0 exch2_isSedge(366)=0 exch2_myFace(366)=5 exch2_mydNx(366)=510 exch2_mydNy(366)=510 exch2_nNeighbours(366)=4 exch2_neighbourId(1,366)=46 exch2_iLo(1,366)=0 exch2_iHi(1,366)=35 exch2_jLo(1,366)=103 exch2_jHi(1,366)=103 exch2_opposingSend(1,366)=6 exch2_pij(1,1,366)=0 exch2_pij(2,1,366)=-1 exch2_pij(3,1,366)=1 exch2_pij(4,1,366)=0 exch2_oi(1,366)=511 exch2_oj(1,366)=510 exch2_neighbourId(2,366)=351 exch2_iLo(2,366)=0 exch2_iHi(2,366)=35 exch2_jLo(2,366)=0 exch2_jHi(2,366)=0 exch2_opposingSend(2,366)=1 exch2_pij(1,2,366)=1 exch2_pij(2,2,366)=0 exch2_pij(3,2,366)=0 exch2_pij(4,2,366)=1 exch2_oi(2,366)=0 exch2_oj(2,366)=0 exch2_neighbourId(3,366)=367 exch2_iLo(3,366)=35 exch2_iHi(3,366)=35 exch2_jLo(3,366)=0 exch2_jHi(3,366)=103 exch2_opposingSend(3,366)=4 exch2_pij(1,3,366)=1 exch2_pij(2,3,366)=0 exch2_pij(3,3,366)=0 exch2_pij(4,3,366)=1 exch2_oi(3,366)=0 exch2_oj(3,366)=0 exch2_neighbourId(4,366)=365 exch2_iLo(4,366)=0 exch2_iHi(4,366)=0 exch2_jLo(4,366)=0 exch2_jHi(4,366)=103 exch2_opposingSend(4,366)=3 exch2_pij(1,4,366)=1 exch2_pij(2,4,366)=0 exch2_pij(3,4,366)=0 exch2_pij(4,4,366)=1 exch2_oi(4,366)=0 exch2_oj(4,366)=0 RETURN END SUBROUTINE W2_E2SETUP_367 C Topology for tile 367 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(367)=34 exch2_tNy(367)=102 exch2_tBasex(367)=204 exch2_tBasey(367)=408 exch2_txGlobalo(367)=2245 exch2_tyGlobalo(367)=409 exch2_isWedge(367)=0 exch2_isNedge(367)=1 exch2_isEedge(367)=0 exch2_isSedge(367)=0 exch2_myFace(367)=5 exch2_mydNx(367)=510 exch2_mydNy(367)=510 exch2_nNeighbours(367)=4 exch2_neighbourId(1,367)=31 exch2_iLo(1,367)=0 exch2_iHi(1,367)=35 exch2_jLo(1,367)=103 exch2_jHi(1,367)=103 exch2_opposingSend(1,367)=4 exch2_pij(1,1,367)=0 exch2_pij(2,1,367)=-1 exch2_pij(3,1,367)=1 exch2_pij(4,1,367)=0 exch2_oi(1,367)=511 exch2_oj(1,367)=510 exch2_neighbourId(2,367)=352 exch2_iLo(2,367)=0 exch2_iHi(2,367)=35 exch2_jLo(2,367)=0 exch2_jHi(2,367)=0 exch2_opposingSend(2,367)=1 exch2_pij(1,2,367)=1 exch2_pij(2,2,367)=0 exch2_pij(3,2,367)=0 exch2_pij(4,2,367)=1 exch2_oi(2,367)=0 exch2_oj(2,367)=0 exch2_neighbourId(3,367)=368 exch2_iLo(3,367)=35 exch2_iHi(3,367)=35 exch2_jLo(3,367)=0 exch2_jHi(3,367)=103 exch2_opposingSend(3,367)=4 exch2_pij(1,3,367)=1 exch2_pij(2,3,367)=0 exch2_pij(3,3,367)=0 exch2_pij(4,3,367)=1 exch2_oi(3,367)=0 exch2_oj(3,367)=0 exch2_neighbourId(4,367)=366 exch2_iLo(4,367)=0 exch2_iHi(4,367)=0 exch2_jLo(4,367)=0 exch2_jHi(4,367)=103 exch2_opposingSend(4,367)=3 exch2_pij(1,4,367)=1 exch2_pij(2,4,367)=0 exch2_pij(3,4,367)=0 exch2_pij(4,4,367)=1 exch2_oi(4,367)=0 exch2_oj(4,367)=0 RETURN END SUBROUTINE W2_E2SETUP_368 C Topology for tile 368 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(368)=34 exch2_tNy(368)=102 exch2_tBasex(368)=238 exch2_tBasey(368)=408 exch2_txGlobalo(368)=2279 exch2_tyGlobalo(368)=409 exch2_isWedge(368)=0 exch2_isNedge(368)=1 exch2_isEedge(368)=0 exch2_isSedge(368)=0 exch2_myFace(368)=5 exch2_mydNx(368)=510 exch2_mydNy(368)=510 exch2_nNeighbours(368)=4 exch2_neighbourId(1,368)=31 exch2_iLo(1,368)=0 exch2_iHi(1,368)=35 exch2_jLo(1,368)=103 exch2_jHi(1,368)=103 exch2_opposingSend(1,368)=5 exch2_pij(1,1,368)=0 exch2_pij(2,1,368)=-1 exch2_pij(3,1,368)=1 exch2_pij(4,1,368)=0 exch2_oi(1,368)=511 exch2_oj(1,368)=510 exch2_neighbourId(2,368)=353 exch2_iLo(2,368)=0 exch2_iHi(2,368)=35 exch2_jLo(2,368)=0 exch2_jHi(2,368)=0 exch2_opposingSend(2,368)=1 exch2_pij(1,2,368)=1 exch2_pij(2,2,368)=0 exch2_pij(3,2,368)=0 exch2_pij(4,2,368)=1 exch2_oi(2,368)=0 exch2_oj(2,368)=0 exch2_neighbourId(3,368)=369 exch2_iLo(3,368)=35 exch2_iHi(3,368)=35 exch2_jLo(3,368)=0 exch2_jHi(3,368)=103 exch2_opposingSend(3,368)=4 exch2_pij(1,3,368)=1 exch2_pij(2,3,368)=0 exch2_pij(3,3,368)=0 exch2_pij(4,3,368)=1 exch2_oi(3,368)=0 exch2_oj(3,368)=0 exch2_neighbourId(4,368)=367 exch2_iLo(4,368)=0 exch2_iHi(4,368)=0 exch2_jLo(4,368)=0 exch2_jHi(4,368)=103 exch2_opposingSend(4,368)=3 exch2_pij(1,4,368)=1 exch2_pij(2,4,368)=0 exch2_pij(3,4,368)=0 exch2_pij(4,4,368)=1 exch2_oi(4,368)=0 exch2_oj(4,368)=0 RETURN END SUBROUTINE W2_E2SETUP_369 C Topology for tile 369 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(369)=34 exch2_tNy(369)=102 exch2_tBasex(369)=272 exch2_tBasey(369)=408 exch2_txGlobalo(369)=2313 exch2_tyGlobalo(369)=409 exch2_isWedge(369)=0 exch2_isNedge(369)=1 exch2_isEedge(369)=0 exch2_isSedge(369)=0 exch2_myFace(369)=5 exch2_mydNx(369)=510 exch2_mydNy(369)=510 exch2_nNeighbours(369)=4 exch2_neighbourId(1,369)=31 exch2_iLo(1,369)=0 exch2_iHi(1,369)=35 exch2_jLo(1,369)=103 exch2_jHi(1,369)=103 exch2_opposingSend(1,369)=6 exch2_pij(1,1,369)=0 exch2_pij(2,1,369)=-1 exch2_pij(3,1,369)=1 exch2_pij(4,1,369)=0 exch2_oi(1,369)=511 exch2_oj(1,369)=510 exch2_neighbourId(2,369)=354 exch2_iLo(2,369)=0 exch2_iHi(2,369)=35 exch2_jLo(2,369)=0 exch2_jHi(2,369)=0 exch2_opposingSend(2,369)=1 exch2_pij(1,2,369)=1 exch2_pij(2,2,369)=0 exch2_pij(3,2,369)=0 exch2_pij(4,2,369)=1 exch2_oi(2,369)=0 exch2_oj(2,369)=0 exch2_neighbourId(3,369)=370 exch2_iLo(3,369)=35 exch2_iHi(3,369)=35 exch2_jLo(3,369)=0 exch2_jHi(3,369)=103 exch2_opposingSend(3,369)=4 exch2_pij(1,3,369)=1 exch2_pij(2,3,369)=0 exch2_pij(3,3,369)=0 exch2_pij(4,3,369)=1 exch2_oi(3,369)=0 exch2_oj(3,369)=0 exch2_neighbourId(4,369)=368 exch2_iLo(4,369)=0 exch2_iHi(4,369)=0 exch2_jLo(4,369)=0 exch2_jHi(4,369)=103 exch2_opposingSend(4,369)=3 exch2_pij(1,4,369)=1 exch2_pij(2,4,369)=0 exch2_pij(3,4,369)=0 exch2_pij(4,4,369)=1 exch2_oi(4,369)=0 exch2_oj(4,369)=0 RETURN END SUBROUTINE W2_E2SETUP_370 C Topology for tile 370 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(370)=34 exch2_tNy(370)=102 exch2_tBasex(370)=306 exch2_tBasey(370)=408 exch2_txGlobalo(370)=2347 exch2_tyGlobalo(370)=409 exch2_isWedge(370)=0 exch2_isNedge(370)=1 exch2_isEedge(370)=0 exch2_isSedge(370)=0 exch2_myFace(370)=5 exch2_mydNx(370)=510 exch2_mydNy(370)=510 exch2_nNeighbours(370)=4 exch2_neighbourId(1,370)=16 exch2_iLo(1,370)=0 exch2_iHi(1,370)=35 exch2_jLo(1,370)=103 exch2_jHi(1,370)=103 exch2_opposingSend(1,370)=4 exch2_pij(1,1,370)=0 exch2_pij(2,1,370)=-1 exch2_pij(3,1,370)=1 exch2_pij(4,1,370)=0 exch2_oi(1,370)=511 exch2_oj(1,370)=510 exch2_neighbourId(2,370)=355 exch2_iLo(2,370)=0 exch2_iHi(2,370)=35 exch2_jLo(2,370)=0 exch2_jHi(2,370)=0 exch2_opposingSend(2,370)=1 exch2_pij(1,2,370)=1 exch2_pij(2,2,370)=0 exch2_pij(3,2,370)=0 exch2_pij(4,2,370)=1 exch2_oi(2,370)=0 exch2_oj(2,370)=0 exch2_neighbourId(3,370)=371 exch2_iLo(3,370)=35 exch2_iHi(3,370)=35 exch2_jLo(3,370)=0 exch2_jHi(3,370)=103 exch2_opposingSend(3,370)=4 exch2_pij(1,3,370)=1 exch2_pij(2,3,370)=0 exch2_pij(3,3,370)=0 exch2_pij(4,3,370)=1 exch2_oi(3,370)=0 exch2_oj(3,370)=0 exch2_neighbourId(4,370)=369 exch2_iLo(4,370)=0 exch2_iHi(4,370)=0 exch2_jLo(4,370)=0 exch2_jHi(4,370)=103 exch2_opposingSend(4,370)=3 exch2_pij(1,4,370)=1 exch2_pij(2,4,370)=0 exch2_pij(3,4,370)=0 exch2_pij(4,4,370)=1 exch2_oi(4,370)=0 exch2_oj(4,370)=0 RETURN END SUBROUTINE W2_E2SETUP_371 C Topology for tile 371 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(371)=34 exch2_tNy(371)=102 exch2_tBasex(371)=340 exch2_tBasey(371)=408 exch2_txGlobalo(371)=2381 exch2_tyGlobalo(371)=409 exch2_isWedge(371)=0 exch2_isNedge(371)=1 exch2_isEedge(371)=0 exch2_isSedge(371)=0 exch2_myFace(371)=5 exch2_mydNx(371)=510 exch2_mydNy(371)=510 exch2_nNeighbours(371)=4 exch2_neighbourId(1,371)=16 exch2_iLo(1,371)=0 exch2_iHi(1,371)=35 exch2_jLo(1,371)=103 exch2_jHi(1,371)=103 exch2_opposingSend(1,371)=5 exch2_pij(1,1,371)=0 exch2_pij(2,1,371)=-1 exch2_pij(3,1,371)=1 exch2_pij(4,1,371)=0 exch2_oi(1,371)=511 exch2_oj(1,371)=510 exch2_neighbourId(2,371)=356 exch2_iLo(2,371)=0 exch2_iHi(2,371)=35 exch2_jLo(2,371)=0 exch2_jHi(2,371)=0 exch2_opposingSend(2,371)=1 exch2_pij(1,2,371)=1 exch2_pij(2,2,371)=0 exch2_pij(3,2,371)=0 exch2_pij(4,2,371)=1 exch2_oi(2,371)=0 exch2_oj(2,371)=0 exch2_neighbourId(3,371)=372 exch2_iLo(3,371)=35 exch2_iHi(3,371)=35 exch2_jLo(3,371)=0 exch2_jHi(3,371)=103 exch2_opposingSend(3,371)=4 exch2_pij(1,3,371)=1 exch2_pij(2,3,371)=0 exch2_pij(3,3,371)=0 exch2_pij(4,3,371)=1 exch2_oi(3,371)=0 exch2_oj(3,371)=0 exch2_neighbourId(4,371)=370 exch2_iLo(4,371)=0 exch2_iHi(4,371)=0 exch2_jLo(4,371)=0 exch2_jHi(4,371)=103 exch2_opposingSend(4,371)=3 exch2_pij(1,4,371)=1 exch2_pij(2,4,371)=0 exch2_pij(3,4,371)=0 exch2_pij(4,4,371)=1 exch2_oi(4,371)=0 exch2_oj(4,371)=0 RETURN END SUBROUTINE W2_E2SETUP_372 C Topology for tile 372 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(372)=34 exch2_tNy(372)=102 exch2_tBasex(372)=374 exch2_tBasey(372)=408 exch2_txGlobalo(372)=2415 exch2_tyGlobalo(372)=409 exch2_isWedge(372)=0 exch2_isNedge(372)=1 exch2_isEedge(372)=0 exch2_isSedge(372)=0 exch2_myFace(372)=5 exch2_mydNx(372)=510 exch2_mydNy(372)=510 exch2_nNeighbours(372)=4 exch2_neighbourId(1,372)=16 exch2_iLo(1,372)=0 exch2_iHi(1,372)=35 exch2_jLo(1,372)=103 exch2_jHi(1,372)=103 exch2_opposingSend(1,372)=6 exch2_pij(1,1,372)=0 exch2_pij(2,1,372)=-1 exch2_pij(3,1,372)=1 exch2_pij(4,1,372)=0 exch2_oi(1,372)=511 exch2_oj(1,372)=510 exch2_neighbourId(2,372)=357 exch2_iLo(2,372)=0 exch2_iHi(2,372)=35 exch2_jLo(2,372)=0 exch2_jHi(2,372)=0 exch2_opposingSend(2,372)=1 exch2_pij(1,2,372)=1 exch2_pij(2,2,372)=0 exch2_pij(3,2,372)=0 exch2_pij(4,2,372)=1 exch2_oi(2,372)=0 exch2_oj(2,372)=0 exch2_neighbourId(3,372)=373 exch2_iLo(3,372)=35 exch2_iHi(3,372)=35 exch2_jLo(3,372)=0 exch2_jHi(3,372)=103 exch2_opposingSend(3,372)=4 exch2_pij(1,3,372)=1 exch2_pij(2,3,372)=0 exch2_pij(3,3,372)=0 exch2_pij(4,3,372)=1 exch2_oi(3,372)=0 exch2_oj(3,372)=0 exch2_neighbourId(4,372)=371 exch2_iLo(4,372)=0 exch2_iHi(4,372)=0 exch2_jLo(4,372)=0 exch2_jHi(4,372)=103 exch2_opposingSend(4,372)=3 exch2_pij(1,4,372)=1 exch2_pij(2,4,372)=0 exch2_pij(3,4,372)=0 exch2_pij(4,4,372)=1 exch2_oi(4,372)=0 exch2_oj(4,372)=0 RETURN END SUBROUTINE W2_E2SETUP_373 C Topology for tile 373 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(373)=34 exch2_tNy(373)=102 exch2_tBasex(373)=408 exch2_tBasey(373)=408 exch2_txGlobalo(373)=2449 exch2_tyGlobalo(373)=409 exch2_isWedge(373)=0 exch2_isNedge(373)=1 exch2_isEedge(373)=0 exch2_isSedge(373)=0 exch2_myFace(373)=5 exch2_mydNx(373)=510 exch2_mydNy(373)=510 exch2_nNeighbours(373)=4 exch2_neighbourId(1,373)=1 exch2_iLo(1,373)=0 exch2_iHi(1,373)=35 exch2_jLo(1,373)=103 exch2_jHi(1,373)=103 exch2_opposingSend(1,373)=4 exch2_pij(1,1,373)=0 exch2_pij(2,1,373)=-1 exch2_pij(3,1,373)=1 exch2_pij(4,1,373)=0 exch2_oi(1,373)=511 exch2_oj(1,373)=510 exch2_neighbourId(2,373)=358 exch2_iLo(2,373)=0 exch2_iHi(2,373)=35 exch2_jLo(2,373)=0 exch2_jHi(2,373)=0 exch2_opposingSend(2,373)=1 exch2_pij(1,2,373)=1 exch2_pij(2,2,373)=0 exch2_pij(3,2,373)=0 exch2_pij(4,2,373)=1 exch2_oi(2,373)=0 exch2_oj(2,373)=0 exch2_neighbourId(3,373)=374 exch2_iLo(3,373)=35 exch2_iHi(3,373)=35 exch2_jLo(3,373)=0 exch2_jHi(3,373)=103 exch2_opposingSend(3,373)=4 exch2_pij(1,3,373)=1 exch2_pij(2,3,373)=0 exch2_pij(3,3,373)=0 exch2_pij(4,3,373)=1 exch2_oi(3,373)=0 exch2_oj(3,373)=0 exch2_neighbourId(4,373)=372 exch2_iLo(4,373)=0 exch2_iHi(4,373)=0 exch2_jLo(4,373)=0 exch2_jHi(4,373)=103 exch2_opposingSend(4,373)=3 exch2_pij(1,4,373)=1 exch2_pij(2,4,373)=0 exch2_pij(3,4,373)=0 exch2_pij(4,4,373)=1 exch2_oi(4,373)=0 exch2_oj(4,373)=0 RETURN END SUBROUTINE W2_E2SETUP_374 C Topology for tile 374 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(374)=34 exch2_tNy(374)=102 exch2_tBasex(374)=442 exch2_tBasey(374)=408 exch2_txGlobalo(374)=2483 exch2_tyGlobalo(374)=409 exch2_isWedge(374)=0 exch2_isNedge(374)=1 exch2_isEedge(374)=0 exch2_isSedge(374)=0 exch2_myFace(374)=5 exch2_mydNx(374)=510 exch2_mydNy(374)=510 exch2_nNeighbours(374)=4 exch2_neighbourId(1,374)=1 exch2_iLo(1,374)=0 exch2_iHi(1,374)=35 exch2_jLo(1,374)=103 exch2_jHi(1,374)=103 exch2_opposingSend(1,374)=5 exch2_pij(1,1,374)=0 exch2_pij(2,1,374)=-1 exch2_pij(3,1,374)=1 exch2_pij(4,1,374)=0 exch2_oi(1,374)=511 exch2_oj(1,374)=510 exch2_neighbourId(2,374)=359 exch2_iLo(2,374)=0 exch2_iHi(2,374)=35 exch2_jLo(2,374)=0 exch2_jHi(2,374)=0 exch2_opposingSend(2,374)=1 exch2_pij(1,2,374)=1 exch2_pij(2,2,374)=0 exch2_pij(3,2,374)=0 exch2_pij(4,2,374)=1 exch2_oi(2,374)=0 exch2_oj(2,374)=0 exch2_neighbourId(3,374)=375 exch2_iLo(3,374)=35 exch2_iHi(3,374)=35 exch2_jLo(3,374)=0 exch2_jHi(3,374)=103 exch2_opposingSend(3,374)=4 exch2_pij(1,3,374)=1 exch2_pij(2,3,374)=0 exch2_pij(3,3,374)=0 exch2_pij(4,3,374)=1 exch2_oi(3,374)=0 exch2_oj(3,374)=0 exch2_neighbourId(4,374)=373 exch2_iLo(4,374)=0 exch2_iHi(4,374)=0 exch2_jLo(4,374)=0 exch2_jHi(4,374)=103 exch2_opposingSend(4,374)=3 exch2_pij(1,4,374)=1 exch2_pij(2,4,374)=0 exch2_pij(3,4,374)=0 exch2_pij(4,4,374)=1 exch2_oi(4,374)=0 exch2_oj(4,374)=0 RETURN END SUBROUTINE W2_E2SETUP_375 C Topology for tile 375 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(375)=34 exch2_tNy(375)=102 exch2_tBasex(375)=476 exch2_tBasey(375)=408 exch2_txGlobalo(375)=2517 exch2_tyGlobalo(375)=409 exch2_isWedge(375)=0 exch2_isNedge(375)=1 exch2_isEedge(375)=1 exch2_isSedge(375)=0 exch2_myFace(375)=5 exch2_mydNx(375)=510 exch2_mydNy(375)=510 exch2_nNeighbours(375)=4 exch2_neighbourId(1,375)=1 exch2_iLo(1,375)=0 exch2_iHi(1,375)=35 exch2_jLo(1,375)=103 exch2_jHi(1,375)=103 exch2_opposingSend(1,375)=6 exch2_pij(1,1,375)=0 exch2_pij(2,1,375)=-1 exch2_pij(3,1,375)=1 exch2_pij(4,1,375)=0 exch2_oi(1,375)=511 exch2_oj(1,375)=510 exch2_neighbourId(2,375)=360 exch2_iLo(2,375)=0 exch2_iHi(2,375)=35 exch2_jLo(2,375)=0 exch2_jHi(2,375)=0 exch2_opposingSend(2,375)=1 exch2_pij(1,2,375)=1 exch2_pij(2,2,375)=0 exch2_pij(3,2,375)=0 exch2_pij(4,2,375)=1 exch2_oi(2,375)=0 exch2_oj(2,375)=0 exch2_neighbourId(3,375)=436 exch2_iLo(3,375)=35 exch2_iHi(3,375)=35 exch2_jLo(3,375)=0 exch2_jHi(3,375)=103 exch2_opposingSend(3,375)=4 exch2_pij(1,3,375)=1 exch2_pij(2,3,375)=0 exch2_pij(3,3,375)=0 exch2_pij(4,3,375)=1 exch2_oi(3,375)=510 exch2_oj(3,375)=0 exch2_neighbourId(4,375)=374 exch2_iLo(4,375)=0 exch2_iHi(4,375)=0 exch2_jLo(4,375)=0 exch2_jHi(4,375)=103 exch2_opposingSend(4,375)=3 exch2_pij(1,4,375)=1 exch2_pij(2,4,375)=0 exch2_pij(3,4,375)=0 exch2_pij(4,4,375)=1 exch2_oi(4,375)=0 exch2_oj(4,375)=0 RETURN END SUBROUTINE W2_E2SETUP_376 C Topology for tile 376 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(376)=34 exch2_tNy(376)=102 exch2_tBasex(376)=0 exch2_tBasey(376)=0 exch2_txGlobalo(376)=2551 exch2_tyGlobalo(376)=1 exch2_isWedge(376)=1 exch2_isNedge(376)=0 exch2_isEedge(376)=0 exch2_isSedge(376)=1 exch2_myFace(376)=6 exch2_mydNx(376)=510 exch2_mydNy(376)=510 exch2_nNeighbours(376)=4 exch2_neighbourId(1,376)=391 exch2_iLo(1,376)=0 exch2_iHi(1,376)=35 exch2_jLo(1,376)=103 exch2_jHi(1,376)=103 exch2_opposingSend(1,376)=2 exch2_pij(1,1,376)=1 exch2_pij(2,1,376)=0 exch2_pij(3,1,376)=0 exch2_pij(4,1,376)=1 exch2_oi(1,376)=0 exch2_oj(1,376)=0 exch2_neighbourId(2,376)=300 exch2_iLo(2,376)=0 exch2_iHi(2,376)=35 exch2_jLo(2,376)=0 exch2_jHi(2,376)=0 exch2_opposingSend(2,376)=3 exch2_pij(1,2,376)=0 exch2_pij(2,2,376)=-1 exch2_pij(3,2,376)=1 exch2_pij(4,2,376)=0 exch2_oi(2,376)=511 exch2_oj(2,376)=-510 exch2_neighbourId(3,376)=377 exch2_iLo(3,376)=35 exch2_iHi(3,376)=35 exch2_jLo(3,376)=0 exch2_jHi(3,376)=103 exch2_opposingSend(3,376)=4 exch2_pij(1,3,376)=1 exch2_pij(2,3,376)=0 exch2_pij(3,3,376)=0 exch2_pij(4,3,376)=1 exch2_oi(3,376)=0 exch2_oj(3,376)=0 exch2_neighbourId(4,376)=315 exch2_iLo(4,376)=0 exch2_iHi(4,376)=0 exch2_jLo(4,376)=0 exch2_jHi(4,376)=103 exch2_opposingSend(4,376)=3 exch2_pij(1,4,376)=1 exch2_pij(2,4,376)=0 exch2_pij(3,4,376)=0 exch2_pij(4,4,376)=1 exch2_oi(4,376)=-510 exch2_oj(4,376)=0 RETURN END SUBROUTINE W2_E2SETUP_377 C Topology for tile 377 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(377)=34 exch2_tNy(377)=102 exch2_tBasex(377)=34 exch2_tBasey(377)=0 exch2_txGlobalo(377)=2585 exch2_tyGlobalo(377)=1 exch2_isWedge(377)=0 exch2_isNedge(377)=0 exch2_isEedge(377)=0 exch2_isSedge(377)=1 exch2_myFace(377)=6 exch2_mydNx(377)=510 exch2_mydNy(377)=510 exch2_nNeighbours(377)=4 exch2_neighbourId(1,377)=392 exch2_iLo(1,377)=0 exch2_iHi(1,377)=35 exch2_jLo(1,377)=103 exch2_jHi(1,377)=103 exch2_opposingSend(1,377)=2 exch2_pij(1,1,377)=1 exch2_pij(2,1,377)=0 exch2_pij(3,1,377)=0 exch2_pij(4,1,377)=1 exch2_oi(1,377)=0 exch2_oj(1,377)=0 exch2_neighbourId(2,377)=300 exch2_iLo(2,377)=0 exch2_iHi(2,377)=35 exch2_jLo(2,377)=0 exch2_jHi(2,377)=0 exch2_opposingSend(2,377)=4 exch2_pij(1,2,377)=0 exch2_pij(2,2,377)=-1 exch2_pij(3,2,377)=1 exch2_pij(4,2,377)=0 exch2_oi(2,377)=511 exch2_oj(2,377)=-510 exch2_neighbourId(3,377)=378 exch2_iLo(3,377)=35 exch2_iHi(3,377)=35 exch2_jLo(3,377)=0 exch2_jHi(3,377)=103 exch2_opposingSend(3,377)=4 exch2_pij(1,3,377)=1 exch2_pij(2,3,377)=0 exch2_pij(3,3,377)=0 exch2_pij(4,3,377)=1 exch2_oi(3,377)=0 exch2_oj(3,377)=0 exch2_neighbourId(4,377)=376 exch2_iLo(4,377)=0 exch2_iHi(4,377)=0 exch2_jLo(4,377)=0 exch2_jHi(4,377)=103 exch2_opposingSend(4,377)=3 exch2_pij(1,4,377)=1 exch2_pij(2,4,377)=0 exch2_pij(3,4,377)=0 exch2_pij(4,4,377)=1 exch2_oi(4,377)=0 exch2_oj(4,377)=0 RETURN END SUBROUTINE W2_E2SETUP_378 C Topology for tile 378 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(378)=34 exch2_tNy(378)=102 exch2_tBasex(378)=68 exch2_tBasey(378)=0 exch2_txGlobalo(378)=2619 exch2_tyGlobalo(378)=1 exch2_isWedge(378)=0 exch2_isNedge(378)=0 exch2_isEedge(378)=0 exch2_isSedge(378)=1 exch2_myFace(378)=6 exch2_mydNx(378)=510 exch2_mydNy(378)=510 exch2_nNeighbours(378)=4 exch2_neighbourId(1,378)=393 exch2_iLo(1,378)=0 exch2_iHi(1,378)=35 exch2_jLo(1,378)=103 exch2_jHi(1,378)=103 exch2_opposingSend(1,378)=2 exch2_pij(1,1,378)=1 exch2_pij(2,1,378)=0 exch2_pij(3,1,378)=0 exch2_pij(4,1,378)=1 exch2_oi(1,378)=0 exch2_oj(1,378)=0 exch2_neighbourId(2,378)=300 exch2_iLo(2,378)=0 exch2_iHi(2,378)=35 exch2_jLo(2,378)=0 exch2_jHi(2,378)=0 exch2_opposingSend(2,378)=5 exch2_pij(1,2,378)=0 exch2_pij(2,2,378)=-1 exch2_pij(3,2,378)=1 exch2_pij(4,2,378)=0 exch2_oi(2,378)=511 exch2_oj(2,378)=-510 exch2_neighbourId(3,378)=379 exch2_iLo(3,378)=35 exch2_iHi(3,378)=35 exch2_jLo(3,378)=0 exch2_jHi(3,378)=103 exch2_opposingSend(3,378)=4 exch2_pij(1,3,378)=1 exch2_pij(2,3,378)=0 exch2_pij(3,3,378)=0 exch2_pij(4,3,378)=1 exch2_oi(3,378)=0 exch2_oj(3,378)=0 exch2_neighbourId(4,378)=377 exch2_iLo(4,378)=0 exch2_iHi(4,378)=0 exch2_jLo(4,378)=0 exch2_jHi(4,378)=103 exch2_opposingSend(4,378)=3 exch2_pij(1,4,378)=1 exch2_pij(2,4,378)=0 exch2_pij(3,4,378)=0 exch2_pij(4,4,378)=1 exch2_oi(4,378)=0 exch2_oj(4,378)=0 RETURN END SUBROUTINE W2_E2SETUP_379 C Topology for tile 379 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(379)=34 exch2_tNy(379)=102 exch2_tBasex(379)=102 exch2_tBasey(379)=0 exch2_txGlobalo(379)=2653 exch2_tyGlobalo(379)=1 exch2_isWedge(379)=0 exch2_isNedge(379)=0 exch2_isEedge(379)=0 exch2_isSedge(379)=1 exch2_myFace(379)=6 exch2_mydNx(379)=510 exch2_mydNy(379)=510 exch2_nNeighbours(379)=4 exch2_neighbourId(1,379)=394 exch2_iLo(1,379)=0 exch2_iHi(1,379)=35 exch2_jLo(1,379)=103 exch2_jHi(1,379)=103 exch2_opposingSend(1,379)=2 exch2_pij(1,1,379)=1 exch2_pij(2,1,379)=0 exch2_pij(3,1,379)=0 exch2_pij(4,1,379)=1 exch2_oi(1,379)=0 exch2_oj(1,379)=0 exch2_neighbourId(2,379)=285 exch2_iLo(2,379)=0 exch2_iHi(2,379)=35 exch2_jLo(2,379)=0 exch2_jHi(2,379)=0 exch2_opposingSend(2,379)=3 exch2_pij(1,2,379)=0 exch2_pij(2,2,379)=-1 exch2_pij(3,2,379)=1 exch2_pij(4,2,379)=0 exch2_oi(2,379)=511 exch2_oj(2,379)=-510 exch2_neighbourId(3,379)=380 exch2_iLo(3,379)=35 exch2_iHi(3,379)=35 exch2_jLo(3,379)=0 exch2_jHi(3,379)=103 exch2_opposingSend(3,379)=4 exch2_pij(1,3,379)=1 exch2_pij(2,3,379)=0 exch2_pij(3,3,379)=0 exch2_pij(4,3,379)=1 exch2_oi(3,379)=0 exch2_oj(3,379)=0 exch2_neighbourId(4,379)=378 exch2_iLo(4,379)=0 exch2_iHi(4,379)=0 exch2_jLo(4,379)=0 exch2_jHi(4,379)=103 exch2_opposingSend(4,379)=3 exch2_pij(1,4,379)=1 exch2_pij(2,4,379)=0 exch2_pij(3,4,379)=0 exch2_pij(4,4,379)=1 exch2_oi(4,379)=0 exch2_oj(4,379)=0 RETURN END SUBROUTINE W2_E2SETUP_380 C Topology for tile 380 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(380)=34 exch2_tNy(380)=102 exch2_tBasex(380)=136 exch2_tBasey(380)=0 exch2_txGlobalo(380)=2687 exch2_tyGlobalo(380)=1 exch2_isWedge(380)=0 exch2_isNedge(380)=0 exch2_isEedge(380)=0 exch2_isSedge(380)=1 exch2_myFace(380)=6 exch2_mydNx(380)=510 exch2_mydNy(380)=510 exch2_nNeighbours(380)=4 exch2_neighbourId(1,380)=395 exch2_iLo(1,380)=0 exch2_iHi(1,380)=35 exch2_jLo(1,380)=103 exch2_jHi(1,380)=103 exch2_opposingSend(1,380)=2 exch2_pij(1,1,380)=1 exch2_pij(2,1,380)=0 exch2_pij(3,1,380)=0 exch2_pij(4,1,380)=1 exch2_oi(1,380)=0 exch2_oj(1,380)=0 exch2_neighbourId(2,380)=285 exch2_iLo(2,380)=0 exch2_iHi(2,380)=35 exch2_jLo(2,380)=0 exch2_jHi(2,380)=0 exch2_opposingSend(2,380)=4 exch2_pij(1,2,380)=0 exch2_pij(2,2,380)=-1 exch2_pij(3,2,380)=1 exch2_pij(4,2,380)=0 exch2_oi(2,380)=511 exch2_oj(2,380)=-510 exch2_neighbourId(3,380)=381 exch2_iLo(3,380)=35 exch2_iHi(3,380)=35 exch2_jLo(3,380)=0 exch2_jHi(3,380)=103 exch2_opposingSend(3,380)=4 exch2_pij(1,3,380)=1 exch2_pij(2,3,380)=0 exch2_pij(3,3,380)=0 exch2_pij(4,3,380)=1 exch2_oi(3,380)=0 exch2_oj(3,380)=0 exch2_neighbourId(4,380)=379 exch2_iLo(4,380)=0 exch2_iHi(4,380)=0 exch2_jLo(4,380)=0 exch2_jHi(4,380)=103 exch2_opposingSend(4,380)=3 exch2_pij(1,4,380)=1 exch2_pij(2,4,380)=0 exch2_pij(3,4,380)=0 exch2_pij(4,4,380)=1 exch2_oi(4,380)=0 exch2_oj(4,380)=0 RETURN END SUBROUTINE W2_E2SETUP_381 C Topology for tile 381 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(381)=34 exch2_tNy(381)=102 exch2_tBasex(381)=170 exch2_tBasey(381)=0 exch2_txGlobalo(381)=2721 exch2_tyGlobalo(381)=1 exch2_isWedge(381)=0 exch2_isNedge(381)=0 exch2_isEedge(381)=0 exch2_isSedge(381)=1 exch2_myFace(381)=6 exch2_mydNx(381)=510 exch2_mydNy(381)=510 exch2_nNeighbours(381)=4 exch2_neighbourId(1,381)=396 exch2_iLo(1,381)=0 exch2_iHi(1,381)=35 exch2_jLo(1,381)=103 exch2_jHi(1,381)=103 exch2_opposingSend(1,381)=2 exch2_pij(1,1,381)=1 exch2_pij(2,1,381)=0 exch2_pij(3,1,381)=0 exch2_pij(4,1,381)=1 exch2_oi(1,381)=0 exch2_oj(1,381)=0 exch2_neighbourId(2,381)=285 exch2_iLo(2,381)=0 exch2_iHi(2,381)=35 exch2_jLo(2,381)=0 exch2_jHi(2,381)=0 exch2_opposingSend(2,381)=5 exch2_pij(1,2,381)=0 exch2_pij(2,2,381)=-1 exch2_pij(3,2,381)=1 exch2_pij(4,2,381)=0 exch2_oi(2,381)=511 exch2_oj(2,381)=-510 exch2_neighbourId(3,381)=382 exch2_iLo(3,381)=35 exch2_iHi(3,381)=35 exch2_jLo(3,381)=0 exch2_jHi(3,381)=103 exch2_opposingSend(3,381)=4 exch2_pij(1,3,381)=1 exch2_pij(2,3,381)=0 exch2_pij(3,3,381)=0 exch2_pij(4,3,381)=1 exch2_oi(3,381)=0 exch2_oj(3,381)=0 exch2_neighbourId(4,381)=380 exch2_iLo(4,381)=0 exch2_iHi(4,381)=0 exch2_jLo(4,381)=0 exch2_jHi(4,381)=103 exch2_opposingSend(4,381)=3 exch2_pij(1,4,381)=1 exch2_pij(2,4,381)=0 exch2_pij(3,4,381)=0 exch2_pij(4,4,381)=1 exch2_oi(4,381)=0 exch2_oj(4,381)=0 RETURN END SUBROUTINE W2_E2SETUP_382 C Topology for tile 382 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(382)=34 exch2_tNy(382)=102 exch2_tBasex(382)=204 exch2_tBasey(382)=0 exch2_txGlobalo(382)=2755 exch2_tyGlobalo(382)=1 exch2_isWedge(382)=0 exch2_isNedge(382)=0 exch2_isEedge(382)=0 exch2_isSedge(382)=1 exch2_myFace(382)=6 exch2_mydNx(382)=510 exch2_mydNy(382)=510 exch2_nNeighbours(382)=4 exch2_neighbourId(1,382)=397 exch2_iLo(1,382)=0 exch2_iHi(1,382)=35 exch2_jLo(1,382)=103 exch2_jHi(1,382)=103 exch2_opposingSend(1,382)=2 exch2_pij(1,1,382)=1 exch2_pij(2,1,382)=0 exch2_pij(3,1,382)=0 exch2_pij(4,1,382)=1 exch2_oi(1,382)=0 exch2_oj(1,382)=0 exch2_neighbourId(2,382)=270 exch2_iLo(2,382)=0 exch2_iHi(2,382)=35 exch2_jLo(2,382)=0 exch2_jHi(2,382)=0 exch2_opposingSend(2,382)=3 exch2_pij(1,2,382)=0 exch2_pij(2,2,382)=-1 exch2_pij(3,2,382)=1 exch2_pij(4,2,382)=0 exch2_oi(2,382)=511 exch2_oj(2,382)=-510 exch2_neighbourId(3,382)=383 exch2_iLo(3,382)=35 exch2_iHi(3,382)=35 exch2_jLo(3,382)=0 exch2_jHi(3,382)=103 exch2_opposingSend(3,382)=4 exch2_pij(1,3,382)=1 exch2_pij(2,3,382)=0 exch2_pij(3,3,382)=0 exch2_pij(4,3,382)=1 exch2_oi(3,382)=0 exch2_oj(3,382)=0 exch2_neighbourId(4,382)=381 exch2_iLo(4,382)=0 exch2_iHi(4,382)=0 exch2_jLo(4,382)=0 exch2_jHi(4,382)=103 exch2_opposingSend(4,382)=3 exch2_pij(1,4,382)=1 exch2_pij(2,4,382)=0 exch2_pij(3,4,382)=0 exch2_pij(4,4,382)=1 exch2_oi(4,382)=0 exch2_oj(4,382)=0 RETURN END SUBROUTINE W2_E2SETUP_383 C Topology for tile 383 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(383)=34 exch2_tNy(383)=102 exch2_tBasex(383)=238 exch2_tBasey(383)=0 exch2_txGlobalo(383)=2789 exch2_tyGlobalo(383)=1 exch2_isWedge(383)=0 exch2_isNedge(383)=0 exch2_isEedge(383)=0 exch2_isSedge(383)=1 exch2_myFace(383)=6 exch2_mydNx(383)=510 exch2_mydNy(383)=510 exch2_nNeighbours(383)=4 exch2_neighbourId(1,383)=398 exch2_iLo(1,383)=0 exch2_iHi(1,383)=35 exch2_jLo(1,383)=103 exch2_jHi(1,383)=103 exch2_opposingSend(1,383)=2 exch2_pij(1,1,383)=1 exch2_pij(2,1,383)=0 exch2_pij(3,1,383)=0 exch2_pij(4,1,383)=1 exch2_oi(1,383)=0 exch2_oj(1,383)=0 exch2_neighbourId(2,383)=270 exch2_iLo(2,383)=0 exch2_iHi(2,383)=35 exch2_jLo(2,383)=0 exch2_jHi(2,383)=0 exch2_opposingSend(2,383)=4 exch2_pij(1,2,383)=0 exch2_pij(2,2,383)=-1 exch2_pij(3,2,383)=1 exch2_pij(4,2,383)=0 exch2_oi(2,383)=511 exch2_oj(2,383)=-510 exch2_neighbourId(3,383)=384 exch2_iLo(3,383)=35 exch2_iHi(3,383)=35 exch2_jLo(3,383)=0 exch2_jHi(3,383)=103 exch2_opposingSend(3,383)=4 exch2_pij(1,3,383)=1 exch2_pij(2,3,383)=0 exch2_pij(3,3,383)=0 exch2_pij(4,3,383)=1 exch2_oi(3,383)=0 exch2_oj(3,383)=0 exch2_neighbourId(4,383)=382 exch2_iLo(4,383)=0 exch2_iHi(4,383)=0 exch2_jLo(4,383)=0 exch2_jHi(4,383)=103 exch2_opposingSend(4,383)=3 exch2_pij(1,4,383)=1 exch2_pij(2,4,383)=0 exch2_pij(3,4,383)=0 exch2_pij(4,4,383)=1 exch2_oi(4,383)=0 exch2_oj(4,383)=0 RETURN END SUBROUTINE W2_E2SETUP_384 C Topology for tile 384 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(384)=34 exch2_tNy(384)=102 exch2_tBasex(384)=272 exch2_tBasey(384)=0 exch2_txGlobalo(384)=2823 exch2_tyGlobalo(384)=1 exch2_isWedge(384)=0 exch2_isNedge(384)=0 exch2_isEedge(384)=0 exch2_isSedge(384)=1 exch2_myFace(384)=6 exch2_mydNx(384)=510 exch2_mydNy(384)=510 exch2_nNeighbours(384)=4 exch2_neighbourId(1,384)=399 exch2_iLo(1,384)=0 exch2_iHi(1,384)=35 exch2_jLo(1,384)=103 exch2_jHi(1,384)=103 exch2_opposingSend(1,384)=2 exch2_pij(1,1,384)=1 exch2_pij(2,1,384)=0 exch2_pij(3,1,384)=0 exch2_pij(4,1,384)=1 exch2_oi(1,384)=0 exch2_oj(1,384)=0 exch2_neighbourId(2,384)=270 exch2_iLo(2,384)=0 exch2_iHi(2,384)=35 exch2_jLo(2,384)=0 exch2_jHi(2,384)=0 exch2_opposingSend(2,384)=5 exch2_pij(1,2,384)=0 exch2_pij(2,2,384)=-1 exch2_pij(3,2,384)=1 exch2_pij(4,2,384)=0 exch2_oi(2,384)=511 exch2_oj(2,384)=-510 exch2_neighbourId(3,384)=385 exch2_iLo(3,384)=35 exch2_iHi(3,384)=35 exch2_jLo(3,384)=0 exch2_jHi(3,384)=103 exch2_opposingSend(3,384)=4 exch2_pij(1,3,384)=1 exch2_pij(2,3,384)=0 exch2_pij(3,3,384)=0 exch2_pij(4,3,384)=1 exch2_oi(3,384)=0 exch2_oj(3,384)=0 exch2_neighbourId(4,384)=383 exch2_iLo(4,384)=0 exch2_iHi(4,384)=0 exch2_jLo(4,384)=0 exch2_jHi(4,384)=103 exch2_opposingSend(4,384)=3 exch2_pij(1,4,384)=1 exch2_pij(2,4,384)=0 exch2_pij(3,4,384)=0 exch2_pij(4,4,384)=1 exch2_oi(4,384)=0 exch2_oj(4,384)=0 RETURN END SUBROUTINE W2_E2SETUP_385 C Topology for tile 385 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(385)=34 exch2_tNy(385)=102 exch2_tBasex(385)=306 exch2_tBasey(385)=0 exch2_txGlobalo(385)=2857 exch2_tyGlobalo(385)=1 exch2_isWedge(385)=0 exch2_isNedge(385)=0 exch2_isEedge(385)=0 exch2_isSedge(385)=1 exch2_myFace(385)=6 exch2_mydNx(385)=510 exch2_mydNy(385)=510 exch2_nNeighbours(385)=4 exch2_neighbourId(1,385)=400 exch2_iLo(1,385)=0 exch2_iHi(1,385)=35 exch2_jLo(1,385)=103 exch2_jHi(1,385)=103 exch2_opposingSend(1,385)=2 exch2_pij(1,1,385)=1 exch2_pij(2,1,385)=0 exch2_pij(3,1,385)=0 exch2_pij(4,1,385)=1 exch2_oi(1,385)=0 exch2_oj(1,385)=0 exch2_neighbourId(2,385)=255 exch2_iLo(2,385)=0 exch2_iHi(2,385)=35 exch2_jLo(2,385)=0 exch2_jHi(2,385)=0 exch2_opposingSend(2,385)=3 exch2_pij(1,2,385)=0 exch2_pij(2,2,385)=-1 exch2_pij(3,2,385)=1 exch2_pij(4,2,385)=0 exch2_oi(2,385)=511 exch2_oj(2,385)=-510 exch2_neighbourId(3,385)=386 exch2_iLo(3,385)=35 exch2_iHi(3,385)=35 exch2_jLo(3,385)=0 exch2_jHi(3,385)=103 exch2_opposingSend(3,385)=4 exch2_pij(1,3,385)=1 exch2_pij(2,3,385)=0 exch2_pij(3,3,385)=0 exch2_pij(4,3,385)=1 exch2_oi(3,385)=0 exch2_oj(3,385)=0 exch2_neighbourId(4,385)=384 exch2_iLo(4,385)=0 exch2_iHi(4,385)=0 exch2_jLo(4,385)=0 exch2_jHi(4,385)=103 exch2_opposingSend(4,385)=3 exch2_pij(1,4,385)=1 exch2_pij(2,4,385)=0 exch2_pij(3,4,385)=0 exch2_pij(4,4,385)=1 exch2_oi(4,385)=0 exch2_oj(4,385)=0 RETURN END SUBROUTINE W2_E2SETUP_386 C Topology for tile 386 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(386)=34 exch2_tNy(386)=102 exch2_tBasex(386)=340 exch2_tBasey(386)=0 exch2_txGlobalo(386)=2891 exch2_tyGlobalo(386)=1 exch2_isWedge(386)=0 exch2_isNedge(386)=0 exch2_isEedge(386)=0 exch2_isSedge(386)=1 exch2_myFace(386)=6 exch2_mydNx(386)=510 exch2_mydNy(386)=510 exch2_nNeighbours(386)=4 exch2_neighbourId(1,386)=401 exch2_iLo(1,386)=0 exch2_iHi(1,386)=35 exch2_jLo(1,386)=103 exch2_jHi(1,386)=103 exch2_opposingSend(1,386)=2 exch2_pij(1,1,386)=1 exch2_pij(2,1,386)=0 exch2_pij(3,1,386)=0 exch2_pij(4,1,386)=1 exch2_oi(1,386)=0 exch2_oj(1,386)=0 exch2_neighbourId(2,386)=255 exch2_iLo(2,386)=0 exch2_iHi(2,386)=35 exch2_jLo(2,386)=0 exch2_jHi(2,386)=0 exch2_opposingSend(2,386)=4 exch2_pij(1,2,386)=0 exch2_pij(2,2,386)=-1 exch2_pij(3,2,386)=1 exch2_pij(4,2,386)=0 exch2_oi(2,386)=511 exch2_oj(2,386)=-510 exch2_neighbourId(3,386)=387 exch2_iLo(3,386)=35 exch2_iHi(3,386)=35 exch2_jLo(3,386)=0 exch2_jHi(3,386)=103 exch2_opposingSend(3,386)=4 exch2_pij(1,3,386)=1 exch2_pij(2,3,386)=0 exch2_pij(3,3,386)=0 exch2_pij(4,3,386)=1 exch2_oi(3,386)=0 exch2_oj(3,386)=0 exch2_neighbourId(4,386)=385 exch2_iLo(4,386)=0 exch2_iHi(4,386)=0 exch2_jLo(4,386)=0 exch2_jHi(4,386)=103 exch2_opposingSend(4,386)=3 exch2_pij(1,4,386)=1 exch2_pij(2,4,386)=0 exch2_pij(3,4,386)=0 exch2_pij(4,4,386)=1 exch2_oi(4,386)=0 exch2_oj(4,386)=0 RETURN END SUBROUTINE W2_E2SETUP_387 C Topology for tile 387 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(387)=34 exch2_tNy(387)=102 exch2_tBasex(387)=374 exch2_tBasey(387)=0 exch2_txGlobalo(387)=2925 exch2_tyGlobalo(387)=1 exch2_isWedge(387)=0 exch2_isNedge(387)=0 exch2_isEedge(387)=0 exch2_isSedge(387)=1 exch2_myFace(387)=6 exch2_mydNx(387)=510 exch2_mydNy(387)=510 exch2_nNeighbours(387)=4 exch2_neighbourId(1,387)=402 exch2_iLo(1,387)=0 exch2_iHi(1,387)=35 exch2_jLo(1,387)=103 exch2_jHi(1,387)=103 exch2_opposingSend(1,387)=2 exch2_pij(1,1,387)=1 exch2_pij(2,1,387)=0 exch2_pij(3,1,387)=0 exch2_pij(4,1,387)=1 exch2_oi(1,387)=0 exch2_oj(1,387)=0 exch2_neighbourId(2,387)=255 exch2_iLo(2,387)=0 exch2_iHi(2,387)=35 exch2_jLo(2,387)=0 exch2_jHi(2,387)=0 exch2_opposingSend(2,387)=5 exch2_pij(1,2,387)=0 exch2_pij(2,2,387)=-1 exch2_pij(3,2,387)=1 exch2_pij(4,2,387)=0 exch2_oi(2,387)=511 exch2_oj(2,387)=-510 exch2_neighbourId(3,387)=388 exch2_iLo(3,387)=35 exch2_iHi(3,387)=35 exch2_jLo(3,387)=0 exch2_jHi(3,387)=103 exch2_opposingSend(3,387)=4 exch2_pij(1,3,387)=1 exch2_pij(2,3,387)=0 exch2_pij(3,3,387)=0 exch2_pij(4,3,387)=1 exch2_oi(3,387)=0 exch2_oj(3,387)=0 exch2_neighbourId(4,387)=386 exch2_iLo(4,387)=0 exch2_iHi(4,387)=0 exch2_jLo(4,387)=0 exch2_jHi(4,387)=103 exch2_opposingSend(4,387)=3 exch2_pij(1,4,387)=1 exch2_pij(2,4,387)=0 exch2_pij(3,4,387)=0 exch2_pij(4,4,387)=1 exch2_oi(4,387)=0 exch2_oj(4,387)=0 RETURN END SUBROUTINE W2_E2SETUP_388 C Topology for tile 388 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(388)=34 exch2_tNy(388)=102 exch2_tBasex(388)=408 exch2_tBasey(388)=0 exch2_txGlobalo(388)=2959 exch2_tyGlobalo(388)=1 exch2_isWedge(388)=0 exch2_isNedge(388)=0 exch2_isEedge(388)=0 exch2_isSedge(388)=1 exch2_myFace(388)=6 exch2_mydNx(388)=510 exch2_mydNy(388)=510 exch2_nNeighbours(388)=4 exch2_neighbourId(1,388)=403 exch2_iLo(1,388)=0 exch2_iHi(1,388)=35 exch2_jLo(1,388)=103 exch2_jHi(1,388)=103 exch2_opposingSend(1,388)=2 exch2_pij(1,1,388)=1 exch2_pij(2,1,388)=0 exch2_pij(3,1,388)=0 exch2_pij(4,1,388)=1 exch2_oi(1,388)=0 exch2_oj(1,388)=0 exch2_neighbourId(2,388)=240 exch2_iLo(2,388)=0 exch2_iHi(2,388)=35 exch2_jLo(2,388)=0 exch2_jHi(2,388)=0 exch2_opposingSend(2,388)=3 exch2_pij(1,2,388)=0 exch2_pij(2,2,388)=-1 exch2_pij(3,2,388)=1 exch2_pij(4,2,388)=0 exch2_oi(2,388)=511 exch2_oj(2,388)=-510 exch2_neighbourId(3,388)=389 exch2_iLo(3,388)=35 exch2_iHi(3,388)=35 exch2_jLo(3,388)=0 exch2_jHi(3,388)=103 exch2_opposingSend(3,388)=4 exch2_pij(1,3,388)=1 exch2_pij(2,3,388)=0 exch2_pij(3,3,388)=0 exch2_pij(4,3,388)=1 exch2_oi(3,388)=0 exch2_oj(3,388)=0 exch2_neighbourId(4,388)=387 exch2_iLo(4,388)=0 exch2_iHi(4,388)=0 exch2_jLo(4,388)=0 exch2_jHi(4,388)=103 exch2_opposingSend(4,388)=3 exch2_pij(1,4,388)=1 exch2_pij(2,4,388)=0 exch2_pij(3,4,388)=0 exch2_pij(4,4,388)=1 exch2_oi(4,388)=0 exch2_oj(4,388)=0 RETURN END SUBROUTINE W2_E2SETUP_389 C Topology for tile 389 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(389)=34 exch2_tNy(389)=102 exch2_tBasex(389)=442 exch2_tBasey(389)=0 exch2_txGlobalo(389)=2993 exch2_tyGlobalo(389)=1 exch2_isWedge(389)=0 exch2_isNedge(389)=0 exch2_isEedge(389)=0 exch2_isSedge(389)=1 exch2_myFace(389)=6 exch2_mydNx(389)=510 exch2_mydNy(389)=510 exch2_nNeighbours(389)=4 exch2_neighbourId(1,389)=404 exch2_iLo(1,389)=0 exch2_iHi(1,389)=35 exch2_jLo(1,389)=103 exch2_jHi(1,389)=103 exch2_opposingSend(1,389)=2 exch2_pij(1,1,389)=1 exch2_pij(2,1,389)=0 exch2_pij(3,1,389)=0 exch2_pij(4,1,389)=1 exch2_oi(1,389)=0 exch2_oj(1,389)=0 exch2_neighbourId(2,389)=240 exch2_iLo(2,389)=0 exch2_iHi(2,389)=35 exch2_jLo(2,389)=0 exch2_jHi(2,389)=0 exch2_opposingSend(2,389)=4 exch2_pij(1,2,389)=0 exch2_pij(2,2,389)=-1 exch2_pij(3,2,389)=1 exch2_pij(4,2,389)=0 exch2_oi(2,389)=511 exch2_oj(2,389)=-510 exch2_neighbourId(3,389)=390 exch2_iLo(3,389)=35 exch2_iHi(3,389)=35 exch2_jLo(3,389)=0 exch2_jHi(3,389)=103 exch2_opposingSend(3,389)=6 exch2_pij(1,3,389)=1 exch2_pij(2,3,389)=0 exch2_pij(3,3,389)=0 exch2_pij(4,3,389)=1 exch2_oi(3,389)=0 exch2_oj(3,389)=0 exch2_neighbourId(4,389)=388 exch2_iLo(4,389)=0 exch2_iHi(4,389)=0 exch2_jLo(4,389)=0 exch2_jHi(4,389)=103 exch2_opposingSend(4,389)=3 exch2_pij(1,4,389)=1 exch2_pij(2,4,389)=0 exch2_pij(3,4,389)=0 exch2_pij(4,4,389)=1 exch2_oi(4,389)=0 exch2_oj(4,389)=0 RETURN END SUBROUTINE W2_E2SETUP_390 C Topology for tile 390 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(390)=34 exch2_tNy(390)=102 exch2_tBasex(390)=476 exch2_tBasey(390)=0 exch2_txGlobalo(390)=3027 exch2_tyGlobalo(390)=1 exch2_isWedge(390)=0 exch2_isNedge(390)=0 exch2_isEedge(390)=1 exch2_isSedge(390)=1 exch2_myFace(390)=6 exch2_mydNx(390)=510 exch2_mydNy(390)=510 exch2_nNeighbours(390)=6 exch2_neighbourId(1,390)=405 exch2_iLo(1,390)=0 exch2_iHi(1,390)=35 exch2_jLo(1,390)=103 exch2_jHi(1,390)=103 exch2_opposingSend(1,390)=2 exch2_pij(1,1,390)=1 exch2_pij(2,1,390)=0 exch2_pij(3,1,390)=0 exch2_pij(4,1,390)=1 exch2_oi(1,390)=0 exch2_oj(1,390)=0 exch2_neighbourId(2,390)=240 exch2_iLo(2,390)=0 exch2_iHi(2,390)=35 exch2_jLo(2,390)=0 exch2_jHi(2,390)=0 exch2_opposingSend(2,390)=5 exch2_pij(1,2,390)=0 exch2_pij(2,2,390)=-1 exch2_pij(3,2,390)=1 exch2_pij(4,2,390)=0 exch2_oi(2,390)=511 exch2_oj(2,390)=-510 exch2_neighbourId(3,390)=88 exch2_iLo(3,390)=35 exch2_iHi(3,390)=35 exch2_jLo(3,390)=68 exch2_jHi(3,390)=103 exch2_opposingSend(3,390)=2 exch2_pij(1,3,390)=0 exch2_pij(2,3,390)=1 exch2_pij(3,3,390)=-1 exch2_pij(4,3,390)=0 exch2_oi(3,390)=510 exch2_oj(3,390)=511 exch2_neighbourId(4,390)=89 exch2_iLo(4,390)=35 exch2_iHi(4,390)=35 exch2_jLo(4,390)=34 exch2_jHi(4,390)=69 exch2_opposingSend(4,390)=2 exch2_pij(1,4,390)=0 exch2_pij(2,4,390)=1 exch2_pij(3,4,390)=-1 exch2_pij(4,4,390)=0 exch2_oi(4,390)=510 exch2_oj(4,390)=511 exch2_neighbourId(5,390)=90 exch2_iLo(5,390)=35 exch2_iHi(5,390)=35 exch2_jLo(5,390)=0 exch2_jHi(5,390)=35 exch2_opposingSend(5,390)=2 exch2_pij(1,5,390)=0 exch2_pij(2,5,390)=1 exch2_pij(3,5,390)=-1 exch2_pij(4,5,390)=0 exch2_oi(5,390)=510 exch2_oj(5,390)=511 exch2_neighbourId(6,390)=389 exch2_iLo(6,390)=0 exch2_iHi(6,390)=0 exch2_jLo(6,390)=0 exch2_jHi(6,390)=103 exch2_opposingSend(6,390)=3 exch2_pij(1,6,390)=1 exch2_pij(2,6,390)=0 exch2_pij(3,6,390)=0 exch2_pij(4,6,390)=1 exch2_oi(6,390)=0 exch2_oj(6,390)=0 RETURN END SUBROUTINE W2_E2SETUP_391 C Topology for tile 391 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(391)=34 exch2_tNy(391)=102 exch2_tBasex(391)=0 exch2_tBasey(391)=102 exch2_txGlobalo(391)=2551 exch2_tyGlobalo(391)=103 exch2_isWedge(391)=1 exch2_isNedge(391)=0 exch2_isEedge(391)=0 exch2_isSedge(391)=0 exch2_myFace(391)=6 exch2_mydNx(391)=510 exch2_mydNy(391)=510 exch2_nNeighbours(391)=4 exch2_neighbourId(1,391)=406 exch2_iLo(1,391)=0 exch2_iHi(1,391)=35 exch2_jLo(1,391)=103 exch2_jHi(1,391)=103 exch2_opposingSend(1,391)=2 exch2_pij(1,1,391)=1 exch2_pij(2,1,391)=0 exch2_pij(3,1,391)=0 exch2_pij(4,1,391)=1 exch2_oi(1,391)=0 exch2_oj(1,391)=0 exch2_neighbourId(2,391)=376 exch2_iLo(2,391)=0 exch2_iHi(2,391)=35 exch2_jLo(2,391)=0 exch2_jHi(2,391)=0 exch2_opposingSend(2,391)=1 exch2_pij(1,2,391)=1 exch2_pij(2,2,391)=0 exch2_pij(3,2,391)=0 exch2_pij(4,2,391)=1 exch2_oi(2,391)=0 exch2_oj(2,391)=0 exch2_neighbourId(3,391)=392 exch2_iLo(3,391)=35 exch2_iHi(3,391)=35 exch2_jLo(3,391)=0 exch2_jHi(3,391)=103 exch2_opposingSend(3,391)=4 exch2_pij(1,3,391)=1 exch2_pij(2,3,391)=0 exch2_pij(3,3,391)=0 exch2_pij(4,3,391)=1 exch2_oi(3,391)=0 exch2_oj(3,391)=0 exch2_neighbourId(4,391)=330 exch2_iLo(4,391)=0 exch2_iHi(4,391)=0 exch2_jLo(4,391)=0 exch2_jHi(4,391)=103 exch2_opposingSend(4,391)=3 exch2_pij(1,4,391)=1 exch2_pij(2,4,391)=0 exch2_pij(3,4,391)=0 exch2_pij(4,4,391)=1 exch2_oi(4,391)=-510 exch2_oj(4,391)=0 RETURN END SUBROUTINE W2_E2SETUP_392 C Topology for tile 392 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(392)=34 exch2_tNy(392)=102 exch2_tBasex(392)=34 exch2_tBasey(392)=102 exch2_txGlobalo(392)=2585 exch2_tyGlobalo(392)=103 exch2_isWedge(392)=0 exch2_isNedge(392)=0 exch2_isEedge(392)=0 exch2_isSedge(392)=0 exch2_myFace(392)=6 exch2_mydNx(392)=510 exch2_mydNy(392)=510 exch2_nNeighbours(392)=4 exch2_neighbourId(1,392)=407 exch2_iLo(1,392)=0 exch2_iHi(1,392)=35 exch2_jLo(1,392)=103 exch2_jHi(1,392)=103 exch2_opposingSend(1,392)=2 exch2_pij(1,1,392)=1 exch2_pij(2,1,392)=0 exch2_pij(3,1,392)=0 exch2_pij(4,1,392)=1 exch2_oi(1,392)=0 exch2_oj(1,392)=0 exch2_neighbourId(2,392)=377 exch2_iLo(2,392)=0 exch2_iHi(2,392)=35 exch2_jLo(2,392)=0 exch2_jHi(2,392)=0 exch2_opposingSend(2,392)=1 exch2_pij(1,2,392)=1 exch2_pij(2,2,392)=0 exch2_pij(3,2,392)=0 exch2_pij(4,2,392)=1 exch2_oi(2,392)=0 exch2_oj(2,392)=0 exch2_neighbourId(3,392)=393 exch2_iLo(3,392)=35 exch2_iHi(3,392)=35 exch2_jLo(3,392)=0 exch2_jHi(3,392)=103 exch2_opposingSend(3,392)=4 exch2_pij(1,3,392)=1 exch2_pij(2,3,392)=0 exch2_pij(3,3,392)=0 exch2_pij(4,3,392)=1 exch2_oi(3,392)=0 exch2_oj(3,392)=0 exch2_neighbourId(4,392)=391 exch2_iLo(4,392)=0 exch2_iHi(4,392)=0 exch2_jLo(4,392)=0 exch2_jHi(4,392)=103 exch2_opposingSend(4,392)=3 exch2_pij(1,4,392)=1 exch2_pij(2,4,392)=0 exch2_pij(3,4,392)=0 exch2_pij(4,4,392)=1 exch2_oi(4,392)=0 exch2_oj(4,392)=0 RETURN END SUBROUTINE W2_E2SETUP_393 C Topology for tile 393 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(393)=34 exch2_tNy(393)=102 exch2_tBasex(393)=68 exch2_tBasey(393)=102 exch2_txGlobalo(393)=2619 exch2_tyGlobalo(393)=103 exch2_isWedge(393)=0 exch2_isNedge(393)=0 exch2_isEedge(393)=0 exch2_isSedge(393)=0 exch2_myFace(393)=6 exch2_mydNx(393)=510 exch2_mydNy(393)=510 exch2_nNeighbours(393)=4 exch2_neighbourId(1,393)=408 exch2_iLo(1,393)=0 exch2_iHi(1,393)=35 exch2_jLo(1,393)=103 exch2_jHi(1,393)=103 exch2_opposingSend(1,393)=2 exch2_pij(1,1,393)=1 exch2_pij(2,1,393)=0 exch2_pij(3,1,393)=0 exch2_pij(4,1,393)=1 exch2_oi(1,393)=0 exch2_oj(1,393)=0 exch2_neighbourId(2,393)=378 exch2_iLo(2,393)=0 exch2_iHi(2,393)=35 exch2_jLo(2,393)=0 exch2_jHi(2,393)=0 exch2_opposingSend(2,393)=1 exch2_pij(1,2,393)=1 exch2_pij(2,2,393)=0 exch2_pij(3,2,393)=0 exch2_pij(4,2,393)=1 exch2_oi(2,393)=0 exch2_oj(2,393)=0 exch2_neighbourId(3,393)=394 exch2_iLo(3,393)=35 exch2_iHi(3,393)=35 exch2_jLo(3,393)=0 exch2_jHi(3,393)=103 exch2_opposingSend(3,393)=4 exch2_pij(1,3,393)=1 exch2_pij(2,3,393)=0 exch2_pij(3,3,393)=0 exch2_pij(4,3,393)=1 exch2_oi(3,393)=0 exch2_oj(3,393)=0 exch2_neighbourId(4,393)=392 exch2_iLo(4,393)=0 exch2_iHi(4,393)=0 exch2_jLo(4,393)=0 exch2_jHi(4,393)=103 exch2_opposingSend(4,393)=3 exch2_pij(1,4,393)=1 exch2_pij(2,4,393)=0 exch2_pij(3,4,393)=0 exch2_pij(4,4,393)=1 exch2_oi(4,393)=0 exch2_oj(4,393)=0 RETURN END SUBROUTINE W2_E2SETUP_394 C Topology for tile 394 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(394)=34 exch2_tNy(394)=102 exch2_tBasex(394)=102 exch2_tBasey(394)=102 exch2_txGlobalo(394)=2653 exch2_tyGlobalo(394)=103 exch2_isWedge(394)=0 exch2_isNedge(394)=0 exch2_isEedge(394)=0 exch2_isSedge(394)=0 exch2_myFace(394)=6 exch2_mydNx(394)=510 exch2_mydNy(394)=510 exch2_nNeighbours(394)=4 exch2_neighbourId(1,394)=409 exch2_iLo(1,394)=0 exch2_iHi(1,394)=35 exch2_jLo(1,394)=103 exch2_jHi(1,394)=103 exch2_opposingSend(1,394)=2 exch2_pij(1,1,394)=1 exch2_pij(2,1,394)=0 exch2_pij(3,1,394)=0 exch2_pij(4,1,394)=1 exch2_oi(1,394)=0 exch2_oj(1,394)=0 exch2_neighbourId(2,394)=379 exch2_iLo(2,394)=0 exch2_iHi(2,394)=35 exch2_jLo(2,394)=0 exch2_jHi(2,394)=0 exch2_opposingSend(2,394)=1 exch2_pij(1,2,394)=1 exch2_pij(2,2,394)=0 exch2_pij(3,2,394)=0 exch2_pij(4,2,394)=1 exch2_oi(2,394)=0 exch2_oj(2,394)=0 exch2_neighbourId(3,394)=395 exch2_iLo(3,394)=35 exch2_iHi(3,394)=35 exch2_jLo(3,394)=0 exch2_jHi(3,394)=103 exch2_opposingSend(3,394)=4 exch2_pij(1,3,394)=1 exch2_pij(2,3,394)=0 exch2_pij(3,3,394)=0 exch2_pij(4,3,394)=1 exch2_oi(3,394)=0 exch2_oj(3,394)=0 exch2_neighbourId(4,394)=393 exch2_iLo(4,394)=0 exch2_iHi(4,394)=0 exch2_jLo(4,394)=0 exch2_jHi(4,394)=103 exch2_opposingSend(4,394)=3 exch2_pij(1,4,394)=1 exch2_pij(2,4,394)=0 exch2_pij(3,4,394)=0 exch2_pij(4,4,394)=1 exch2_oi(4,394)=0 exch2_oj(4,394)=0 RETURN END SUBROUTINE W2_E2SETUP_395 C Topology for tile 395 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(395)=34 exch2_tNy(395)=102 exch2_tBasex(395)=136 exch2_tBasey(395)=102 exch2_txGlobalo(395)=2687 exch2_tyGlobalo(395)=103 exch2_isWedge(395)=0 exch2_isNedge(395)=0 exch2_isEedge(395)=0 exch2_isSedge(395)=0 exch2_myFace(395)=6 exch2_mydNx(395)=510 exch2_mydNy(395)=510 exch2_nNeighbours(395)=4 exch2_neighbourId(1,395)=410 exch2_iLo(1,395)=0 exch2_iHi(1,395)=35 exch2_jLo(1,395)=103 exch2_jHi(1,395)=103 exch2_opposingSend(1,395)=2 exch2_pij(1,1,395)=1 exch2_pij(2,1,395)=0 exch2_pij(3,1,395)=0 exch2_pij(4,1,395)=1 exch2_oi(1,395)=0 exch2_oj(1,395)=0 exch2_neighbourId(2,395)=380 exch2_iLo(2,395)=0 exch2_iHi(2,395)=35 exch2_jLo(2,395)=0 exch2_jHi(2,395)=0 exch2_opposingSend(2,395)=1 exch2_pij(1,2,395)=1 exch2_pij(2,2,395)=0 exch2_pij(3,2,395)=0 exch2_pij(4,2,395)=1 exch2_oi(2,395)=0 exch2_oj(2,395)=0 exch2_neighbourId(3,395)=396 exch2_iLo(3,395)=35 exch2_iHi(3,395)=35 exch2_jLo(3,395)=0 exch2_jHi(3,395)=103 exch2_opposingSend(3,395)=4 exch2_pij(1,3,395)=1 exch2_pij(2,3,395)=0 exch2_pij(3,3,395)=0 exch2_pij(4,3,395)=1 exch2_oi(3,395)=0 exch2_oj(3,395)=0 exch2_neighbourId(4,395)=394 exch2_iLo(4,395)=0 exch2_iHi(4,395)=0 exch2_jLo(4,395)=0 exch2_jHi(4,395)=103 exch2_opposingSend(4,395)=3 exch2_pij(1,4,395)=1 exch2_pij(2,4,395)=0 exch2_pij(3,4,395)=0 exch2_pij(4,4,395)=1 exch2_oi(4,395)=0 exch2_oj(4,395)=0 RETURN END SUBROUTINE W2_E2SETUP_396 C Topology for tile 396 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(396)=34 exch2_tNy(396)=102 exch2_tBasex(396)=170 exch2_tBasey(396)=102 exch2_txGlobalo(396)=2721 exch2_tyGlobalo(396)=103 exch2_isWedge(396)=0 exch2_isNedge(396)=0 exch2_isEedge(396)=0 exch2_isSedge(396)=0 exch2_myFace(396)=6 exch2_mydNx(396)=510 exch2_mydNy(396)=510 exch2_nNeighbours(396)=4 exch2_neighbourId(1,396)=411 exch2_iLo(1,396)=0 exch2_iHi(1,396)=35 exch2_jLo(1,396)=103 exch2_jHi(1,396)=103 exch2_opposingSend(1,396)=2 exch2_pij(1,1,396)=1 exch2_pij(2,1,396)=0 exch2_pij(3,1,396)=0 exch2_pij(4,1,396)=1 exch2_oi(1,396)=0 exch2_oj(1,396)=0 exch2_neighbourId(2,396)=381 exch2_iLo(2,396)=0 exch2_iHi(2,396)=35 exch2_jLo(2,396)=0 exch2_jHi(2,396)=0 exch2_opposingSend(2,396)=1 exch2_pij(1,2,396)=1 exch2_pij(2,2,396)=0 exch2_pij(3,2,396)=0 exch2_pij(4,2,396)=1 exch2_oi(2,396)=0 exch2_oj(2,396)=0 exch2_neighbourId(3,396)=397 exch2_iLo(3,396)=35 exch2_iHi(3,396)=35 exch2_jLo(3,396)=0 exch2_jHi(3,396)=103 exch2_opposingSend(3,396)=4 exch2_pij(1,3,396)=1 exch2_pij(2,3,396)=0 exch2_pij(3,3,396)=0 exch2_pij(4,3,396)=1 exch2_oi(3,396)=0 exch2_oj(3,396)=0 exch2_neighbourId(4,396)=395 exch2_iLo(4,396)=0 exch2_iHi(4,396)=0 exch2_jLo(4,396)=0 exch2_jHi(4,396)=103 exch2_opposingSend(4,396)=3 exch2_pij(1,4,396)=1 exch2_pij(2,4,396)=0 exch2_pij(3,4,396)=0 exch2_pij(4,4,396)=1 exch2_oi(4,396)=0 exch2_oj(4,396)=0 RETURN END SUBROUTINE W2_E2SETUP_397 C Topology for tile 397 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(397)=34 exch2_tNy(397)=102 exch2_tBasex(397)=204 exch2_tBasey(397)=102 exch2_txGlobalo(397)=2755 exch2_tyGlobalo(397)=103 exch2_isWedge(397)=0 exch2_isNedge(397)=0 exch2_isEedge(397)=0 exch2_isSedge(397)=0 exch2_myFace(397)=6 exch2_mydNx(397)=510 exch2_mydNy(397)=510 exch2_nNeighbours(397)=4 exch2_neighbourId(1,397)=412 exch2_iLo(1,397)=0 exch2_iHi(1,397)=35 exch2_jLo(1,397)=103 exch2_jHi(1,397)=103 exch2_opposingSend(1,397)=2 exch2_pij(1,1,397)=1 exch2_pij(2,1,397)=0 exch2_pij(3,1,397)=0 exch2_pij(4,1,397)=1 exch2_oi(1,397)=0 exch2_oj(1,397)=0 exch2_neighbourId(2,397)=382 exch2_iLo(2,397)=0 exch2_iHi(2,397)=35 exch2_jLo(2,397)=0 exch2_jHi(2,397)=0 exch2_opposingSend(2,397)=1 exch2_pij(1,2,397)=1 exch2_pij(2,2,397)=0 exch2_pij(3,2,397)=0 exch2_pij(4,2,397)=1 exch2_oi(2,397)=0 exch2_oj(2,397)=0 exch2_neighbourId(3,397)=398 exch2_iLo(3,397)=35 exch2_iHi(3,397)=35 exch2_jLo(3,397)=0 exch2_jHi(3,397)=103 exch2_opposingSend(3,397)=4 exch2_pij(1,3,397)=1 exch2_pij(2,3,397)=0 exch2_pij(3,3,397)=0 exch2_pij(4,3,397)=1 exch2_oi(3,397)=0 exch2_oj(3,397)=0 exch2_neighbourId(4,397)=396 exch2_iLo(4,397)=0 exch2_iHi(4,397)=0 exch2_jLo(4,397)=0 exch2_jHi(4,397)=103 exch2_opposingSend(4,397)=3 exch2_pij(1,4,397)=1 exch2_pij(2,4,397)=0 exch2_pij(3,4,397)=0 exch2_pij(4,4,397)=1 exch2_oi(4,397)=0 exch2_oj(4,397)=0 RETURN END SUBROUTINE W2_E2SETUP_398 C Topology for tile 398 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(398)=34 exch2_tNy(398)=102 exch2_tBasex(398)=238 exch2_tBasey(398)=102 exch2_txGlobalo(398)=2789 exch2_tyGlobalo(398)=103 exch2_isWedge(398)=0 exch2_isNedge(398)=0 exch2_isEedge(398)=0 exch2_isSedge(398)=0 exch2_myFace(398)=6 exch2_mydNx(398)=510 exch2_mydNy(398)=510 exch2_nNeighbours(398)=4 exch2_neighbourId(1,398)=413 exch2_iLo(1,398)=0 exch2_iHi(1,398)=35 exch2_jLo(1,398)=103 exch2_jHi(1,398)=103 exch2_opposingSend(1,398)=2 exch2_pij(1,1,398)=1 exch2_pij(2,1,398)=0 exch2_pij(3,1,398)=0 exch2_pij(4,1,398)=1 exch2_oi(1,398)=0 exch2_oj(1,398)=0 exch2_neighbourId(2,398)=383 exch2_iLo(2,398)=0 exch2_iHi(2,398)=35 exch2_jLo(2,398)=0 exch2_jHi(2,398)=0 exch2_opposingSend(2,398)=1 exch2_pij(1,2,398)=1 exch2_pij(2,2,398)=0 exch2_pij(3,2,398)=0 exch2_pij(4,2,398)=1 exch2_oi(2,398)=0 exch2_oj(2,398)=0 exch2_neighbourId(3,398)=399 exch2_iLo(3,398)=35 exch2_iHi(3,398)=35 exch2_jLo(3,398)=0 exch2_jHi(3,398)=103 exch2_opposingSend(3,398)=4 exch2_pij(1,3,398)=1 exch2_pij(2,3,398)=0 exch2_pij(3,3,398)=0 exch2_pij(4,3,398)=1 exch2_oi(3,398)=0 exch2_oj(3,398)=0 exch2_neighbourId(4,398)=397 exch2_iLo(4,398)=0 exch2_iHi(4,398)=0 exch2_jLo(4,398)=0 exch2_jHi(4,398)=103 exch2_opposingSend(4,398)=3 exch2_pij(1,4,398)=1 exch2_pij(2,4,398)=0 exch2_pij(3,4,398)=0 exch2_pij(4,4,398)=1 exch2_oi(4,398)=0 exch2_oj(4,398)=0 RETURN END SUBROUTINE W2_E2SETUP_399 C Topology for tile 399 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(399)=34 exch2_tNy(399)=102 exch2_tBasex(399)=272 exch2_tBasey(399)=102 exch2_txGlobalo(399)=2823 exch2_tyGlobalo(399)=103 exch2_isWedge(399)=0 exch2_isNedge(399)=0 exch2_isEedge(399)=0 exch2_isSedge(399)=0 exch2_myFace(399)=6 exch2_mydNx(399)=510 exch2_mydNy(399)=510 exch2_nNeighbours(399)=4 exch2_neighbourId(1,399)=414 exch2_iLo(1,399)=0 exch2_iHi(1,399)=35 exch2_jLo(1,399)=103 exch2_jHi(1,399)=103 exch2_opposingSend(1,399)=2 exch2_pij(1,1,399)=1 exch2_pij(2,1,399)=0 exch2_pij(3,1,399)=0 exch2_pij(4,1,399)=1 exch2_oi(1,399)=0 exch2_oj(1,399)=0 exch2_neighbourId(2,399)=384 exch2_iLo(2,399)=0 exch2_iHi(2,399)=35 exch2_jLo(2,399)=0 exch2_jHi(2,399)=0 exch2_opposingSend(2,399)=1 exch2_pij(1,2,399)=1 exch2_pij(2,2,399)=0 exch2_pij(3,2,399)=0 exch2_pij(4,2,399)=1 exch2_oi(2,399)=0 exch2_oj(2,399)=0 exch2_neighbourId(3,399)=400 exch2_iLo(3,399)=35 exch2_iHi(3,399)=35 exch2_jLo(3,399)=0 exch2_jHi(3,399)=103 exch2_opposingSend(3,399)=4 exch2_pij(1,3,399)=1 exch2_pij(2,3,399)=0 exch2_pij(3,3,399)=0 exch2_pij(4,3,399)=1 exch2_oi(3,399)=0 exch2_oj(3,399)=0 exch2_neighbourId(4,399)=398 exch2_iLo(4,399)=0 exch2_iHi(4,399)=0 exch2_jLo(4,399)=0 exch2_jHi(4,399)=103 exch2_opposingSend(4,399)=3 exch2_pij(1,4,399)=1 exch2_pij(2,4,399)=0 exch2_pij(3,4,399)=0 exch2_pij(4,4,399)=1 exch2_oi(4,399)=0 exch2_oj(4,399)=0 RETURN END SUBROUTINE W2_E2SETUP_400 C Topology for tile 400 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(400)=34 exch2_tNy(400)=102 exch2_tBasex(400)=306 exch2_tBasey(400)=102 exch2_txGlobalo(400)=2857 exch2_tyGlobalo(400)=103 exch2_isWedge(400)=0 exch2_isNedge(400)=0 exch2_isEedge(400)=0 exch2_isSedge(400)=0 exch2_myFace(400)=6 exch2_mydNx(400)=510 exch2_mydNy(400)=510 exch2_nNeighbours(400)=4 exch2_neighbourId(1,400)=415 exch2_iLo(1,400)=0 exch2_iHi(1,400)=35 exch2_jLo(1,400)=103 exch2_jHi(1,400)=103 exch2_opposingSend(1,400)=2 exch2_pij(1,1,400)=1 exch2_pij(2,1,400)=0 exch2_pij(3,1,400)=0 exch2_pij(4,1,400)=1 exch2_oi(1,400)=0 exch2_oj(1,400)=0 exch2_neighbourId(2,400)=385 exch2_iLo(2,400)=0 exch2_iHi(2,400)=35 exch2_jLo(2,400)=0 exch2_jHi(2,400)=0 exch2_opposingSend(2,400)=1 exch2_pij(1,2,400)=1 exch2_pij(2,2,400)=0 exch2_pij(3,2,400)=0 exch2_pij(4,2,400)=1 exch2_oi(2,400)=0 exch2_oj(2,400)=0 exch2_neighbourId(3,400)=401 exch2_iLo(3,400)=35 exch2_iHi(3,400)=35 exch2_jLo(3,400)=0 exch2_jHi(3,400)=103 exch2_opposingSend(3,400)=4 exch2_pij(1,3,400)=1 exch2_pij(2,3,400)=0 exch2_pij(3,3,400)=0 exch2_pij(4,3,400)=1 exch2_oi(3,400)=0 exch2_oj(3,400)=0 exch2_neighbourId(4,400)=399 exch2_iLo(4,400)=0 exch2_iHi(4,400)=0 exch2_jLo(4,400)=0 exch2_jHi(4,400)=103 exch2_opposingSend(4,400)=3 exch2_pij(1,4,400)=1 exch2_pij(2,4,400)=0 exch2_pij(3,4,400)=0 exch2_pij(4,4,400)=1 exch2_oi(4,400)=0 exch2_oj(4,400)=0 RETURN END SUBROUTINE W2_E2SETUP_401 C Topology for tile 401 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(401)=34 exch2_tNy(401)=102 exch2_tBasex(401)=340 exch2_tBasey(401)=102 exch2_txGlobalo(401)=2891 exch2_tyGlobalo(401)=103 exch2_isWedge(401)=0 exch2_isNedge(401)=0 exch2_isEedge(401)=0 exch2_isSedge(401)=0 exch2_myFace(401)=6 exch2_mydNx(401)=510 exch2_mydNy(401)=510 exch2_nNeighbours(401)=4 exch2_neighbourId(1,401)=416 exch2_iLo(1,401)=0 exch2_iHi(1,401)=35 exch2_jLo(1,401)=103 exch2_jHi(1,401)=103 exch2_opposingSend(1,401)=2 exch2_pij(1,1,401)=1 exch2_pij(2,1,401)=0 exch2_pij(3,1,401)=0 exch2_pij(4,1,401)=1 exch2_oi(1,401)=0 exch2_oj(1,401)=0 exch2_neighbourId(2,401)=386 exch2_iLo(2,401)=0 exch2_iHi(2,401)=35 exch2_jLo(2,401)=0 exch2_jHi(2,401)=0 exch2_opposingSend(2,401)=1 exch2_pij(1,2,401)=1 exch2_pij(2,2,401)=0 exch2_pij(3,2,401)=0 exch2_pij(4,2,401)=1 exch2_oi(2,401)=0 exch2_oj(2,401)=0 exch2_neighbourId(3,401)=402 exch2_iLo(3,401)=35 exch2_iHi(3,401)=35 exch2_jLo(3,401)=0 exch2_jHi(3,401)=103 exch2_opposingSend(3,401)=4 exch2_pij(1,3,401)=1 exch2_pij(2,3,401)=0 exch2_pij(3,3,401)=0 exch2_pij(4,3,401)=1 exch2_oi(3,401)=0 exch2_oj(3,401)=0 exch2_neighbourId(4,401)=400 exch2_iLo(4,401)=0 exch2_iHi(4,401)=0 exch2_jLo(4,401)=0 exch2_jHi(4,401)=103 exch2_opposingSend(4,401)=3 exch2_pij(1,4,401)=1 exch2_pij(2,4,401)=0 exch2_pij(3,4,401)=0 exch2_pij(4,4,401)=1 exch2_oi(4,401)=0 exch2_oj(4,401)=0 RETURN END SUBROUTINE W2_E2SETUP_402 C Topology for tile 402 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(402)=34 exch2_tNy(402)=102 exch2_tBasex(402)=374 exch2_tBasey(402)=102 exch2_txGlobalo(402)=2925 exch2_tyGlobalo(402)=103 exch2_isWedge(402)=0 exch2_isNedge(402)=0 exch2_isEedge(402)=0 exch2_isSedge(402)=0 exch2_myFace(402)=6 exch2_mydNx(402)=510 exch2_mydNy(402)=510 exch2_nNeighbours(402)=4 exch2_neighbourId(1,402)=417 exch2_iLo(1,402)=0 exch2_iHi(1,402)=35 exch2_jLo(1,402)=103 exch2_jHi(1,402)=103 exch2_opposingSend(1,402)=2 exch2_pij(1,1,402)=1 exch2_pij(2,1,402)=0 exch2_pij(3,1,402)=0 exch2_pij(4,1,402)=1 exch2_oi(1,402)=0 exch2_oj(1,402)=0 exch2_neighbourId(2,402)=387 exch2_iLo(2,402)=0 exch2_iHi(2,402)=35 exch2_jLo(2,402)=0 exch2_jHi(2,402)=0 exch2_opposingSend(2,402)=1 exch2_pij(1,2,402)=1 exch2_pij(2,2,402)=0 exch2_pij(3,2,402)=0 exch2_pij(4,2,402)=1 exch2_oi(2,402)=0 exch2_oj(2,402)=0 exch2_neighbourId(3,402)=403 exch2_iLo(3,402)=35 exch2_iHi(3,402)=35 exch2_jLo(3,402)=0 exch2_jHi(3,402)=103 exch2_opposingSend(3,402)=4 exch2_pij(1,3,402)=1 exch2_pij(2,3,402)=0 exch2_pij(3,3,402)=0 exch2_pij(4,3,402)=1 exch2_oi(3,402)=0 exch2_oj(3,402)=0 exch2_neighbourId(4,402)=401 exch2_iLo(4,402)=0 exch2_iHi(4,402)=0 exch2_jLo(4,402)=0 exch2_jHi(4,402)=103 exch2_opposingSend(4,402)=3 exch2_pij(1,4,402)=1 exch2_pij(2,4,402)=0 exch2_pij(3,4,402)=0 exch2_pij(4,4,402)=1 exch2_oi(4,402)=0 exch2_oj(4,402)=0 RETURN END SUBROUTINE W2_E2SETUP_403 C Topology for tile 403 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(403)=34 exch2_tNy(403)=102 exch2_tBasex(403)=408 exch2_tBasey(403)=102 exch2_txGlobalo(403)=2959 exch2_tyGlobalo(403)=103 exch2_isWedge(403)=0 exch2_isNedge(403)=0 exch2_isEedge(403)=0 exch2_isSedge(403)=0 exch2_myFace(403)=6 exch2_mydNx(403)=510 exch2_mydNy(403)=510 exch2_nNeighbours(403)=4 exch2_neighbourId(1,403)=418 exch2_iLo(1,403)=0 exch2_iHi(1,403)=35 exch2_jLo(1,403)=103 exch2_jHi(1,403)=103 exch2_opposingSend(1,403)=2 exch2_pij(1,1,403)=1 exch2_pij(2,1,403)=0 exch2_pij(3,1,403)=0 exch2_pij(4,1,403)=1 exch2_oi(1,403)=0 exch2_oj(1,403)=0 exch2_neighbourId(2,403)=388 exch2_iLo(2,403)=0 exch2_iHi(2,403)=35 exch2_jLo(2,403)=0 exch2_jHi(2,403)=0 exch2_opposingSend(2,403)=1 exch2_pij(1,2,403)=1 exch2_pij(2,2,403)=0 exch2_pij(3,2,403)=0 exch2_pij(4,2,403)=1 exch2_oi(2,403)=0 exch2_oj(2,403)=0 exch2_neighbourId(3,403)=404 exch2_iLo(3,403)=35 exch2_iHi(3,403)=35 exch2_jLo(3,403)=0 exch2_jHi(3,403)=103 exch2_opposingSend(3,403)=4 exch2_pij(1,3,403)=1 exch2_pij(2,3,403)=0 exch2_pij(3,3,403)=0 exch2_pij(4,3,403)=1 exch2_oi(3,403)=0 exch2_oj(3,403)=0 exch2_neighbourId(4,403)=402 exch2_iLo(4,403)=0 exch2_iHi(4,403)=0 exch2_jLo(4,403)=0 exch2_jHi(4,403)=103 exch2_opposingSend(4,403)=3 exch2_pij(1,4,403)=1 exch2_pij(2,4,403)=0 exch2_pij(3,4,403)=0 exch2_pij(4,4,403)=1 exch2_oi(4,403)=0 exch2_oj(4,403)=0 RETURN END SUBROUTINE W2_E2SETUP_404 C Topology for tile 404 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(404)=34 exch2_tNy(404)=102 exch2_tBasex(404)=442 exch2_tBasey(404)=102 exch2_txGlobalo(404)=2993 exch2_tyGlobalo(404)=103 exch2_isWedge(404)=0 exch2_isNedge(404)=0 exch2_isEedge(404)=0 exch2_isSedge(404)=0 exch2_myFace(404)=6 exch2_mydNx(404)=510 exch2_mydNy(404)=510 exch2_nNeighbours(404)=4 exch2_neighbourId(1,404)=419 exch2_iLo(1,404)=0 exch2_iHi(1,404)=35 exch2_jLo(1,404)=103 exch2_jHi(1,404)=103 exch2_opposingSend(1,404)=2 exch2_pij(1,1,404)=1 exch2_pij(2,1,404)=0 exch2_pij(3,1,404)=0 exch2_pij(4,1,404)=1 exch2_oi(1,404)=0 exch2_oj(1,404)=0 exch2_neighbourId(2,404)=389 exch2_iLo(2,404)=0 exch2_iHi(2,404)=35 exch2_jLo(2,404)=0 exch2_jHi(2,404)=0 exch2_opposingSend(2,404)=1 exch2_pij(1,2,404)=1 exch2_pij(2,2,404)=0 exch2_pij(3,2,404)=0 exch2_pij(4,2,404)=1 exch2_oi(2,404)=0 exch2_oj(2,404)=0 exch2_neighbourId(3,404)=405 exch2_iLo(3,404)=35 exch2_iHi(3,404)=35 exch2_jLo(3,404)=0 exch2_jHi(3,404)=103 exch2_opposingSend(3,404)=6 exch2_pij(1,3,404)=1 exch2_pij(2,3,404)=0 exch2_pij(3,3,404)=0 exch2_pij(4,3,404)=1 exch2_oi(3,404)=0 exch2_oj(3,404)=0 exch2_neighbourId(4,404)=403 exch2_iLo(4,404)=0 exch2_iHi(4,404)=0 exch2_jLo(4,404)=0 exch2_jHi(4,404)=103 exch2_opposingSend(4,404)=3 exch2_pij(1,4,404)=1 exch2_pij(2,4,404)=0 exch2_pij(3,4,404)=0 exch2_pij(4,4,404)=1 exch2_oi(4,404)=0 exch2_oj(4,404)=0 RETURN END SUBROUTINE W2_E2SETUP_405 C Topology for tile 405 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(405)=34 exch2_tNy(405)=102 exch2_tBasex(405)=476 exch2_tBasey(405)=102 exch2_txGlobalo(405)=3027 exch2_tyGlobalo(405)=103 exch2_isWedge(405)=0 exch2_isNedge(405)=0 exch2_isEedge(405)=1 exch2_isSedge(405)=0 exch2_myFace(405)=6 exch2_mydNx(405)=510 exch2_mydNy(405)=510 exch2_nNeighbours(405)=6 exch2_neighbourId(1,405)=420 exch2_iLo(1,405)=0 exch2_iHi(1,405)=35 exch2_jLo(1,405)=103 exch2_jHi(1,405)=103 exch2_opposingSend(1,405)=2 exch2_pij(1,1,405)=1 exch2_pij(2,1,405)=0 exch2_pij(3,1,405)=0 exch2_pij(4,1,405)=1 exch2_oi(1,405)=0 exch2_oj(1,405)=0 exch2_neighbourId(2,405)=390 exch2_iLo(2,405)=0 exch2_iHi(2,405)=35 exch2_jLo(2,405)=0 exch2_jHi(2,405)=0 exch2_opposingSend(2,405)=1 exch2_pij(1,2,405)=1 exch2_pij(2,2,405)=0 exch2_pij(3,2,405)=0 exch2_pij(4,2,405)=1 exch2_oi(2,405)=0 exch2_oj(2,405)=0 exch2_neighbourId(3,405)=85 exch2_iLo(3,405)=35 exch2_iHi(3,405)=35 exch2_jLo(3,405)=68 exch2_jHi(3,405)=103 exch2_opposingSend(3,405)=2 exch2_pij(1,3,405)=0 exch2_pij(2,3,405)=1 exch2_pij(3,3,405)=-1 exch2_pij(4,3,405)=0 exch2_oi(3,405)=510 exch2_oj(3,405)=511 exch2_neighbourId(4,405)=86 exch2_iLo(4,405)=35 exch2_iHi(4,405)=35 exch2_jLo(4,405)=34 exch2_jHi(4,405)=69 exch2_opposingSend(4,405)=2 exch2_pij(1,4,405)=0 exch2_pij(2,4,405)=1 exch2_pij(3,4,405)=-1 exch2_pij(4,4,405)=0 exch2_oi(4,405)=510 exch2_oj(4,405)=511 exch2_neighbourId(5,405)=87 exch2_iLo(5,405)=35 exch2_iHi(5,405)=35 exch2_jLo(5,405)=0 exch2_jHi(5,405)=35 exch2_opposingSend(5,405)=2 exch2_pij(1,5,405)=0 exch2_pij(2,5,405)=1 exch2_pij(3,5,405)=-1 exch2_pij(4,5,405)=0 exch2_oi(5,405)=510 exch2_oj(5,405)=511 exch2_neighbourId(6,405)=404 exch2_iLo(6,405)=0 exch2_iHi(6,405)=0 exch2_jLo(6,405)=0 exch2_jHi(6,405)=103 exch2_opposingSend(6,405)=3 exch2_pij(1,6,405)=1 exch2_pij(2,6,405)=0 exch2_pij(3,6,405)=0 exch2_pij(4,6,405)=1 exch2_oi(6,405)=0 exch2_oj(6,405)=0 RETURN END SUBROUTINE W2_E2SETUP_406 C Topology for tile 406 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(406)=34 exch2_tNy(406)=102 exch2_tBasex(406)=0 exch2_tBasey(406)=204 exch2_txGlobalo(406)=2551 exch2_tyGlobalo(406)=205 exch2_isWedge(406)=1 exch2_isNedge(406)=0 exch2_isEedge(406)=0 exch2_isSedge(406)=0 exch2_myFace(406)=6 exch2_mydNx(406)=510 exch2_mydNy(406)=510 exch2_nNeighbours(406)=4 exch2_neighbourId(1,406)=421 exch2_iLo(1,406)=0 exch2_iHi(1,406)=35 exch2_jLo(1,406)=103 exch2_jHi(1,406)=103 exch2_opposingSend(1,406)=2 exch2_pij(1,1,406)=1 exch2_pij(2,1,406)=0 exch2_pij(3,1,406)=0 exch2_pij(4,1,406)=1 exch2_oi(1,406)=0 exch2_oj(1,406)=0 exch2_neighbourId(2,406)=391 exch2_iLo(2,406)=0 exch2_iHi(2,406)=35 exch2_jLo(2,406)=0 exch2_jHi(2,406)=0 exch2_opposingSend(2,406)=1 exch2_pij(1,2,406)=1 exch2_pij(2,2,406)=0 exch2_pij(3,2,406)=0 exch2_pij(4,2,406)=1 exch2_oi(2,406)=0 exch2_oj(2,406)=0 exch2_neighbourId(3,406)=407 exch2_iLo(3,406)=35 exch2_iHi(3,406)=35 exch2_jLo(3,406)=0 exch2_jHi(3,406)=103 exch2_opposingSend(3,406)=4 exch2_pij(1,3,406)=1 exch2_pij(2,3,406)=0 exch2_pij(3,3,406)=0 exch2_pij(4,3,406)=1 exch2_oi(3,406)=0 exch2_oj(3,406)=0 exch2_neighbourId(4,406)=345 exch2_iLo(4,406)=0 exch2_iHi(4,406)=0 exch2_jLo(4,406)=0 exch2_jHi(4,406)=103 exch2_opposingSend(4,406)=3 exch2_pij(1,4,406)=1 exch2_pij(2,4,406)=0 exch2_pij(3,4,406)=0 exch2_pij(4,4,406)=1 exch2_oi(4,406)=-510 exch2_oj(4,406)=0 RETURN END SUBROUTINE W2_E2SETUP_407 C Topology for tile 407 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(407)=34 exch2_tNy(407)=102 exch2_tBasex(407)=34 exch2_tBasey(407)=204 exch2_txGlobalo(407)=2585 exch2_tyGlobalo(407)=205 exch2_isWedge(407)=0 exch2_isNedge(407)=0 exch2_isEedge(407)=0 exch2_isSedge(407)=0 exch2_myFace(407)=6 exch2_mydNx(407)=510 exch2_mydNy(407)=510 exch2_nNeighbours(407)=4 exch2_neighbourId(1,407)=422 exch2_iLo(1,407)=0 exch2_iHi(1,407)=35 exch2_jLo(1,407)=103 exch2_jHi(1,407)=103 exch2_opposingSend(1,407)=2 exch2_pij(1,1,407)=1 exch2_pij(2,1,407)=0 exch2_pij(3,1,407)=0 exch2_pij(4,1,407)=1 exch2_oi(1,407)=0 exch2_oj(1,407)=0 exch2_neighbourId(2,407)=392 exch2_iLo(2,407)=0 exch2_iHi(2,407)=35 exch2_jLo(2,407)=0 exch2_jHi(2,407)=0 exch2_opposingSend(2,407)=1 exch2_pij(1,2,407)=1 exch2_pij(2,2,407)=0 exch2_pij(3,2,407)=0 exch2_pij(4,2,407)=1 exch2_oi(2,407)=0 exch2_oj(2,407)=0 exch2_neighbourId(3,407)=408 exch2_iLo(3,407)=35 exch2_iHi(3,407)=35 exch2_jLo(3,407)=0 exch2_jHi(3,407)=103 exch2_opposingSend(3,407)=4 exch2_pij(1,3,407)=1 exch2_pij(2,3,407)=0 exch2_pij(3,3,407)=0 exch2_pij(4,3,407)=1 exch2_oi(3,407)=0 exch2_oj(3,407)=0 exch2_neighbourId(4,407)=406 exch2_iLo(4,407)=0 exch2_iHi(4,407)=0 exch2_jLo(4,407)=0 exch2_jHi(4,407)=103 exch2_opposingSend(4,407)=3 exch2_pij(1,4,407)=1 exch2_pij(2,4,407)=0 exch2_pij(3,4,407)=0 exch2_pij(4,4,407)=1 exch2_oi(4,407)=0 exch2_oj(4,407)=0 RETURN END SUBROUTINE W2_E2SETUP_408 C Topology for tile 408 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(408)=34 exch2_tNy(408)=102 exch2_tBasex(408)=68 exch2_tBasey(408)=204 exch2_txGlobalo(408)=2619 exch2_tyGlobalo(408)=205 exch2_isWedge(408)=0 exch2_isNedge(408)=0 exch2_isEedge(408)=0 exch2_isSedge(408)=0 exch2_myFace(408)=6 exch2_mydNx(408)=510 exch2_mydNy(408)=510 exch2_nNeighbours(408)=4 exch2_neighbourId(1,408)=423 exch2_iLo(1,408)=0 exch2_iHi(1,408)=35 exch2_jLo(1,408)=103 exch2_jHi(1,408)=103 exch2_opposingSend(1,408)=2 exch2_pij(1,1,408)=1 exch2_pij(2,1,408)=0 exch2_pij(3,1,408)=0 exch2_pij(4,1,408)=1 exch2_oi(1,408)=0 exch2_oj(1,408)=0 exch2_neighbourId(2,408)=393 exch2_iLo(2,408)=0 exch2_iHi(2,408)=35 exch2_jLo(2,408)=0 exch2_jHi(2,408)=0 exch2_opposingSend(2,408)=1 exch2_pij(1,2,408)=1 exch2_pij(2,2,408)=0 exch2_pij(3,2,408)=0 exch2_pij(4,2,408)=1 exch2_oi(2,408)=0 exch2_oj(2,408)=0 exch2_neighbourId(3,408)=409 exch2_iLo(3,408)=35 exch2_iHi(3,408)=35 exch2_jLo(3,408)=0 exch2_jHi(3,408)=103 exch2_opposingSend(3,408)=4 exch2_pij(1,3,408)=1 exch2_pij(2,3,408)=0 exch2_pij(3,3,408)=0 exch2_pij(4,3,408)=1 exch2_oi(3,408)=0 exch2_oj(3,408)=0 exch2_neighbourId(4,408)=407 exch2_iLo(4,408)=0 exch2_iHi(4,408)=0 exch2_jLo(4,408)=0 exch2_jHi(4,408)=103 exch2_opposingSend(4,408)=3 exch2_pij(1,4,408)=1 exch2_pij(2,4,408)=0 exch2_pij(3,4,408)=0 exch2_pij(4,4,408)=1 exch2_oi(4,408)=0 exch2_oj(4,408)=0 RETURN END SUBROUTINE W2_E2SETUP_409 C Topology for tile 409 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(409)=34 exch2_tNy(409)=102 exch2_tBasex(409)=102 exch2_tBasey(409)=204 exch2_txGlobalo(409)=2653 exch2_tyGlobalo(409)=205 exch2_isWedge(409)=0 exch2_isNedge(409)=0 exch2_isEedge(409)=0 exch2_isSedge(409)=0 exch2_myFace(409)=6 exch2_mydNx(409)=510 exch2_mydNy(409)=510 exch2_nNeighbours(409)=4 exch2_neighbourId(1,409)=424 exch2_iLo(1,409)=0 exch2_iHi(1,409)=35 exch2_jLo(1,409)=103 exch2_jHi(1,409)=103 exch2_opposingSend(1,409)=2 exch2_pij(1,1,409)=1 exch2_pij(2,1,409)=0 exch2_pij(3,1,409)=0 exch2_pij(4,1,409)=1 exch2_oi(1,409)=0 exch2_oj(1,409)=0 exch2_neighbourId(2,409)=394 exch2_iLo(2,409)=0 exch2_iHi(2,409)=35 exch2_jLo(2,409)=0 exch2_jHi(2,409)=0 exch2_opposingSend(2,409)=1 exch2_pij(1,2,409)=1 exch2_pij(2,2,409)=0 exch2_pij(3,2,409)=0 exch2_pij(4,2,409)=1 exch2_oi(2,409)=0 exch2_oj(2,409)=0 exch2_neighbourId(3,409)=410 exch2_iLo(3,409)=35 exch2_iHi(3,409)=35 exch2_jLo(3,409)=0 exch2_jHi(3,409)=103 exch2_opposingSend(3,409)=4 exch2_pij(1,3,409)=1 exch2_pij(2,3,409)=0 exch2_pij(3,3,409)=0 exch2_pij(4,3,409)=1 exch2_oi(3,409)=0 exch2_oj(3,409)=0 exch2_neighbourId(4,409)=408 exch2_iLo(4,409)=0 exch2_iHi(4,409)=0 exch2_jLo(4,409)=0 exch2_jHi(4,409)=103 exch2_opposingSend(4,409)=3 exch2_pij(1,4,409)=1 exch2_pij(2,4,409)=0 exch2_pij(3,4,409)=0 exch2_pij(4,4,409)=1 exch2_oi(4,409)=0 exch2_oj(4,409)=0 RETURN END SUBROUTINE W2_E2SETUP_410 C Topology for tile 410 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(410)=34 exch2_tNy(410)=102 exch2_tBasex(410)=136 exch2_tBasey(410)=204 exch2_txGlobalo(410)=2687 exch2_tyGlobalo(410)=205 exch2_isWedge(410)=0 exch2_isNedge(410)=0 exch2_isEedge(410)=0 exch2_isSedge(410)=0 exch2_myFace(410)=6 exch2_mydNx(410)=510 exch2_mydNy(410)=510 exch2_nNeighbours(410)=4 exch2_neighbourId(1,410)=425 exch2_iLo(1,410)=0 exch2_iHi(1,410)=35 exch2_jLo(1,410)=103 exch2_jHi(1,410)=103 exch2_opposingSend(1,410)=2 exch2_pij(1,1,410)=1 exch2_pij(2,1,410)=0 exch2_pij(3,1,410)=0 exch2_pij(4,1,410)=1 exch2_oi(1,410)=0 exch2_oj(1,410)=0 exch2_neighbourId(2,410)=395 exch2_iLo(2,410)=0 exch2_iHi(2,410)=35 exch2_jLo(2,410)=0 exch2_jHi(2,410)=0 exch2_opposingSend(2,410)=1 exch2_pij(1,2,410)=1 exch2_pij(2,2,410)=0 exch2_pij(3,2,410)=0 exch2_pij(4,2,410)=1 exch2_oi(2,410)=0 exch2_oj(2,410)=0 exch2_neighbourId(3,410)=411 exch2_iLo(3,410)=35 exch2_iHi(3,410)=35 exch2_jLo(3,410)=0 exch2_jHi(3,410)=103 exch2_opposingSend(3,410)=4 exch2_pij(1,3,410)=1 exch2_pij(2,3,410)=0 exch2_pij(3,3,410)=0 exch2_pij(4,3,410)=1 exch2_oi(3,410)=0 exch2_oj(3,410)=0 exch2_neighbourId(4,410)=409 exch2_iLo(4,410)=0 exch2_iHi(4,410)=0 exch2_jLo(4,410)=0 exch2_jHi(4,410)=103 exch2_opposingSend(4,410)=3 exch2_pij(1,4,410)=1 exch2_pij(2,4,410)=0 exch2_pij(3,4,410)=0 exch2_pij(4,4,410)=1 exch2_oi(4,410)=0 exch2_oj(4,410)=0 RETURN END SUBROUTINE W2_E2SETUP_411 C Topology for tile 411 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(411)=34 exch2_tNy(411)=102 exch2_tBasex(411)=170 exch2_tBasey(411)=204 exch2_txGlobalo(411)=2721 exch2_tyGlobalo(411)=205 exch2_isWedge(411)=0 exch2_isNedge(411)=0 exch2_isEedge(411)=0 exch2_isSedge(411)=0 exch2_myFace(411)=6 exch2_mydNx(411)=510 exch2_mydNy(411)=510 exch2_nNeighbours(411)=4 exch2_neighbourId(1,411)=426 exch2_iLo(1,411)=0 exch2_iHi(1,411)=35 exch2_jLo(1,411)=103 exch2_jHi(1,411)=103 exch2_opposingSend(1,411)=2 exch2_pij(1,1,411)=1 exch2_pij(2,1,411)=0 exch2_pij(3,1,411)=0 exch2_pij(4,1,411)=1 exch2_oi(1,411)=0 exch2_oj(1,411)=0 exch2_neighbourId(2,411)=396 exch2_iLo(2,411)=0 exch2_iHi(2,411)=35 exch2_jLo(2,411)=0 exch2_jHi(2,411)=0 exch2_opposingSend(2,411)=1 exch2_pij(1,2,411)=1 exch2_pij(2,2,411)=0 exch2_pij(3,2,411)=0 exch2_pij(4,2,411)=1 exch2_oi(2,411)=0 exch2_oj(2,411)=0 exch2_neighbourId(3,411)=412 exch2_iLo(3,411)=35 exch2_iHi(3,411)=35 exch2_jLo(3,411)=0 exch2_jHi(3,411)=103 exch2_opposingSend(3,411)=4 exch2_pij(1,3,411)=1 exch2_pij(2,3,411)=0 exch2_pij(3,3,411)=0 exch2_pij(4,3,411)=1 exch2_oi(3,411)=0 exch2_oj(3,411)=0 exch2_neighbourId(4,411)=410 exch2_iLo(4,411)=0 exch2_iHi(4,411)=0 exch2_jLo(4,411)=0 exch2_jHi(4,411)=103 exch2_opposingSend(4,411)=3 exch2_pij(1,4,411)=1 exch2_pij(2,4,411)=0 exch2_pij(3,4,411)=0 exch2_pij(4,4,411)=1 exch2_oi(4,411)=0 exch2_oj(4,411)=0 RETURN END SUBROUTINE W2_E2SETUP_412 C Topology for tile 412 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(412)=34 exch2_tNy(412)=102 exch2_tBasex(412)=204 exch2_tBasey(412)=204 exch2_txGlobalo(412)=2755 exch2_tyGlobalo(412)=205 exch2_isWedge(412)=0 exch2_isNedge(412)=0 exch2_isEedge(412)=0 exch2_isSedge(412)=0 exch2_myFace(412)=6 exch2_mydNx(412)=510 exch2_mydNy(412)=510 exch2_nNeighbours(412)=4 exch2_neighbourId(1,412)=427 exch2_iLo(1,412)=0 exch2_iHi(1,412)=35 exch2_jLo(1,412)=103 exch2_jHi(1,412)=103 exch2_opposingSend(1,412)=2 exch2_pij(1,1,412)=1 exch2_pij(2,1,412)=0 exch2_pij(3,1,412)=0 exch2_pij(4,1,412)=1 exch2_oi(1,412)=0 exch2_oj(1,412)=0 exch2_neighbourId(2,412)=397 exch2_iLo(2,412)=0 exch2_iHi(2,412)=35 exch2_jLo(2,412)=0 exch2_jHi(2,412)=0 exch2_opposingSend(2,412)=1 exch2_pij(1,2,412)=1 exch2_pij(2,2,412)=0 exch2_pij(3,2,412)=0 exch2_pij(4,2,412)=1 exch2_oi(2,412)=0 exch2_oj(2,412)=0 exch2_neighbourId(3,412)=413 exch2_iLo(3,412)=35 exch2_iHi(3,412)=35 exch2_jLo(3,412)=0 exch2_jHi(3,412)=103 exch2_opposingSend(3,412)=4 exch2_pij(1,3,412)=1 exch2_pij(2,3,412)=0 exch2_pij(3,3,412)=0 exch2_pij(4,3,412)=1 exch2_oi(3,412)=0 exch2_oj(3,412)=0 exch2_neighbourId(4,412)=411 exch2_iLo(4,412)=0 exch2_iHi(4,412)=0 exch2_jLo(4,412)=0 exch2_jHi(4,412)=103 exch2_opposingSend(4,412)=3 exch2_pij(1,4,412)=1 exch2_pij(2,4,412)=0 exch2_pij(3,4,412)=0 exch2_pij(4,4,412)=1 exch2_oi(4,412)=0 exch2_oj(4,412)=0 RETURN END SUBROUTINE W2_E2SETUP_413 C Topology for tile 413 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(413)=34 exch2_tNy(413)=102 exch2_tBasex(413)=238 exch2_tBasey(413)=204 exch2_txGlobalo(413)=2789 exch2_tyGlobalo(413)=205 exch2_isWedge(413)=0 exch2_isNedge(413)=0 exch2_isEedge(413)=0 exch2_isSedge(413)=0 exch2_myFace(413)=6 exch2_mydNx(413)=510 exch2_mydNy(413)=510 exch2_nNeighbours(413)=4 exch2_neighbourId(1,413)=428 exch2_iLo(1,413)=0 exch2_iHi(1,413)=35 exch2_jLo(1,413)=103 exch2_jHi(1,413)=103 exch2_opposingSend(1,413)=2 exch2_pij(1,1,413)=1 exch2_pij(2,1,413)=0 exch2_pij(3,1,413)=0 exch2_pij(4,1,413)=1 exch2_oi(1,413)=0 exch2_oj(1,413)=0 exch2_neighbourId(2,413)=398 exch2_iLo(2,413)=0 exch2_iHi(2,413)=35 exch2_jLo(2,413)=0 exch2_jHi(2,413)=0 exch2_opposingSend(2,413)=1 exch2_pij(1,2,413)=1 exch2_pij(2,2,413)=0 exch2_pij(3,2,413)=0 exch2_pij(4,2,413)=1 exch2_oi(2,413)=0 exch2_oj(2,413)=0 exch2_neighbourId(3,413)=414 exch2_iLo(3,413)=35 exch2_iHi(3,413)=35 exch2_jLo(3,413)=0 exch2_jHi(3,413)=103 exch2_opposingSend(3,413)=4 exch2_pij(1,3,413)=1 exch2_pij(2,3,413)=0 exch2_pij(3,3,413)=0 exch2_pij(4,3,413)=1 exch2_oi(3,413)=0 exch2_oj(3,413)=0 exch2_neighbourId(4,413)=412 exch2_iLo(4,413)=0 exch2_iHi(4,413)=0 exch2_jLo(4,413)=0 exch2_jHi(4,413)=103 exch2_opposingSend(4,413)=3 exch2_pij(1,4,413)=1 exch2_pij(2,4,413)=0 exch2_pij(3,4,413)=0 exch2_pij(4,4,413)=1 exch2_oi(4,413)=0 exch2_oj(4,413)=0 RETURN END SUBROUTINE W2_E2SETUP_414 C Topology for tile 414 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(414)=34 exch2_tNy(414)=102 exch2_tBasex(414)=272 exch2_tBasey(414)=204 exch2_txGlobalo(414)=2823 exch2_tyGlobalo(414)=205 exch2_isWedge(414)=0 exch2_isNedge(414)=0 exch2_isEedge(414)=0 exch2_isSedge(414)=0 exch2_myFace(414)=6 exch2_mydNx(414)=510 exch2_mydNy(414)=510 exch2_nNeighbours(414)=4 exch2_neighbourId(1,414)=429 exch2_iLo(1,414)=0 exch2_iHi(1,414)=35 exch2_jLo(1,414)=103 exch2_jHi(1,414)=103 exch2_opposingSend(1,414)=2 exch2_pij(1,1,414)=1 exch2_pij(2,1,414)=0 exch2_pij(3,1,414)=0 exch2_pij(4,1,414)=1 exch2_oi(1,414)=0 exch2_oj(1,414)=0 exch2_neighbourId(2,414)=399 exch2_iLo(2,414)=0 exch2_iHi(2,414)=35 exch2_jLo(2,414)=0 exch2_jHi(2,414)=0 exch2_opposingSend(2,414)=1 exch2_pij(1,2,414)=1 exch2_pij(2,2,414)=0 exch2_pij(3,2,414)=0 exch2_pij(4,2,414)=1 exch2_oi(2,414)=0 exch2_oj(2,414)=0 exch2_neighbourId(3,414)=415 exch2_iLo(3,414)=35 exch2_iHi(3,414)=35 exch2_jLo(3,414)=0 exch2_jHi(3,414)=103 exch2_opposingSend(3,414)=4 exch2_pij(1,3,414)=1 exch2_pij(2,3,414)=0 exch2_pij(3,3,414)=0 exch2_pij(4,3,414)=1 exch2_oi(3,414)=0 exch2_oj(3,414)=0 exch2_neighbourId(4,414)=413 exch2_iLo(4,414)=0 exch2_iHi(4,414)=0 exch2_jLo(4,414)=0 exch2_jHi(4,414)=103 exch2_opposingSend(4,414)=3 exch2_pij(1,4,414)=1 exch2_pij(2,4,414)=0 exch2_pij(3,4,414)=0 exch2_pij(4,4,414)=1 exch2_oi(4,414)=0 exch2_oj(4,414)=0 RETURN END SUBROUTINE W2_E2SETUP_415 C Topology for tile 415 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(415)=34 exch2_tNy(415)=102 exch2_tBasex(415)=306 exch2_tBasey(415)=204 exch2_txGlobalo(415)=2857 exch2_tyGlobalo(415)=205 exch2_isWedge(415)=0 exch2_isNedge(415)=0 exch2_isEedge(415)=0 exch2_isSedge(415)=0 exch2_myFace(415)=6 exch2_mydNx(415)=510 exch2_mydNy(415)=510 exch2_nNeighbours(415)=4 exch2_neighbourId(1,415)=430 exch2_iLo(1,415)=0 exch2_iHi(1,415)=35 exch2_jLo(1,415)=103 exch2_jHi(1,415)=103 exch2_opposingSend(1,415)=2 exch2_pij(1,1,415)=1 exch2_pij(2,1,415)=0 exch2_pij(3,1,415)=0 exch2_pij(4,1,415)=1 exch2_oi(1,415)=0 exch2_oj(1,415)=0 exch2_neighbourId(2,415)=400 exch2_iLo(2,415)=0 exch2_iHi(2,415)=35 exch2_jLo(2,415)=0 exch2_jHi(2,415)=0 exch2_opposingSend(2,415)=1 exch2_pij(1,2,415)=1 exch2_pij(2,2,415)=0 exch2_pij(3,2,415)=0 exch2_pij(4,2,415)=1 exch2_oi(2,415)=0 exch2_oj(2,415)=0 exch2_neighbourId(3,415)=416 exch2_iLo(3,415)=35 exch2_iHi(3,415)=35 exch2_jLo(3,415)=0 exch2_jHi(3,415)=103 exch2_opposingSend(3,415)=4 exch2_pij(1,3,415)=1 exch2_pij(2,3,415)=0 exch2_pij(3,3,415)=0 exch2_pij(4,3,415)=1 exch2_oi(3,415)=0 exch2_oj(3,415)=0 exch2_neighbourId(4,415)=414 exch2_iLo(4,415)=0 exch2_iHi(4,415)=0 exch2_jLo(4,415)=0 exch2_jHi(4,415)=103 exch2_opposingSend(4,415)=3 exch2_pij(1,4,415)=1 exch2_pij(2,4,415)=0 exch2_pij(3,4,415)=0 exch2_pij(4,4,415)=1 exch2_oi(4,415)=0 exch2_oj(4,415)=0 RETURN END SUBROUTINE W2_E2SETUP_416 C Topology for tile 416 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(416)=34 exch2_tNy(416)=102 exch2_tBasex(416)=340 exch2_tBasey(416)=204 exch2_txGlobalo(416)=2891 exch2_tyGlobalo(416)=205 exch2_isWedge(416)=0 exch2_isNedge(416)=0 exch2_isEedge(416)=0 exch2_isSedge(416)=0 exch2_myFace(416)=6 exch2_mydNx(416)=510 exch2_mydNy(416)=510 exch2_nNeighbours(416)=4 exch2_neighbourId(1,416)=431 exch2_iLo(1,416)=0 exch2_iHi(1,416)=35 exch2_jLo(1,416)=103 exch2_jHi(1,416)=103 exch2_opposingSend(1,416)=2 exch2_pij(1,1,416)=1 exch2_pij(2,1,416)=0 exch2_pij(3,1,416)=0 exch2_pij(4,1,416)=1 exch2_oi(1,416)=0 exch2_oj(1,416)=0 exch2_neighbourId(2,416)=401 exch2_iLo(2,416)=0 exch2_iHi(2,416)=35 exch2_jLo(2,416)=0 exch2_jHi(2,416)=0 exch2_opposingSend(2,416)=1 exch2_pij(1,2,416)=1 exch2_pij(2,2,416)=0 exch2_pij(3,2,416)=0 exch2_pij(4,2,416)=1 exch2_oi(2,416)=0 exch2_oj(2,416)=0 exch2_neighbourId(3,416)=417 exch2_iLo(3,416)=35 exch2_iHi(3,416)=35 exch2_jLo(3,416)=0 exch2_jHi(3,416)=103 exch2_opposingSend(3,416)=4 exch2_pij(1,3,416)=1 exch2_pij(2,3,416)=0 exch2_pij(3,3,416)=0 exch2_pij(4,3,416)=1 exch2_oi(3,416)=0 exch2_oj(3,416)=0 exch2_neighbourId(4,416)=415 exch2_iLo(4,416)=0 exch2_iHi(4,416)=0 exch2_jLo(4,416)=0 exch2_jHi(4,416)=103 exch2_opposingSend(4,416)=3 exch2_pij(1,4,416)=1 exch2_pij(2,4,416)=0 exch2_pij(3,4,416)=0 exch2_pij(4,4,416)=1 exch2_oi(4,416)=0 exch2_oj(4,416)=0 RETURN END SUBROUTINE W2_E2SETUP_417 C Topology for tile 417 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(417)=34 exch2_tNy(417)=102 exch2_tBasex(417)=374 exch2_tBasey(417)=204 exch2_txGlobalo(417)=2925 exch2_tyGlobalo(417)=205 exch2_isWedge(417)=0 exch2_isNedge(417)=0 exch2_isEedge(417)=0 exch2_isSedge(417)=0 exch2_myFace(417)=6 exch2_mydNx(417)=510 exch2_mydNy(417)=510 exch2_nNeighbours(417)=4 exch2_neighbourId(1,417)=432 exch2_iLo(1,417)=0 exch2_iHi(1,417)=35 exch2_jLo(1,417)=103 exch2_jHi(1,417)=103 exch2_opposingSend(1,417)=2 exch2_pij(1,1,417)=1 exch2_pij(2,1,417)=0 exch2_pij(3,1,417)=0 exch2_pij(4,1,417)=1 exch2_oi(1,417)=0 exch2_oj(1,417)=0 exch2_neighbourId(2,417)=402 exch2_iLo(2,417)=0 exch2_iHi(2,417)=35 exch2_jLo(2,417)=0 exch2_jHi(2,417)=0 exch2_opposingSend(2,417)=1 exch2_pij(1,2,417)=1 exch2_pij(2,2,417)=0 exch2_pij(3,2,417)=0 exch2_pij(4,2,417)=1 exch2_oi(2,417)=0 exch2_oj(2,417)=0 exch2_neighbourId(3,417)=418 exch2_iLo(3,417)=35 exch2_iHi(3,417)=35 exch2_jLo(3,417)=0 exch2_jHi(3,417)=103 exch2_opposingSend(3,417)=4 exch2_pij(1,3,417)=1 exch2_pij(2,3,417)=0 exch2_pij(3,3,417)=0 exch2_pij(4,3,417)=1 exch2_oi(3,417)=0 exch2_oj(3,417)=0 exch2_neighbourId(4,417)=416 exch2_iLo(4,417)=0 exch2_iHi(4,417)=0 exch2_jLo(4,417)=0 exch2_jHi(4,417)=103 exch2_opposingSend(4,417)=3 exch2_pij(1,4,417)=1 exch2_pij(2,4,417)=0 exch2_pij(3,4,417)=0 exch2_pij(4,4,417)=1 exch2_oi(4,417)=0 exch2_oj(4,417)=0 RETURN END SUBROUTINE W2_E2SETUP_418 C Topology for tile 418 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(418)=34 exch2_tNy(418)=102 exch2_tBasex(418)=408 exch2_tBasey(418)=204 exch2_txGlobalo(418)=2959 exch2_tyGlobalo(418)=205 exch2_isWedge(418)=0 exch2_isNedge(418)=0 exch2_isEedge(418)=0 exch2_isSedge(418)=0 exch2_myFace(418)=6 exch2_mydNx(418)=510 exch2_mydNy(418)=510 exch2_nNeighbours(418)=4 exch2_neighbourId(1,418)=433 exch2_iLo(1,418)=0 exch2_iHi(1,418)=35 exch2_jLo(1,418)=103 exch2_jHi(1,418)=103 exch2_opposingSend(1,418)=2 exch2_pij(1,1,418)=1 exch2_pij(2,1,418)=0 exch2_pij(3,1,418)=0 exch2_pij(4,1,418)=1 exch2_oi(1,418)=0 exch2_oj(1,418)=0 exch2_neighbourId(2,418)=403 exch2_iLo(2,418)=0 exch2_iHi(2,418)=35 exch2_jLo(2,418)=0 exch2_jHi(2,418)=0 exch2_opposingSend(2,418)=1 exch2_pij(1,2,418)=1 exch2_pij(2,2,418)=0 exch2_pij(3,2,418)=0 exch2_pij(4,2,418)=1 exch2_oi(2,418)=0 exch2_oj(2,418)=0 exch2_neighbourId(3,418)=419 exch2_iLo(3,418)=35 exch2_iHi(3,418)=35 exch2_jLo(3,418)=0 exch2_jHi(3,418)=103 exch2_opposingSend(3,418)=4 exch2_pij(1,3,418)=1 exch2_pij(2,3,418)=0 exch2_pij(3,3,418)=0 exch2_pij(4,3,418)=1 exch2_oi(3,418)=0 exch2_oj(3,418)=0 exch2_neighbourId(4,418)=417 exch2_iLo(4,418)=0 exch2_iHi(4,418)=0 exch2_jLo(4,418)=0 exch2_jHi(4,418)=103 exch2_opposingSend(4,418)=3 exch2_pij(1,4,418)=1 exch2_pij(2,4,418)=0 exch2_pij(3,4,418)=0 exch2_pij(4,4,418)=1 exch2_oi(4,418)=0 exch2_oj(4,418)=0 RETURN END SUBROUTINE W2_E2SETUP_419 C Topology for tile 419 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(419)=34 exch2_tNy(419)=102 exch2_tBasex(419)=442 exch2_tBasey(419)=204 exch2_txGlobalo(419)=2993 exch2_tyGlobalo(419)=205 exch2_isWedge(419)=0 exch2_isNedge(419)=0 exch2_isEedge(419)=0 exch2_isSedge(419)=0 exch2_myFace(419)=6 exch2_mydNx(419)=510 exch2_mydNy(419)=510 exch2_nNeighbours(419)=4 exch2_neighbourId(1,419)=434 exch2_iLo(1,419)=0 exch2_iHi(1,419)=35 exch2_jLo(1,419)=103 exch2_jHi(1,419)=103 exch2_opposingSend(1,419)=2 exch2_pij(1,1,419)=1 exch2_pij(2,1,419)=0 exch2_pij(3,1,419)=0 exch2_pij(4,1,419)=1 exch2_oi(1,419)=0 exch2_oj(1,419)=0 exch2_neighbourId(2,419)=404 exch2_iLo(2,419)=0 exch2_iHi(2,419)=35 exch2_jLo(2,419)=0 exch2_jHi(2,419)=0 exch2_opposingSend(2,419)=1 exch2_pij(1,2,419)=1 exch2_pij(2,2,419)=0 exch2_pij(3,2,419)=0 exch2_pij(4,2,419)=1 exch2_oi(2,419)=0 exch2_oj(2,419)=0 exch2_neighbourId(3,419)=420 exch2_iLo(3,419)=35 exch2_iHi(3,419)=35 exch2_jLo(3,419)=0 exch2_jHi(3,419)=103 exch2_opposingSend(3,419)=6 exch2_pij(1,3,419)=1 exch2_pij(2,3,419)=0 exch2_pij(3,3,419)=0 exch2_pij(4,3,419)=1 exch2_oi(3,419)=0 exch2_oj(3,419)=0 exch2_neighbourId(4,419)=418 exch2_iLo(4,419)=0 exch2_iHi(4,419)=0 exch2_jLo(4,419)=0 exch2_jHi(4,419)=103 exch2_opposingSend(4,419)=3 exch2_pij(1,4,419)=1 exch2_pij(2,4,419)=0 exch2_pij(3,4,419)=0 exch2_pij(4,4,419)=1 exch2_oi(4,419)=0 exch2_oj(4,419)=0 RETURN END SUBROUTINE W2_E2SETUP_420 C Topology for tile 420 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(420)=34 exch2_tNy(420)=102 exch2_tBasex(420)=476 exch2_tBasey(420)=204 exch2_txGlobalo(420)=3027 exch2_tyGlobalo(420)=205 exch2_isWedge(420)=0 exch2_isNedge(420)=0 exch2_isEedge(420)=1 exch2_isSedge(420)=0 exch2_myFace(420)=6 exch2_mydNx(420)=510 exch2_mydNy(420)=510 exch2_nNeighbours(420)=6 exch2_neighbourId(1,420)=435 exch2_iLo(1,420)=0 exch2_iHi(1,420)=35 exch2_jLo(1,420)=103 exch2_jHi(1,420)=103 exch2_opposingSend(1,420)=2 exch2_pij(1,1,420)=1 exch2_pij(2,1,420)=0 exch2_pij(3,1,420)=0 exch2_pij(4,1,420)=1 exch2_oi(1,420)=0 exch2_oj(1,420)=0 exch2_neighbourId(2,420)=405 exch2_iLo(2,420)=0 exch2_iHi(2,420)=35 exch2_jLo(2,420)=0 exch2_jHi(2,420)=0 exch2_opposingSend(2,420)=1 exch2_pij(1,2,420)=1 exch2_pij(2,2,420)=0 exch2_pij(3,2,420)=0 exch2_pij(4,2,420)=1 exch2_oi(2,420)=0 exch2_oj(2,420)=0 exch2_neighbourId(3,420)=82 exch2_iLo(3,420)=35 exch2_iHi(3,420)=35 exch2_jLo(3,420)=68 exch2_jHi(3,420)=103 exch2_opposingSend(3,420)=2 exch2_pij(1,3,420)=0 exch2_pij(2,3,420)=1 exch2_pij(3,3,420)=-1 exch2_pij(4,3,420)=0 exch2_oi(3,420)=510 exch2_oj(3,420)=511 exch2_neighbourId(4,420)=83 exch2_iLo(4,420)=35 exch2_iHi(4,420)=35 exch2_jLo(4,420)=34 exch2_jHi(4,420)=69 exch2_opposingSend(4,420)=2 exch2_pij(1,4,420)=0 exch2_pij(2,4,420)=1 exch2_pij(3,4,420)=-1 exch2_pij(4,4,420)=0 exch2_oi(4,420)=510 exch2_oj(4,420)=511 exch2_neighbourId(5,420)=84 exch2_iLo(5,420)=35 exch2_iHi(5,420)=35 exch2_jLo(5,420)=0 exch2_jHi(5,420)=35 exch2_opposingSend(5,420)=2 exch2_pij(1,5,420)=0 exch2_pij(2,5,420)=1 exch2_pij(3,5,420)=-1 exch2_pij(4,5,420)=0 exch2_oi(5,420)=510 exch2_oj(5,420)=511 exch2_neighbourId(6,420)=419 exch2_iLo(6,420)=0 exch2_iHi(6,420)=0 exch2_jLo(6,420)=0 exch2_jHi(6,420)=103 exch2_opposingSend(6,420)=3 exch2_pij(1,6,420)=1 exch2_pij(2,6,420)=0 exch2_pij(3,6,420)=0 exch2_pij(4,6,420)=1 exch2_oi(6,420)=0 exch2_oj(6,420)=0 RETURN END SUBROUTINE W2_E2SETUP_421 C Topology for tile 421 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(421)=34 exch2_tNy(421)=102 exch2_tBasex(421)=0 exch2_tBasey(421)=306 exch2_txGlobalo(421)=2551 exch2_tyGlobalo(421)=307 exch2_isWedge(421)=1 exch2_isNedge(421)=0 exch2_isEedge(421)=0 exch2_isSedge(421)=0 exch2_myFace(421)=6 exch2_mydNx(421)=510 exch2_mydNy(421)=510 exch2_nNeighbours(421)=4 exch2_neighbourId(1,421)=436 exch2_iLo(1,421)=0 exch2_iHi(1,421)=35 exch2_jLo(1,421)=103 exch2_jHi(1,421)=103 exch2_opposingSend(1,421)=2 exch2_pij(1,1,421)=1 exch2_pij(2,1,421)=0 exch2_pij(3,1,421)=0 exch2_pij(4,1,421)=1 exch2_oi(1,421)=0 exch2_oj(1,421)=0 exch2_neighbourId(2,421)=406 exch2_iLo(2,421)=0 exch2_iHi(2,421)=35 exch2_jLo(2,421)=0 exch2_jHi(2,421)=0 exch2_opposingSend(2,421)=1 exch2_pij(1,2,421)=1 exch2_pij(2,2,421)=0 exch2_pij(3,2,421)=0 exch2_pij(4,2,421)=1 exch2_oi(2,421)=0 exch2_oj(2,421)=0 exch2_neighbourId(3,421)=422 exch2_iLo(3,421)=35 exch2_iHi(3,421)=35 exch2_jLo(3,421)=0 exch2_jHi(3,421)=103 exch2_opposingSend(3,421)=4 exch2_pij(1,3,421)=1 exch2_pij(2,3,421)=0 exch2_pij(3,3,421)=0 exch2_pij(4,3,421)=1 exch2_oi(3,421)=0 exch2_oj(3,421)=0 exch2_neighbourId(4,421)=360 exch2_iLo(4,421)=0 exch2_iHi(4,421)=0 exch2_jLo(4,421)=0 exch2_jHi(4,421)=103 exch2_opposingSend(4,421)=3 exch2_pij(1,4,421)=1 exch2_pij(2,4,421)=0 exch2_pij(3,4,421)=0 exch2_pij(4,4,421)=1 exch2_oi(4,421)=-510 exch2_oj(4,421)=0 RETURN END SUBROUTINE W2_E2SETUP_422 C Topology for tile 422 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(422)=34 exch2_tNy(422)=102 exch2_tBasex(422)=34 exch2_tBasey(422)=306 exch2_txGlobalo(422)=2585 exch2_tyGlobalo(422)=307 exch2_isWedge(422)=0 exch2_isNedge(422)=0 exch2_isEedge(422)=0 exch2_isSedge(422)=0 exch2_myFace(422)=6 exch2_mydNx(422)=510 exch2_mydNy(422)=510 exch2_nNeighbours(422)=4 exch2_neighbourId(1,422)=437 exch2_iLo(1,422)=0 exch2_iHi(1,422)=35 exch2_jLo(1,422)=103 exch2_jHi(1,422)=103 exch2_opposingSend(1,422)=2 exch2_pij(1,1,422)=1 exch2_pij(2,1,422)=0 exch2_pij(3,1,422)=0 exch2_pij(4,1,422)=1 exch2_oi(1,422)=0 exch2_oj(1,422)=0 exch2_neighbourId(2,422)=407 exch2_iLo(2,422)=0 exch2_iHi(2,422)=35 exch2_jLo(2,422)=0 exch2_jHi(2,422)=0 exch2_opposingSend(2,422)=1 exch2_pij(1,2,422)=1 exch2_pij(2,2,422)=0 exch2_pij(3,2,422)=0 exch2_pij(4,2,422)=1 exch2_oi(2,422)=0 exch2_oj(2,422)=0 exch2_neighbourId(3,422)=423 exch2_iLo(3,422)=35 exch2_iHi(3,422)=35 exch2_jLo(3,422)=0 exch2_jHi(3,422)=103 exch2_opposingSend(3,422)=4 exch2_pij(1,3,422)=1 exch2_pij(2,3,422)=0 exch2_pij(3,3,422)=0 exch2_pij(4,3,422)=1 exch2_oi(3,422)=0 exch2_oj(3,422)=0 exch2_neighbourId(4,422)=421 exch2_iLo(4,422)=0 exch2_iHi(4,422)=0 exch2_jLo(4,422)=0 exch2_jHi(4,422)=103 exch2_opposingSend(4,422)=3 exch2_pij(1,4,422)=1 exch2_pij(2,4,422)=0 exch2_pij(3,4,422)=0 exch2_pij(4,4,422)=1 exch2_oi(4,422)=0 exch2_oj(4,422)=0 RETURN END SUBROUTINE W2_E2SETUP_423 C Topology for tile 423 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(423)=34 exch2_tNy(423)=102 exch2_tBasex(423)=68 exch2_tBasey(423)=306 exch2_txGlobalo(423)=2619 exch2_tyGlobalo(423)=307 exch2_isWedge(423)=0 exch2_isNedge(423)=0 exch2_isEedge(423)=0 exch2_isSedge(423)=0 exch2_myFace(423)=6 exch2_mydNx(423)=510 exch2_mydNy(423)=510 exch2_nNeighbours(423)=4 exch2_neighbourId(1,423)=438 exch2_iLo(1,423)=0 exch2_iHi(1,423)=35 exch2_jLo(1,423)=103 exch2_jHi(1,423)=103 exch2_opposingSend(1,423)=2 exch2_pij(1,1,423)=1 exch2_pij(2,1,423)=0 exch2_pij(3,1,423)=0 exch2_pij(4,1,423)=1 exch2_oi(1,423)=0 exch2_oj(1,423)=0 exch2_neighbourId(2,423)=408 exch2_iLo(2,423)=0 exch2_iHi(2,423)=35 exch2_jLo(2,423)=0 exch2_jHi(2,423)=0 exch2_opposingSend(2,423)=1 exch2_pij(1,2,423)=1 exch2_pij(2,2,423)=0 exch2_pij(3,2,423)=0 exch2_pij(4,2,423)=1 exch2_oi(2,423)=0 exch2_oj(2,423)=0 exch2_neighbourId(3,423)=424 exch2_iLo(3,423)=35 exch2_iHi(3,423)=35 exch2_jLo(3,423)=0 exch2_jHi(3,423)=103 exch2_opposingSend(3,423)=4 exch2_pij(1,3,423)=1 exch2_pij(2,3,423)=0 exch2_pij(3,3,423)=0 exch2_pij(4,3,423)=1 exch2_oi(3,423)=0 exch2_oj(3,423)=0 exch2_neighbourId(4,423)=422 exch2_iLo(4,423)=0 exch2_iHi(4,423)=0 exch2_jLo(4,423)=0 exch2_jHi(4,423)=103 exch2_opposingSend(4,423)=3 exch2_pij(1,4,423)=1 exch2_pij(2,4,423)=0 exch2_pij(3,4,423)=0 exch2_pij(4,4,423)=1 exch2_oi(4,423)=0 exch2_oj(4,423)=0 RETURN END SUBROUTINE W2_E2SETUP_424 C Topology for tile 424 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(424)=34 exch2_tNy(424)=102 exch2_tBasex(424)=102 exch2_tBasey(424)=306 exch2_txGlobalo(424)=2653 exch2_tyGlobalo(424)=307 exch2_isWedge(424)=0 exch2_isNedge(424)=0 exch2_isEedge(424)=0 exch2_isSedge(424)=0 exch2_myFace(424)=6 exch2_mydNx(424)=510 exch2_mydNy(424)=510 exch2_nNeighbours(424)=4 exch2_neighbourId(1,424)=439 exch2_iLo(1,424)=0 exch2_iHi(1,424)=35 exch2_jLo(1,424)=103 exch2_jHi(1,424)=103 exch2_opposingSend(1,424)=2 exch2_pij(1,1,424)=1 exch2_pij(2,1,424)=0 exch2_pij(3,1,424)=0 exch2_pij(4,1,424)=1 exch2_oi(1,424)=0 exch2_oj(1,424)=0 exch2_neighbourId(2,424)=409 exch2_iLo(2,424)=0 exch2_iHi(2,424)=35 exch2_jLo(2,424)=0 exch2_jHi(2,424)=0 exch2_opposingSend(2,424)=1 exch2_pij(1,2,424)=1 exch2_pij(2,2,424)=0 exch2_pij(3,2,424)=0 exch2_pij(4,2,424)=1 exch2_oi(2,424)=0 exch2_oj(2,424)=0 exch2_neighbourId(3,424)=425 exch2_iLo(3,424)=35 exch2_iHi(3,424)=35 exch2_jLo(3,424)=0 exch2_jHi(3,424)=103 exch2_opposingSend(3,424)=4 exch2_pij(1,3,424)=1 exch2_pij(2,3,424)=0 exch2_pij(3,3,424)=0 exch2_pij(4,3,424)=1 exch2_oi(3,424)=0 exch2_oj(3,424)=0 exch2_neighbourId(4,424)=423 exch2_iLo(4,424)=0 exch2_iHi(4,424)=0 exch2_jLo(4,424)=0 exch2_jHi(4,424)=103 exch2_opposingSend(4,424)=3 exch2_pij(1,4,424)=1 exch2_pij(2,4,424)=0 exch2_pij(3,4,424)=0 exch2_pij(4,4,424)=1 exch2_oi(4,424)=0 exch2_oj(4,424)=0 RETURN END SUBROUTINE W2_E2SETUP_425 C Topology for tile 425 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(425)=34 exch2_tNy(425)=102 exch2_tBasex(425)=136 exch2_tBasey(425)=306 exch2_txGlobalo(425)=2687 exch2_tyGlobalo(425)=307 exch2_isWedge(425)=0 exch2_isNedge(425)=0 exch2_isEedge(425)=0 exch2_isSedge(425)=0 exch2_myFace(425)=6 exch2_mydNx(425)=510 exch2_mydNy(425)=510 exch2_nNeighbours(425)=4 exch2_neighbourId(1,425)=440 exch2_iLo(1,425)=0 exch2_iHi(1,425)=35 exch2_jLo(1,425)=103 exch2_jHi(1,425)=103 exch2_opposingSend(1,425)=2 exch2_pij(1,1,425)=1 exch2_pij(2,1,425)=0 exch2_pij(3,1,425)=0 exch2_pij(4,1,425)=1 exch2_oi(1,425)=0 exch2_oj(1,425)=0 exch2_neighbourId(2,425)=410 exch2_iLo(2,425)=0 exch2_iHi(2,425)=35 exch2_jLo(2,425)=0 exch2_jHi(2,425)=0 exch2_opposingSend(2,425)=1 exch2_pij(1,2,425)=1 exch2_pij(2,2,425)=0 exch2_pij(3,2,425)=0 exch2_pij(4,2,425)=1 exch2_oi(2,425)=0 exch2_oj(2,425)=0 exch2_neighbourId(3,425)=426 exch2_iLo(3,425)=35 exch2_iHi(3,425)=35 exch2_jLo(3,425)=0 exch2_jHi(3,425)=103 exch2_opposingSend(3,425)=4 exch2_pij(1,3,425)=1 exch2_pij(2,3,425)=0 exch2_pij(3,3,425)=0 exch2_pij(4,3,425)=1 exch2_oi(3,425)=0 exch2_oj(3,425)=0 exch2_neighbourId(4,425)=424 exch2_iLo(4,425)=0 exch2_iHi(4,425)=0 exch2_jLo(4,425)=0 exch2_jHi(4,425)=103 exch2_opposingSend(4,425)=3 exch2_pij(1,4,425)=1 exch2_pij(2,4,425)=0 exch2_pij(3,4,425)=0 exch2_pij(4,4,425)=1 exch2_oi(4,425)=0 exch2_oj(4,425)=0 RETURN END SUBROUTINE W2_E2SETUP_426 C Topology for tile 426 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(426)=34 exch2_tNy(426)=102 exch2_tBasex(426)=170 exch2_tBasey(426)=306 exch2_txGlobalo(426)=2721 exch2_tyGlobalo(426)=307 exch2_isWedge(426)=0 exch2_isNedge(426)=0 exch2_isEedge(426)=0 exch2_isSedge(426)=0 exch2_myFace(426)=6 exch2_mydNx(426)=510 exch2_mydNy(426)=510 exch2_nNeighbours(426)=4 exch2_neighbourId(1,426)=441 exch2_iLo(1,426)=0 exch2_iHi(1,426)=35 exch2_jLo(1,426)=103 exch2_jHi(1,426)=103 exch2_opposingSend(1,426)=2 exch2_pij(1,1,426)=1 exch2_pij(2,1,426)=0 exch2_pij(3,1,426)=0 exch2_pij(4,1,426)=1 exch2_oi(1,426)=0 exch2_oj(1,426)=0 exch2_neighbourId(2,426)=411 exch2_iLo(2,426)=0 exch2_iHi(2,426)=35 exch2_jLo(2,426)=0 exch2_jHi(2,426)=0 exch2_opposingSend(2,426)=1 exch2_pij(1,2,426)=1 exch2_pij(2,2,426)=0 exch2_pij(3,2,426)=0 exch2_pij(4,2,426)=1 exch2_oi(2,426)=0 exch2_oj(2,426)=0 exch2_neighbourId(3,426)=427 exch2_iLo(3,426)=35 exch2_iHi(3,426)=35 exch2_jLo(3,426)=0 exch2_jHi(3,426)=103 exch2_opposingSend(3,426)=4 exch2_pij(1,3,426)=1 exch2_pij(2,3,426)=0 exch2_pij(3,3,426)=0 exch2_pij(4,3,426)=1 exch2_oi(3,426)=0 exch2_oj(3,426)=0 exch2_neighbourId(4,426)=425 exch2_iLo(4,426)=0 exch2_iHi(4,426)=0 exch2_jLo(4,426)=0 exch2_jHi(4,426)=103 exch2_opposingSend(4,426)=3 exch2_pij(1,4,426)=1 exch2_pij(2,4,426)=0 exch2_pij(3,4,426)=0 exch2_pij(4,4,426)=1 exch2_oi(4,426)=0 exch2_oj(4,426)=0 RETURN END SUBROUTINE W2_E2SETUP_427 C Topology for tile 427 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(427)=34 exch2_tNy(427)=102 exch2_tBasex(427)=204 exch2_tBasey(427)=306 exch2_txGlobalo(427)=2755 exch2_tyGlobalo(427)=307 exch2_isWedge(427)=0 exch2_isNedge(427)=0 exch2_isEedge(427)=0 exch2_isSedge(427)=0 exch2_myFace(427)=6 exch2_mydNx(427)=510 exch2_mydNy(427)=510 exch2_nNeighbours(427)=4 exch2_neighbourId(1,427)=442 exch2_iLo(1,427)=0 exch2_iHi(1,427)=35 exch2_jLo(1,427)=103 exch2_jHi(1,427)=103 exch2_opposingSend(1,427)=2 exch2_pij(1,1,427)=1 exch2_pij(2,1,427)=0 exch2_pij(3,1,427)=0 exch2_pij(4,1,427)=1 exch2_oi(1,427)=0 exch2_oj(1,427)=0 exch2_neighbourId(2,427)=412 exch2_iLo(2,427)=0 exch2_iHi(2,427)=35 exch2_jLo(2,427)=0 exch2_jHi(2,427)=0 exch2_opposingSend(2,427)=1 exch2_pij(1,2,427)=1 exch2_pij(2,2,427)=0 exch2_pij(3,2,427)=0 exch2_pij(4,2,427)=1 exch2_oi(2,427)=0 exch2_oj(2,427)=0 exch2_neighbourId(3,427)=428 exch2_iLo(3,427)=35 exch2_iHi(3,427)=35 exch2_jLo(3,427)=0 exch2_jHi(3,427)=103 exch2_opposingSend(3,427)=4 exch2_pij(1,3,427)=1 exch2_pij(2,3,427)=0 exch2_pij(3,3,427)=0 exch2_pij(4,3,427)=1 exch2_oi(3,427)=0 exch2_oj(3,427)=0 exch2_neighbourId(4,427)=426 exch2_iLo(4,427)=0 exch2_iHi(4,427)=0 exch2_jLo(4,427)=0 exch2_jHi(4,427)=103 exch2_opposingSend(4,427)=3 exch2_pij(1,4,427)=1 exch2_pij(2,4,427)=0 exch2_pij(3,4,427)=0 exch2_pij(4,4,427)=1 exch2_oi(4,427)=0 exch2_oj(4,427)=0 RETURN END SUBROUTINE W2_E2SETUP_428 C Topology for tile 428 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(428)=34 exch2_tNy(428)=102 exch2_tBasex(428)=238 exch2_tBasey(428)=306 exch2_txGlobalo(428)=2789 exch2_tyGlobalo(428)=307 exch2_isWedge(428)=0 exch2_isNedge(428)=0 exch2_isEedge(428)=0 exch2_isSedge(428)=0 exch2_myFace(428)=6 exch2_mydNx(428)=510 exch2_mydNy(428)=510 exch2_nNeighbours(428)=4 exch2_neighbourId(1,428)=443 exch2_iLo(1,428)=0 exch2_iHi(1,428)=35 exch2_jLo(1,428)=103 exch2_jHi(1,428)=103 exch2_opposingSend(1,428)=2 exch2_pij(1,1,428)=1 exch2_pij(2,1,428)=0 exch2_pij(3,1,428)=0 exch2_pij(4,1,428)=1 exch2_oi(1,428)=0 exch2_oj(1,428)=0 exch2_neighbourId(2,428)=413 exch2_iLo(2,428)=0 exch2_iHi(2,428)=35 exch2_jLo(2,428)=0 exch2_jHi(2,428)=0 exch2_opposingSend(2,428)=1 exch2_pij(1,2,428)=1 exch2_pij(2,2,428)=0 exch2_pij(3,2,428)=0 exch2_pij(4,2,428)=1 exch2_oi(2,428)=0 exch2_oj(2,428)=0 exch2_neighbourId(3,428)=429 exch2_iLo(3,428)=35 exch2_iHi(3,428)=35 exch2_jLo(3,428)=0 exch2_jHi(3,428)=103 exch2_opposingSend(3,428)=4 exch2_pij(1,3,428)=1 exch2_pij(2,3,428)=0 exch2_pij(3,3,428)=0 exch2_pij(4,3,428)=1 exch2_oi(3,428)=0 exch2_oj(3,428)=0 exch2_neighbourId(4,428)=427 exch2_iLo(4,428)=0 exch2_iHi(4,428)=0 exch2_jLo(4,428)=0 exch2_jHi(4,428)=103 exch2_opposingSend(4,428)=3 exch2_pij(1,4,428)=1 exch2_pij(2,4,428)=0 exch2_pij(3,4,428)=0 exch2_pij(4,4,428)=1 exch2_oi(4,428)=0 exch2_oj(4,428)=0 RETURN END SUBROUTINE W2_E2SETUP_429 C Topology for tile 429 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(429)=34 exch2_tNy(429)=102 exch2_tBasex(429)=272 exch2_tBasey(429)=306 exch2_txGlobalo(429)=2823 exch2_tyGlobalo(429)=307 exch2_isWedge(429)=0 exch2_isNedge(429)=0 exch2_isEedge(429)=0 exch2_isSedge(429)=0 exch2_myFace(429)=6 exch2_mydNx(429)=510 exch2_mydNy(429)=510 exch2_nNeighbours(429)=4 exch2_neighbourId(1,429)=444 exch2_iLo(1,429)=0 exch2_iHi(1,429)=35 exch2_jLo(1,429)=103 exch2_jHi(1,429)=103 exch2_opposingSend(1,429)=2 exch2_pij(1,1,429)=1 exch2_pij(2,1,429)=0 exch2_pij(3,1,429)=0 exch2_pij(4,1,429)=1 exch2_oi(1,429)=0 exch2_oj(1,429)=0 exch2_neighbourId(2,429)=414 exch2_iLo(2,429)=0 exch2_iHi(2,429)=35 exch2_jLo(2,429)=0 exch2_jHi(2,429)=0 exch2_opposingSend(2,429)=1 exch2_pij(1,2,429)=1 exch2_pij(2,2,429)=0 exch2_pij(3,2,429)=0 exch2_pij(4,2,429)=1 exch2_oi(2,429)=0 exch2_oj(2,429)=0 exch2_neighbourId(3,429)=430 exch2_iLo(3,429)=35 exch2_iHi(3,429)=35 exch2_jLo(3,429)=0 exch2_jHi(3,429)=103 exch2_opposingSend(3,429)=4 exch2_pij(1,3,429)=1 exch2_pij(2,3,429)=0 exch2_pij(3,3,429)=0 exch2_pij(4,3,429)=1 exch2_oi(3,429)=0 exch2_oj(3,429)=0 exch2_neighbourId(4,429)=428 exch2_iLo(4,429)=0 exch2_iHi(4,429)=0 exch2_jLo(4,429)=0 exch2_jHi(4,429)=103 exch2_opposingSend(4,429)=3 exch2_pij(1,4,429)=1 exch2_pij(2,4,429)=0 exch2_pij(3,4,429)=0 exch2_pij(4,4,429)=1 exch2_oi(4,429)=0 exch2_oj(4,429)=0 RETURN END SUBROUTINE W2_E2SETUP_430 C Topology for tile 430 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(430)=34 exch2_tNy(430)=102 exch2_tBasex(430)=306 exch2_tBasey(430)=306 exch2_txGlobalo(430)=2857 exch2_tyGlobalo(430)=307 exch2_isWedge(430)=0 exch2_isNedge(430)=0 exch2_isEedge(430)=0 exch2_isSedge(430)=0 exch2_myFace(430)=6 exch2_mydNx(430)=510 exch2_mydNy(430)=510 exch2_nNeighbours(430)=4 exch2_neighbourId(1,430)=445 exch2_iLo(1,430)=0 exch2_iHi(1,430)=35 exch2_jLo(1,430)=103 exch2_jHi(1,430)=103 exch2_opposingSend(1,430)=2 exch2_pij(1,1,430)=1 exch2_pij(2,1,430)=0 exch2_pij(3,1,430)=0 exch2_pij(4,1,430)=1 exch2_oi(1,430)=0 exch2_oj(1,430)=0 exch2_neighbourId(2,430)=415 exch2_iLo(2,430)=0 exch2_iHi(2,430)=35 exch2_jLo(2,430)=0 exch2_jHi(2,430)=0 exch2_opposingSend(2,430)=1 exch2_pij(1,2,430)=1 exch2_pij(2,2,430)=0 exch2_pij(3,2,430)=0 exch2_pij(4,2,430)=1 exch2_oi(2,430)=0 exch2_oj(2,430)=0 exch2_neighbourId(3,430)=431 exch2_iLo(3,430)=35 exch2_iHi(3,430)=35 exch2_jLo(3,430)=0 exch2_jHi(3,430)=103 exch2_opposingSend(3,430)=4 exch2_pij(1,3,430)=1 exch2_pij(2,3,430)=0 exch2_pij(3,3,430)=0 exch2_pij(4,3,430)=1 exch2_oi(3,430)=0 exch2_oj(3,430)=0 exch2_neighbourId(4,430)=429 exch2_iLo(4,430)=0 exch2_iHi(4,430)=0 exch2_jLo(4,430)=0 exch2_jHi(4,430)=103 exch2_opposingSend(4,430)=3 exch2_pij(1,4,430)=1 exch2_pij(2,4,430)=0 exch2_pij(3,4,430)=0 exch2_pij(4,4,430)=1 exch2_oi(4,430)=0 exch2_oj(4,430)=0 RETURN END SUBROUTINE W2_E2SETUP_431 C Topology for tile 431 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(431)=34 exch2_tNy(431)=102 exch2_tBasex(431)=340 exch2_tBasey(431)=306 exch2_txGlobalo(431)=2891 exch2_tyGlobalo(431)=307 exch2_isWedge(431)=0 exch2_isNedge(431)=0 exch2_isEedge(431)=0 exch2_isSedge(431)=0 exch2_myFace(431)=6 exch2_mydNx(431)=510 exch2_mydNy(431)=510 exch2_nNeighbours(431)=4 exch2_neighbourId(1,431)=446 exch2_iLo(1,431)=0 exch2_iHi(1,431)=35 exch2_jLo(1,431)=103 exch2_jHi(1,431)=103 exch2_opposingSend(1,431)=2 exch2_pij(1,1,431)=1 exch2_pij(2,1,431)=0 exch2_pij(3,1,431)=0 exch2_pij(4,1,431)=1 exch2_oi(1,431)=0 exch2_oj(1,431)=0 exch2_neighbourId(2,431)=416 exch2_iLo(2,431)=0 exch2_iHi(2,431)=35 exch2_jLo(2,431)=0 exch2_jHi(2,431)=0 exch2_opposingSend(2,431)=1 exch2_pij(1,2,431)=1 exch2_pij(2,2,431)=0 exch2_pij(3,2,431)=0 exch2_pij(4,2,431)=1 exch2_oi(2,431)=0 exch2_oj(2,431)=0 exch2_neighbourId(3,431)=432 exch2_iLo(3,431)=35 exch2_iHi(3,431)=35 exch2_jLo(3,431)=0 exch2_jHi(3,431)=103 exch2_opposingSend(3,431)=4 exch2_pij(1,3,431)=1 exch2_pij(2,3,431)=0 exch2_pij(3,3,431)=0 exch2_pij(4,3,431)=1 exch2_oi(3,431)=0 exch2_oj(3,431)=0 exch2_neighbourId(4,431)=430 exch2_iLo(4,431)=0 exch2_iHi(4,431)=0 exch2_jLo(4,431)=0 exch2_jHi(4,431)=103 exch2_opposingSend(4,431)=3 exch2_pij(1,4,431)=1 exch2_pij(2,4,431)=0 exch2_pij(3,4,431)=0 exch2_pij(4,4,431)=1 exch2_oi(4,431)=0 exch2_oj(4,431)=0 RETURN END SUBROUTINE W2_E2SETUP_432 C Topology for tile 432 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(432)=34 exch2_tNy(432)=102 exch2_tBasex(432)=374 exch2_tBasey(432)=306 exch2_txGlobalo(432)=2925 exch2_tyGlobalo(432)=307 exch2_isWedge(432)=0 exch2_isNedge(432)=0 exch2_isEedge(432)=0 exch2_isSedge(432)=0 exch2_myFace(432)=6 exch2_mydNx(432)=510 exch2_mydNy(432)=510 exch2_nNeighbours(432)=4 exch2_neighbourId(1,432)=447 exch2_iLo(1,432)=0 exch2_iHi(1,432)=35 exch2_jLo(1,432)=103 exch2_jHi(1,432)=103 exch2_opposingSend(1,432)=2 exch2_pij(1,1,432)=1 exch2_pij(2,1,432)=0 exch2_pij(3,1,432)=0 exch2_pij(4,1,432)=1 exch2_oi(1,432)=0 exch2_oj(1,432)=0 exch2_neighbourId(2,432)=417 exch2_iLo(2,432)=0 exch2_iHi(2,432)=35 exch2_jLo(2,432)=0 exch2_jHi(2,432)=0 exch2_opposingSend(2,432)=1 exch2_pij(1,2,432)=1 exch2_pij(2,2,432)=0 exch2_pij(3,2,432)=0 exch2_pij(4,2,432)=1 exch2_oi(2,432)=0 exch2_oj(2,432)=0 exch2_neighbourId(3,432)=433 exch2_iLo(3,432)=35 exch2_iHi(3,432)=35 exch2_jLo(3,432)=0 exch2_jHi(3,432)=103 exch2_opposingSend(3,432)=4 exch2_pij(1,3,432)=1 exch2_pij(2,3,432)=0 exch2_pij(3,3,432)=0 exch2_pij(4,3,432)=1 exch2_oi(3,432)=0 exch2_oj(3,432)=0 exch2_neighbourId(4,432)=431 exch2_iLo(4,432)=0 exch2_iHi(4,432)=0 exch2_jLo(4,432)=0 exch2_jHi(4,432)=103 exch2_opposingSend(4,432)=3 exch2_pij(1,4,432)=1 exch2_pij(2,4,432)=0 exch2_pij(3,4,432)=0 exch2_pij(4,4,432)=1 exch2_oi(4,432)=0 exch2_oj(4,432)=0 RETURN END SUBROUTINE W2_E2SETUP_433 C Topology for tile 433 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(433)=34 exch2_tNy(433)=102 exch2_tBasex(433)=408 exch2_tBasey(433)=306 exch2_txGlobalo(433)=2959 exch2_tyGlobalo(433)=307 exch2_isWedge(433)=0 exch2_isNedge(433)=0 exch2_isEedge(433)=0 exch2_isSedge(433)=0 exch2_myFace(433)=6 exch2_mydNx(433)=510 exch2_mydNy(433)=510 exch2_nNeighbours(433)=4 exch2_neighbourId(1,433)=448 exch2_iLo(1,433)=0 exch2_iHi(1,433)=35 exch2_jLo(1,433)=103 exch2_jHi(1,433)=103 exch2_opposingSend(1,433)=2 exch2_pij(1,1,433)=1 exch2_pij(2,1,433)=0 exch2_pij(3,1,433)=0 exch2_pij(4,1,433)=1 exch2_oi(1,433)=0 exch2_oj(1,433)=0 exch2_neighbourId(2,433)=418 exch2_iLo(2,433)=0 exch2_iHi(2,433)=35 exch2_jLo(2,433)=0 exch2_jHi(2,433)=0 exch2_opposingSend(2,433)=1 exch2_pij(1,2,433)=1 exch2_pij(2,2,433)=0 exch2_pij(3,2,433)=0 exch2_pij(4,2,433)=1 exch2_oi(2,433)=0 exch2_oj(2,433)=0 exch2_neighbourId(3,433)=434 exch2_iLo(3,433)=35 exch2_iHi(3,433)=35 exch2_jLo(3,433)=0 exch2_jHi(3,433)=103 exch2_opposingSend(3,433)=4 exch2_pij(1,3,433)=1 exch2_pij(2,3,433)=0 exch2_pij(3,3,433)=0 exch2_pij(4,3,433)=1 exch2_oi(3,433)=0 exch2_oj(3,433)=0 exch2_neighbourId(4,433)=432 exch2_iLo(4,433)=0 exch2_iHi(4,433)=0 exch2_jLo(4,433)=0 exch2_jHi(4,433)=103 exch2_opposingSend(4,433)=3 exch2_pij(1,4,433)=1 exch2_pij(2,4,433)=0 exch2_pij(3,4,433)=0 exch2_pij(4,4,433)=1 exch2_oi(4,433)=0 exch2_oj(4,433)=0 RETURN END SUBROUTINE W2_E2SETUP_434 C Topology for tile 434 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(434)=34 exch2_tNy(434)=102 exch2_tBasex(434)=442 exch2_tBasey(434)=306 exch2_txGlobalo(434)=2993 exch2_tyGlobalo(434)=307 exch2_isWedge(434)=0 exch2_isNedge(434)=0 exch2_isEedge(434)=0 exch2_isSedge(434)=0 exch2_myFace(434)=6 exch2_mydNx(434)=510 exch2_mydNy(434)=510 exch2_nNeighbours(434)=4 exch2_neighbourId(1,434)=449 exch2_iLo(1,434)=0 exch2_iHi(1,434)=35 exch2_jLo(1,434)=103 exch2_jHi(1,434)=103 exch2_opposingSend(1,434)=2 exch2_pij(1,1,434)=1 exch2_pij(2,1,434)=0 exch2_pij(3,1,434)=0 exch2_pij(4,1,434)=1 exch2_oi(1,434)=0 exch2_oj(1,434)=0 exch2_neighbourId(2,434)=419 exch2_iLo(2,434)=0 exch2_iHi(2,434)=35 exch2_jLo(2,434)=0 exch2_jHi(2,434)=0 exch2_opposingSend(2,434)=1 exch2_pij(1,2,434)=1 exch2_pij(2,2,434)=0 exch2_pij(3,2,434)=0 exch2_pij(4,2,434)=1 exch2_oi(2,434)=0 exch2_oj(2,434)=0 exch2_neighbourId(3,434)=435 exch2_iLo(3,434)=35 exch2_iHi(3,434)=35 exch2_jLo(3,434)=0 exch2_jHi(3,434)=103 exch2_opposingSend(3,434)=6 exch2_pij(1,3,434)=1 exch2_pij(2,3,434)=0 exch2_pij(3,3,434)=0 exch2_pij(4,3,434)=1 exch2_oi(3,434)=0 exch2_oj(3,434)=0 exch2_neighbourId(4,434)=433 exch2_iLo(4,434)=0 exch2_iHi(4,434)=0 exch2_jLo(4,434)=0 exch2_jHi(4,434)=103 exch2_opposingSend(4,434)=3 exch2_pij(1,4,434)=1 exch2_pij(2,4,434)=0 exch2_pij(3,4,434)=0 exch2_pij(4,4,434)=1 exch2_oi(4,434)=0 exch2_oj(4,434)=0 RETURN END SUBROUTINE W2_E2SETUP_435 C Topology for tile 435 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(435)=34 exch2_tNy(435)=102 exch2_tBasex(435)=476 exch2_tBasey(435)=306 exch2_txGlobalo(435)=3027 exch2_tyGlobalo(435)=307 exch2_isWedge(435)=0 exch2_isNedge(435)=0 exch2_isEedge(435)=1 exch2_isSedge(435)=0 exch2_myFace(435)=6 exch2_mydNx(435)=510 exch2_mydNy(435)=510 exch2_nNeighbours(435)=6 exch2_neighbourId(1,435)=450 exch2_iLo(1,435)=0 exch2_iHi(1,435)=35 exch2_jLo(1,435)=103 exch2_jHi(1,435)=103 exch2_opposingSend(1,435)=2 exch2_pij(1,1,435)=1 exch2_pij(2,1,435)=0 exch2_pij(3,1,435)=0 exch2_pij(4,1,435)=1 exch2_oi(1,435)=0 exch2_oj(1,435)=0 exch2_neighbourId(2,435)=420 exch2_iLo(2,435)=0 exch2_iHi(2,435)=35 exch2_jLo(2,435)=0 exch2_jHi(2,435)=0 exch2_opposingSend(2,435)=1 exch2_pij(1,2,435)=1 exch2_pij(2,2,435)=0 exch2_pij(3,2,435)=0 exch2_pij(4,2,435)=1 exch2_oi(2,435)=0 exch2_oj(2,435)=0 exch2_neighbourId(3,435)=79 exch2_iLo(3,435)=35 exch2_iHi(3,435)=35 exch2_jLo(3,435)=68 exch2_jHi(3,435)=103 exch2_opposingSend(3,435)=2 exch2_pij(1,3,435)=0 exch2_pij(2,3,435)=1 exch2_pij(3,3,435)=-1 exch2_pij(4,3,435)=0 exch2_oi(3,435)=510 exch2_oj(3,435)=511 exch2_neighbourId(4,435)=80 exch2_iLo(4,435)=35 exch2_iHi(4,435)=35 exch2_jLo(4,435)=34 exch2_jHi(4,435)=69 exch2_opposingSend(4,435)=2 exch2_pij(1,4,435)=0 exch2_pij(2,4,435)=1 exch2_pij(3,4,435)=-1 exch2_pij(4,4,435)=0 exch2_oi(4,435)=510 exch2_oj(4,435)=511 exch2_neighbourId(5,435)=81 exch2_iLo(5,435)=35 exch2_iHi(5,435)=35 exch2_jLo(5,435)=0 exch2_jHi(5,435)=35 exch2_opposingSend(5,435)=2 exch2_pij(1,5,435)=0 exch2_pij(2,5,435)=1 exch2_pij(3,5,435)=-1 exch2_pij(4,5,435)=0 exch2_oi(5,435)=510 exch2_oj(5,435)=511 exch2_neighbourId(6,435)=434 exch2_iLo(6,435)=0 exch2_iHi(6,435)=0 exch2_jLo(6,435)=0 exch2_jHi(6,435)=103 exch2_opposingSend(6,435)=3 exch2_pij(1,6,435)=1 exch2_pij(2,6,435)=0 exch2_pij(3,6,435)=0 exch2_pij(4,6,435)=1 exch2_oi(6,435)=0 exch2_oj(6,435)=0 RETURN END SUBROUTINE W2_E2SETUP_436 C Topology for tile 436 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(436)=34 exch2_tNy(436)=102 exch2_tBasex(436)=0 exch2_tBasey(436)=408 exch2_txGlobalo(436)=2551 exch2_tyGlobalo(436)=409 exch2_isWedge(436)=1 exch2_isNedge(436)=1 exch2_isEedge(436)=0 exch2_isSedge(436)=0 exch2_myFace(436)=6 exch2_mydNx(436)=510 exch2_mydNy(436)=510 exch2_nNeighbours(436)=4 exch2_neighbourId(1,436)=1 exch2_iLo(1,436)=0 exch2_iHi(1,436)=35 exch2_jLo(1,436)=103 exch2_jHi(1,436)=103 exch2_opposingSend(1,436)=2 exch2_pij(1,1,436)=1 exch2_pij(2,1,436)=0 exch2_pij(3,1,436)=0 exch2_pij(4,1,436)=1 exch2_oi(1,436)=0 exch2_oj(1,436)=510 exch2_neighbourId(2,436)=421 exch2_iLo(2,436)=0 exch2_iHi(2,436)=35 exch2_jLo(2,436)=0 exch2_jHi(2,436)=0 exch2_opposingSend(2,436)=1 exch2_pij(1,2,436)=1 exch2_pij(2,2,436)=0 exch2_pij(3,2,436)=0 exch2_pij(4,2,436)=1 exch2_oi(2,436)=0 exch2_oj(2,436)=0 exch2_neighbourId(3,436)=437 exch2_iLo(3,436)=35 exch2_iHi(3,436)=35 exch2_jLo(3,436)=0 exch2_jHi(3,436)=103 exch2_opposingSend(3,436)=4 exch2_pij(1,3,436)=1 exch2_pij(2,3,436)=0 exch2_pij(3,3,436)=0 exch2_pij(4,3,436)=1 exch2_oi(3,436)=0 exch2_oj(3,436)=0 exch2_neighbourId(4,436)=375 exch2_iLo(4,436)=0 exch2_iHi(4,436)=0 exch2_jLo(4,436)=0 exch2_jHi(4,436)=103 exch2_opposingSend(4,436)=3 exch2_pij(1,4,436)=1 exch2_pij(2,4,436)=0 exch2_pij(3,4,436)=0 exch2_pij(4,4,436)=1 exch2_oi(4,436)=-510 exch2_oj(4,436)=0 RETURN END SUBROUTINE W2_E2SETUP_437 C Topology for tile 437 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(437)=34 exch2_tNy(437)=102 exch2_tBasex(437)=34 exch2_tBasey(437)=408 exch2_txGlobalo(437)=2585 exch2_tyGlobalo(437)=409 exch2_isWedge(437)=0 exch2_isNedge(437)=1 exch2_isEedge(437)=0 exch2_isSedge(437)=0 exch2_myFace(437)=6 exch2_mydNx(437)=510 exch2_mydNy(437)=510 exch2_nNeighbours(437)=4 exch2_neighbourId(1,437)=2 exch2_iLo(1,437)=0 exch2_iHi(1,437)=35 exch2_jLo(1,437)=103 exch2_jHi(1,437)=103 exch2_opposingSend(1,437)=2 exch2_pij(1,1,437)=1 exch2_pij(2,1,437)=0 exch2_pij(3,1,437)=0 exch2_pij(4,1,437)=1 exch2_oi(1,437)=0 exch2_oj(1,437)=510 exch2_neighbourId(2,437)=422 exch2_iLo(2,437)=0 exch2_iHi(2,437)=35 exch2_jLo(2,437)=0 exch2_jHi(2,437)=0 exch2_opposingSend(2,437)=1 exch2_pij(1,2,437)=1 exch2_pij(2,2,437)=0 exch2_pij(3,2,437)=0 exch2_pij(4,2,437)=1 exch2_oi(2,437)=0 exch2_oj(2,437)=0 exch2_neighbourId(3,437)=438 exch2_iLo(3,437)=35 exch2_iHi(3,437)=35 exch2_jLo(3,437)=0 exch2_jHi(3,437)=103 exch2_opposingSend(3,437)=4 exch2_pij(1,3,437)=1 exch2_pij(2,3,437)=0 exch2_pij(3,3,437)=0 exch2_pij(4,3,437)=1 exch2_oi(3,437)=0 exch2_oj(3,437)=0 exch2_neighbourId(4,437)=436 exch2_iLo(4,437)=0 exch2_iHi(4,437)=0 exch2_jLo(4,437)=0 exch2_jHi(4,437)=103 exch2_opposingSend(4,437)=3 exch2_pij(1,4,437)=1 exch2_pij(2,4,437)=0 exch2_pij(3,4,437)=0 exch2_pij(4,4,437)=1 exch2_oi(4,437)=0 exch2_oj(4,437)=0 RETURN END SUBROUTINE W2_E2SETUP_438 C Topology for tile 438 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(438)=34 exch2_tNy(438)=102 exch2_tBasex(438)=68 exch2_tBasey(438)=408 exch2_txGlobalo(438)=2619 exch2_tyGlobalo(438)=409 exch2_isWedge(438)=0 exch2_isNedge(438)=1 exch2_isEedge(438)=0 exch2_isSedge(438)=0 exch2_myFace(438)=6 exch2_mydNx(438)=510 exch2_mydNy(438)=510 exch2_nNeighbours(438)=4 exch2_neighbourId(1,438)=3 exch2_iLo(1,438)=0 exch2_iHi(1,438)=35 exch2_jLo(1,438)=103 exch2_jHi(1,438)=103 exch2_opposingSend(1,438)=2 exch2_pij(1,1,438)=1 exch2_pij(2,1,438)=0 exch2_pij(3,1,438)=0 exch2_pij(4,1,438)=1 exch2_oi(1,438)=0 exch2_oj(1,438)=510 exch2_neighbourId(2,438)=423 exch2_iLo(2,438)=0 exch2_iHi(2,438)=35 exch2_jLo(2,438)=0 exch2_jHi(2,438)=0 exch2_opposingSend(2,438)=1 exch2_pij(1,2,438)=1 exch2_pij(2,2,438)=0 exch2_pij(3,2,438)=0 exch2_pij(4,2,438)=1 exch2_oi(2,438)=0 exch2_oj(2,438)=0 exch2_neighbourId(3,438)=439 exch2_iLo(3,438)=35 exch2_iHi(3,438)=35 exch2_jLo(3,438)=0 exch2_jHi(3,438)=103 exch2_opposingSend(3,438)=4 exch2_pij(1,3,438)=1 exch2_pij(2,3,438)=0 exch2_pij(3,3,438)=0 exch2_pij(4,3,438)=1 exch2_oi(3,438)=0 exch2_oj(3,438)=0 exch2_neighbourId(4,438)=437 exch2_iLo(4,438)=0 exch2_iHi(4,438)=0 exch2_jLo(4,438)=0 exch2_jHi(4,438)=103 exch2_opposingSend(4,438)=3 exch2_pij(1,4,438)=1 exch2_pij(2,4,438)=0 exch2_pij(3,4,438)=0 exch2_pij(4,4,438)=1 exch2_oi(4,438)=0 exch2_oj(4,438)=0 RETURN END SUBROUTINE W2_E2SETUP_439 C Topology for tile 439 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(439)=34 exch2_tNy(439)=102 exch2_tBasex(439)=102 exch2_tBasey(439)=408 exch2_txGlobalo(439)=2653 exch2_tyGlobalo(439)=409 exch2_isWedge(439)=0 exch2_isNedge(439)=1 exch2_isEedge(439)=0 exch2_isSedge(439)=0 exch2_myFace(439)=6 exch2_mydNx(439)=510 exch2_mydNy(439)=510 exch2_nNeighbours(439)=4 exch2_neighbourId(1,439)=4 exch2_iLo(1,439)=0 exch2_iHi(1,439)=35 exch2_jLo(1,439)=103 exch2_jHi(1,439)=103 exch2_opposingSend(1,439)=2 exch2_pij(1,1,439)=1 exch2_pij(2,1,439)=0 exch2_pij(3,1,439)=0 exch2_pij(4,1,439)=1 exch2_oi(1,439)=0 exch2_oj(1,439)=510 exch2_neighbourId(2,439)=424 exch2_iLo(2,439)=0 exch2_iHi(2,439)=35 exch2_jLo(2,439)=0 exch2_jHi(2,439)=0 exch2_opposingSend(2,439)=1 exch2_pij(1,2,439)=1 exch2_pij(2,2,439)=0 exch2_pij(3,2,439)=0 exch2_pij(4,2,439)=1 exch2_oi(2,439)=0 exch2_oj(2,439)=0 exch2_neighbourId(3,439)=440 exch2_iLo(3,439)=35 exch2_iHi(3,439)=35 exch2_jLo(3,439)=0 exch2_jHi(3,439)=103 exch2_opposingSend(3,439)=4 exch2_pij(1,3,439)=1 exch2_pij(2,3,439)=0 exch2_pij(3,3,439)=0 exch2_pij(4,3,439)=1 exch2_oi(3,439)=0 exch2_oj(3,439)=0 exch2_neighbourId(4,439)=438 exch2_iLo(4,439)=0 exch2_iHi(4,439)=0 exch2_jLo(4,439)=0 exch2_jHi(4,439)=103 exch2_opposingSend(4,439)=3 exch2_pij(1,4,439)=1 exch2_pij(2,4,439)=0 exch2_pij(3,4,439)=0 exch2_pij(4,4,439)=1 exch2_oi(4,439)=0 exch2_oj(4,439)=0 RETURN END SUBROUTINE W2_E2SETUP_440 C Topology for tile 440 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(440)=34 exch2_tNy(440)=102 exch2_tBasex(440)=136 exch2_tBasey(440)=408 exch2_txGlobalo(440)=2687 exch2_tyGlobalo(440)=409 exch2_isWedge(440)=0 exch2_isNedge(440)=1 exch2_isEedge(440)=0 exch2_isSedge(440)=0 exch2_myFace(440)=6 exch2_mydNx(440)=510 exch2_mydNy(440)=510 exch2_nNeighbours(440)=4 exch2_neighbourId(1,440)=5 exch2_iLo(1,440)=0 exch2_iHi(1,440)=35 exch2_jLo(1,440)=103 exch2_jHi(1,440)=103 exch2_opposingSend(1,440)=2 exch2_pij(1,1,440)=1 exch2_pij(2,1,440)=0 exch2_pij(3,1,440)=0 exch2_pij(4,1,440)=1 exch2_oi(1,440)=0 exch2_oj(1,440)=510 exch2_neighbourId(2,440)=425 exch2_iLo(2,440)=0 exch2_iHi(2,440)=35 exch2_jLo(2,440)=0 exch2_jHi(2,440)=0 exch2_opposingSend(2,440)=1 exch2_pij(1,2,440)=1 exch2_pij(2,2,440)=0 exch2_pij(3,2,440)=0 exch2_pij(4,2,440)=1 exch2_oi(2,440)=0 exch2_oj(2,440)=0 exch2_neighbourId(3,440)=441 exch2_iLo(3,440)=35 exch2_iHi(3,440)=35 exch2_jLo(3,440)=0 exch2_jHi(3,440)=103 exch2_opposingSend(3,440)=4 exch2_pij(1,3,440)=1 exch2_pij(2,3,440)=0 exch2_pij(3,3,440)=0 exch2_pij(4,3,440)=1 exch2_oi(3,440)=0 exch2_oj(3,440)=0 exch2_neighbourId(4,440)=439 exch2_iLo(4,440)=0 exch2_iHi(4,440)=0 exch2_jLo(4,440)=0 exch2_jHi(4,440)=103 exch2_opposingSend(4,440)=3 exch2_pij(1,4,440)=1 exch2_pij(2,4,440)=0 exch2_pij(3,4,440)=0 exch2_pij(4,4,440)=1 exch2_oi(4,440)=0 exch2_oj(4,440)=0 RETURN END SUBROUTINE W2_E2SETUP_441 C Topology for tile 441 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(441)=34 exch2_tNy(441)=102 exch2_tBasex(441)=170 exch2_tBasey(441)=408 exch2_txGlobalo(441)=2721 exch2_tyGlobalo(441)=409 exch2_isWedge(441)=0 exch2_isNedge(441)=1 exch2_isEedge(441)=0 exch2_isSedge(441)=0 exch2_myFace(441)=6 exch2_mydNx(441)=510 exch2_mydNy(441)=510 exch2_nNeighbours(441)=4 exch2_neighbourId(1,441)=6 exch2_iLo(1,441)=0 exch2_iHi(1,441)=35 exch2_jLo(1,441)=103 exch2_jHi(1,441)=103 exch2_opposingSend(1,441)=2 exch2_pij(1,1,441)=1 exch2_pij(2,1,441)=0 exch2_pij(3,1,441)=0 exch2_pij(4,1,441)=1 exch2_oi(1,441)=0 exch2_oj(1,441)=510 exch2_neighbourId(2,441)=426 exch2_iLo(2,441)=0 exch2_iHi(2,441)=35 exch2_jLo(2,441)=0 exch2_jHi(2,441)=0 exch2_opposingSend(2,441)=1 exch2_pij(1,2,441)=1 exch2_pij(2,2,441)=0 exch2_pij(3,2,441)=0 exch2_pij(4,2,441)=1 exch2_oi(2,441)=0 exch2_oj(2,441)=0 exch2_neighbourId(3,441)=442 exch2_iLo(3,441)=35 exch2_iHi(3,441)=35 exch2_jLo(3,441)=0 exch2_jHi(3,441)=103 exch2_opposingSend(3,441)=4 exch2_pij(1,3,441)=1 exch2_pij(2,3,441)=0 exch2_pij(3,3,441)=0 exch2_pij(4,3,441)=1 exch2_oi(3,441)=0 exch2_oj(3,441)=0 exch2_neighbourId(4,441)=440 exch2_iLo(4,441)=0 exch2_iHi(4,441)=0 exch2_jLo(4,441)=0 exch2_jHi(4,441)=103 exch2_opposingSend(4,441)=3 exch2_pij(1,4,441)=1 exch2_pij(2,4,441)=0 exch2_pij(3,4,441)=0 exch2_pij(4,4,441)=1 exch2_oi(4,441)=0 exch2_oj(4,441)=0 RETURN END SUBROUTINE W2_E2SETUP_442 C Topology for tile 442 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(442)=34 exch2_tNy(442)=102 exch2_tBasex(442)=204 exch2_tBasey(442)=408 exch2_txGlobalo(442)=2755 exch2_tyGlobalo(442)=409 exch2_isWedge(442)=0 exch2_isNedge(442)=1 exch2_isEedge(442)=0 exch2_isSedge(442)=0 exch2_myFace(442)=6 exch2_mydNx(442)=510 exch2_mydNy(442)=510 exch2_nNeighbours(442)=4 exch2_neighbourId(1,442)=7 exch2_iLo(1,442)=0 exch2_iHi(1,442)=35 exch2_jLo(1,442)=103 exch2_jHi(1,442)=103 exch2_opposingSend(1,442)=2 exch2_pij(1,1,442)=1 exch2_pij(2,1,442)=0 exch2_pij(3,1,442)=0 exch2_pij(4,1,442)=1 exch2_oi(1,442)=0 exch2_oj(1,442)=510 exch2_neighbourId(2,442)=427 exch2_iLo(2,442)=0 exch2_iHi(2,442)=35 exch2_jLo(2,442)=0 exch2_jHi(2,442)=0 exch2_opposingSend(2,442)=1 exch2_pij(1,2,442)=1 exch2_pij(2,2,442)=0 exch2_pij(3,2,442)=0 exch2_pij(4,2,442)=1 exch2_oi(2,442)=0 exch2_oj(2,442)=0 exch2_neighbourId(3,442)=443 exch2_iLo(3,442)=35 exch2_iHi(3,442)=35 exch2_jLo(3,442)=0 exch2_jHi(3,442)=103 exch2_opposingSend(3,442)=4 exch2_pij(1,3,442)=1 exch2_pij(2,3,442)=0 exch2_pij(3,3,442)=0 exch2_pij(4,3,442)=1 exch2_oi(3,442)=0 exch2_oj(3,442)=0 exch2_neighbourId(4,442)=441 exch2_iLo(4,442)=0 exch2_iHi(4,442)=0 exch2_jLo(4,442)=0 exch2_jHi(4,442)=103 exch2_opposingSend(4,442)=3 exch2_pij(1,4,442)=1 exch2_pij(2,4,442)=0 exch2_pij(3,4,442)=0 exch2_pij(4,4,442)=1 exch2_oi(4,442)=0 exch2_oj(4,442)=0 RETURN END SUBROUTINE W2_E2SETUP_443 C Topology for tile 443 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(443)=34 exch2_tNy(443)=102 exch2_tBasex(443)=238 exch2_tBasey(443)=408 exch2_txGlobalo(443)=2789 exch2_tyGlobalo(443)=409 exch2_isWedge(443)=0 exch2_isNedge(443)=1 exch2_isEedge(443)=0 exch2_isSedge(443)=0 exch2_myFace(443)=6 exch2_mydNx(443)=510 exch2_mydNy(443)=510 exch2_nNeighbours(443)=4 exch2_neighbourId(1,443)=8 exch2_iLo(1,443)=0 exch2_iHi(1,443)=35 exch2_jLo(1,443)=103 exch2_jHi(1,443)=103 exch2_opposingSend(1,443)=2 exch2_pij(1,1,443)=1 exch2_pij(2,1,443)=0 exch2_pij(3,1,443)=0 exch2_pij(4,1,443)=1 exch2_oi(1,443)=0 exch2_oj(1,443)=510 exch2_neighbourId(2,443)=428 exch2_iLo(2,443)=0 exch2_iHi(2,443)=35 exch2_jLo(2,443)=0 exch2_jHi(2,443)=0 exch2_opposingSend(2,443)=1 exch2_pij(1,2,443)=1 exch2_pij(2,2,443)=0 exch2_pij(3,2,443)=0 exch2_pij(4,2,443)=1 exch2_oi(2,443)=0 exch2_oj(2,443)=0 exch2_neighbourId(3,443)=444 exch2_iLo(3,443)=35 exch2_iHi(3,443)=35 exch2_jLo(3,443)=0 exch2_jHi(3,443)=103 exch2_opposingSend(3,443)=4 exch2_pij(1,3,443)=1 exch2_pij(2,3,443)=0 exch2_pij(3,3,443)=0 exch2_pij(4,3,443)=1 exch2_oi(3,443)=0 exch2_oj(3,443)=0 exch2_neighbourId(4,443)=442 exch2_iLo(4,443)=0 exch2_iHi(4,443)=0 exch2_jLo(4,443)=0 exch2_jHi(4,443)=103 exch2_opposingSend(4,443)=3 exch2_pij(1,4,443)=1 exch2_pij(2,4,443)=0 exch2_pij(3,4,443)=0 exch2_pij(4,4,443)=1 exch2_oi(4,443)=0 exch2_oj(4,443)=0 RETURN END SUBROUTINE W2_E2SETUP_444 C Topology for tile 444 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(444)=34 exch2_tNy(444)=102 exch2_tBasex(444)=272 exch2_tBasey(444)=408 exch2_txGlobalo(444)=2823 exch2_tyGlobalo(444)=409 exch2_isWedge(444)=0 exch2_isNedge(444)=1 exch2_isEedge(444)=0 exch2_isSedge(444)=0 exch2_myFace(444)=6 exch2_mydNx(444)=510 exch2_mydNy(444)=510 exch2_nNeighbours(444)=4 exch2_neighbourId(1,444)=9 exch2_iLo(1,444)=0 exch2_iHi(1,444)=35 exch2_jLo(1,444)=103 exch2_jHi(1,444)=103 exch2_opposingSend(1,444)=2 exch2_pij(1,1,444)=1 exch2_pij(2,1,444)=0 exch2_pij(3,1,444)=0 exch2_pij(4,1,444)=1 exch2_oi(1,444)=0 exch2_oj(1,444)=510 exch2_neighbourId(2,444)=429 exch2_iLo(2,444)=0 exch2_iHi(2,444)=35 exch2_jLo(2,444)=0 exch2_jHi(2,444)=0 exch2_opposingSend(2,444)=1 exch2_pij(1,2,444)=1 exch2_pij(2,2,444)=0 exch2_pij(3,2,444)=0 exch2_pij(4,2,444)=1 exch2_oi(2,444)=0 exch2_oj(2,444)=0 exch2_neighbourId(3,444)=445 exch2_iLo(3,444)=35 exch2_iHi(3,444)=35 exch2_jLo(3,444)=0 exch2_jHi(3,444)=103 exch2_opposingSend(3,444)=4 exch2_pij(1,3,444)=1 exch2_pij(2,3,444)=0 exch2_pij(3,3,444)=0 exch2_pij(4,3,444)=1 exch2_oi(3,444)=0 exch2_oj(3,444)=0 exch2_neighbourId(4,444)=443 exch2_iLo(4,444)=0 exch2_iHi(4,444)=0 exch2_jLo(4,444)=0 exch2_jHi(4,444)=103 exch2_opposingSend(4,444)=3 exch2_pij(1,4,444)=1 exch2_pij(2,4,444)=0 exch2_pij(3,4,444)=0 exch2_pij(4,4,444)=1 exch2_oi(4,444)=0 exch2_oj(4,444)=0 RETURN END SUBROUTINE W2_E2SETUP_445 C Topology for tile 445 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(445)=34 exch2_tNy(445)=102 exch2_tBasex(445)=306 exch2_tBasey(445)=408 exch2_txGlobalo(445)=2857 exch2_tyGlobalo(445)=409 exch2_isWedge(445)=0 exch2_isNedge(445)=1 exch2_isEedge(445)=0 exch2_isSedge(445)=0 exch2_myFace(445)=6 exch2_mydNx(445)=510 exch2_mydNy(445)=510 exch2_nNeighbours(445)=4 exch2_neighbourId(1,445)=10 exch2_iLo(1,445)=0 exch2_iHi(1,445)=35 exch2_jLo(1,445)=103 exch2_jHi(1,445)=103 exch2_opposingSend(1,445)=2 exch2_pij(1,1,445)=1 exch2_pij(2,1,445)=0 exch2_pij(3,1,445)=0 exch2_pij(4,1,445)=1 exch2_oi(1,445)=0 exch2_oj(1,445)=510 exch2_neighbourId(2,445)=430 exch2_iLo(2,445)=0 exch2_iHi(2,445)=35 exch2_jLo(2,445)=0 exch2_jHi(2,445)=0 exch2_opposingSend(2,445)=1 exch2_pij(1,2,445)=1 exch2_pij(2,2,445)=0 exch2_pij(3,2,445)=0 exch2_pij(4,2,445)=1 exch2_oi(2,445)=0 exch2_oj(2,445)=0 exch2_neighbourId(3,445)=446 exch2_iLo(3,445)=35 exch2_iHi(3,445)=35 exch2_jLo(3,445)=0 exch2_jHi(3,445)=103 exch2_opposingSend(3,445)=4 exch2_pij(1,3,445)=1 exch2_pij(2,3,445)=0 exch2_pij(3,3,445)=0 exch2_pij(4,3,445)=1 exch2_oi(3,445)=0 exch2_oj(3,445)=0 exch2_neighbourId(4,445)=444 exch2_iLo(4,445)=0 exch2_iHi(4,445)=0 exch2_jLo(4,445)=0 exch2_jHi(4,445)=103 exch2_opposingSend(4,445)=3 exch2_pij(1,4,445)=1 exch2_pij(2,4,445)=0 exch2_pij(3,4,445)=0 exch2_pij(4,4,445)=1 exch2_oi(4,445)=0 exch2_oj(4,445)=0 RETURN END SUBROUTINE W2_E2SETUP_446 C Topology for tile 446 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(446)=34 exch2_tNy(446)=102 exch2_tBasex(446)=340 exch2_tBasey(446)=408 exch2_txGlobalo(446)=2891 exch2_tyGlobalo(446)=409 exch2_isWedge(446)=0 exch2_isNedge(446)=1 exch2_isEedge(446)=0 exch2_isSedge(446)=0 exch2_myFace(446)=6 exch2_mydNx(446)=510 exch2_mydNy(446)=510 exch2_nNeighbours(446)=4 exch2_neighbourId(1,446)=11 exch2_iLo(1,446)=0 exch2_iHi(1,446)=35 exch2_jLo(1,446)=103 exch2_jHi(1,446)=103 exch2_opposingSend(1,446)=2 exch2_pij(1,1,446)=1 exch2_pij(2,1,446)=0 exch2_pij(3,1,446)=0 exch2_pij(4,1,446)=1 exch2_oi(1,446)=0 exch2_oj(1,446)=510 exch2_neighbourId(2,446)=431 exch2_iLo(2,446)=0 exch2_iHi(2,446)=35 exch2_jLo(2,446)=0 exch2_jHi(2,446)=0 exch2_opposingSend(2,446)=1 exch2_pij(1,2,446)=1 exch2_pij(2,2,446)=0 exch2_pij(3,2,446)=0 exch2_pij(4,2,446)=1 exch2_oi(2,446)=0 exch2_oj(2,446)=0 exch2_neighbourId(3,446)=447 exch2_iLo(3,446)=35 exch2_iHi(3,446)=35 exch2_jLo(3,446)=0 exch2_jHi(3,446)=103 exch2_opposingSend(3,446)=4 exch2_pij(1,3,446)=1 exch2_pij(2,3,446)=0 exch2_pij(3,3,446)=0 exch2_pij(4,3,446)=1 exch2_oi(3,446)=0 exch2_oj(3,446)=0 exch2_neighbourId(4,446)=445 exch2_iLo(4,446)=0 exch2_iHi(4,446)=0 exch2_jLo(4,446)=0 exch2_jHi(4,446)=103 exch2_opposingSend(4,446)=3 exch2_pij(1,4,446)=1 exch2_pij(2,4,446)=0 exch2_pij(3,4,446)=0 exch2_pij(4,4,446)=1 exch2_oi(4,446)=0 exch2_oj(4,446)=0 RETURN END SUBROUTINE W2_E2SETUP_447 C Topology for tile 447 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(447)=34 exch2_tNy(447)=102 exch2_tBasex(447)=374 exch2_tBasey(447)=408 exch2_txGlobalo(447)=2925 exch2_tyGlobalo(447)=409 exch2_isWedge(447)=0 exch2_isNedge(447)=1 exch2_isEedge(447)=0 exch2_isSedge(447)=0 exch2_myFace(447)=6 exch2_mydNx(447)=510 exch2_mydNy(447)=510 exch2_nNeighbours(447)=4 exch2_neighbourId(1,447)=12 exch2_iLo(1,447)=0 exch2_iHi(1,447)=35 exch2_jLo(1,447)=103 exch2_jHi(1,447)=103 exch2_opposingSend(1,447)=2 exch2_pij(1,1,447)=1 exch2_pij(2,1,447)=0 exch2_pij(3,1,447)=0 exch2_pij(4,1,447)=1 exch2_oi(1,447)=0 exch2_oj(1,447)=510 exch2_neighbourId(2,447)=432 exch2_iLo(2,447)=0 exch2_iHi(2,447)=35 exch2_jLo(2,447)=0 exch2_jHi(2,447)=0 exch2_opposingSend(2,447)=1 exch2_pij(1,2,447)=1 exch2_pij(2,2,447)=0 exch2_pij(3,2,447)=0 exch2_pij(4,2,447)=1 exch2_oi(2,447)=0 exch2_oj(2,447)=0 exch2_neighbourId(3,447)=448 exch2_iLo(3,447)=35 exch2_iHi(3,447)=35 exch2_jLo(3,447)=0 exch2_jHi(3,447)=103 exch2_opposingSend(3,447)=4 exch2_pij(1,3,447)=1 exch2_pij(2,3,447)=0 exch2_pij(3,3,447)=0 exch2_pij(4,3,447)=1 exch2_oi(3,447)=0 exch2_oj(3,447)=0 exch2_neighbourId(4,447)=446 exch2_iLo(4,447)=0 exch2_iHi(4,447)=0 exch2_jLo(4,447)=0 exch2_jHi(4,447)=103 exch2_opposingSend(4,447)=3 exch2_pij(1,4,447)=1 exch2_pij(2,4,447)=0 exch2_pij(3,4,447)=0 exch2_pij(4,4,447)=1 exch2_oi(4,447)=0 exch2_oj(4,447)=0 RETURN END SUBROUTINE W2_E2SETUP_448 C Topology for tile 448 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(448)=34 exch2_tNy(448)=102 exch2_tBasex(448)=408 exch2_tBasey(448)=408 exch2_txGlobalo(448)=2959 exch2_tyGlobalo(448)=409 exch2_isWedge(448)=0 exch2_isNedge(448)=1 exch2_isEedge(448)=0 exch2_isSedge(448)=0 exch2_myFace(448)=6 exch2_mydNx(448)=510 exch2_mydNy(448)=510 exch2_nNeighbours(448)=4 exch2_neighbourId(1,448)=13 exch2_iLo(1,448)=0 exch2_iHi(1,448)=35 exch2_jLo(1,448)=103 exch2_jHi(1,448)=103 exch2_opposingSend(1,448)=2 exch2_pij(1,1,448)=1 exch2_pij(2,1,448)=0 exch2_pij(3,1,448)=0 exch2_pij(4,1,448)=1 exch2_oi(1,448)=0 exch2_oj(1,448)=510 exch2_neighbourId(2,448)=433 exch2_iLo(2,448)=0 exch2_iHi(2,448)=35 exch2_jLo(2,448)=0 exch2_jHi(2,448)=0 exch2_opposingSend(2,448)=1 exch2_pij(1,2,448)=1 exch2_pij(2,2,448)=0 exch2_pij(3,2,448)=0 exch2_pij(4,2,448)=1 exch2_oi(2,448)=0 exch2_oj(2,448)=0 exch2_neighbourId(3,448)=449 exch2_iLo(3,448)=35 exch2_iHi(3,448)=35 exch2_jLo(3,448)=0 exch2_jHi(3,448)=103 exch2_opposingSend(3,448)=4 exch2_pij(1,3,448)=1 exch2_pij(2,3,448)=0 exch2_pij(3,3,448)=0 exch2_pij(4,3,448)=1 exch2_oi(3,448)=0 exch2_oj(3,448)=0 exch2_neighbourId(4,448)=447 exch2_iLo(4,448)=0 exch2_iHi(4,448)=0 exch2_jLo(4,448)=0 exch2_jHi(4,448)=103 exch2_opposingSend(4,448)=3 exch2_pij(1,4,448)=1 exch2_pij(2,4,448)=0 exch2_pij(3,4,448)=0 exch2_pij(4,4,448)=1 exch2_oi(4,448)=0 exch2_oj(4,448)=0 RETURN END SUBROUTINE W2_E2SETUP_449 C Topology for tile 449 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(449)=34 exch2_tNy(449)=102 exch2_tBasex(449)=442 exch2_tBasey(449)=408 exch2_txGlobalo(449)=2993 exch2_tyGlobalo(449)=409 exch2_isWedge(449)=0 exch2_isNedge(449)=1 exch2_isEedge(449)=0 exch2_isSedge(449)=0 exch2_myFace(449)=6 exch2_mydNx(449)=510 exch2_mydNy(449)=510 exch2_nNeighbours(449)=4 exch2_neighbourId(1,449)=14 exch2_iLo(1,449)=0 exch2_iHi(1,449)=35 exch2_jLo(1,449)=103 exch2_jHi(1,449)=103 exch2_opposingSend(1,449)=2 exch2_pij(1,1,449)=1 exch2_pij(2,1,449)=0 exch2_pij(3,1,449)=0 exch2_pij(4,1,449)=1 exch2_oi(1,449)=0 exch2_oj(1,449)=510 exch2_neighbourId(2,449)=434 exch2_iLo(2,449)=0 exch2_iHi(2,449)=35 exch2_jLo(2,449)=0 exch2_jHi(2,449)=0 exch2_opposingSend(2,449)=1 exch2_pij(1,2,449)=1 exch2_pij(2,2,449)=0 exch2_pij(3,2,449)=0 exch2_pij(4,2,449)=1 exch2_oi(2,449)=0 exch2_oj(2,449)=0 exch2_neighbourId(3,449)=450 exch2_iLo(3,449)=35 exch2_iHi(3,449)=35 exch2_jLo(3,449)=0 exch2_jHi(3,449)=103 exch2_opposingSend(3,449)=6 exch2_pij(1,3,449)=1 exch2_pij(2,3,449)=0 exch2_pij(3,3,449)=0 exch2_pij(4,3,449)=1 exch2_oi(3,449)=0 exch2_oj(3,449)=0 exch2_neighbourId(4,449)=448 exch2_iLo(4,449)=0 exch2_iHi(4,449)=0 exch2_jLo(4,449)=0 exch2_jHi(4,449)=103 exch2_opposingSend(4,449)=3 exch2_pij(1,4,449)=1 exch2_pij(2,4,449)=0 exch2_pij(3,4,449)=0 exch2_pij(4,4,449)=1 exch2_oi(4,449)=0 exch2_oj(4,449)=0 RETURN END SUBROUTINE W2_E2SETUP_450 C Topology for tile 450 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(450)=34 exch2_tNy(450)=102 exch2_tBasex(450)=476 exch2_tBasey(450)=408 exch2_txGlobalo(450)=3027 exch2_tyGlobalo(450)=409 exch2_isWedge(450)=0 exch2_isNedge(450)=1 exch2_isEedge(450)=1 exch2_isSedge(450)=0 exch2_myFace(450)=6 exch2_mydNx(450)=510 exch2_mydNy(450)=510 exch2_nNeighbours(450)=6 exch2_neighbourId(1,450)=15 exch2_iLo(1,450)=0 exch2_iHi(1,450)=35 exch2_jLo(1,450)=103 exch2_jHi(1,450)=103 exch2_opposingSend(1,450)=2 exch2_pij(1,1,450)=1 exch2_pij(2,1,450)=0 exch2_pij(3,1,450)=0 exch2_pij(4,1,450)=1 exch2_oi(1,450)=0 exch2_oj(1,450)=510 exch2_neighbourId(2,450)=435 exch2_iLo(2,450)=0 exch2_iHi(2,450)=35 exch2_jLo(2,450)=0 exch2_jHi(2,450)=0 exch2_opposingSend(2,450)=1 exch2_pij(1,2,450)=1 exch2_pij(2,2,450)=0 exch2_pij(3,2,450)=0 exch2_pij(4,2,450)=1 exch2_oi(2,450)=0 exch2_oj(2,450)=0 exch2_neighbourId(3,450)=76 exch2_iLo(3,450)=35 exch2_iHi(3,450)=35 exch2_jLo(3,450)=68 exch2_jHi(3,450)=103 exch2_opposingSend(3,450)=2 exch2_pij(1,3,450)=0 exch2_pij(2,3,450)=1 exch2_pij(3,3,450)=-1 exch2_pij(4,3,450)=0 exch2_oi(3,450)=510 exch2_oj(3,450)=511 exch2_neighbourId(4,450)=77 exch2_iLo(4,450)=35 exch2_iHi(4,450)=35 exch2_jLo(4,450)=34 exch2_jHi(4,450)=69 exch2_opposingSend(4,450)=2 exch2_pij(1,4,450)=0 exch2_pij(2,4,450)=1 exch2_pij(3,4,450)=-1 exch2_pij(4,4,450)=0 exch2_oi(4,450)=510 exch2_oj(4,450)=511 exch2_neighbourId(5,450)=78 exch2_iLo(5,450)=35 exch2_iHi(5,450)=35 exch2_jLo(5,450)=0 exch2_jHi(5,450)=35 exch2_opposingSend(5,450)=2 exch2_pij(1,5,450)=0 exch2_pij(2,5,450)=1 exch2_pij(3,5,450)=-1 exch2_pij(4,5,450)=0 exch2_oi(5,450)=510 exch2_oj(5,450)=511 exch2_neighbourId(6,450)=449 exch2_iLo(6,450)=0 exch2_iHi(6,450)=0 exch2_jLo(6,450)=0 exch2_jHi(6,450)=103 exch2_opposingSend(6,450)=3 exch2_pij(1,6,450)=1 exch2_pij(2,6,450)=0 exch2_pij(3,6,450)=0 exch2_pij(4,6,450)=1 exch2_oi(6,450)=0 exch2_oj(6,450)=0 RETURN END