/[MITgcm]/MITgcm_contrib/high_res_cube/code-mods/s60t_51x510/w2_e2setup.F
ViewVC logotype

Contents of /MITgcm_contrib/high_res_cube/code-mods/s60t_51x510/w2_e2setup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.3 - (show annotations) (download)
Mon May 25 15:25:19 2009 UTC (17 years, 5 months ago) by dimitri
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +0 -0 lines
FILE REMOVED 
updating for consistency with new exch2 routines
1 C *** THIS FILE IS AUTOMATICALLY GENERATED ***
2 SUBROUTINE W2_E2SETUP
3
4 C Tile toplogy settings data structures
5 #include "W2_EXCH2_TOPOLOGY.h"
6
7 C Tile settings table
8 CALL W2_E2SETUP_1
9 CALL W2_E2SETUP_2
10 CALL W2_E2SETUP_3
11 CALL W2_E2SETUP_4
12 CALL W2_E2SETUP_5
13 CALL W2_E2SETUP_6
14 CALL W2_E2SETUP_7
15 CALL W2_E2SETUP_8
16 CALL W2_E2SETUP_9
17 CALL W2_E2SETUP_10
18 CALL W2_E2SETUP_11
19 CALL W2_E2SETUP_12
20 CALL W2_E2SETUP_13
21 CALL W2_E2SETUP_14
22 CALL W2_E2SETUP_15
23 CALL W2_E2SETUP_16
24 CALL W2_E2SETUP_17
25 CALL W2_E2SETUP_18
26 CALL W2_E2SETUP_19
27 CALL W2_E2SETUP_20
28 CALL W2_E2SETUP_21
29 CALL W2_E2SETUP_22
30 CALL W2_E2SETUP_23
31 CALL W2_E2SETUP_24
32 CALL W2_E2SETUP_25
33 CALL W2_E2SETUP_26
34 CALL W2_E2SETUP_27
35 CALL W2_E2SETUP_28
36 CALL W2_E2SETUP_29
37 CALL W2_E2SETUP_30
38 CALL W2_E2SETUP_31
39 CALL W2_E2SETUP_32
40 CALL W2_E2SETUP_33
41 CALL W2_E2SETUP_34
42 CALL W2_E2SETUP_35
43 CALL W2_E2SETUP_36
44 CALL W2_E2SETUP_37
45 CALL W2_E2SETUP_38
46 CALL W2_E2SETUP_39
47 CALL W2_E2SETUP_40
48 CALL W2_E2SETUP_41
49 CALL W2_E2SETUP_42
50 CALL W2_E2SETUP_43
51 CALL W2_E2SETUP_44
52 CALL W2_E2SETUP_45
53 CALL W2_E2SETUP_46
54 CALL W2_E2SETUP_47
55 CALL W2_E2SETUP_48
56 CALL W2_E2SETUP_49
57 CALL W2_E2SETUP_50
58 CALL W2_E2SETUP_51
59 CALL W2_E2SETUP_52
60 CALL W2_E2SETUP_53
61 CALL W2_E2SETUP_54
62 CALL W2_E2SETUP_55
63 CALL W2_E2SETUP_56
64 CALL W2_E2SETUP_57
65 CALL W2_E2SETUP_58
66 CALL W2_E2SETUP_59
67 CALL W2_E2SETUP_60
68 RETURN
69 END
70
71 SUBROUTINE W2_E2SETUP_1
72 C Topology for tile 1
73 #include "W2_EXCH2_TOPOLOGY.h"
74 exch2_tNx(1)=51
75 exch2_tNy(1)=510
76 exch2_tBasex(1)=0
77 exch2_tBasey(1)=0
78 exch2_txGlobalo(1)=1
79 exch2_tyGlobalo(1)=1
80 exch2_isWedge(1)=1
81 exch2_isNedge(1)=1
82 exch2_isEedge(1)=0
83 exch2_isSedge(1)=1
84 exch2_myFace(1)=1
85 exch2_mydNx(1)=510
86 exch2_mydNy(1)=510
87 exch2_nNeighbours(1)=13
88
89 exch2_neighbourId(1,1)=21
90 exch2_iLo(1,1)=0
91 exch2_iHi(1,1)=52
92 exch2_jLo(1,1)=511
93 exch2_jHi(1,1)=511
94 exch2_opposingSend(1,1)=4
95 exch2_pij(1,1,1)=0
96 exch2_pij(2,1,1)=-1
97 exch2_pij(3,1,1)=1
98 exch2_pij(4,1,1)=0
99 exch2_oi(1,1)=511
100 exch2_oj(1,1)=510
101
102 exch2_neighbourId(2,1)=51
103 exch2_iLo(2,1)=0
104 exch2_iHi(2,1)=52
105 exch2_jLo(2,1)=0
106 exch2_jHi(2,1)=0
107 exch2_opposingSend(2,1)=1
108 exch2_pij(1,2,1)=1
109 exch2_pij(2,2,1)=0
110 exch2_pij(3,2,1)=0
111 exch2_pij(4,2,1)=1
112 exch2_oi(2,1)=0
113 exch2_oj(2,1)=-510
114
115 exch2_neighbourId(3,1)=2
116 exch2_iLo(3,1)=52
117 exch2_iHi(3,1)=52
118 exch2_jLo(3,1)=0
119 exch2_jHi(3,1)=511
120 exch2_opposingSend(3,1)=4
121 exch2_pij(1,3,1)=1
122 exch2_pij(2,3,1)=0
123 exch2_pij(3,3,1)=0
124 exch2_pij(4,3,1)=1
125 exch2_oi(3,1)=0
126 exch2_oj(3,1)=0
127
128 exch2_neighbourId(4,1)=41
129 exch2_iLo(4,1)=0
130 exch2_iHi(4,1)=0
131 exch2_jLo(4,1)=459
132 exch2_jHi(4,1)=511
133 exch2_opposingSend(4,1)=1
134 exch2_pij(1,4,1)=0
135 exch2_pij(2,4,1)=1
136 exch2_pij(3,4,1)=-1
137 exch2_pij(4,4,1)=0
138 exch2_oi(4,1)=-510
139 exch2_oj(4,1)=511
140
141 exch2_neighbourId(5,1)=42
142 exch2_iLo(5,1)=0
143 exch2_iHi(5,1)=0
144 exch2_jLo(5,1)=408
145 exch2_jHi(5,1)=460
146 exch2_opposingSend(5,1)=1
147 exch2_pij(1,5,1)=0
148 exch2_pij(2,5,1)=1
149 exch2_pij(3,5,1)=-1
150 exch2_pij(4,5,1)=0
151 exch2_oi(5,1)=-510
152 exch2_oj(5,1)=511
153
154 exch2_neighbourId(6,1)=43
155 exch2_iLo(6,1)=0
156 exch2_iHi(6,1)=0
157 exch2_jLo(6,1)=357
158 exch2_jHi(6,1)=409
159 exch2_opposingSend(6,1)=1
160 exch2_pij(1,6,1)=0
161 exch2_pij(2,6,1)=1
162 exch2_pij(3,6,1)=-1
163 exch2_pij(4,6,1)=0
164 exch2_oi(6,1)=-510
165 exch2_oj(6,1)=511
166
167 exch2_neighbourId(7,1)=44
168 exch2_iLo(7,1)=0
169 exch2_iHi(7,1)=0
170 exch2_jLo(7,1)=306
171 exch2_jHi(7,1)=358
172 exch2_opposingSend(7,1)=1
173 exch2_pij(1,7,1)=0
174 exch2_pij(2,7,1)=1
175 exch2_pij(3,7,1)=-1
176 exch2_pij(4,7,1)=0
177 exch2_oi(7,1)=-510
178 exch2_oj(7,1)=511
179
180 exch2_neighbourId(8,1)=45
181 exch2_iLo(8,1)=0
182 exch2_iHi(8,1)=0
183 exch2_jLo(8,1)=255
184 exch2_jHi(8,1)=307
185 exch2_opposingSend(8,1)=1
186 exch2_pij(1,8,1)=0
187 exch2_pij(2,8,1)=1
188 exch2_pij(3,8,1)=-1
189 exch2_pij(4,8,1)=0
190 exch2_oi(8,1)=-510
191 exch2_oj(8,1)=511
192
193 exch2_neighbourId(9,1)=46
194 exch2_iLo(9,1)=0
195 exch2_iHi(9,1)=0
196 exch2_jLo(9,1)=204
197 exch2_jHi(9,1)=256
198 exch2_opposingSend(9,1)=1
199 exch2_pij(1,9,1)=0
200 exch2_pij(2,9,1)=1
201 exch2_pij(3,9,1)=-1
202 exch2_pij(4,9,1)=0
203 exch2_oi(9,1)=-510
204 exch2_oj(9,1)=511
205
206 exch2_neighbourId(10,1)=47
207 exch2_iLo(10,1)=0
208 exch2_iHi(10,1)=0
209 exch2_jLo(10,1)=153
210 exch2_jHi(10,1)=205
211 exch2_opposingSend(10,1)=1
212 exch2_pij(1,10,1)=0
213 exch2_pij(2,10,1)=1
214 exch2_pij(3,10,1)=-1
215 exch2_pij(4,10,1)=0
216 exch2_oi(10,1)=-510
217 exch2_oj(10,1)=511
218
219 exch2_neighbourId(11,1)=48
220 exch2_iLo(11,1)=0
221 exch2_iHi(11,1)=0
222 exch2_jLo(11,1)=102
223 exch2_jHi(11,1)=154
224 exch2_opposingSend(11,1)=1
225 exch2_pij(1,11,1)=0
226 exch2_pij(2,11,1)=1
227 exch2_pij(3,11,1)=-1
228 exch2_pij(4,11,1)=0
229 exch2_oi(11,1)=-510
230 exch2_oj(11,1)=511
231
232 exch2_neighbourId(12,1)=49
233 exch2_iLo(12,1)=0
234 exch2_iHi(12,1)=0
235 exch2_jLo(12,1)=51
236 exch2_jHi(12,1)=103
237 exch2_opposingSend(12,1)=1
238 exch2_pij(1,12,1)=0
239 exch2_pij(2,12,1)=1
240 exch2_pij(3,12,1)=-1
241 exch2_pij(4,12,1)=0
242 exch2_oi(12,1)=-510
243 exch2_oj(12,1)=511
244
245 exch2_neighbourId(13,1)=50
246 exch2_iLo(13,1)=0
247 exch2_iHi(13,1)=0
248 exch2_jLo(13,1)=0
249 exch2_jHi(13,1)=52
250 exch2_opposingSend(13,1)=1
251 exch2_pij(1,13,1)=0
252 exch2_pij(2,13,1)=1
253 exch2_pij(3,13,1)=-1
254 exch2_pij(4,13,1)=0
255 exch2_oi(13,1)=-510
256 exch2_oj(13,1)=511
257 RETURN
258 END
259
260 SUBROUTINE W2_E2SETUP_2
261 C Topology for tile 2
262 #include "W2_EXCH2_TOPOLOGY.h"
263 exch2_tNx(2)=51
264 exch2_tNy(2)=510
265 exch2_tBasex(2)=51
266 exch2_tBasey(2)=0
267 exch2_txGlobalo(2)=52
268 exch2_tyGlobalo(2)=1
269 exch2_isWedge(2)=0
270 exch2_isNedge(2)=1
271 exch2_isEedge(2)=0
272 exch2_isSedge(2)=1
273 exch2_myFace(2)=1
274 exch2_mydNx(2)=510
275 exch2_mydNy(2)=510
276 exch2_nNeighbours(2)=4
277
278 exch2_neighbourId(1,2)=21
279 exch2_iLo(1,2)=0
280 exch2_iHi(1,2)=52
281 exch2_jLo(1,2)=511
282 exch2_jHi(1,2)=511
283 exch2_opposingSend(1,2)=5
284 exch2_pij(1,1,2)=0
285 exch2_pij(2,1,2)=-1
286 exch2_pij(3,1,2)=1
287 exch2_pij(4,1,2)=0
288 exch2_oi(1,2)=511
289 exch2_oj(1,2)=510
290
291 exch2_neighbourId(2,2)=52
292 exch2_iLo(2,2)=0
293 exch2_iHi(2,2)=52
294 exch2_jLo(2,2)=0
295 exch2_jHi(2,2)=0
296 exch2_opposingSend(2,2)=1
297 exch2_pij(1,2,2)=1
298 exch2_pij(2,2,2)=0
299 exch2_pij(3,2,2)=0
300 exch2_pij(4,2,2)=1
301 exch2_oi(2,2)=0
302 exch2_oj(2,2)=-510
303
304 exch2_neighbourId(3,2)=3
305 exch2_iLo(3,2)=52
306 exch2_iHi(3,2)=52
307 exch2_jLo(3,2)=0
308 exch2_jHi(3,2)=511
309 exch2_opposingSend(3,2)=4
310 exch2_pij(1,3,2)=1
311 exch2_pij(2,3,2)=0
312 exch2_pij(3,3,2)=0
313 exch2_pij(4,3,2)=1
314 exch2_oi(3,2)=0
315 exch2_oj(3,2)=0
316
317 exch2_neighbourId(4,2)=1
318 exch2_iLo(4,2)=0
319 exch2_iHi(4,2)=0
320 exch2_jLo(4,2)=0
321 exch2_jHi(4,2)=511
322 exch2_opposingSend(4,2)=3
323 exch2_pij(1,4,2)=1
324 exch2_pij(2,4,2)=0
325 exch2_pij(3,4,2)=0
326 exch2_pij(4,4,2)=1
327 exch2_oi(4,2)=0
328 exch2_oj(4,2)=0
329 RETURN
330 END
331
332 SUBROUTINE W2_E2SETUP_3
333 C Topology for tile 3
334 #include "W2_EXCH2_TOPOLOGY.h"
335 exch2_tNx(3)=51
336 exch2_tNy(3)=510
337 exch2_tBasex(3)=102
338 exch2_tBasey(3)=0
339 exch2_txGlobalo(3)=103
340 exch2_tyGlobalo(3)=1
341 exch2_isWedge(3)=0
342 exch2_isNedge(3)=1
343 exch2_isEedge(3)=0
344 exch2_isSedge(3)=1
345 exch2_myFace(3)=1
346 exch2_mydNx(3)=510
347 exch2_mydNy(3)=510
348 exch2_nNeighbours(3)=4
349
350 exch2_neighbourId(1,3)=21
351 exch2_iLo(1,3)=0
352 exch2_iHi(1,3)=52
353 exch2_jLo(1,3)=511
354 exch2_jHi(1,3)=511
355 exch2_opposingSend(1,3)=6
356 exch2_pij(1,1,3)=0
357 exch2_pij(2,1,3)=-1
358 exch2_pij(3,1,3)=1
359 exch2_pij(4,1,3)=0
360 exch2_oi(1,3)=511
361 exch2_oj(1,3)=510
362
363 exch2_neighbourId(2,3)=53
364 exch2_iLo(2,3)=0
365 exch2_iHi(2,3)=52
366 exch2_jLo(2,3)=0
367 exch2_jHi(2,3)=0
368 exch2_opposingSend(2,3)=1
369 exch2_pij(1,2,3)=1
370 exch2_pij(2,2,3)=0
371 exch2_pij(3,2,3)=0
372 exch2_pij(4,2,3)=1
373 exch2_oi(2,3)=0
374 exch2_oj(2,3)=-510
375
376 exch2_neighbourId(3,3)=4
377 exch2_iLo(3,3)=52
378 exch2_iHi(3,3)=52
379 exch2_jLo(3,3)=0
380 exch2_jHi(3,3)=511
381 exch2_opposingSend(3,3)=4
382 exch2_pij(1,3,3)=1
383 exch2_pij(2,3,3)=0
384 exch2_pij(3,3,3)=0
385 exch2_pij(4,3,3)=1
386 exch2_oi(3,3)=0
387 exch2_oj(3,3)=0
388
389 exch2_neighbourId(4,3)=2
390 exch2_iLo(4,3)=0
391 exch2_iHi(4,3)=0
392 exch2_jLo(4,3)=0
393 exch2_jHi(4,3)=511
394 exch2_opposingSend(4,3)=3
395 exch2_pij(1,4,3)=1
396 exch2_pij(2,4,3)=0
397 exch2_pij(3,4,3)=0
398 exch2_pij(4,4,3)=1
399 exch2_oi(4,3)=0
400 exch2_oj(4,3)=0
401 RETURN
402 END
403
404 SUBROUTINE W2_E2SETUP_4
405 C Topology for tile 4
406 #include "W2_EXCH2_TOPOLOGY.h"
407 exch2_tNx(4)=51
408 exch2_tNy(4)=510
409 exch2_tBasex(4)=153
410 exch2_tBasey(4)=0
411 exch2_txGlobalo(4)=154
412 exch2_tyGlobalo(4)=1
413 exch2_isWedge(4)=0
414 exch2_isNedge(4)=1
415 exch2_isEedge(4)=0
416 exch2_isSedge(4)=1
417 exch2_myFace(4)=1
418 exch2_mydNx(4)=510
419 exch2_mydNy(4)=510
420 exch2_nNeighbours(4)=4
421
422 exch2_neighbourId(1,4)=21
423 exch2_iLo(1,4)=0
424 exch2_iHi(1,4)=52
425 exch2_jLo(1,4)=511
426 exch2_jHi(1,4)=511
427 exch2_opposingSend(1,4)=7
428 exch2_pij(1,1,4)=0
429 exch2_pij(2,1,4)=-1
430 exch2_pij(3,1,4)=1
431 exch2_pij(4,1,4)=0
432 exch2_oi(1,4)=511
433 exch2_oj(1,4)=510
434
435 exch2_neighbourId(2,4)=54
436 exch2_iLo(2,4)=0
437 exch2_iHi(2,4)=52
438 exch2_jLo(2,4)=0
439 exch2_jHi(2,4)=0
440 exch2_opposingSend(2,4)=1
441 exch2_pij(1,2,4)=1
442 exch2_pij(2,2,4)=0
443 exch2_pij(3,2,4)=0
444 exch2_pij(4,2,4)=1
445 exch2_oi(2,4)=0
446 exch2_oj(2,4)=-510
447
448 exch2_neighbourId(3,4)=5
449 exch2_iLo(3,4)=52
450 exch2_iHi(3,4)=52
451 exch2_jLo(3,4)=0
452 exch2_jHi(3,4)=511
453 exch2_opposingSend(3,4)=4
454 exch2_pij(1,3,4)=1
455 exch2_pij(2,3,4)=0
456 exch2_pij(3,3,4)=0
457 exch2_pij(4,3,4)=1
458 exch2_oi(3,4)=0
459 exch2_oj(3,4)=0
460
461 exch2_neighbourId(4,4)=3
462 exch2_iLo(4,4)=0
463 exch2_iHi(4,4)=0
464 exch2_jLo(4,4)=0
465 exch2_jHi(4,4)=511
466 exch2_opposingSend(4,4)=3
467 exch2_pij(1,4,4)=1
468 exch2_pij(2,4,4)=0
469 exch2_pij(3,4,4)=0
470 exch2_pij(4,4,4)=1
471 exch2_oi(4,4)=0
472 exch2_oj(4,4)=0
473 RETURN
474 END
475
476 SUBROUTINE W2_E2SETUP_5
477 C Topology for tile 5
478 #include "W2_EXCH2_TOPOLOGY.h"
479 exch2_tNx(5)=51
480 exch2_tNy(5)=510
481 exch2_tBasex(5)=204
482 exch2_tBasey(5)=0
483 exch2_txGlobalo(5)=205
484 exch2_tyGlobalo(5)=1
485 exch2_isWedge(5)=0
486 exch2_isNedge(5)=1
487 exch2_isEedge(5)=0
488 exch2_isSedge(5)=1
489 exch2_myFace(5)=1
490 exch2_mydNx(5)=510
491 exch2_mydNy(5)=510
492 exch2_nNeighbours(5)=4
493
494 exch2_neighbourId(1,5)=21
495 exch2_iLo(1,5)=0
496 exch2_iHi(1,5)=52
497 exch2_jLo(1,5)=511
498 exch2_jHi(1,5)=511
499 exch2_opposingSend(1,5)=8
500 exch2_pij(1,1,5)=0
501 exch2_pij(2,1,5)=-1
502 exch2_pij(3,1,5)=1
503 exch2_pij(4,1,5)=0
504 exch2_oi(1,5)=511
505 exch2_oj(1,5)=510
506
507 exch2_neighbourId(2,5)=55
508 exch2_iLo(2,5)=0
509 exch2_iHi(2,5)=52
510 exch2_jLo(2,5)=0
511 exch2_jHi(2,5)=0
512 exch2_opposingSend(2,5)=1
513 exch2_pij(1,2,5)=1
514 exch2_pij(2,2,5)=0
515 exch2_pij(3,2,5)=0
516 exch2_pij(4,2,5)=1
517 exch2_oi(2,5)=0
518 exch2_oj(2,5)=-510
519
520 exch2_neighbourId(3,5)=6
521 exch2_iLo(3,5)=52
522 exch2_iHi(3,5)=52
523 exch2_jLo(3,5)=0
524 exch2_jHi(3,5)=511
525 exch2_opposingSend(3,5)=4
526 exch2_pij(1,3,5)=1
527 exch2_pij(2,3,5)=0
528 exch2_pij(3,3,5)=0
529 exch2_pij(4,3,5)=1
530 exch2_oi(3,5)=0
531 exch2_oj(3,5)=0
532
533 exch2_neighbourId(4,5)=4
534 exch2_iLo(4,5)=0
535 exch2_iHi(4,5)=0
536 exch2_jLo(4,5)=0
537 exch2_jHi(4,5)=511
538 exch2_opposingSend(4,5)=3
539 exch2_pij(1,4,5)=1
540 exch2_pij(2,4,5)=0
541 exch2_pij(3,4,5)=0
542 exch2_pij(4,4,5)=1
543 exch2_oi(4,5)=0
544 exch2_oj(4,5)=0
545 RETURN
546 END
547
548 SUBROUTINE W2_E2SETUP_6
549 C Topology for tile 6
550 #include "W2_EXCH2_TOPOLOGY.h"
551 exch2_tNx(6)=51
552 exch2_tNy(6)=510
553 exch2_tBasex(6)=255
554 exch2_tBasey(6)=0
555 exch2_txGlobalo(6)=256
556 exch2_tyGlobalo(6)=1
557 exch2_isWedge(6)=0
558 exch2_isNedge(6)=1
559 exch2_isEedge(6)=0
560 exch2_isSedge(6)=1
561 exch2_myFace(6)=1
562 exch2_mydNx(6)=510
563 exch2_mydNy(6)=510
564 exch2_nNeighbours(6)=4
565
566 exch2_neighbourId(1,6)=21
567 exch2_iLo(1,6)=0
568 exch2_iHi(1,6)=52
569 exch2_jLo(1,6)=511
570 exch2_jHi(1,6)=511
571 exch2_opposingSend(1,6)=9
572 exch2_pij(1,1,6)=0
573 exch2_pij(2,1,6)=-1
574 exch2_pij(3,1,6)=1
575 exch2_pij(4,1,6)=0
576 exch2_oi(1,6)=511
577 exch2_oj(1,6)=510
578
579 exch2_neighbourId(2,6)=56
580 exch2_iLo(2,6)=0
581 exch2_iHi(2,6)=52
582 exch2_jLo(2,6)=0
583 exch2_jHi(2,6)=0
584 exch2_opposingSend(2,6)=1
585 exch2_pij(1,2,6)=1
586 exch2_pij(2,2,6)=0
587 exch2_pij(3,2,6)=0
588 exch2_pij(4,2,6)=1
589 exch2_oi(2,6)=0
590 exch2_oj(2,6)=-510
591
592 exch2_neighbourId(3,6)=7
593 exch2_iLo(3,6)=52
594 exch2_iHi(3,6)=52
595 exch2_jLo(3,6)=0
596 exch2_jHi(3,6)=511
597 exch2_opposingSend(3,6)=4
598 exch2_pij(1,3,6)=1
599 exch2_pij(2,3,6)=0
600 exch2_pij(3,3,6)=0
601 exch2_pij(4,3,6)=1
602 exch2_oi(3,6)=0
603 exch2_oj(3,6)=0
604
605 exch2_neighbourId(4,6)=5
606 exch2_iLo(4,6)=0
607 exch2_iHi(4,6)=0
608 exch2_jLo(4,6)=0
609 exch2_jHi(4,6)=511
610 exch2_opposingSend(4,6)=3
611 exch2_pij(1,4,6)=1
612 exch2_pij(2,4,6)=0
613 exch2_pij(3,4,6)=0
614 exch2_pij(4,4,6)=1
615 exch2_oi(4,6)=0
616 exch2_oj(4,6)=0
617 RETURN
618 END
619
620 SUBROUTINE W2_E2SETUP_7
621 C Topology for tile 7
622 #include "W2_EXCH2_TOPOLOGY.h"
623 exch2_tNx(7)=51
624 exch2_tNy(7)=510
625 exch2_tBasex(7)=306
626 exch2_tBasey(7)=0
627 exch2_txGlobalo(7)=307
628 exch2_tyGlobalo(7)=1
629 exch2_isWedge(7)=0
630 exch2_isNedge(7)=1
631 exch2_isEedge(7)=0
632 exch2_isSedge(7)=1
633 exch2_myFace(7)=1
634 exch2_mydNx(7)=510
635 exch2_mydNy(7)=510
636 exch2_nNeighbours(7)=4
637
638 exch2_neighbourId(1,7)=21
639 exch2_iLo(1,7)=0
640 exch2_iHi(1,7)=52
641 exch2_jLo(1,7)=511
642 exch2_jHi(1,7)=511
643 exch2_opposingSend(1,7)=10
644 exch2_pij(1,1,7)=0
645 exch2_pij(2,1,7)=-1
646 exch2_pij(3,1,7)=1
647 exch2_pij(4,1,7)=0
648 exch2_oi(1,7)=511
649 exch2_oj(1,7)=510
650
651 exch2_neighbourId(2,7)=57
652 exch2_iLo(2,7)=0
653 exch2_iHi(2,7)=52
654 exch2_jLo(2,7)=0
655 exch2_jHi(2,7)=0
656 exch2_opposingSend(2,7)=1
657 exch2_pij(1,2,7)=1
658 exch2_pij(2,2,7)=0
659 exch2_pij(3,2,7)=0
660 exch2_pij(4,2,7)=1
661 exch2_oi(2,7)=0
662 exch2_oj(2,7)=-510
663
664 exch2_neighbourId(3,7)=8
665 exch2_iLo(3,7)=52
666 exch2_iHi(3,7)=52
667 exch2_jLo(3,7)=0
668 exch2_jHi(3,7)=511
669 exch2_opposingSend(3,7)=4
670 exch2_pij(1,3,7)=1
671 exch2_pij(2,3,7)=0
672 exch2_pij(3,3,7)=0
673 exch2_pij(4,3,7)=1
674 exch2_oi(3,7)=0
675 exch2_oj(3,7)=0
676
677 exch2_neighbourId(4,7)=6
678 exch2_iLo(4,7)=0
679 exch2_iHi(4,7)=0
680 exch2_jLo(4,7)=0
681 exch2_jHi(4,7)=511
682 exch2_opposingSend(4,7)=3
683 exch2_pij(1,4,7)=1
684 exch2_pij(2,4,7)=0
685 exch2_pij(3,4,7)=0
686 exch2_pij(4,4,7)=1
687 exch2_oi(4,7)=0
688 exch2_oj(4,7)=0
689 RETURN
690 END
691
692 SUBROUTINE W2_E2SETUP_8
693 C Topology for tile 8
694 #include "W2_EXCH2_TOPOLOGY.h"
695 exch2_tNx(8)=51
696 exch2_tNy(8)=510
697 exch2_tBasex(8)=357
698 exch2_tBasey(8)=0
699 exch2_txGlobalo(8)=358
700 exch2_tyGlobalo(8)=1
701 exch2_isWedge(8)=0
702 exch2_isNedge(8)=1
703 exch2_isEedge(8)=0
704 exch2_isSedge(8)=1
705 exch2_myFace(8)=1
706 exch2_mydNx(8)=510
707 exch2_mydNy(8)=510
708 exch2_nNeighbours(8)=4
709
710 exch2_neighbourId(1,8)=21
711 exch2_iLo(1,8)=0
712 exch2_iHi(1,8)=52
713 exch2_jLo(1,8)=511
714 exch2_jHi(1,8)=511
715 exch2_opposingSend(1,8)=11
716 exch2_pij(1,1,8)=0
717 exch2_pij(2,1,8)=-1
718 exch2_pij(3,1,8)=1
719 exch2_pij(4,1,8)=0
720 exch2_oi(1,8)=511
721 exch2_oj(1,8)=510
722
723 exch2_neighbourId(2,8)=58
724 exch2_iLo(2,8)=0
725 exch2_iHi(2,8)=52
726 exch2_jLo(2,8)=0
727 exch2_jHi(2,8)=0
728 exch2_opposingSend(2,8)=1
729 exch2_pij(1,2,8)=1
730 exch2_pij(2,2,8)=0
731 exch2_pij(3,2,8)=0
732 exch2_pij(4,2,8)=1
733 exch2_oi(2,8)=0
734 exch2_oj(2,8)=-510
735
736 exch2_neighbourId(3,8)=9
737 exch2_iLo(3,8)=52
738 exch2_iHi(3,8)=52
739 exch2_jLo(3,8)=0
740 exch2_jHi(3,8)=511
741 exch2_opposingSend(3,8)=4
742 exch2_pij(1,3,8)=1
743 exch2_pij(2,3,8)=0
744 exch2_pij(3,3,8)=0
745 exch2_pij(4,3,8)=1
746 exch2_oi(3,8)=0
747 exch2_oj(3,8)=0
748
749 exch2_neighbourId(4,8)=7
750 exch2_iLo(4,8)=0
751 exch2_iHi(4,8)=0
752 exch2_jLo(4,8)=0
753 exch2_jHi(4,8)=511
754 exch2_opposingSend(4,8)=3
755 exch2_pij(1,4,8)=1
756 exch2_pij(2,4,8)=0
757 exch2_pij(3,4,8)=0
758 exch2_pij(4,4,8)=1
759 exch2_oi(4,8)=0
760 exch2_oj(4,8)=0
761 RETURN
762 END
763
764 SUBROUTINE W2_E2SETUP_9
765 C Topology for tile 9
766 #include "W2_EXCH2_TOPOLOGY.h"
767 exch2_tNx(9)=51
768 exch2_tNy(9)=510
769 exch2_tBasex(9)=408
770 exch2_tBasey(9)=0
771 exch2_txGlobalo(9)=409
772 exch2_tyGlobalo(9)=1
773 exch2_isWedge(9)=0
774 exch2_isNedge(9)=1
775 exch2_isEedge(9)=0
776 exch2_isSedge(9)=1
777 exch2_myFace(9)=1
778 exch2_mydNx(9)=510
779 exch2_mydNy(9)=510
780 exch2_nNeighbours(9)=4
781
782 exch2_neighbourId(1,9)=21
783 exch2_iLo(1,9)=0
784 exch2_iHi(1,9)=52
785 exch2_jLo(1,9)=511
786 exch2_jHi(1,9)=511
787 exch2_opposingSend(1,9)=12
788 exch2_pij(1,1,9)=0
789 exch2_pij(2,1,9)=-1
790 exch2_pij(3,1,9)=1
791 exch2_pij(4,1,9)=0
792 exch2_oi(1,9)=511
793 exch2_oj(1,9)=510
794
795 exch2_neighbourId(2,9)=59
796 exch2_iLo(2,9)=0
797 exch2_iHi(2,9)=52
798 exch2_jLo(2,9)=0
799 exch2_jHi(2,9)=0
800 exch2_opposingSend(2,9)=1
801 exch2_pij(1,2,9)=1
802 exch2_pij(2,2,9)=0
803 exch2_pij(3,2,9)=0
804 exch2_pij(4,2,9)=1
805 exch2_oi(2,9)=0
806 exch2_oj(2,9)=-510
807
808 exch2_neighbourId(3,9)=10
809 exch2_iLo(3,9)=52
810 exch2_iHi(3,9)=52
811 exch2_jLo(3,9)=0
812 exch2_jHi(3,9)=511
813 exch2_opposingSend(3,9)=4
814 exch2_pij(1,3,9)=1
815 exch2_pij(2,3,9)=0
816 exch2_pij(3,3,9)=0
817 exch2_pij(4,3,9)=1
818 exch2_oi(3,9)=0
819 exch2_oj(3,9)=0
820
821 exch2_neighbourId(4,9)=8
822 exch2_iLo(4,9)=0
823 exch2_iHi(4,9)=0
824 exch2_jLo(4,9)=0
825 exch2_jHi(4,9)=511
826 exch2_opposingSend(4,9)=3
827 exch2_pij(1,4,9)=1
828 exch2_pij(2,4,9)=0
829 exch2_pij(3,4,9)=0
830 exch2_pij(4,4,9)=1
831 exch2_oi(4,9)=0
832 exch2_oj(4,9)=0
833 RETURN
834 END
835
836 SUBROUTINE W2_E2SETUP_10
837 C Topology for tile 10
838 #include "W2_EXCH2_TOPOLOGY.h"
839 exch2_tNx(10)=51
840 exch2_tNy(10)=510
841 exch2_tBasex(10)=459
842 exch2_tBasey(10)=0
843 exch2_txGlobalo(10)=460
844 exch2_tyGlobalo(10)=1
845 exch2_isWedge(10)=0
846 exch2_isNedge(10)=1
847 exch2_isEedge(10)=1
848 exch2_isSedge(10)=1
849 exch2_myFace(10)=1
850 exch2_mydNx(10)=510
851 exch2_mydNy(10)=510
852 exch2_nNeighbours(10)=4
853
854 exch2_neighbourId(1,10)=21
855 exch2_iLo(1,10)=0
856 exch2_iHi(1,10)=52
857 exch2_jLo(1,10)=511
858 exch2_jHi(1,10)=511
859 exch2_opposingSend(1,10)=13
860 exch2_pij(1,1,10)=0
861 exch2_pij(2,1,10)=-1
862 exch2_pij(3,1,10)=1
863 exch2_pij(4,1,10)=0
864 exch2_oi(1,10)=511
865 exch2_oj(1,10)=510
866
867 exch2_neighbourId(2,10)=60
868 exch2_iLo(2,10)=0
869 exch2_iHi(2,10)=52
870 exch2_jLo(2,10)=0
871 exch2_jHi(2,10)=0
872 exch2_opposingSend(2,10)=1
873 exch2_pij(1,2,10)=1
874 exch2_pij(2,2,10)=0
875 exch2_pij(3,2,10)=0
876 exch2_pij(4,2,10)=1
877 exch2_oi(2,10)=0
878 exch2_oj(2,10)=-510
879
880 exch2_neighbourId(3,10)=11
881 exch2_iLo(3,10)=52
882 exch2_iHi(3,10)=52
883 exch2_jLo(3,10)=0
884 exch2_jHi(3,10)=511
885 exch2_opposingSend(3,10)=4
886 exch2_pij(1,3,10)=1
887 exch2_pij(2,3,10)=0
888 exch2_pij(3,3,10)=0
889 exch2_pij(4,3,10)=1
890 exch2_oi(3,10)=510
891 exch2_oj(3,10)=0
892
893 exch2_neighbourId(4,10)=9
894 exch2_iLo(4,10)=0
895 exch2_iHi(4,10)=0
896 exch2_jLo(4,10)=0
897 exch2_jHi(4,10)=511
898 exch2_opposingSend(4,10)=3
899 exch2_pij(1,4,10)=1
900 exch2_pij(2,4,10)=0
901 exch2_pij(3,4,10)=0
902 exch2_pij(4,4,10)=1
903 exch2_oi(4,10)=0
904 exch2_oj(4,10)=0
905 RETURN
906 END
907
908 SUBROUTINE W2_E2SETUP_11
909 C Topology for tile 11
910 #include "W2_EXCH2_TOPOLOGY.h"
911 exch2_tNx(11)=51
912 exch2_tNy(11)=510
913 exch2_tBasex(11)=0
914 exch2_tBasey(11)=0
915 exch2_txGlobalo(11)=511
916 exch2_tyGlobalo(11)=1
917 exch2_isWedge(11)=1
918 exch2_isNedge(11)=1
919 exch2_isEedge(11)=0
920 exch2_isSedge(11)=1
921 exch2_myFace(11)=2
922 exch2_mydNx(11)=510
923 exch2_mydNy(11)=510
924 exch2_nNeighbours(11)=4
925
926 exch2_neighbourId(1,11)=21
927 exch2_iLo(1,11)=0
928 exch2_iHi(1,11)=52
929 exch2_jLo(1,11)=511
930 exch2_jHi(1,11)=511
931 exch2_opposingSend(1,11)=2
932 exch2_pij(1,1,11)=1
933 exch2_pij(2,1,11)=0
934 exch2_pij(3,1,11)=0
935 exch2_pij(4,1,11)=1
936 exch2_oi(1,11)=0
937 exch2_oj(1,11)=510
938
939 exch2_neighbourId(2,11)=60
940 exch2_iLo(2,11)=0
941 exch2_iHi(2,11)=52
942 exch2_jLo(2,11)=0
943 exch2_jHi(2,11)=0
944 exch2_opposingSend(2,11)=3
945 exch2_pij(1,2,11)=0
946 exch2_pij(2,2,11)=-1
947 exch2_pij(3,2,11)=1
948 exch2_pij(4,2,11)=0
949 exch2_oi(2,11)=511
950 exch2_oj(2,11)=-510
951
952 exch2_neighbourId(3,11)=12
953 exch2_iLo(3,11)=52
954 exch2_iHi(3,11)=52
955 exch2_jLo(3,11)=0
956 exch2_jHi(3,11)=511
957 exch2_opposingSend(3,11)=4
958 exch2_pij(1,3,11)=1
959 exch2_pij(2,3,11)=0
960 exch2_pij(3,3,11)=0
961 exch2_pij(4,3,11)=1
962 exch2_oi(3,11)=0
963 exch2_oj(3,11)=0
964
965 exch2_neighbourId(4,11)=10
966 exch2_iLo(4,11)=0
967 exch2_iHi(4,11)=0
968 exch2_jLo(4,11)=0
969 exch2_jHi(4,11)=511
970 exch2_opposingSend(4,11)=3
971 exch2_pij(1,4,11)=1
972 exch2_pij(2,4,11)=0
973 exch2_pij(3,4,11)=0
974 exch2_pij(4,4,11)=1
975 exch2_oi(4,11)=-510
976 exch2_oj(4,11)=0
977 RETURN
978 END
979
980 SUBROUTINE W2_E2SETUP_12
981 C Topology for tile 12
982 #include "W2_EXCH2_TOPOLOGY.h"
983 exch2_tNx(12)=51
984 exch2_tNy(12)=510
985 exch2_tBasex(12)=51
986 exch2_tBasey(12)=0
987 exch2_txGlobalo(12)=562
988 exch2_tyGlobalo(12)=1
989 exch2_isWedge(12)=0
990 exch2_isNedge(12)=1
991 exch2_isEedge(12)=0
992 exch2_isSedge(12)=1
993 exch2_myFace(12)=2
994 exch2_mydNx(12)=510
995 exch2_mydNy(12)=510
996 exch2_nNeighbours(12)=4
997
998 exch2_neighbourId(1,12)=22
999 exch2_iLo(1,12)=0
1000 exch2_iHi(1,12)=52
1001 exch2_jLo(1,12)=511
1002 exch2_jHi(1,12)=511
1003 exch2_opposingSend(1,12)=2
1004 exch2_pij(1,1,12)=1
1005 exch2_pij(2,1,12)=0
1006 exch2_pij(3,1,12)=0
1007 exch2_pij(4,1,12)=1
1008 exch2_oi(1,12)=0
1009 exch2_oj(1,12)=510
1010
1011 exch2_neighbourId(2,12)=60
1012 exch2_iLo(2,12)=0
1013 exch2_iHi(2,12)=52
1014 exch2_jLo(2,12)=0
1015 exch2_jHi(2,12)=0
1016 exch2_opposingSend(2,12)=4
1017 exch2_pij(1,2,12)=0
1018 exch2_pij(2,2,12)=-1
1019 exch2_pij(3,2,12)=1
1020 exch2_pij(4,2,12)=0
1021 exch2_oi(2,12)=511
1022 exch2_oj(2,12)=-510
1023
1024 exch2_neighbourId(3,12)=13
1025 exch2_iLo(3,12)=52
1026 exch2_iHi(3,12)=52
1027 exch2_jLo(3,12)=0
1028 exch2_jHi(3,12)=511
1029 exch2_opposingSend(3,12)=4
1030 exch2_pij(1,3,12)=1
1031 exch2_pij(2,3,12)=0
1032 exch2_pij(3,3,12)=0
1033 exch2_pij(4,3,12)=1
1034 exch2_oi(3,12)=0
1035 exch2_oj(3,12)=0
1036
1037 exch2_neighbourId(4,12)=11
1038 exch2_iLo(4,12)=0
1039 exch2_iHi(4,12)=0
1040 exch2_jLo(4,12)=0
1041 exch2_jHi(4,12)=511
1042 exch2_opposingSend(4,12)=3
1043 exch2_pij(1,4,12)=1
1044 exch2_pij(2,4,12)=0
1045 exch2_pij(3,4,12)=0
1046 exch2_pij(4,4,12)=1
1047 exch2_oi(4,12)=0
1048 exch2_oj(4,12)=0
1049 RETURN
1050 END
1051
1052 SUBROUTINE W2_E2SETUP_13
1053 C Topology for tile 13
1054 #include "W2_EXCH2_TOPOLOGY.h"
1055 exch2_tNx(13)=51
1056 exch2_tNy(13)=510
1057 exch2_tBasex(13)=102
1058 exch2_tBasey(13)=0
1059 exch2_txGlobalo(13)=613
1060 exch2_tyGlobalo(13)=1
1061 exch2_isWedge(13)=0
1062 exch2_isNedge(13)=1
1063 exch2_isEedge(13)=0
1064 exch2_isSedge(13)=1
1065 exch2_myFace(13)=2
1066 exch2_mydNx(13)=510
1067 exch2_mydNy(13)=510
1068 exch2_nNeighbours(13)=4
1069
1070 exch2_neighbourId(1,13)=23
1071 exch2_iLo(1,13)=0
1072 exch2_iHi(1,13)=52
1073 exch2_jLo(1,13)=511
1074 exch2_jHi(1,13)=511
1075 exch2_opposingSend(1,13)=2
1076 exch2_pij(1,1,13)=1
1077 exch2_pij(2,1,13)=0
1078 exch2_pij(3,1,13)=0
1079 exch2_pij(4,1,13)=1
1080 exch2_oi(1,13)=0
1081 exch2_oj(1,13)=510
1082
1083 exch2_neighbourId(2,13)=60
1084 exch2_iLo(2,13)=0
1085 exch2_iHi(2,13)=52
1086 exch2_jLo(2,13)=0
1087 exch2_jHi(2,13)=0
1088 exch2_opposingSend(2,13)=5
1089 exch2_pij(1,2,13)=0
1090 exch2_pij(2,2,13)=-1
1091 exch2_pij(3,2,13)=1
1092 exch2_pij(4,2,13)=0
1093 exch2_oi(2,13)=511
1094 exch2_oj(2,13)=-510
1095
1096 exch2_neighbourId(3,13)=14
1097 exch2_iLo(3,13)=52
1098 exch2_iHi(3,13)=52
1099 exch2_jLo(3,13)=0
1100 exch2_jHi(3,13)=511
1101 exch2_opposingSend(3,13)=4
1102 exch2_pij(1,3,13)=1
1103 exch2_pij(2,3,13)=0
1104 exch2_pij(3,3,13)=0
1105 exch2_pij(4,3,13)=1
1106 exch2_oi(3,13)=0
1107 exch2_oj(3,13)=0
1108
1109 exch2_neighbourId(4,13)=12
1110 exch2_iLo(4,13)=0
1111 exch2_iHi(4,13)=0
1112 exch2_jLo(4,13)=0
1113 exch2_jHi(4,13)=511
1114 exch2_opposingSend(4,13)=3
1115 exch2_pij(1,4,13)=1
1116 exch2_pij(2,4,13)=0
1117 exch2_pij(3,4,13)=0
1118 exch2_pij(4,4,13)=1
1119 exch2_oi(4,13)=0
1120 exch2_oj(4,13)=0
1121 RETURN
1122 END
1123
1124 SUBROUTINE W2_E2SETUP_14
1125 C Topology for tile 14
1126 #include "W2_EXCH2_TOPOLOGY.h"
1127 exch2_tNx(14)=51
1128 exch2_tNy(14)=510
1129 exch2_tBasex(14)=153
1130 exch2_tBasey(14)=0
1131 exch2_txGlobalo(14)=664
1132 exch2_tyGlobalo(14)=1
1133 exch2_isWedge(14)=0
1134 exch2_isNedge(14)=1
1135 exch2_isEedge(14)=0
1136 exch2_isSedge(14)=1
1137 exch2_myFace(14)=2
1138 exch2_mydNx(14)=510
1139 exch2_mydNy(14)=510
1140 exch2_nNeighbours(14)=4
1141
1142 exch2_neighbourId(1,14)=24
1143 exch2_iLo(1,14)=0
1144 exch2_iHi(1,14)=52
1145 exch2_jLo(1,14)=511
1146 exch2_jHi(1,14)=511
1147 exch2_opposingSend(1,14)=2
1148 exch2_pij(1,1,14)=1
1149 exch2_pij(2,1,14)=0
1150 exch2_pij(3,1,14)=0
1151 exch2_pij(4,1,14)=1
1152 exch2_oi(1,14)=0
1153 exch2_oj(1,14)=510
1154
1155 exch2_neighbourId(2,14)=60
1156 exch2_iLo(2,14)=0
1157 exch2_iHi(2,14)=52
1158 exch2_jLo(2,14)=0
1159 exch2_jHi(2,14)=0
1160 exch2_opposingSend(2,14)=6
1161 exch2_pij(1,2,14)=0
1162 exch2_pij(2,2,14)=-1
1163 exch2_pij(3,2,14)=1
1164 exch2_pij(4,2,14)=0
1165 exch2_oi(2,14)=511
1166 exch2_oj(2,14)=-510
1167
1168 exch2_neighbourId(3,14)=15
1169 exch2_iLo(3,14)=52
1170 exch2_iHi(3,14)=52
1171 exch2_jLo(3,14)=0
1172 exch2_jHi(3,14)=511
1173 exch2_opposingSend(3,14)=4
1174 exch2_pij(1,3,14)=1
1175 exch2_pij(2,3,14)=0
1176 exch2_pij(3,3,14)=0
1177 exch2_pij(4,3,14)=1
1178 exch2_oi(3,14)=0
1179 exch2_oj(3,14)=0
1180
1181 exch2_neighbourId(4,14)=13
1182 exch2_iLo(4,14)=0
1183 exch2_iHi(4,14)=0
1184 exch2_jLo(4,14)=0
1185 exch2_jHi(4,14)=511
1186 exch2_opposingSend(4,14)=3
1187 exch2_pij(1,4,14)=1
1188 exch2_pij(2,4,14)=0
1189 exch2_pij(3,4,14)=0
1190 exch2_pij(4,4,14)=1
1191 exch2_oi(4,14)=0
1192 exch2_oj(4,14)=0
1193 RETURN
1194 END
1195
1196 SUBROUTINE W2_E2SETUP_15
1197 C Topology for tile 15
1198 #include "W2_EXCH2_TOPOLOGY.h"
1199 exch2_tNx(15)=51
1200 exch2_tNy(15)=510
1201 exch2_tBasex(15)=204
1202 exch2_tBasey(15)=0
1203 exch2_txGlobalo(15)=715
1204 exch2_tyGlobalo(15)=1
1205 exch2_isWedge(15)=0
1206 exch2_isNedge(15)=1
1207 exch2_isEedge(15)=0
1208 exch2_isSedge(15)=1
1209 exch2_myFace(15)=2
1210 exch2_mydNx(15)=510
1211 exch2_mydNy(15)=510
1212 exch2_nNeighbours(15)=4
1213
1214 exch2_neighbourId(1,15)=25
1215 exch2_iLo(1,15)=0
1216 exch2_iHi(1,15)=52
1217 exch2_jLo(1,15)=511
1218 exch2_jHi(1,15)=511
1219 exch2_opposingSend(1,15)=2
1220 exch2_pij(1,1,15)=1
1221 exch2_pij(2,1,15)=0
1222 exch2_pij(3,1,15)=0
1223 exch2_pij(4,1,15)=1
1224 exch2_oi(1,15)=0
1225 exch2_oj(1,15)=510
1226
1227 exch2_neighbourId(2,15)=60
1228 exch2_iLo(2,15)=0
1229 exch2_iHi(2,15)=52
1230 exch2_jLo(2,15)=0
1231 exch2_jHi(2,15)=0
1232 exch2_opposingSend(2,15)=7
1233 exch2_pij(1,2,15)=0
1234 exch2_pij(2,2,15)=-1
1235 exch2_pij(3,2,15)=1
1236 exch2_pij(4,2,15)=0
1237 exch2_oi(2,15)=511
1238 exch2_oj(2,15)=-510
1239
1240 exch2_neighbourId(3,15)=16
1241 exch2_iLo(3,15)=52
1242 exch2_iHi(3,15)=52
1243 exch2_jLo(3,15)=0
1244 exch2_jHi(3,15)=511
1245 exch2_opposingSend(3,15)=4
1246 exch2_pij(1,3,15)=1
1247 exch2_pij(2,3,15)=0
1248 exch2_pij(3,3,15)=0
1249 exch2_pij(4,3,15)=1
1250 exch2_oi(3,15)=0
1251 exch2_oj(3,15)=0
1252
1253 exch2_neighbourId(4,15)=14
1254 exch2_iLo(4,15)=0
1255 exch2_iHi(4,15)=0
1256 exch2_jLo(4,15)=0
1257 exch2_jHi(4,15)=511
1258 exch2_opposingSend(4,15)=3
1259 exch2_pij(1,4,15)=1
1260 exch2_pij(2,4,15)=0
1261 exch2_pij(3,4,15)=0
1262 exch2_pij(4,4,15)=1
1263 exch2_oi(4,15)=0
1264 exch2_oj(4,15)=0
1265 RETURN
1266 END
1267
1268 SUBROUTINE W2_E2SETUP_16
1269 C Topology for tile 16
1270 #include "W2_EXCH2_TOPOLOGY.h"
1271 exch2_tNx(16)=51
1272 exch2_tNy(16)=510
1273 exch2_tBasex(16)=255
1274 exch2_tBasey(16)=0
1275 exch2_txGlobalo(16)=766
1276 exch2_tyGlobalo(16)=1
1277 exch2_isWedge(16)=0
1278 exch2_isNedge(16)=1
1279 exch2_isEedge(16)=0
1280 exch2_isSedge(16)=1
1281 exch2_myFace(16)=2
1282 exch2_mydNx(16)=510
1283 exch2_mydNy(16)=510
1284 exch2_nNeighbours(16)=4
1285
1286 exch2_neighbourId(1,16)=26
1287 exch2_iLo(1,16)=0
1288 exch2_iHi(1,16)=52
1289 exch2_jLo(1,16)=511
1290 exch2_jHi(1,16)=511
1291 exch2_opposingSend(1,16)=2
1292 exch2_pij(1,1,16)=1
1293 exch2_pij(2,1,16)=0
1294 exch2_pij(3,1,16)=0
1295 exch2_pij(4,1,16)=1
1296 exch2_oi(1,16)=0
1297 exch2_oj(1,16)=510
1298
1299 exch2_neighbourId(2,16)=60
1300 exch2_iLo(2,16)=0
1301 exch2_iHi(2,16)=52
1302 exch2_jLo(2,16)=0
1303 exch2_jHi(2,16)=0
1304 exch2_opposingSend(2,16)=8
1305 exch2_pij(1,2,16)=0
1306 exch2_pij(2,2,16)=-1
1307 exch2_pij(3,2,16)=1
1308 exch2_pij(4,2,16)=0
1309 exch2_oi(2,16)=511
1310 exch2_oj(2,16)=-510
1311
1312 exch2_neighbourId(3,16)=17
1313 exch2_iLo(3,16)=52
1314 exch2_iHi(3,16)=52
1315 exch2_jLo(3,16)=0
1316 exch2_jHi(3,16)=511
1317 exch2_opposingSend(3,16)=4
1318 exch2_pij(1,3,16)=1
1319 exch2_pij(2,3,16)=0
1320 exch2_pij(3,3,16)=0
1321 exch2_pij(4,3,16)=1
1322 exch2_oi(3,16)=0
1323 exch2_oj(3,16)=0
1324
1325 exch2_neighbourId(4,16)=15
1326 exch2_iLo(4,16)=0
1327 exch2_iHi(4,16)=0
1328 exch2_jLo(4,16)=0
1329 exch2_jHi(4,16)=511
1330 exch2_opposingSend(4,16)=3
1331 exch2_pij(1,4,16)=1
1332 exch2_pij(2,4,16)=0
1333 exch2_pij(3,4,16)=0
1334 exch2_pij(4,4,16)=1
1335 exch2_oi(4,16)=0
1336 exch2_oj(4,16)=0
1337 RETURN
1338 END
1339
1340 SUBROUTINE W2_E2SETUP_17
1341 C Topology for tile 17
1342 #include "W2_EXCH2_TOPOLOGY.h"
1343 exch2_tNx(17)=51
1344 exch2_tNy(17)=510
1345 exch2_tBasex(17)=306
1346 exch2_tBasey(17)=0
1347 exch2_txGlobalo(17)=817
1348 exch2_tyGlobalo(17)=1
1349 exch2_isWedge(17)=0
1350 exch2_isNedge(17)=1
1351 exch2_isEedge(17)=0
1352 exch2_isSedge(17)=1
1353 exch2_myFace(17)=2
1354 exch2_mydNx(17)=510
1355 exch2_mydNy(17)=510
1356 exch2_nNeighbours(17)=4
1357
1358 exch2_neighbourId(1,17)=27
1359 exch2_iLo(1,17)=0
1360 exch2_iHi(1,17)=52
1361 exch2_jLo(1,17)=511
1362 exch2_jHi(1,17)=511
1363 exch2_opposingSend(1,17)=2
1364 exch2_pij(1,1,17)=1
1365 exch2_pij(2,1,17)=0
1366 exch2_pij(3,1,17)=0
1367 exch2_pij(4,1,17)=1
1368 exch2_oi(1,17)=0
1369 exch2_oj(1,17)=510
1370
1371 exch2_neighbourId(2,17)=60
1372 exch2_iLo(2,17)=0
1373 exch2_iHi(2,17)=52
1374 exch2_jLo(2,17)=0
1375 exch2_jHi(2,17)=0
1376 exch2_opposingSend(2,17)=9
1377 exch2_pij(1,2,17)=0
1378 exch2_pij(2,2,17)=-1
1379 exch2_pij(3,2,17)=1
1380 exch2_pij(4,2,17)=0
1381 exch2_oi(2,17)=511
1382 exch2_oj(2,17)=-510
1383
1384 exch2_neighbourId(3,17)=18
1385 exch2_iLo(3,17)=52
1386 exch2_iHi(3,17)=52
1387 exch2_jLo(3,17)=0
1388 exch2_jHi(3,17)=511
1389 exch2_opposingSend(3,17)=4
1390 exch2_pij(1,3,17)=1
1391 exch2_pij(2,3,17)=0
1392 exch2_pij(3,3,17)=0
1393 exch2_pij(4,3,17)=1
1394 exch2_oi(3,17)=0
1395 exch2_oj(3,17)=0
1396
1397 exch2_neighbourId(4,17)=16
1398 exch2_iLo(4,17)=0
1399 exch2_iHi(4,17)=0
1400 exch2_jLo(4,17)=0
1401 exch2_jHi(4,17)=511
1402 exch2_opposingSend(4,17)=3
1403 exch2_pij(1,4,17)=1
1404 exch2_pij(2,4,17)=0
1405 exch2_pij(3,4,17)=0
1406 exch2_pij(4,4,17)=1
1407 exch2_oi(4,17)=0
1408 exch2_oj(4,17)=0
1409 RETURN
1410 END
1411
1412 SUBROUTINE W2_E2SETUP_18
1413 C Topology for tile 18
1414 #include "W2_EXCH2_TOPOLOGY.h"
1415 exch2_tNx(18)=51
1416 exch2_tNy(18)=510
1417 exch2_tBasex(18)=357
1418 exch2_tBasey(18)=0
1419 exch2_txGlobalo(18)=868
1420 exch2_tyGlobalo(18)=1
1421 exch2_isWedge(18)=0
1422 exch2_isNedge(18)=1
1423 exch2_isEedge(18)=0
1424 exch2_isSedge(18)=1
1425 exch2_myFace(18)=2
1426 exch2_mydNx(18)=510
1427 exch2_mydNy(18)=510
1428 exch2_nNeighbours(18)=4
1429
1430 exch2_neighbourId(1,18)=28
1431 exch2_iLo(1,18)=0
1432 exch2_iHi(1,18)=52
1433 exch2_jLo(1,18)=511
1434 exch2_jHi(1,18)=511
1435 exch2_opposingSend(1,18)=2
1436 exch2_pij(1,1,18)=1
1437 exch2_pij(2,1,18)=0
1438 exch2_pij(3,1,18)=0
1439 exch2_pij(4,1,18)=1
1440 exch2_oi(1,18)=0
1441 exch2_oj(1,18)=510
1442
1443 exch2_neighbourId(2,18)=60
1444 exch2_iLo(2,18)=0
1445 exch2_iHi(2,18)=52
1446 exch2_jLo(2,18)=0
1447 exch2_jHi(2,18)=0
1448 exch2_opposingSend(2,18)=10
1449 exch2_pij(1,2,18)=0
1450 exch2_pij(2,2,18)=-1
1451 exch2_pij(3,2,18)=1
1452 exch2_pij(4,2,18)=0
1453 exch2_oi(2,18)=511
1454 exch2_oj(2,18)=-510
1455
1456 exch2_neighbourId(3,18)=19
1457 exch2_iLo(3,18)=52
1458 exch2_iHi(3,18)=52
1459 exch2_jLo(3,18)=0
1460 exch2_jHi(3,18)=511
1461 exch2_opposingSend(3,18)=4
1462 exch2_pij(1,3,18)=1
1463 exch2_pij(2,3,18)=0
1464 exch2_pij(3,3,18)=0
1465 exch2_pij(4,3,18)=1
1466 exch2_oi(3,18)=0
1467 exch2_oj(3,18)=0
1468
1469 exch2_neighbourId(4,18)=17
1470 exch2_iLo(4,18)=0
1471 exch2_iHi(4,18)=0
1472 exch2_jLo(4,18)=0
1473 exch2_jHi(4,18)=511
1474 exch2_opposingSend(4,18)=3
1475 exch2_pij(1,4,18)=1
1476 exch2_pij(2,4,18)=0
1477 exch2_pij(3,4,18)=0
1478 exch2_pij(4,4,18)=1
1479 exch2_oi(4,18)=0
1480 exch2_oj(4,18)=0
1481 RETURN
1482 END
1483
1484 SUBROUTINE W2_E2SETUP_19
1485 C Topology for tile 19
1486 #include "W2_EXCH2_TOPOLOGY.h"
1487 exch2_tNx(19)=51
1488 exch2_tNy(19)=510
1489 exch2_tBasex(19)=408
1490 exch2_tBasey(19)=0
1491 exch2_txGlobalo(19)=919
1492 exch2_tyGlobalo(19)=1
1493 exch2_isWedge(19)=0
1494 exch2_isNedge(19)=1
1495 exch2_isEedge(19)=0
1496 exch2_isSedge(19)=1
1497 exch2_myFace(19)=2
1498 exch2_mydNx(19)=510
1499 exch2_mydNy(19)=510
1500 exch2_nNeighbours(19)=4
1501
1502 exch2_neighbourId(1,19)=29
1503 exch2_iLo(1,19)=0
1504 exch2_iHi(1,19)=52
1505 exch2_jLo(1,19)=511
1506 exch2_jHi(1,19)=511
1507 exch2_opposingSend(1,19)=2
1508 exch2_pij(1,1,19)=1
1509 exch2_pij(2,1,19)=0
1510 exch2_pij(3,1,19)=0
1511 exch2_pij(4,1,19)=1
1512 exch2_oi(1,19)=0
1513 exch2_oj(1,19)=510
1514
1515 exch2_neighbourId(2,19)=60
1516 exch2_iLo(2,19)=0
1517 exch2_iHi(2,19)=52
1518 exch2_jLo(2,19)=0
1519 exch2_jHi(2,19)=0
1520 exch2_opposingSend(2,19)=11
1521 exch2_pij(1,2,19)=0
1522 exch2_pij(2,2,19)=-1
1523 exch2_pij(3,2,19)=1
1524 exch2_pij(4,2,19)=0
1525 exch2_oi(2,19)=511
1526 exch2_oj(2,19)=-510
1527
1528 exch2_neighbourId(3,19)=20
1529 exch2_iLo(3,19)=52
1530 exch2_iHi(3,19)=52
1531 exch2_jLo(3,19)=0
1532 exch2_jHi(3,19)=511
1533 exch2_opposingSend(3,19)=13
1534 exch2_pij(1,3,19)=1
1535 exch2_pij(2,3,19)=0
1536 exch2_pij(3,3,19)=0
1537 exch2_pij(4,3,19)=1
1538 exch2_oi(3,19)=0
1539 exch2_oj(3,19)=0
1540
1541 exch2_neighbourId(4,19)=18
1542 exch2_iLo(4,19)=0
1543 exch2_iHi(4,19)=0
1544 exch2_jLo(4,19)=0
1545 exch2_jHi(4,19)=511
1546 exch2_opposingSend(4,19)=3
1547 exch2_pij(1,4,19)=1
1548 exch2_pij(2,4,19)=0
1549 exch2_pij(3,4,19)=0
1550 exch2_pij(4,4,19)=1
1551 exch2_oi(4,19)=0
1552 exch2_oj(4,19)=0
1553 RETURN
1554 END
1555
1556 SUBROUTINE W2_E2SETUP_20
1557 C Topology for tile 20
1558 #include "W2_EXCH2_TOPOLOGY.h"
1559 exch2_tNx(20)=51
1560 exch2_tNy(20)=510
1561 exch2_tBasex(20)=459
1562 exch2_tBasey(20)=0
1563 exch2_txGlobalo(20)=970
1564 exch2_tyGlobalo(20)=1
1565 exch2_isWedge(20)=0
1566 exch2_isNedge(20)=1
1567 exch2_isEedge(20)=1
1568 exch2_isSedge(20)=1
1569 exch2_myFace(20)=2
1570 exch2_mydNx(20)=510
1571 exch2_mydNy(20)=510
1572 exch2_nNeighbours(20)=13
1573
1574 exch2_neighbourId(1,20)=30
1575 exch2_iLo(1,20)=0
1576 exch2_iHi(1,20)=52
1577 exch2_jLo(1,20)=511
1578 exch2_jHi(1,20)=511
1579 exch2_opposingSend(1,20)=2
1580 exch2_pij(1,1,20)=1
1581 exch2_pij(2,1,20)=0
1582 exch2_pij(3,1,20)=0
1583 exch2_pij(4,1,20)=1
1584 exch2_oi(1,20)=0
1585 exch2_oj(1,20)=510
1586
1587 exch2_neighbourId(2,20)=60
1588 exch2_iLo(2,20)=0
1589 exch2_iHi(2,20)=52
1590 exch2_jLo(2,20)=0
1591 exch2_jHi(2,20)=0
1592 exch2_opposingSend(2,20)=12
1593 exch2_pij(1,2,20)=0
1594 exch2_pij(2,2,20)=-1
1595 exch2_pij(3,2,20)=1
1596 exch2_pij(4,2,20)=0
1597 exch2_oi(2,20)=511
1598 exch2_oj(2,20)=-510
1599
1600 exch2_neighbourId(3,20)=31
1601 exch2_iLo(3,20)=52
1602 exch2_iHi(3,20)=52
1603 exch2_jLo(3,20)=459
1604 exch2_jHi(3,20)=511
1605 exch2_opposingSend(3,20)=2
1606 exch2_pij(1,3,20)=0
1607 exch2_pij(2,3,20)=1
1608 exch2_pij(3,3,20)=-1
1609 exch2_pij(4,3,20)=0
1610 exch2_oi(3,20)=510
1611 exch2_oj(3,20)=511
1612
1613 exch2_neighbourId(4,20)=32
1614 exch2_iLo(4,20)=52
1615 exch2_iHi(4,20)=52
1616 exch2_jLo(4,20)=408
1617 exch2_jHi(4,20)=460
1618 exch2_opposingSend(4,20)=2
1619 exch2_pij(1,4,20)=0
1620 exch2_pij(2,4,20)=1
1621 exch2_pij(3,4,20)=-1
1622 exch2_pij(4,4,20)=0
1623 exch2_oi(4,20)=510
1624 exch2_oj(4,20)=511
1625
1626 exch2_neighbourId(5,20)=33
1627 exch2_iLo(5,20)=52
1628 exch2_iHi(5,20)=52
1629 exch2_jLo(5,20)=357
1630 exch2_jHi(5,20)=409
1631 exch2_opposingSend(5,20)=2
1632 exch2_pij(1,5,20)=0
1633 exch2_pij(2,5,20)=1
1634 exch2_pij(3,5,20)=-1
1635 exch2_pij(4,5,20)=0
1636 exch2_oi(5,20)=510
1637 exch2_oj(5,20)=511
1638
1639 exch2_neighbourId(6,20)=34
1640 exch2_iLo(6,20)=52
1641 exch2_iHi(6,20)=52
1642 exch2_jLo(6,20)=306
1643 exch2_jHi(6,20)=358
1644 exch2_opposingSend(6,20)=2
1645 exch2_pij(1,6,20)=0
1646 exch2_pij(2,6,20)=1
1647 exch2_pij(3,6,20)=-1
1648 exch2_pij(4,6,20)=0
1649 exch2_oi(6,20)=510
1650 exch2_oj(6,20)=511
1651
1652 exch2_neighbourId(7,20)=35
1653 exch2_iLo(7,20)=52
1654 exch2_iHi(7,20)=52
1655 exch2_jLo(7,20)=255
1656 exch2_jHi(7,20)=307
1657 exch2_opposingSend(7,20)=2
1658 exch2_pij(1,7,20)=0
1659 exch2_pij(2,7,20)=1
1660 exch2_pij(3,7,20)=-1
1661 exch2_pij(4,7,20)=0
1662 exch2_oi(7,20)=510
1663 exch2_oj(7,20)=511
1664
1665 exch2_neighbourId(8,20)=36
1666 exch2_iLo(8,20)=52
1667 exch2_iHi(8,20)=52
1668 exch2_jLo(8,20)=204
1669 exch2_jHi(8,20)=256
1670 exch2_opposingSend(8,20)=2
1671 exch2_pij(1,8,20)=0
1672 exch2_pij(2,8,20)=1
1673 exch2_pij(3,8,20)=-1
1674 exch2_pij(4,8,20)=0
1675 exch2_oi(8,20)=510
1676 exch2_oj(8,20)=511
1677
1678 exch2_neighbourId(9,20)=37
1679 exch2_iLo(9,20)=52
1680 exch2_iHi(9,20)=52
1681 exch2_jLo(9,20)=153
1682 exch2_jHi(9,20)=205
1683 exch2_opposingSend(9,20)=2
1684 exch2_pij(1,9,20)=0
1685 exch2_pij(2,9,20)=1
1686 exch2_pij(3,9,20)=-1
1687 exch2_pij(4,9,20)=0
1688 exch2_oi(9,20)=510
1689 exch2_oj(9,20)=511
1690
1691 exch2_neighbourId(10,20)=38
1692 exch2_iLo(10,20)=52
1693 exch2_iHi(10,20)=52
1694 exch2_jLo(10,20)=102
1695 exch2_jHi(10,20)=154
1696 exch2_opposingSend(10,20)=2
1697 exch2_pij(1,10,20)=0
1698 exch2_pij(2,10,20)=1
1699 exch2_pij(3,10,20)=-1
1700 exch2_pij(4,10,20)=0
1701 exch2_oi(10,20)=510
1702 exch2_oj(10,20)=511
1703
1704 exch2_neighbourId(11,20)=39
1705 exch2_iLo(11,20)=52
1706 exch2_iHi(11,20)=52
1707 exch2_jLo(11,20)=51
1708 exch2_jHi(11,20)=103
1709 exch2_opposingSend(11,20)=2
1710 exch2_pij(1,11,20)=0
1711 exch2_pij(2,11,20)=1
1712 exch2_pij(3,11,20)=-1
1713 exch2_pij(4,11,20)=0
1714 exch2_oi(11,20)=510
1715 exch2_oj(11,20)=511
1716
1717 exch2_neighbourId(12,20)=40
1718 exch2_iLo(12,20)=52
1719 exch2_iHi(12,20)=52
1720 exch2_jLo(12,20)=0
1721 exch2_jHi(12,20)=52
1722 exch2_opposingSend(12,20)=2
1723 exch2_pij(1,12,20)=0
1724 exch2_pij(2,12,20)=1
1725 exch2_pij(3,12,20)=-1
1726 exch2_pij(4,12,20)=0
1727 exch2_oi(12,20)=510
1728 exch2_oj(12,20)=511
1729
1730 exch2_neighbourId(13,20)=19
1731 exch2_iLo(13,20)=0
1732 exch2_iHi(13,20)=0
1733 exch2_jLo(13,20)=0
1734 exch2_jHi(13,20)=511
1735 exch2_opposingSend(13,20)=3
1736 exch2_pij(1,13,20)=1
1737 exch2_pij(2,13,20)=0
1738 exch2_pij(3,13,20)=0
1739 exch2_pij(4,13,20)=1
1740 exch2_oi(13,20)=0
1741 exch2_oj(13,20)=0
1742 RETURN
1743 END
1744
1745 SUBROUTINE W2_E2SETUP_21
1746 C Topology for tile 21
1747 #include "W2_EXCH2_TOPOLOGY.h"
1748 exch2_tNx(21)=51
1749 exch2_tNy(21)=510
1750 exch2_tBasex(21)=0
1751 exch2_tBasey(21)=0
1752 exch2_txGlobalo(21)=1021
1753 exch2_tyGlobalo(21)=1
1754 exch2_isWedge(21)=1
1755 exch2_isNedge(21)=1
1756 exch2_isEedge(21)=0
1757 exch2_isSedge(21)=1
1758 exch2_myFace(21)=3
1759 exch2_mydNx(21)=510
1760 exch2_mydNy(21)=510
1761 exch2_nNeighbours(21)=13
1762
1763 exch2_neighbourId(1,21)=41
1764 exch2_iLo(1,21)=0
1765 exch2_iHi(1,21)=52
1766 exch2_jLo(1,21)=511
1767 exch2_jHi(1,21)=511
1768 exch2_opposingSend(1,21)=4
1769 exch2_pij(1,1,21)=0
1770 exch2_pij(2,1,21)=-1
1771 exch2_pij(3,1,21)=1
1772 exch2_pij(4,1,21)=0
1773 exch2_oi(1,21)=511
1774 exch2_oj(1,21)=510
1775
1776 exch2_neighbourId(2,21)=11
1777 exch2_iLo(2,21)=0
1778 exch2_iHi(2,21)=52
1779 exch2_jLo(2,21)=0
1780 exch2_jHi(2,21)=0
1781 exch2_opposingSend(2,21)=1
1782 exch2_pij(1,2,21)=1
1783 exch2_pij(2,2,21)=0
1784 exch2_pij(3,2,21)=0
1785 exch2_pij(4,2,21)=1
1786 exch2_oi(2,21)=0
1787 exch2_oj(2,21)=-510
1788
1789 exch2_neighbourId(3,21)=22
1790 exch2_iLo(3,21)=52
1791 exch2_iHi(3,21)=52
1792 exch2_jLo(3,21)=0
1793 exch2_jHi(3,21)=511
1794 exch2_opposingSend(3,21)=4
1795 exch2_pij(1,3,21)=1
1796 exch2_pij(2,3,21)=0
1797 exch2_pij(3,3,21)=0
1798 exch2_pij(4,3,21)=1
1799 exch2_oi(3,21)=0
1800 exch2_oj(3,21)=0
1801
1802 exch2_neighbourId(4,21)=1
1803 exch2_iLo(4,21)=0
1804 exch2_iHi(4,21)=0
1805 exch2_jLo(4,21)=459
1806 exch2_jHi(4,21)=511
1807 exch2_opposingSend(4,21)=1
1808 exch2_pij(1,4,21)=0
1809 exch2_pij(2,4,21)=1
1810 exch2_pij(3,4,21)=-1
1811 exch2_pij(4,4,21)=0
1812 exch2_oi(4,21)=-510
1813 exch2_oj(4,21)=511
1814
1815 exch2_neighbourId(5,21)=2
1816 exch2_iLo(5,21)=0
1817 exch2_iHi(5,21)=0
1818 exch2_jLo(5,21)=408
1819 exch2_jHi(5,21)=460
1820 exch2_opposingSend(5,21)=1
1821 exch2_pij(1,5,21)=0
1822 exch2_pij(2,5,21)=1
1823 exch2_pij(3,5,21)=-1
1824 exch2_pij(4,5,21)=0
1825 exch2_oi(5,21)=-510
1826 exch2_oj(5,21)=511
1827
1828 exch2_neighbourId(6,21)=3
1829 exch2_iLo(6,21)=0
1830 exch2_iHi(6,21)=0
1831 exch2_jLo(6,21)=357
1832 exch2_jHi(6,21)=409
1833 exch2_opposingSend(6,21)=1
1834 exch2_pij(1,6,21)=0
1835 exch2_pij(2,6,21)=1
1836 exch2_pij(3,6,21)=-1
1837 exch2_pij(4,6,21)=0
1838 exch2_oi(6,21)=-510
1839 exch2_oj(6,21)=511
1840
1841 exch2_neighbourId(7,21)=4
1842 exch2_iLo(7,21)=0
1843 exch2_iHi(7,21)=0
1844 exch2_jLo(7,21)=306
1845 exch2_jHi(7,21)=358
1846 exch2_opposingSend(7,21)=1
1847 exch2_pij(1,7,21)=0
1848 exch2_pij(2,7,21)=1
1849 exch2_pij(3,7,21)=-1
1850 exch2_pij(4,7,21)=0
1851 exch2_oi(7,21)=-510
1852 exch2_oj(7,21)=511
1853
1854 exch2_neighbourId(8,21)=5
1855 exch2_iLo(8,21)=0
1856 exch2_iHi(8,21)=0
1857 exch2_jLo(8,21)=255
1858 exch2_jHi(8,21)=307
1859 exch2_opposingSend(8,21)=1
1860 exch2_pij(1,8,21)=0
1861 exch2_pij(2,8,21)=1
1862 exch2_pij(3,8,21)=-1
1863 exch2_pij(4,8,21)=0
1864 exch2_oi(8,21)=-510
1865 exch2_oj(8,21)=511
1866
1867 exch2_neighbourId(9,21)=6
1868 exch2_iLo(9,21)=0
1869 exch2_iHi(9,21)=0
1870 exch2_jLo(9,21)=204
1871 exch2_jHi(9,21)=256
1872 exch2_opposingSend(9,21)=1
1873 exch2_pij(1,9,21)=0
1874 exch2_pij(2,9,21)=1
1875 exch2_pij(3,9,21)=-1
1876 exch2_pij(4,9,21)=0
1877 exch2_oi(9,21)=-510
1878 exch2_oj(9,21)=511
1879
1880 exch2_neighbourId(10,21)=7
1881 exch2_iLo(10,21)=0
1882 exch2_iHi(10,21)=0
1883 exch2_jLo(10,21)=153
1884 exch2_jHi(10,21)=205
1885 exch2_opposingSend(10,21)=1
1886 exch2_pij(1,10,21)=0
1887 exch2_pij(2,10,21)=1
1888 exch2_pij(3,10,21)=-1
1889 exch2_pij(4,10,21)=0
1890 exch2_oi(10,21)=-510
1891 exch2_oj(10,21)=511
1892
1893 exch2_neighbourId(11,21)=8
1894 exch2_iLo(11,21)=0
1895 exch2_iHi(11,21)=0
1896 exch2_jLo(11,21)=102
1897 exch2_jHi(11,21)=154
1898 exch2_opposingSend(11,21)=1
1899 exch2_pij(1,11,21)=0
1900 exch2_pij(2,11,21)=1
1901 exch2_pij(3,11,21)=-1
1902 exch2_pij(4,11,21)=0
1903 exch2_oi(11,21)=-510
1904 exch2_oj(11,21)=511
1905
1906 exch2_neighbourId(12,21)=9
1907 exch2_iLo(12,21)=0
1908 exch2_iHi(12,21)=0
1909 exch2_jLo(12,21)=51
1910 exch2_jHi(12,21)=103
1911 exch2_opposingSend(12,21)=1
1912 exch2_pij(1,12,21)=0
1913 exch2_pij(2,12,21)=1
1914 exch2_pij(3,12,21)=-1
1915 exch2_pij(4,12,21)=0
1916 exch2_oi(12,21)=-510
1917 exch2_oj(12,21)=511
1918
1919 exch2_neighbourId(13,21)=10
1920 exch2_iLo(13,21)=0
1921 exch2_iHi(13,21)=0
1922 exch2_jLo(13,21)=0
1923 exch2_jHi(13,21)=52
1924 exch2_opposingSend(13,21)=1
1925 exch2_pij(1,13,21)=0
1926 exch2_pij(2,13,21)=1
1927 exch2_pij(3,13,21)=-1
1928 exch2_pij(4,13,21)=0
1929 exch2_oi(13,21)=-510
1930 exch2_oj(13,21)=511
1931 RETURN
1932 END
1933
1934 SUBROUTINE W2_E2SETUP_22
1935 C Topology for tile 22
1936 #include "W2_EXCH2_TOPOLOGY.h"
1937 exch2_tNx(22)=51
1938 exch2_tNy(22)=510
1939 exch2_tBasex(22)=51
1940 exch2_tBasey(22)=0
1941 exch2_txGlobalo(22)=1072
1942 exch2_tyGlobalo(22)=1
1943 exch2_isWedge(22)=0
1944 exch2_isNedge(22)=1
1945 exch2_isEedge(22)=0
1946 exch2_isSedge(22)=1
1947 exch2_myFace(22)=3
1948 exch2_mydNx(22)=510
1949 exch2_mydNy(22)=510
1950 exch2_nNeighbours(22)=4
1951
1952 exch2_neighbourId(1,22)=41
1953 exch2_iLo(1,22)=0
1954 exch2_iHi(1,22)=52
1955 exch2_jLo(1,22)=511
1956 exch2_jHi(1,22)=511
1957 exch2_opposingSend(1,22)=5
1958 exch2_pij(1,1,22)=0
1959 exch2_pij(2,1,22)=-1
1960 exch2_pij(3,1,22)=1
1961 exch2_pij(4,1,22)=0
1962 exch2_oi(1,22)=511
1963 exch2_oj(1,22)=510
1964
1965 exch2_neighbourId(2,22)=12
1966 exch2_iLo(2,22)=0
1967 exch2_iHi(2,22)=52
1968 exch2_jLo(2,22)=0
1969 exch2_jHi(2,22)=0
1970 exch2_opposingSend(2,22)=1
1971 exch2_pij(1,2,22)=1
1972 exch2_pij(2,2,22)=0
1973 exch2_pij(3,2,22)=0
1974 exch2_pij(4,2,22)=1
1975 exch2_oi(2,22)=0
1976 exch2_oj(2,22)=-510
1977
1978 exch2_neighbourId(3,22)=23
1979 exch2_iLo(3,22)=52
1980 exch2_iHi(3,22)=52
1981 exch2_jLo(3,22)=0
1982 exch2_jHi(3,22)=511
1983 exch2_opposingSend(3,22)=4
1984 exch2_pij(1,3,22)=1
1985 exch2_pij(2,3,22)=0
1986 exch2_pij(3,3,22)=0
1987 exch2_pij(4,3,22)=1
1988 exch2_oi(3,22)=0
1989 exch2_oj(3,22)=0
1990
1991 exch2_neighbourId(4,22)=21
1992 exch2_iLo(4,22)=0
1993 exch2_iHi(4,22)=0
1994 exch2_jLo(4,22)=0
1995 exch2_jHi(4,22)=511
1996 exch2_opposingSend(4,22)=3
1997 exch2_pij(1,4,22)=1
1998 exch2_pij(2,4,22)=0
1999 exch2_pij(3,4,22)=0
2000 exch2_pij(4,4,22)=1
2001 exch2_oi(4,22)=0
2002 exch2_oj(4,22)=0
2003 RETURN
2004 END
2005
2006 SUBROUTINE W2_E2SETUP_23
2007 C Topology for tile 23
2008 #include "W2_EXCH2_TOPOLOGY.h"
2009 exch2_tNx(23)=51
2010 exch2_tNy(23)=510
2011 exch2_tBasex(23)=102
2012 exch2_tBasey(23)=0
2013 exch2_txGlobalo(23)=1123
2014 exch2_tyGlobalo(23)=1
2015 exch2_isWedge(23)=0
2016 exch2_isNedge(23)=1
2017 exch2_isEedge(23)=0
2018 exch2_isSedge(23)=1
2019 exch2_myFace(23)=3
2020 exch2_mydNx(23)=510
2021 exch2_mydNy(23)=510
2022 exch2_nNeighbours(23)=4
2023
2024 exch2_neighbourId(1,23)=41
2025 exch2_iLo(1,23)=0
2026 exch2_iHi(1,23)=52
2027 exch2_jLo(1,23)=511
2028 exch2_jHi(1,23)=511
2029 exch2_opposingSend(1,23)=6
2030 exch2_pij(1,1,23)=0
2031 exch2_pij(2,1,23)=-1
2032 exch2_pij(3,1,23)=1
2033 exch2_pij(4,1,23)=0
2034 exch2_oi(1,23)=511
2035 exch2_oj(1,23)=510
2036
2037 exch2_neighbourId(2,23)=13
2038 exch2_iLo(2,23)=0
2039 exch2_iHi(2,23)=52
2040 exch2_jLo(2,23)=0
2041 exch2_jHi(2,23)=0
2042 exch2_opposingSend(2,23)=1
2043 exch2_pij(1,2,23)=1
2044 exch2_pij(2,2,23)=0
2045 exch2_pij(3,2,23)=0
2046 exch2_pij(4,2,23)=1
2047 exch2_oi(2,23)=0
2048 exch2_oj(2,23)=-510
2049
2050 exch2_neighbourId(3,23)=24
2051 exch2_iLo(3,23)=52
2052 exch2_iHi(3,23)=52
2053 exch2_jLo(3,23)=0
2054 exch2_jHi(3,23)=511
2055 exch2_opposingSend(3,23)=4
2056 exch2_pij(1,3,23)=1
2057 exch2_pij(2,3,23)=0
2058 exch2_pij(3,3,23)=0
2059 exch2_pij(4,3,23)=1
2060 exch2_oi(3,23)=0
2061 exch2_oj(3,23)=0
2062
2063 exch2_neighbourId(4,23)=22
2064 exch2_iLo(4,23)=0
2065 exch2_iHi(4,23)=0
2066 exch2_jLo(4,23)=0
2067 exch2_jHi(4,23)=511
2068 exch2_opposingSend(4,23)=3
2069 exch2_pij(1,4,23)=1
2070 exch2_pij(2,4,23)=0
2071 exch2_pij(3,4,23)=0
2072 exch2_pij(4,4,23)=1
2073 exch2_oi(4,23)=0
2074 exch2_oj(4,23)=0
2075 RETURN
2076 END
2077
2078 SUBROUTINE W2_E2SETUP_24
2079 C Topology for tile 24
2080 #include "W2_EXCH2_TOPOLOGY.h"
2081 exch2_tNx(24)=51
2082 exch2_tNy(24)=510
2083 exch2_tBasex(24)=153
2084 exch2_tBasey(24)=0
2085 exch2_txGlobalo(24)=1174
2086 exch2_tyGlobalo(24)=1
2087 exch2_isWedge(24)=0
2088 exch2_isNedge(24)=1
2089 exch2_isEedge(24)=0
2090 exch2_isSedge(24)=1
2091 exch2_myFace(24)=3
2092 exch2_mydNx(24)=510
2093 exch2_mydNy(24)=510
2094 exch2_nNeighbours(24)=4
2095
2096 exch2_neighbourId(1,24)=41
2097 exch2_iLo(1,24)=0
2098 exch2_iHi(1,24)=52
2099 exch2_jLo(1,24)=511
2100 exch2_jHi(1,24)=511
2101 exch2_opposingSend(1,24)=7
2102 exch2_pij(1,1,24)=0
2103 exch2_pij(2,1,24)=-1
2104 exch2_pij(3,1,24)=1
2105 exch2_pij(4,1,24)=0
2106 exch2_oi(1,24)=511
2107 exch2_oj(1,24)=510
2108
2109 exch2_neighbourId(2,24)=14
2110 exch2_iLo(2,24)=0
2111 exch2_iHi(2,24)=52
2112 exch2_jLo(2,24)=0
2113 exch2_jHi(2,24)=0
2114 exch2_opposingSend(2,24)=1
2115 exch2_pij(1,2,24)=1
2116 exch2_pij(2,2,24)=0
2117 exch2_pij(3,2,24)=0
2118 exch2_pij(4,2,24)=1
2119 exch2_oi(2,24)=0
2120 exch2_oj(2,24)=-510
2121
2122 exch2_neighbourId(3,24)=25
2123 exch2_iLo(3,24)=52
2124 exch2_iHi(3,24)=52
2125 exch2_jLo(3,24)=0
2126 exch2_jHi(3,24)=511
2127 exch2_opposingSend(3,24)=4
2128 exch2_pij(1,3,24)=1
2129 exch2_pij(2,3,24)=0
2130 exch2_pij(3,3,24)=0
2131 exch2_pij(4,3,24)=1
2132 exch2_oi(3,24)=0
2133 exch2_oj(3,24)=0
2134
2135 exch2_neighbourId(4,24)=23
2136 exch2_iLo(4,24)=0
2137 exch2_iHi(4,24)=0
2138 exch2_jLo(4,24)=0
2139 exch2_jHi(4,24)=511
2140 exch2_opposingSend(4,24)=3
2141 exch2_pij(1,4,24)=1
2142 exch2_pij(2,4,24)=0
2143 exch2_pij(3,4,24)=0
2144 exch2_pij(4,4,24)=1
2145 exch2_oi(4,24)=0
2146 exch2_oj(4,24)=0
2147 RETURN
2148 END
2149
2150 SUBROUTINE W2_E2SETUP_25
2151 C Topology for tile 25
2152 #include "W2_EXCH2_TOPOLOGY.h"
2153 exch2_tNx(25)=51
2154 exch2_tNy(25)=510
2155 exch2_tBasex(25)=204
2156 exch2_tBasey(25)=0
2157 exch2_txGlobalo(25)=1225
2158 exch2_tyGlobalo(25)=1
2159 exch2_isWedge(25)=0
2160 exch2_isNedge(25)=1
2161 exch2_isEedge(25)=0
2162 exch2_isSedge(25)=1
2163 exch2_myFace(25)=3
2164 exch2_mydNx(25)=510
2165 exch2_mydNy(25)=510
2166 exch2_nNeighbours(25)=4
2167
2168 exch2_neighbourId(1,25)=41
2169 exch2_iLo(1,25)=0
2170 exch2_iHi(1,25)=52
2171 exch2_jLo(1,25)=511
2172 exch2_jHi(1,25)=511
2173 exch2_opposingSend(1,25)=8
2174 exch2_pij(1,1,25)=0
2175 exch2_pij(2,1,25)=-1
2176 exch2_pij(3,1,25)=1
2177 exch2_pij(4,1,25)=0
2178 exch2_oi(1,25)=511
2179 exch2_oj(1,25)=510
2180
2181 exch2_neighbourId(2,25)=15
2182 exch2_iLo(2,25)=0
2183 exch2_iHi(2,25)=52
2184 exch2_jLo(2,25)=0
2185 exch2_jHi(2,25)=0
2186 exch2_opposingSend(2,25)=1
2187 exch2_pij(1,2,25)=1
2188 exch2_pij(2,2,25)=0
2189 exch2_pij(3,2,25)=0
2190 exch2_pij(4,2,25)=1
2191 exch2_oi(2,25)=0
2192 exch2_oj(2,25)=-510
2193
2194 exch2_neighbourId(3,25)=26
2195 exch2_iLo(3,25)=52
2196 exch2_iHi(3,25)=52
2197 exch2_jLo(3,25)=0
2198 exch2_jHi(3,25)=511
2199 exch2_opposingSend(3,25)=4
2200 exch2_pij(1,3,25)=1
2201 exch2_pij(2,3,25)=0
2202 exch2_pij(3,3,25)=0
2203 exch2_pij(4,3,25)=1
2204 exch2_oi(3,25)=0
2205 exch2_oj(3,25)=0
2206
2207 exch2_neighbourId(4,25)=24
2208 exch2_iLo(4,25)=0
2209 exch2_iHi(4,25)=0
2210 exch2_jLo(4,25)=0
2211 exch2_jHi(4,25)=511
2212 exch2_opposingSend(4,25)=3
2213 exch2_pij(1,4,25)=1
2214 exch2_pij(2,4,25)=0
2215 exch2_pij(3,4,25)=0
2216 exch2_pij(4,4,25)=1
2217 exch2_oi(4,25)=0
2218 exch2_oj(4,25)=0
2219 RETURN
2220 END
2221
2222 SUBROUTINE W2_E2SETUP_26
2223 C Topology for tile 26
2224 #include "W2_EXCH2_TOPOLOGY.h"
2225 exch2_tNx(26)=51
2226 exch2_tNy(26)=510
2227 exch2_tBasex(26)=255
2228 exch2_tBasey(26)=0
2229 exch2_txGlobalo(26)=1276
2230 exch2_tyGlobalo(26)=1
2231 exch2_isWedge(26)=0
2232 exch2_isNedge(26)=1
2233 exch2_isEedge(26)=0
2234 exch2_isSedge(26)=1
2235 exch2_myFace(26)=3
2236 exch2_mydNx(26)=510
2237 exch2_mydNy(26)=510
2238 exch2_nNeighbours(26)=4
2239
2240 exch2_neighbourId(1,26)=41
2241 exch2_iLo(1,26)=0
2242 exch2_iHi(1,26)=52
2243 exch2_jLo(1,26)=511
2244 exch2_jHi(1,26)=511
2245 exch2_opposingSend(1,26)=9
2246 exch2_pij(1,1,26)=0
2247 exch2_pij(2,1,26)=-1
2248 exch2_pij(3,1,26)=1
2249 exch2_pij(4,1,26)=0
2250 exch2_oi(1,26)=511
2251 exch2_oj(1,26)=510
2252
2253 exch2_neighbourId(2,26)=16
2254 exch2_iLo(2,26)=0
2255 exch2_iHi(2,26)=52
2256 exch2_jLo(2,26)=0
2257 exch2_jHi(2,26)=0
2258 exch2_opposingSend(2,26)=1
2259 exch2_pij(1,2,26)=1
2260 exch2_pij(2,2,26)=0
2261 exch2_pij(3,2,26)=0
2262 exch2_pij(4,2,26)=1
2263 exch2_oi(2,26)=0
2264 exch2_oj(2,26)=-510
2265
2266 exch2_neighbourId(3,26)=27
2267 exch2_iLo(3,26)=52
2268 exch2_iHi(3,26)=52
2269 exch2_jLo(3,26)=0
2270 exch2_jHi(3,26)=511
2271 exch2_opposingSend(3,26)=4
2272 exch2_pij(1,3,26)=1
2273 exch2_pij(2,3,26)=0
2274 exch2_pij(3,3,26)=0
2275 exch2_pij(4,3,26)=1
2276 exch2_oi(3,26)=0
2277 exch2_oj(3,26)=0
2278
2279 exch2_neighbourId(4,26)=25
2280 exch2_iLo(4,26)=0
2281 exch2_iHi(4,26)=0
2282 exch2_jLo(4,26)=0
2283 exch2_jHi(4,26)=511
2284 exch2_opposingSend(4,26)=3
2285 exch2_pij(1,4,26)=1
2286 exch2_pij(2,4,26)=0
2287 exch2_pij(3,4,26)=0
2288 exch2_pij(4,4,26)=1
2289 exch2_oi(4,26)=0
2290 exch2_oj(4,26)=0
2291 RETURN
2292 END
2293
2294 SUBROUTINE W2_E2SETUP_27
2295 C Topology for tile 27
2296 #include "W2_EXCH2_TOPOLOGY.h"
2297 exch2_tNx(27)=51
2298 exch2_tNy(27)=510
2299 exch2_tBasex(27)=306
2300 exch2_tBasey(27)=0
2301 exch2_txGlobalo(27)=1327
2302 exch2_tyGlobalo(27)=1
2303 exch2_isWedge(27)=0
2304 exch2_isNedge(27)=1
2305 exch2_isEedge(27)=0
2306 exch2_isSedge(27)=1
2307 exch2_myFace(27)=3
2308 exch2_mydNx(27)=510
2309 exch2_mydNy(27)=510
2310 exch2_nNeighbours(27)=4
2311
2312 exch2_neighbourId(1,27)=41
2313 exch2_iLo(1,27)=0
2314 exch2_iHi(1,27)=52
2315 exch2_jLo(1,27)=511
2316 exch2_jHi(1,27)=511
2317 exch2_opposingSend(1,27)=10
2318 exch2_pij(1,1,27)=0
2319 exch2_pij(2,1,27)=-1
2320 exch2_pij(3,1,27)=1
2321 exch2_pij(4,1,27)=0
2322 exch2_oi(1,27)=511
2323 exch2_oj(1,27)=510
2324
2325 exch2_neighbourId(2,27)=17
2326 exch2_iLo(2,27)=0
2327 exch2_iHi(2,27)=52
2328 exch2_jLo(2,27)=0
2329 exch2_jHi(2,27)=0
2330 exch2_opposingSend(2,27)=1
2331 exch2_pij(1,2,27)=1
2332 exch2_pij(2,2,27)=0
2333 exch2_pij(3,2,27)=0
2334 exch2_pij(4,2,27)=1
2335 exch2_oi(2,27)=0
2336 exch2_oj(2,27)=-510
2337
2338 exch2_neighbourId(3,27)=28
2339 exch2_iLo(3,27)=52
2340 exch2_iHi(3,27)=52
2341 exch2_jLo(3,27)=0
2342 exch2_jHi(3,27)=511
2343 exch2_opposingSend(3,27)=4
2344 exch2_pij(1,3,27)=1
2345 exch2_pij(2,3,27)=0
2346 exch2_pij(3,3,27)=0
2347 exch2_pij(4,3,27)=1
2348 exch2_oi(3,27)=0
2349 exch2_oj(3,27)=0
2350
2351 exch2_neighbourId(4,27)=26
2352 exch2_iLo(4,27)=0
2353 exch2_iHi(4,27)=0
2354 exch2_jLo(4,27)=0
2355 exch2_jHi(4,27)=511
2356 exch2_opposingSend(4,27)=3
2357 exch2_pij(1,4,27)=1
2358 exch2_pij(2,4,27)=0
2359 exch2_pij(3,4,27)=0
2360 exch2_pij(4,4,27)=1
2361 exch2_oi(4,27)=0
2362 exch2_oj(4,27)=0
2363 RETURN
2364 END
2365
2366 SUBROUTINE W2_E2SETUP_28
2367 C Topology for tile 28
2368 #include "W2_EXCH2_TOPOLOGY.h"
2369 exch2_tNx(28)=51
2370 exch2_tNy(28)=510
2371 exch2_tBasex(28)=357
2372 exch2_tBasey(28)=0
2373 exch2_txGlobalo(28)=1378
2374 exch2_tyGlobalo(28)=1
2375 exch2_isWedge(28)=0
2376 exch2_isNedge(28)=1
2377 exch2_isEedge(28)=0
2378 exch2_isSedge(28)=1
2379 exch2_myFace(28)=3
2380 exch2_mydNx(28)=510
2381 exch2_mydNy(28)=510
2382 exch2_nNeighbours(28)=4
2383
2384 exch2_neighbourId(1,28)=41
2385 exch2_iLo(1,28)=0
2386 exch2_iHi(1,28)=52
2387 exch2_jLo(1,28)=511
2388 exch2_jHi(1,28)=511
2389 exch2_opposingSend(1,28)=11
2390 exch2_pij(1,1,28)=0
2391 exch2_pij(2,1,28)=-1
2392 exch2_pij(3,1,28)=1
2393 exch2_pij(4,1,28)=0
2394 exch2_oi(1,28)=511
2395 exch2_oj(1,28)=510
2396
2397 exch2_neighbourId(2,28)=18
2398 exch2_iLo(2,28)=0
2399 exch2_iHi(2,28)=52
2400 exch2_jLo(2,28)=0
2401 exch2_jHi(2,28)=0
2402 exch2_opposingSend(2,28)=1
2403 exch2_pij(1,2,28)=1
2404 exch2_pij(2,2,28)=0
2405 exch2_pij(3,2,28)=0
2406 exch2_pij(4,2,28)=1
2407 exch2_oi(2,28)=0
2408 exch2_oj(2,28)=-510
2409
2410 exch2_neighbourId(3,28)=29
2411 exch2_iLo(3,28)=52
2412 exch2_iHi(3,28)=52
2413 exch2_jLo(3,28)=0
2414 exch2_jHi(3,28)=511
2415 exch2_opposingSend(3,28)=4
2416 exch2_pij(1,3,28)=1
2417 exch2_pij(2,3,28)=0
2418 exch2_pij(3,3,28)=0
2419 exch2_pij(4,3,28)=1
2420 exch2_oi(3,28)=0
2421 exch2_oj(3,28)=0
2422
2423 exch2_neighbourId(4,28)=27
2424 exch2_iLo(4,28)=0
2425 exch2_iHi(4,28)=0
2426 exch2_jLo(4,28)=0
2427 exch2_jHi(4,28)=511
2428 exch2_opposingSend(4,28)=3
2429 exch2_pij(1,4,28)=1
2430 exch2_pij(2,4,28)=0
2431 exch2_pij(3,4,28)=0
2432 exch2_pij(4,4,28)=1
2433 exch2_oi(4,28)=0
2434 exch2_oj(4,28)=0
2435 RETURN
2436 END
2437
2438 SUBROUTINE W2_E2SETUP_29
2439 C Topology for tile 29
2440 #include "W2_EXCH2_TOPOLOGY.h"
2441 exch2_tNx(29)=51
2442 exch2_tNy(29)=510
2443 exch2_tBasex(29)=408
2444 exch2_tBasey(29)=0
2445 exch2_txGlobalo(29)=1429
2446 exch2_tyGlobalo(29)=1
2447 exch2_isWedge(29)=0
2448 exch2_isNedge(29)=1
2449 exch2_isEedge(29)=0
2450 exch2_isSedge(29)=1
2451 exch2_myFace(29)=3
2452 exch2_mydNx(29)=510
2453 exch2_mydNy(29)=510
2454 exch2_nNeighbours(29)=4
2455
2456 exch2_neighbourId(1,29)=41
2457 exch2_iLo(1,29)=0
2458 exch2_iHi(1,29)=52
2459 exch2_jLo(1,29)=511
2460 exch2_jHi(1,29)=511
2461 exch2_opposingSend(1,29)=12
2462 exch2_pij(1,1,29)=0
2463 exch2_pij(2,1,29)=-1
2464 exch2_pij(3,1,29)=1
2465 exch2_pij(4,1,29)=0
2466 exch2_oi(1,29)=511
2467 exch2_oj(1,29)=510
2468
2469 exch2_neighbourId(2,29)=19
2470 exch2_iLo(2,29)=0
2471 exch2_iHi(2,29)=52
2472 exch2_jLo(2,29)=0
2473 exch2_jHi(2,29)=0
2474 exch2_opposingSend(2,29)=1
2475 exch2_pij(1,2,29)=1
2476 exch2_pij(2,2,29)=0
2477 exch2_pij(3,2,29)=0
2478 exch2_pij(4,2,29)=1
2479 exch2_oi(2,29)=0
2480 exch2_oj(2,29)=-510
2481
2482 exch2_neighbourId(3,29)=30
2483 exch2_iLo(3,29)=52
2484 exch2_iHi(3,29)=52
2485 exch2_jLo(3,29)=0
2486 exch2_jHi(3,29)=511
2487 exch2_opposingSend(3,29)=4
2488 exch2_pij(1,3,29)=1
2489 exch2_pij(2,3,29)=0
2490 exch2_pij(3,3,29)=0
2491 exch2_pij(4,3,29)=1
2492 exch2_oi(3,29)=0
2493 exch2_oj(3,29)=0
2494
2495 exch2_neighbourId(4,29)=28
2496 exch2_iLo(4,29)=0
2497 exch2_iHi(4,29)=0
2498 exch2_jLo(4,29)=0
2499 exch2_jHi(4,29)=511
2500 exch2_opposingSend(4,29)=3
2501 exch2_pij(1,4,29)=1
2502 exch2_pij(2,4,29)=0
2503 exch2_pij(3,4,29)=0
2504 exch2_pij(4,4,29)=1
2505 exch2_oi(4,29)=0
2506 exch2_oj(4,29)=0
2507 RETURN
2508 END
2509
2510 SUBROUTINE W2_E2SETUP_30
2511 C Topology for tile 30
2512 #include "W2_EXCH2_TOPOLOGY.h"
2513 exch2_tNx(30)=51
2514 exch2_tNy(30)=510
2515 exch2_tBasex(30)=459
2516 exch2_tBasey(30)=0
2517 exch2_txGlobalo(30)=1480
2518 exch2_tyGlobalo(30)=1
2519 exch2_isWedge(30)=0
2520 exch2_isNedge(30)=1
2521 exch2_isEedge(30)=1
2522 exch2_isSedge(30)=1
2523 exch2_myFace(30)=3
2524 exch2_mydNx(30)=510
2525 exch2_mydNy(30)=510
2526 exch2_nNeighbours(30)=4
2527
2528 exch2_neighbourId(1,30)=41
2529 exch2_iLo(1,30)=0
2530 exch2_iHi(1,30)=52
2531 exch2_jLo(1,30)=511
2532 exch2_jHi(1,30)=511
2533 exch2_opposingSend(1,30)=13
2534 exch2_pij(1,1,30)=0
2535 exch2_pij(2,1,30)=-1
2536 exch2_pij(3,1,30)=1
2537 exch2_pij(4,1,30)=0
2538 exch2_oi(1,30)=511
2539 exch2_oj(1,30)=510
2540
2541 exch2_neighbourId(2,30)=20
2542 exch2_iLo(2,30)=0
2543 exch2_iHi(2,30)=52
2544 exch2_jLo(2,30)=0
2545 exch2_jHi(2,30)=0
2546 exch2_opposingSend(2,30)=1
2547 exch2_pij(1,2,30)=1
2548 exch2_pij(2,2,30)=0
2549 exch2_pij(3,2,30)=0
2550 exch2_pij(4,2,30)=1
2551 exch2_oi(2,30)=0
2552 exch2_oj(2,30)=-510
2553
2554 exch2_neighbourId(3,30)=31
2555 exch2_iLo(3,30)=52
2556 exch2_iHi(3,30)=52
2557 exch2_jLo(3,30)=0
2558 exch2_jHi(3,30)=511
2559 exch2_opposingSend(3,30)=4
2560 exch2_pij(1,3,30)=1
2561 exch2_pij(2,3,30)=0
2562 exch2_pij(3,3,30)=0
2563 exch2_pij(4,3,30)=1
2564 exch2_oi(3,30)=510
2565 exch2_oj(3,30)=0
2566
2567 exch2_neighbourId(4,30)=29
2568 exch2_iLo(4,30)=0
2569 exch2_iHi(4,30)=0
2570 exch2_jLo(4,30)=0
2571 exch2_jHi(4,30)=511
2572 exch2_opposingSend(4,30)=3
2573 exch2_pij(1,4,30)=1
2574 exch2_pij(2,4,30)=0
2575 exch2_pij(3,4,30)=0
2576 exch2_pij(4,4,30)=1
2577 exch2_oi(4,30)=0
2578 exch2_oj(4,30)=0
2579 RETURN
2580 END
2581
2582 SUBROUTINE W2_E2SETUP_31
2583 C Topology for tile 31
2584 #include "W2_EXCH2_TOPOLOGY.h"
2585 exch2_tNx(31)=51
2586 exch2_tNy(31)=510
2587 exch2_tBasex(31)=0
2588 exch2_tBasey(31)=0
2589 exch2_txGlobalo(31)=1531
2590 exch2_tyGlobalo(31)=1
2591 exch2_isWedge(31)=1
2592 exch2_isNedge(31)=1
2593 exch2_isEedge(31)=0
2594 exch2_isSedge(31)=1
2595 exch2_myFace(31)=4
2596 exch2_mydNx(31)=510
2597 exch2_mydNy(31)=510
2598 exch2_nNeighbours(31)=4
2599
2600 exch2_neighbourId(1,31)=41
2601 exch2_iLo(1,31)=0
2602 exch2_iHi(1,31)=52
2603 exch2_jLo(1,31)=511
2604 exch2_jHi(1,31)=511
2605 exch2_opposingSend(1,31)=2
2606 exch2_pij(1,1,31)=1
2607 exch2_pij(2,1,31)=0
2608 exch2_pij(3,1,31)=0
2609 exch2_pij(4,1,31)=1
2610 exch2_oi(1,31)=0
2611 exch2_oj(1,31)=510
2612
2613 exch2_neighbourId(2,31)=20
2614 exch2_iLo(2,31)=0
2615 exch2_iHi(2,31)=52
2616 exch2_jLo(2,31)=0
2617 exch2_jHi(2,31)=0
2618 exch2_opposingSend(2,31)=3
2619 exch2_pij(1,2,31)=0
2620 exch2_pij(2,2,31)=-1
2621 exch2_pij(3,2,31)=1
2622 exch2_pij(4,2,31)=0
2623 exch2_oi(2,31)=511
2624 exch2_oj(2,31)=-510
2625
2626 exch2_neighbourId(3,31)=32
2627 exch2_iLo(3,31)=52
2628 exch2_iHi(3,31)=52
2629 exch2_jLo(3,31)=0
2630 exch2_jHi(3,31)=511
2631 exch2_opposingSend(3,31)=4
2632 exch2_pij(1,3,31)=1
2633 exch2_pij(2,3,31)=0
2634 exch2_pij(3,3,31)=0
2635 exch2_pij(4,3,31)=1
2636 exch2_oi(3,31)=0
2637 exch2_oj(3,31)=0
2638
2639 exch2_neighbourId(4,31)=30
2640 exch2_iLo(4,31)=0
2641 exch2_iHi(4,31)=0
2642 exch2_jLo(4,31)=0
2643 exch2_jHi(4,31)=511
2644 exch2_opposingSend(4,31)=3
2645 exch2_pij(1,4,31)=1
2646 exch2_pij(2,4,31)=0
2647 exch2_pij(3,4,31)=0
2648 exch2_pij(4,4,31)=1
2649 exch2_oi(4,31)=-510
2650 exch2_oj(4,31)=0
2651 RETURN
2652 END
2653
2654 SUBROUTINE W2_E2SETUP_32
2655 C Topology for tile 32
2656 #include "W2_EXCH2_TOPOLOGY.h"
2657 exch2_tNx(32)=51
2658 exch2_tNy(32)=510
2659 exch2_tBasex(32)=51
2660 exch2_tBasey(32)=0
2661 exch2_txGlobalo(32)=1582
2662 exch2_tyGlobalo(32)=1
2663 exch2_isWedge(32)=0
2664 exch2_isNedge(32)=1
2665 exch2_isEedge(32)=0
2666 exch2_isSedge(32)=1
2667 exch2_myFace(32)=4
2668 exch2_mydNx(32)=510
2669 exch2_mydNy(32)=510
2670 exch2_nNeighbours(32)=4
2671
2672 exch2_neighbourId(1,32)=42
2673 exch2_iLo(1,32)=0
2674 exch2_iHi(1,32)=52
2675 exch2_jLo(1,32)=511
2676 exch2_jHi(1,32)=511
2677 exch2_opposingSend(1,32)=2
2678 exch2_pij(1,1,32)=1
2679 exch2_pij(2,1,32)=0
2680 exch2_pij(3,1,32)=0
2681 exch2_pij(4,1,32)=1
2682 exch2_oi(1,32)=0
2683 exch2_oj(1,32)=510
2684
2685 exch2_neighbourId(2,32)=20
2686 exch2_iLo(2,32)=0
2687 exch2_iHi(2,32)=52
2688 exch2_jLo(2,32)=0
2689 exch2_jHi(2,32)=0
2690 exch2_opposingSend(2,32)=4
2691 exch2_pij(1,2,32)=0
2692 exch2_pij(2,2,32)=-1
2693 exch2_pij(3,2,32)=1
2694 exch2_pij(4,2,32)=0
2695 exch2_oi(2,32)=511
2696 exch2_oj(2,32)=-510
2697
2698 exch2_neighbourId(3,32)=33
2699 exch2_iLo(3,32)=52
2700 exch2_iHi(3,32)=52
2701 exch2_jLo(3,32)=0
2702 exch2_jHi(3,32)=511
2703 exch2_opposingSend(3,32)=4
2704 exch2_pij(1,3,32)=1
2705 exch2_pij(2,3,32)=0
2706 exch2_pij(3,3,32)=0
2707 exch2_pij(4,3,32)=1
2708 exch2_oi(3,32)=0
2709 exch2_oj(3,32)=0
2710
2711 exch2_neighbourId(4,32)=31
2712 exch2_iLo(4,32)=0
2713 exch2_iHi(4,32)=0
2714 exch2_jLo(4,32)=0
2715 exch2_jHi(4,32)=511
2716 exch2_opposingSend(4,32)=3
2717 exch2_pij(1,4,32)=1
2718 exch2_pij(2,4,32)=0
2719 exch2_pij(3,4,32)=0
2720 exch2_pij(4,4,32)=1
2721 exch2_oi(4,32)=0
2722 exch2_oj(4,32)=0
2723 RETURN
2724 END
2725
2726 SUBROUTINE W2_E2SETUP_33
2727 C Topology for tile 33
2728 #include "W2_EXCH2_TOPOLOGY.h"
2729 exch2_tNx(33)=51
2730 exch2_tNy(33)=510
2731 exch2_tBasex(33)=102
2732 exch2_tBasey(33)=0
2733 exch2_txGlobalo(33)=1633
2734 exch2_tyGlobalo(33)=1
2735 exch2_isWedge(33)=0
2736 exch2_isNedge(33)=1
2737 exch2_isEedge(33)=0
2738 exch2_isSedge(33)=1
2739 exch2_myFace(33)=4
2740 exch2_mydNx(33)=510
2741 exch2_mydNy(33)=510
2742 exch2_nNeighbours(33)=4
2743
2744 exch2_neighbourId(1,33)=43
2745 exch2_iLo(1,33)=0
2746 exch2_iHi(1,33)=52
2747 exch2_jLo(1,33)=511
2748 exch2_jHi(1,33)=511
2749 exch2_opposingSend(1,33)=2
2750 exch2_pij(1,1,33)=1
2751 exch2_pij(2,1,33)=0
2752 exch2_pij(3,1,33)=0
2753 exch2_pij(4,1,33)=1
2754 exch2_oi(1,33)=0
2755 exch2_oj(1,33)=510
2756
2757 exch2_neighbourId(2,33)=20
2758 exch2_iLo(2,33)=0
2759 exch2_iHi(2,33)=52
2760 exch2_jLo(2,33)=0
2761 exch2_jHi(2,33)=0
2762 exch2_opposingSend(2,33)=5
2763 exch2_pij(1,2,33)=0
2764 exch2_pij(2,2,33)=-1
2765 exch2_pij(3,2,33)=1
2766 exch2_pij(4,2,33)=0
2767 exch2_oi(2,33)=511
2768 exch2_oj(2,33)=-510
2769
2770 exch2_neighbourId(3,33)=34
2771 exch2_iLo(3,33)=52
2772 exch2_iHi(3,33)=52
2773 exch2_jLo(3,33)=0
2774 exch2_jHi(3,33)=511
2775 exch2_opposingSend(3,33)=4
2776 exch2_pij(1,3,33)=1
2777 exch2_pij(2,3,33)=0
2778 exch2_pij(3,3,33)=0
2779 exch2_pij(4,3,33)=1
2780 exch2_oi(3,33)=0
2781 exch2_oj(3,33)=0
2782
2783 exch2_neighbourId(4,33)=32
2784 exch2_iLo(4,33)=0
2785 exch2_iHi(4,33)=0
2786 exch2_jLo(4,33)=0
2787 exch2_jHi(4,33)=511
2788 exch2_opposingSend(4,33)=3
2789 exch2_pij(1,4,33)=1
2790 exch2_pij(2,4,33)=0
2791 exch2_pij(3,4,33)=0
2792 exch2_pij(4,4,33)=1
2793 exch2_oi(4,33)=0
2794 exch2_oj(4,33)=0
2795 RETURN
2796 END
2797
2798 SUBROUTINE W2_E2SETUP_34
2799 C Topology for tile 34
2800 #include "W2_EXCH2_TOPOLOGY.h"
2801 exch2_tNx(34)=51
2802 exch2_tNy(34)=510
2803 exch2_tBasex(34)=153
2804 exch2_tBasey(34)=0
2805 exch2_txGlobalo(34)=1684
2806 exch2_tyGlobalo(34)=1
2807 exch2_isWedge(34)=0
2808 exch2_isNedge(34)=1
2809 exch2_isEedge(34)=0
2810 exch2_isSedge(34)=1
2811 exch2_myFace(34)=4
2812 exch2_mydNx(34)=510
2813 exch2_mydNy(34)=510
2814 exch2_nNeighbours(34)=4
2815
2816 exch2_neighbourId(1,34)=44
2817 exch2_iLo(1,34)=0
2818 exch2_iHi(1,34)=52
2819 exch2_jLo(1,34)=511
2820 exch2_jHi(1,34)=511
2821 exch2_opposingSend(1,34)=2
2822 exch2_pij(1,1,34)=1
2823 exch2_pij(2,1,34)=0
2824 exch2_pij(3,1,34)=0
2825 exch2_pij(4,1,34)=1
2826 exch2_oi(1,34)=0
2827 exch2_oj(1,34)=510
2828
2829 exch2_neighbourId(2,34)=20
2830 exch2_iLo(2,34)=0
2831 exch2_iHi(2,34)=52
2832 exch2_jLo(2,34)=0
2833 exch2_jHi(2,34)=0
2834 exch2_opposingSend(2,34)=6
2835 exch2_pij(1,2,34)=0
2836 exch2_pij(2,2,34)=-1
2837 exch2_pij(3,2,34)=1
2838 exch2_pij(4,2,34)=0
2839 exch2_oi(2,34)=511
2840 exch2_oj(2,34)=-510
2841
2842 exch2_neighbourId(3,34)=35
2843 exch2_iLo(3,34)=52
2844 exch2_iHi(3,34)=52
2845 exch2_jLo(3,34)=0
2846 exch2_jHi(3,34)=511
2847 exch2_opposingSend(3,34)=4
2848 exch2_pij(1,3,34)=1
2849 exch2_pij(2,3,34)=0
2850 exch2_pij(3,3,34)=0
2851 exch2_pij(4,3,34)=1
2852 exch2_oi(3,34)=0
2853 exch2_oj(3,34)=0
2854
2855 exch2_neighbourId(4,34)=33
2856 exch2_iLo(4,34)=0
2857 exch2_iHi(4,34)=0
2858 exch2_jLo(4,34)=0
2859 exch2_jHi(4,34)=511
2860 exch2_opposingSend(4,34)=3
2861 exch2_pij(1,4,34)=1
2862 exch2_pij(2,4,34)=0
2863 exch2_pij(3,4,34)=0
2864 exch2_pij(4,4,34)=1
2865 exch2_oi(4,34)=0
2866 exch2_oj(4,34)=0
2867 RETURN
2868 END
2869
2870 SUBROUTINE W2_E2SETUP_35
2871 C Topology for tile 35
2872 #include "W2_EXCH2_TOPOLOGY.h"
2873 exch2_tNx(35)=51
2874 exch2_tNy(35)=510
2875 exch2_tBasex(35)=204
2876 exch2_tBasey(35)=0
2877 exch2_txGlobalo(35)=1735
2878 exch2_tyGlobalo(35)=1
2879 exch2_isWedge(35)=0
2880 exch2_isNedge(35)=1
2881 exch2_isEedge(35)=0
2882 exch2_isSedge(35)=1
2883 exch2_myFace(35)=4
2884 exch2_mydNx(35)=510
2885 exch2_mydNy(35)=510
2886 exch2_nNeighbours(35)=4
2887
2888 exch2_neighbourId(1,35)=45
2889 exch2_iLo(1,35)=0
2890 exch2_iHi(1,35)=52
2891 exch2_jLo(1,35)=511
2892 exch2_jHi(1,35)=511
2893 exch2_opposingSend(1,35)=2
2894 exch2_pij(1,1,35)=1
2895 exch2_pij(2,1,35)=0
2896 exch2_pij(3,1,35)=0
2897 exch2_pij(4,1,35)=1
2898 exch2_oi(1,35)=0
2899 exch2_oj(1,35)=510
2900
2901 exch2_neighbourId(2,35)=20
2902 exch2_iLo(2,35)=0
2903 exch2_iHi(2,35)=52
2904 exch2_jLo(2,35)=0
2905 exch2_jHi(2,35)=0
2906 exch2_opposingSend(2,35)=7
2907 exch2_pij(1,2,35)=0
2908 exch2_pij(2,2,35)=-1
2909 exch2_pij(3,2,35)=1
2910 exch2_pij(4,2,35)=0
2911 exch2_oi(2,35)=511
2912 exch2_oj(2,35)=-510
2913
2914 exch2_neighbourId(3,35)=36
2915 exch2_iLo(3,35)=52
2916 exch2_iHi(3,35)=52
2917 exch2_jLo(3,35)=0
2918 exch2_jHi(3,35)=511
2919 exch2_opposingSend(3,35)=4
2920 exch2_pij(1,3,35)=1
2921 exch2_pij(2,3,35)=0
2922 exch2_pij(3,3,35)=0
2923 exch2_pij(4,3,35)=1
2924 exch2_oi(3,35)=0
2925 exch2_oj(3,35)=0
2926
2927 exch2_neighbourId(4,35)=34
2928 exch2_iLo(4,35)=0
2929 exch2_iHi(4,35)=0
2930 exch2_jLo(4,35)=0
2931 exch2_jHi(4,35)=511
2932 exch2_opposingSend(4,35)=3
2933 exch2_pij(1,4,35)=1
2934 exch2_pij(2,4,35)=0
2935 exch2_pij(3,4,35)=0
2936 exch2_pij(4,4,35)=1
2937 exch2_oi(4,35)=0
2938 exch2_oj(4,35)=0
2939 RETURN
2940 END
2941
2942 SUBROUTINE W2_E2SETUP_36
2943 C Topology for tile 36
2944 #include "W2_EXCH2_TOPOLOGY.h"
2945 exch2_tNx(36)=51
2946 exch2_tNy(36)=510
2947 exch2_tBasex(36)=255
2948 exch2_tBasey(36)=0
2949 exch2_txGlobalo(36)=1786
2950 exch2_tyGlobalo(36)=1
2951 exch2_isWedge(36)=0
2952 exch2_isNedge(36)=1
2953 exch2_isEedge(36)=0
2954 exch2_isSedge(36)=1
2955 exch2_myFace(36)=4
2956 exch2_mydNx(36)=510
2957 exch2_mydNy(36)=510
2958 exch2_nNeighbours(36)=4
2959
2960 exch2_neighbourId(1,36)=46
2961 exch2_iLo(1,36)=0
2962 exch2_iHi(1,36)=52
2963 exch2_jLo(1,36)=511
2964 exch2_jHi(1,36)=511
2965 exch2_opposingSend(1,36)=2
2966 exch2_pij(1,1,36)=1
2967 exch2_pij(2,1,36)=0
2968 exch2_pij(3,1,36)=0
2969 exch2_pij(4,1,36)=1
2970 exch2_oi(1,36)=0
2971 exch2_oj(1,36)=510
2972
2973 exch2_neighbourId(2,36)=20
2974 exch2_iLo(2,36)=0
2975 exch2_iHi(2,36)=52
2976 exch2_jLo(2,36)=0
2977 exch2_jHi(2,36)=0
2978 exch2_opposingSend(2,36)=8
2979 exch2_pij(1,2,36)=0
2980 exch2_pij(2,2,36)=-1
2981 exch2_pij(3,2,36)=1
2982 exch2_pij(4,2,36)=0
2983 exch2_oi(2,36)=511
2984 exch2_oj(2,36)=-510
2985
2986 exch2_neighbourId(3,36)=37
2987 exch2_iLo(3,36)=52
2988 exch2_iHi(3,36)=52
2989 exch2_jLo(3,36)=0
2990 exch2_jHi(3,36)=511
2991 exch2_opposingSend(3,36)=4
2992 exch2_pij(1,3,36)=1
2993 exch2_pij(2,3,36)=0
2994 exch2_pij(3,3,36)=0
2995 exch2_pij(4,3,36)=1
2996 exch2_oi(3,36)=0
2997 exch2_oj(3,36)=0
2998
2999 exch2_neighbourId(4,36)=35
3000 exch2_iLo(4,36)=0
3001 exch2_iHi(4,36)=0
3002 exch2_jLo(4,36)=0
3003 exch2_jHi(4,36)=511
3004 exch2_opposingSend(4,36)=3
3005 exch2_pij(1,4,36)=1
3006 exch2_pij(2,4,36)=0
3007 exch2_pij(3,4,36)=0
3008 exch2_pij(4,4,36)=1
3009 exch2_oi(4,36)=0
3010 exch2_oj(4,36)=0
3011 RETURN
3012 END
3013
3014 SUBROUTINE W2_E2SETUP_37
3015 C Topology for tile 37
3016 #include "W2_EXCH2_TOPOLOGY.h"
3017 exch2_tNx(37)=51
3018 exch2_tNy(37)=510
3019 exch2_tBasex(37)=306
3020 exch2_tBasey(37)=0
3021 exch2_txGlobalo(37)=1837
3022 exch2_tyGlobalo(37)=1
3023 exch2_isWedge(37)=0
3024 exch2_isNedge(37)=1
3025 exch2_isEedge(37)=0
3026 exch2_isSedge(37)=1
3027 exch2_myFace(37)=4
3028 exch2_mydNx(37)=510
3029 exch2_mydNy(37)=510
3030 exch2_nNeighbours(37)=4
3031
3032 exch2_neighbourId(1,37)=47
3033 exch2_iLo(1,37)=0
3034 exch2_iHi(1,37)=52
3035 exch2_jLo(1,37)=511
3036 exch2_jHi(1,37)=511
3037 exch2_opposingSend(1,37)=2
3038 exch2_pij(1,1,37)=1
3039 exch2_pij(2,1,37)=0
3040 exch2_pij(3,1,37)=0
3041 exch2_pij(4,1,37)=1
3042 exch2_oi(1,37)=0
3043 exch2_oj(1,37)=510
3044
3045 exch2_neighbourId(2,37)=20
3046 exch2_iLo(2,37)=0
3047 exch2_iHi(2,37)=52
3048 exch2_jLo(2,37)=0
3049 exch2_jHi(2,37)=0
3050 exch2_opposingSend(2,37)=9
3051 exch2_pij(1,2,37)=0
3052 exch2_pij(2,2,37)=-1
3053 exch2_pij(3,2,37)=1
3054 exch2_pij(4,2,37)=0
3055 exch2_oi(2,37)=511
3056 exch2_oj(2,37)=-510
3057
3058 exch2_neighbourId(3,37)=38
3059 exch2_iLo(3,37)=52
3060 exch2_iHi(3,37)=52
3061 exch2_jLo(3,37)=0
3062 exch2_jHi(3,37)=511
3063 exch2_opposingSend(3,37)=4
3064 exch2_pij(1,3,37)=1
3065 exch2_pij(2,3,37)=0
3066 exch2_pij(3,3,37)=0
3067 exch2_pij(4,3,37)=1
3068 exch2_oi(3,37)=0
3069 exch2_oj(3,37)=0
3070
3071 exch2_neighbourId(4,37)=36
3072 exch2_iLo(4,37)=0
3073 exch2_iHi(4,37)=0
3074 exch2_jLo(4,37)=0
3075 exch2_jHi(4,37)=511
3076 exch2_opposingSend(4,37)=3
3077 exch2_pij(1,4,37)=1
3078 exch2_pij(2,4,37)=0
3079 exch2_pij(3,4,37)=0
3080 exch2_pij(4,4,37)=1
3081 exch2_oi(4,37)=0
3082 exch2_oj(4,37)=0
3083 RETURN
3084 END
3085
3086 SUBROUTINE W2_E2SETUP_38
3087 C Topology for tile 38
3088 #include "W2_EXCH2_TOPOLOGY.h"
3089 exch2_tNx(38)=51
3090 exch2_tNy(38)=510
3091 exch2_tBasex(38)=357
3092 exch2_tBasey(38)=0
3093 exch2_txGlobalo(38)=1888
3094 exch2_tyGlobalo(38)=1
3095 exch2_isWedge(38)=0
3096 exch2_isNedge(38)=1
3097 exch2_isEedge(38)=0
3098 exch2_isSedge(38)=1
3099 exch2_myFace(38)=4
3100 exch2_mydNx(38)=510
3101 exch2_mydNy(38)=510
3102 exch2_nNeighbours(38)=4
3103
3104 exch2_neighbourId(1,38)=48
3105 exch2_iLo(1,38)=0
3106 exch2_iHi(1,38)=52
3107 exch2_jLo(1,38)=511
3108 exch2_jHi(1,38)=511
3109 exch2_opposingSend(1,38)=2
3110 exch2_pij(1,1,38)=1
3111 exch2_pij(2,1,38)=0
3112 exch2_pij(3,1,38)=0
3113 exch2_pij(4,1,38)=1
3114 exch2_oi(1,38)=0
3115 exch2_oj(1,38)=510
3116
3117 exch2_neighbourId(2,38)=20
3118 exch2_iLo(2,38)=0
3119 exch2_iHi(2,38)=52
3120 exch2_jLo(2,38)=0
3121 exch2_jHi(2,38)=0
3122 exch2_opposingSend(2,38)=10
3123 exch2_pij(1,2,38)=0
3124 exch2_pij(2,2,38)=-1
3125 exch2_pij(3,2,38)=1
3126 exch2_pij(4,2,38)=0
3127 exch2_oi(2,38)=511
3128 exch2_oj(2,38)=-510
3129
3130 exch2_neighbourId(3,38)=39
3131 exch2_iLo(3,38)=52
3132 exch2_iHi(3,38)=52
3133 exch2_jLo(3,38)=0
3134 exch2_jHi(3,38)=511
3135 exch2_opposingSend(3,38)=4
3136 exch2_pij(1,3,38)=1
3137 exch2_pij(2,3,38)=0
3138 exch2_pij(3,3,38)=0
3139 exch2_pij(4,3,38)=1
3140 exch2_oi(3,38)=0
3141 exch2_oj(3,38)=0
3142
3143 exch2_neighbourId(4,38)=37
3144 exch2_iLo(4,38)=0
3145 exch2_iHi(4,38)=0
3146 exch2_jLo(4,38)=0
3147 exch2_jHi(4,38)=511
3148 exch2_opposingSend(4,38)=3
3149 exch2_pij(1,4,38)=1
3150 exch2_pij(2,4,38)=0
3151 exch2_pij(3,4,38)=0
3152 exch2_pij(4,4,38)=1
3153 exch2_oi(4,38)=0
3154 exch2_oj(4,38)=0
3155 RETURN
3156 END
3157
3158 SUBROUTINE W2_E2SETUP_39
3159 C Topology for tile 39
3160 #include "W2_EXCH2_TOPOLOGY.h"
3161 exch2_tNx(39)=51
3162 exch2_tNy(39)=510
3163 exch2_tBasex(39)=408
3164 exch2_tBasey(39)=0
3165 exch2_txGlobalo(39)=1939
3166 exch2_tyGlobalo(39)=1
3167 exch2_isWedge(39)=0
3168 exch2_isNedge(39)=1
3169 exch2_isEedge(39)=0
3170 exch2_isSedge(39)=1
3171 exch2_myFace(39)=4
3172 exch2_mydNx(39)=510
3173 exch2_mydNy(39)=510
3174 exch2_nNeighbours(39)=4
3175
3176 exch2_neighbourId(1,39)=49
3177 exch2_iLo(1,39)=0
3178 exch2_iHi(1,39)=52
3179 exch2_jLo(1,39)=511
3180 exch2_jHi(1,39)=511
3181 exch2_opposingSend(1,39)=2
3182 exch2_pij(1,1,39)=1
3183 exch2_pij(2,1,39)=0
3184 exch2_pij(3,1,39)=0
3185 exch2_pij(4,1,39)=1
3186 exch2_oi(1,39)=0
3187 exch2_oj(1,39)=510
3188
3189 exch2_neighbourId(2,39)=20
3190 exch2_iLo(2,39)=0
3191 exch2_iHi(2,39)=52
3192 exch2_jLo(2,39)=0
3193 exch2_jHi(2,39)=0
3194 exch2_opposingSend(2,39)=11
3195 exch2_pij(1,2,39)=0
3196 exch2_pij(2,2,39)=-1
3197 exch2_pij(3,2,39)=1
3198 exch2_pij(4,2,39)=0
3199 exch2_oi(2,39)=511
3200 exch2_oj(2,39)=-510
3201
3202 exch2_neighbourId(3,39)=40
3203 exch2_iLo(3,39)=52
3204 exch2_iHi(3,39)=52
3205 exch2_jLo(3,39)=0
3206 exch2_jHi(3,39)=511
3207 exch2_opposingSend(3,39)=13
3208 exch2_pij(1,3,39)=1
3209 exch2_pij(2,3,39)=0
3210 exch2_pij(3,3,39)=0
3211 exch2_pij(4,3,39)=1
3212 exch2_oi(3,39)=0
3213 exch2_oj(3,39)=0
3214
3215 exch2_neighbourId(4,39)=38
3216 exch2_iLo(4,39)=0
3217 exch2_iHi(4,39)=0
3218 exch2_jLo(4,39)=0
3219 exch2_jHi(4,39)=511
3220 exch2_opposingSend(4,39)=3
3221 exch2_pij(1,4,39)=1
3222 exch2_pij(2,4,39)=0
3223 exch2_pij(3,4,39)=0
3224 exch2_pij(4,4,39)=1
3225 exch2_oi(4,39)=0
3226 exch2_oj(4,39)=0
3227 RETURN
3228 END
3229
3230 SUBROUTINE W2_E2SETUP_40
3231 C Topology for tile 40
3232 #include "W2_EXCH2_TOPOLOGY.h"
3233 exch2_tNx(40)=51
3234 exch2_tNy(40)=510
3235 exch2_tBasex(40)=459
3236 exch2_tBasey(40)=0
3237 exch2_txGlobalo(40)=1990
3238 exch2_tyGlobalo(40)=1
3239 exch2_isWedge(40)=0
3240 exch2_isNedge(40)=1
3241 exch2_isEedge(40)=1
3242 exch2_isSedge(40)=1
3243 exch2_myFace(40)=4
3244 exch2_mydNx(40)=510
3245 exch2_mydNy(40)=510
3246 exch2_nNeighbours(40)=13
3247
3248 exch2_neighbourId(1,40)=50
3249 exch2_iLo(1,40)=0
3250 exch2_iHi(1,40)=52
3251 exch2_jLo(1,40)=511
3252 exch2_jHi(1,40)=511
3253 exch2_opposingSend(1,40)=2
3254 exch2_pij(1,1,40)=1
3255 exch2_pij(2,1,40)=0
3256 exch2_pij(3,1,40)=0
3257 exch2_pij(4,1,40)=1
3258 exch2_oi(1,40)=0
3259 exch2_oj(1,40)=510
3260
3261 exch2_neighbourId(2,40)=20
3262 exch2_iLo(2,40)=0
3263 exch2_iHi(2,40)=52
3264 exch2_jLo(2,40)=0
3265 exch2_jHi(2,40)=0
3266 exch2_opposingSend(2,40)=12
3267 exch2_pij(1,2,40)=0
3268 exch2_pij(2,2,40)=-1
3269 exch2_pij(3,2,40)=1
3270 exch2_pij(4,2,40)=0
3271 exch2_oi(2,40)=511
3272 exch2_oj(2,40)=-510
3273
3274 exch2_neighbourId(3,40)=51
3275 exch2_iLo(3,40)=52
3276 exch2_iHi(3,40)=52
3277 exch2_jLo(3,40)=459
3278 exch2_jHi(3,40)=511
3279 exch2_opposingSend(3,40)=2
3280 exch2_pij(1,3,40)=0
3281 exch2_pij(2,3,40)=1
3282 exch2_pij(3,3,40)=-1
3283 exch2_pij(4,3,40)=0
3284 exch2_oi(3,40)=510
3285 exch2_oj(3,40)=511
3286
3287 exch2_neighbourId(4,40)=52
3288 exch2_iLo(4,40)=52
3289 exch2_iHi(4,40)=52
3290 exch2_jLo(4,40)=408
3291 exch2_jHi(4,40)=460
3292 exch2_opposingSend(4,40)=2
3293 exch2_pij(1,4,40)=0
3294 exch2_pij(2,4,40)=1
3295 exch2_pij(3,4,40)=-1
3296 exch2_pij(4,4,40)=0
3297 exch2_oi(4,40)=510
3298 exch2_oj(4,40)=511
3299
3300 exch2_neighbourId(5,40)=53
3301 exch2_iLo(5,40)=52
3302 exch2_iHi(5,40)=52
3303 exch2_jLo(5,40)=357
3304 exch2_jHi(5,40)=409
3305 exch2_opposingSend(5,40)=2
3306 exch2_pij(1,5,40)=0
3307 exch2_pij(2,5,40)=1
3308 exch2_pij(3,5,40)=-1
3309 exch2_pij(4,5,40)=0
3310 exch2_oi(5,40)=510
3311 exch2_oj(5,40)=511
3312
3313 exch2_neighbourId(6,40)=54
3314 exch2_iLo(6,40)=52
3315 exch2_iHi(6,40)=52
3316 exch2_jLo(6,40)=306
3317 exch2_jHi(6,40)=358
3318 exch2_opposingSend(6,40)=2
3319 exch2_pij(1,6,40)=0
3320 exch2_pij(2,6,40)=1
3321 exch2_pij(3,6,40)=-1
3322 exch2_pij(4,6,40)=0
3323 exch2_oi(6,40)=510
3324 exch2_oj(6,40)=511
3325
3326 exch2_neighbourId(7,40)=55
3327 exch2_iLo(7,40)=52
3328 exch2_iHi(7,40)=52
3329 exch2_jLo(7,40)=255
3330 exch2_jHi(7,40)=307
3331 exch2_opposingSend(7,40)=2
3332 exch2_pij(1,7,40)=0
3333 exch2_pij(2,7,40)=1
3334 exch2_pij(3,7,40)=-1
3335 exch2_pij(4,7,40)=0
3336 exch2_oi(7,40)=510
3337 exch2_oj(7,40)=511
3338
3339 exch2_neighbourId(8,40)=56
3340 exch2_iLo(8,40)=52
3341 exch2_iHi(8,40)=52
3342 exch2_jLo(8,40)=204
3343 exch2_jHi(8,40)=256
3344 exch2_opposingSend(8,40)=2
3345 exch2_pij(1,8,40)=0
3346 exch2_pij(2,8,40)=1
3347 exch2_pij(3,8,40)=-1
3348 exch2_pij(4,8,40)=0
3349 exch2_oi(8,40)=510
3350 exch2_oj(8,40)=511
3351
3352 exch2_neighbourId(9,40)=57
3353 exch2_iLo(9,40)=52
3354 exch2_iHi(9,40)=52
3355 exch2_jLo(9,40)=153
3356 exch2_jHi(9,40)=205
3357 exch2_opposingSend(9,40)=2
3358 exch2_pij(1,9,40)=0
3359 exch2_pij(2,9,40)=1
3360 exch2_pij(3,9,40)=-1
3361 exch2_pij(4,9,40)=0
3362 exch2_oi(9,40)=510
3363 exch2_oj(9,40)=511
3364
3365 exch2_neighbourId(10,40)=58
3366 exch2_iLo(10,40)=52
3367 exch2_iHi(10,40)=52
3368 exch2_jLo(10,40)=102
3369 exch2_jHi(10,40)=154
3370 exch2_opposingSend(10,40)=2
3371 exch2_pij(1,10,40)=0
3372 exch2_pij(2,10,40)=1
3373 exch2_pij(3,10,40)=-1
3374 exch2_pij(4,10,40)=0
3375 exch2_oi(10,40)=510
3376 exch2_oj(10,40)=511
3377
3378 exch2_neighbourId(11,40)=59
3379 exch2_iLo(11,40)=52
3380 exch2_iHi(11,40)=52
3381 exch2_jLo(11,40)=51
3382 exch2_jHi(11,40)=103
3383 exch2_opposingSend(11,40)=2
3384 exch2_pij(1,11,40)=0
3385 exch2_pij(2,11,40)=1
3386 exch2_pij(3,11,40)=-1
3387 exch2_pij(4,11,40)=0
3388 exch2_oi(11,40)=510
3389 exch2_oj(11,40)=511
3390
3391 exch2_neighbourId(12,40)=60
3392 exch2_iLo(12,40)=52
3393 exch2_iHi(12,40)=52
3394 exch2_jLo(12,40)=0
3395 exch2_jHi(12,40)=52
3396 exch2_opposingSend(12,40)=2
3397 exch2_pij(1,12,40)=0
3398 exch2_pij(2,12,40)=1
3399 exch2_pij(3,12,40)=-1
3400 exch2_pij(4,12,40)=0
3401 exch2_oi(12,40)=510
3402 exch2_oj(12,40)=511
3403
3404 exch2_neighbourId(13,40)=39
3405 exch2_iLo(13,40)=0
3406 exch2_iHi(13,40)=0
3407 exch2_jLo(13,40)=0
3408 exch2_jHi(13,40)=511
3409 exch2_opposingSend(13,40)=3
3410 exch2_pij(1,13,40)=1
3411 exch2_pij(2,13,40)=0
3412 exch2_pij(3,13,40)=0
3413 exch2_pij(4,13,40)=1
3414 exch2_oi(13,40)=0
3415 exch2_oj(13,40)=0
3416 RETURN
3417 END
3418
3419 SUBROUTINE W2_E2SETUP_41
3420 C Topology for tile 41
3421 #include "W2_EXCH2_TOPOLOGY.h"
3422 exch2_tNx(41)=51
3423 exch2_tNy(41)=510
3424 exch2_tBasex(41)=0
3425 exch2_tBasey(41)=0
3426 exch2_txGlobalo(41)=2041
3427 exch2_tyGlobalo(41)=1
3428 exch2_isWedge(41)=1
3429 exch2_isNedge(41)=1
3430 exch2_isEedge(41)=0
3431 exch2_isSedge(41)=1
3432 exch2_myFace(41)=5
3433 exch2_mydNx(41)=510
3434 exch2_mydNy(41)=510
3435 exch2_nNeighbours(41)=13
3436
3437 exch2_neighbourId(1,41)=1
3438 exch2_iLo(1,41)=0
3439 exch2_iHi(1,41)=52
3440 exch2_jLo(1,41)=511
3441 exch2_jHi(1,41)=511
3442 exch2_opposingSend(1,41)=4
3443 exch2_pij(1,1,41)=0
3444 exch2_pij(2,1,41)=-1
3445 exch2_pij(3,1,41)=1
3446 exch2_pij(4,1,41)=0
3447 exch2_oi(1,41)=511
3448 exch2_oj(1,41)=510
3449
3450 exch2_neighbourId(2,41)=31
3451 exch2_iLo(2,41)=0
3452 exch2_iHi(2,41)=52
3453 exch2_jLo(2,41)=0
3454 exch2_jHi(2,41)=0
3455 exch2_opposingSend(2,41)=1
3456 exch2_pij(1,2,41)=1
3457 exch2_pij(2,2,41)=0
3458 exch2_pij(3,2,41)=0
3459 exch2_pij(4,2,41)=1
3460 exch2_oi(2,41)=0
3461 exch2_oj(2,41)=-510
3462
3463 exch2_neighbourId(3,41)=42
3464 exch2_iLo(3,41)=52
3465 exch2_iHi(3,41)=52
3466 exch2_jLo(3,41)=0
3467 exch2_jHi(3,41)=511
3468 exch2_opposingSend(3,41)=4
3469 exch2_pij(1,3,41)=1
3470 exch2_pij(2,3,41)=0
3471 exch2_pij(3,3,41)=0
3472 exch2_pij(4,3,41)=1
3473 exch2_oi(3,41)=0
3474 exch2_oj(3,41)=0
3475
3476 exch2_neighbourId(4,41)=21
3477 exch2_iLo(4,41)=0
3478 exch2_iHi(4,41)=0
3479 exch2_jLo(4,41)=459
3480 exch2_jHi(4,41)=511
3481 exch2_opposingSend(4,41)=1
3482 exch2_pij(1,4,41)=0
3483 exch2_pij(2,4,41)=1
3484 exch2_pij(3,4,41)=-1
3485 exch2_pij(4,4,41)=0
3486 exch2_oi(4,41)=-510
3487 exch2_oj(4,41)=511
3488
3489 exch2_neighbourId(5,41)=22
3490 exch2_iLo(5,41)=0
3491 exch2_iHi(5,41)=0
3492 exch2_jLo(5,41)=408
3493 exch2_jHi(5,41)=460
3494 exch2_opposingSend(5,41)=1
3495 exch2_pij(1,5,41)=0
3496 exch2_pij(2,5,41)=1
3497 exch2_pij(3,5,41)=-1
3498 exch2_pij(4,5,41)=0
3499 exch2_oi(5,41)=-510
3500 exch2_oj(5,41)=511
3501
3502 exch2_neighbourId(6,41)=23
3503 exch2_iLo(6,41)=0
3504 exch2_iHi(6,41)=0
3505 exch2_jLo(6,41)=357
3506 exch2_jHi(6,41)=409
3507 exch2_opposingSend(6,41)=1
3508 exch2_pij(1,6,41)=0
3509 exch2_pij(2,6,41)=1
3510 exch2_pij(3,6,41)=-1
3511 exch2_pij(4,6,41)=0
3512 exch2_oi(6,41)=-510
3513 exch2_oj(6,41)=511
3514
3515 exch2_neighbourId(7,41)=24
3516 exch2_iLo(7,41)=0
3517 exch2_iHi(7,41)=0
3518 exch2_jLo(7,41)=306
3519 exch2_jHi(7,41)=358
3520 exch2_opposingSend(7,41)=1
3521 exch2_pij(1,7,41)=0
3522 exch2_pij(2,7,41)=1
3523 exch2_pij(3,7,41)=-1
3524 exch2_pij(4,7,41)=0
3525 exch2_oi(7,41)=-510
3526 exch2_oj(7,41)=511
3527
3528 exch2_neighbourId(8,41)=25
3529 exch2_iLo(8,41)=0
3530 exch2_iHi(8,41)=0
3531 exch2_jLo(8,41)=255
3532 exch2_jHi(8,41)=307
3533 exch2_opposingSend(8,41)=1
3534 exch2_pij(1,8,41)=0
3535 exch2_pij(2,8,41)=1
3536 exch2_pij(3,8,41)=-1
3537 exch2_pij(4,8,41)=0
3538 exch2_oi(8,41)=-510
3539 exch2_oj(8,41)=511
3540
3541 exch2_neighbourId(9,41)=26
3542 exch2_iLo(9,41)=0
3543 exch2_iHi(9,41)=0
3544 exch2_jLo(9,41)=204
3545 exch2_jHi(9,41)=256
3546 exch2_opposingSend(9,41)=1
3547 exch2_pij(1,9,41)=0
3548 exch2_pij(2,9,41)=1
3549 exch2_pij(3,9,41)=-1
3550 exch2_pij(4,9,41)=0
3551 exch2_oi(9,41)=-510
3552 exch2_oj(9,41)=511
3553
3554 exch2_neighbourId(10,41)=27
3555 exch2_iLo(10,41)=0
3556 exch2_iHi(10,41)=0
3557 exch2_jLo(10,41)=153
3558 exch2_jHi(10,41)=205
3559 exch2_opposingSend(10,41)=1
3560 exch2_pij(1,10,41)=0
3561 exch2_pij(2,10,41)=1
3562 exch2_pij(3,10,41)=-1
3563 exch2_pij(4,10,41)=0
3564 exch2_oi(10,41)=-510
3565 exch2_oj(10,41)=511
3566
3567 exch2_neighbourId(11,41)=28
3568 exch2_iLo(11,41)=0
3569 exch2_iHi(11,41)=0
3570 exch2_jLo(11,41)=102
3571 exch2_jHi(11,41)=154
3572 exch2_opposingSend(11,41)=1
3573 exch2_pij(1,11,41)=0
3574 exch2_pij(2,11,41)=1
3575 exch2_pij(3,11,41)=-1
3576 exch2_pij(4,11,41)=0
3577 exch2_oi(11,41)=-510
3578 exch2_oj(11,41)=511
3579
3580 exch2_neighbourId(12,41)=29
3581 exch2_iLo(12,41)=0
3582 exch2_iHi(12,41)=0
3583 exch2_jLo(12,41)=51
3584 exch2_jHi(12,41)=103
3585 exch2_opposingSend(12,41)=1
3586 exch2_pij(1,12,41)=0
3587 exch2_pij(2,12,41)=1
3588 exch2_pij(3,12,41)=-1
3589 exch2_pij(4,12,41)=0
3590 exch2_oi(12,41)=-510
3591 exch2_oj(12,41)=511
3592
3593 exch2_neighbourId(13,41)=30
3594 exch2_iLo(13,41)=0
3595 exch2_iHi(13,41)=0
3596 exch2_jLo(13,41)=0
3597 exch2_jHi(13,41)=52
3598 exch2_opposingSend(13,41)=1
3599 exch2_pij(1,13,41)=0
3600 exch2_pij(2,13,41)=1
3601 exch2_pij(3,13,41)=-1
3602 exch2_pij(4,13,41)=0
3603 exch2_oi(13,41)=-510
3604 exch2_oj(13,41)=511
3605 RETURN
3606 END
3607
3608 SUBROUTINE W2_E2SETUP_42
3609 C Topology for tile 42
3610 #include "W2_EXCH2_TOPOLOGY.h"
3611 exch2_tNx(42)=51
3612 exch2_tNy(42)=510
3613 exch2_tBasex(42)=51
3614 exch2_tBasey(42)=0
3615 exch2_txGlobalo(42)=2092
3616 exch2_tyGlobalo(42)=1
3617 exch2_isWedge(42)=0
3618 exch2_isNedge(42)=1
3619 exch2_isEedge(42)=0
3620 exch2_isSedge(42)=1
3621 exch2_myFace(42)=5
3622 exch2_mydNx(42)=510
3623 exch2_mydNy(42)=510
3624 exch2_nNeighbours(42)=4
3625
3626 exch2_neighbourId(1,42)=1
3627 exch2_iLo(1,42)=0
3628 exch2_iHi(1,42)=52
3629 exch2_jLo(1,42)=511
3630 exch2_jHi(1,42)=511
3631 exch2_opposingSend(1,42)=5
3632 exch2_pij(1,1,42)=0
3633 exch2_pij(2,1,42)=-1
3634 exch2_pij(3,1,42)=1
3635 exch2_pij(4,1,42)=0
3636 exch2_oi(1,42)=511
3637 exch2_oj(1,42)=510
3638
3639 exch2_neighbourId(2,42)=32
3640 exch2_iLo(2,42)=0
3641 exch2_iHi(2,42)=52
3642 exch2_jLo(2,42)=0
3643 exch2_jHi(2,42)=0
3644 exch2_opposingSend(2,42)=1
3645 exch2_pij(1,2,42)=1
3646 exch2_pij(2,2,42)=0
3647 exch2_pij(3,2,42)=0
3648 exch2_pij(4,2,42)=1
3649 exch2_oi(2,42)=0
3650 exch2_oj(2,42)=-510
3651
3652 exch2_neighbourId(3,42)=43
3653 exch2_iLo(3,42)=52
3654 exch2_iHi(3,42)=52
3655 exch2_jLo(3,42)=0
3656 exch2_jHi(3,42)=511
3657 exch2_opposingSend(3,42)=4
3658 exch2_pij(1,3,42)=1
3659 exch2_pij(2,3,42)=0
3660 exch2_pij(3,3,42)=0
3661 exch2_pij(4,3,42)=1
3662 exch2_oi(3,42)=0
3663 exch2_oj(3,42)=0
3664
3665 exch2_neighbourId(4,42)=41
3666 exch2_iLo(4,42)=0
3667 exch2_iHi(4,42)=0
3668 exch2_jLo(4,42)=0
3669 exch2_jHi(4,42)=511
3670 exch2_opposingSend(4,42)=3
3671 exch2_pij(1,4,42)=1
3672 exch2_pij(2,4,42)=0
3673 exch2_pij(3,4,42)=0
3674 exch2_pij(4,4,42)=1
3675 exch2_oi(4,42)=0
3676 exch2_oj(4,42)=0
3677 RETURN
3678 END
3679
3680 SUBROUTINE W2_E2SETUP_43
3681 C Topology for tile 43
3682 #include "W2_EXCH2_TOPOLOGY.h"
3683 exch2_tNx(43)=51
3684 exch2_tNy(43)=510
3685 exch2_tBasex(43)=102
3686 exch2_tBasey(43)=0
3687 exch2_txGlobalo(43)=2143
3688 exch2_tyGlobalo(43)=1
3689 exch2_isWedge(43)=0
3690 exch2_isNedge(43)=1
3691 exch2_isEedge(43)=0
3692 exch2_isSedge(43)=1
3693 exch2_myFace(43)=5
3694 exch2_mydNx(43)=510
3695 exch2_mydNy(43)=510
3696 exch2_nNeighbours(43)=4
3697
3698 exch2_neighbourId(1,43)=1
3699 exch2_iLo(1,43)=0
3700 exch2_iHi(1,43)=52
3701 exch2_jLo(1,43)=511
3702 exch2_jHi(1,43)=511
3703 exch2_opposingSend(1,43)=6
3704 exch2_pij(1,1,43)=0
3705 exch2_pij(2,1,43)=-1
3706 exch2_pij(3,1,43)=1
3707 exch2_pij(4,1,43)=0
3708 exch2_oi(1,43)=511
3709 exch2_oj(1,43)=510
3710
3711 exch2_neighbourId(2,43)=33
3712 exch2_iLo(2,43)=0
3713 exch2_iHi(2,43)=52
3714 exch2_jLo(2,43)=0
3715 exch2_jHi(2,43)=0
3716 exch2_opposingSend(2,43)=1
3717 exch2_pij(1,2,43)=1
3718 exch2_pij(2,2,43)=0
3719 exch2_pij(3,2,43)=0
3720 exch2_pij(4,2,43)=1
3721 exch2_oi(2,43)=0
3722 exch2_oj(2,43)=-510
3723
3724 exch2_neighbourId(3,43)=44
3725 exch2_iLo(3,43)=52
3726 exch2_iHi(3,43)=52
3727 exch2_jLo(3,43)=0
3728 exch2_jHi(3,43)=511
3729 exch2_opposingSend(3,43)=4
3730 exch2_pij(1,3,43)=1
3731 exch2_pij(2,3,43)=0
3732 exch2_pij(3,3,43)=0
3733 exch2_pij(4,3,43)=1
3734 exch2_oi(3,43)=0
3735 exch2_oj(3,43)=0
3736
3737 exch2_neighbourId(4,43)=42
3738 exch2_iLo(4,43)=0
3739 exch2_iHi(4,43)=0
3740 exch2_jLo(4,43)=0
3741 exch2_jHi(4,43)=511
3742 exch2_opposingSend(4,43)=3
3743 exch2_pij(1,4,43)=1
3744 exch2_pij(2,4,43)=0
3745 exch2_pij(3,4,43)=0
3746 exch2_pij(4,4,43)=1
3747 exch2_oi(4,43)=0
3748 exch2_oj(4,43)=0
3749 RETURN
3750 END
3751
3752 SUBROUTINE W2_E2SETUP_44
3753 C Topology for tile 44
3754 #include "W2_EXCH2_TOPOLOGY.h"
3755 exch2_tNx(44)=51
3756 exch2_tNy(44)=510
3757 exch2_tBasex(44)=153
3758 exch2_tBasey(44)=0
3759 exch2_txGlobalo(44)=2194
3760 exch2_tyGlobalo(44)=1
3761 exch2_isWedge(44)=0
3762 exch2_isNedge(44)=1
3763 exch2_isEedge(44)=0
3764 exch2_isSedge(44)=1
3765 exch2_myFace(44)=5
3766 exch2_mydNx(44)=510
3767 exch2_mydNy(44)=510
3768 exch2_nNeighbours(44)=4
3769
3770 exch2_neighbourId(1,44)=1
3771 exch2_iLo(1,44)=0
3772 exch2_iHi(1,44)=52
3773 exch2_jLo(1,44)=511
3774 exch2_jHi(1,44)=511
3775 exch2_opposingSend(1,44)=7
3776 exch2_pij(1,1,44)=0
3777 exch2_pij(2,1,44)=-1
3778 exch2_pij(3,1,44)=1
3779 exch2_pij(4,1,44)=0
3780 exch2_oi(1,44)=511
3781 exch2_oj(1,44)=510
3782
3783 exch2_neighbourId(2,44)=34
3784 exch2_iLo(2,44)=0
3785 exch2_iHi(2,44)=52
3786 exch2_jLo(2,44)=0
3787 exch2_jHi(2,44)=0
3788 exch2_opposingSend(2,44)=1
3789 exch2_pij(1,2,44)=1
3790 exch2_pij(2,2,44)=0
3791 exch2_pij(3,2,44)=0
3792 exch2_pij(4,2,44)=1
3793 exch2_oi(2,44)=0
3794 exch2_oj(2,44)=-510
3795
3796 exch2_neighbourId(3,44)=45
3797 exch2_iLo(3,44)=52
3798 exch2_iHi(3,44)=52
3799 exch2_jLo(3,44)=0
3800 exch2_jHi(3,44)=511
3801 exch2_opposingSend(3,44)=4
3802 exch2_pij(1,3,44)=1
3803 exch2_pij(2,3,44)=0
3804 exch2_pij(3,3,44)=0
3805 exch2_pij(4,3,44)=1
3806 exch2_oi(3,44)=0
3807 exch2_oj(3,44)=0
3808
3809 exch2_neighbourId(4,44)=43
3810 exch2_iLo(4,44)=0
3811 exch2_iHi(4,44)=0
3812 exch2_jLo(4,44)=0
3813 exch2_jHi(4,44)=511
3814 exch2_opposingSend(4,44)=3
3815 exch2_pij(1,4,44)=1
3816 exch2_pij(2,4,44)=0
3817 exch2_pij(3,4,44)=0
3818 exch2_pij(4,4,44)=1
3819 exch2_oi(4,44)=0
3820 exch2_oj(4,44)=0
3821 RETURN
3822 END
3823
3824 SUBROUTINE W2_E2SETUP_45
3825 C Topology for tile 45
3826 #include "W2_EXCH2_TOPOLOGY.h"
3827 exch2_tNx(45)=51
3828 exch2_tNy(45)=510
3829 exch2_tBasex(45)=204
3830 exch2_tBasey(45)=0
3831 exch2_txGlobalo(45)=2245
3832 exch2_tyGlobalo(45)=1
3833 exch2_isWedge(45)=0
3834 exch2_isNedge(45)=1
3835 exch2_isEedge(45)=0
3836 exch2_isSedge(45)=1
3837 exch2_myFace(45)=5
3838 exch2_mydNx(45)=510
3839 exch2_mydNy(45)=510
3840 exch2_nNeighbours(45)=4
3841
3842 exch2_neighbourId(1,45)=1
3843 exch2_iLo(1,45)=0
3844 exch2_iHi(1,45)=52
3845 exch2_jLo(1,45)=511
3846 exch2_jHi(1,45)=511
3847 exch2_opposingSend(1,45)=8
3848 exch2_pij(1,1,45)=0
3849 exch2_pij(2,1,45)=-1
3850 exch2_pij(3,1,45)=1
3851 exch2_pij(4,1,45)=0
3852 exch2_oi(1,45)=511
3853 exch2_oj(1,45)=510
3854
3855 exch2_neighbourId(2,45)=35
3856 exch2_iLo(2,45)=0
3857 exch2_iHi(2,45)=52
3858 exch2_jLo(2,45)=0
3859 exch2_jHi(2,45)=0
3860 exch2_opposingSend(2,45)=1
3861 exch2_pij(1,2,45)=1
3862 exch2_pij(2,2,45)=0
3863 exch2_pij(3,2,45)=0
3864 exch2_pij(4,2,45)=1
3865 exch2_oi(2,45)=0
3866 exch2_oj(2,45)=-510
3867
3868 exch2_neighbourId(3,45)=46
3869 exch2_iLo(3,45)=52
3870 exch2_iHi(3,45)=52
3871 exch2_jLo(3,45)=0
3872 exch2_jHi(3,45)=511
3873 exch2_opposingSend(3,45)=4
3874 exch2_pij(1,3,45)=1
3875 exch2_pij(2,3,45)=0
3876 exch2_pij(3,3,45)=0
3877 exch2_pij(4,3,45)=1
3878 exch2_oi(3,45)=0
3879 exch2_oj(3,45)=0
3880
3881 exch2_neighbourId(4,45)=44
3882 exch2_iLo(4,45)=0
3883 exch2_iHi(4,45)=0
3884 exch2_jLo(4,45)=0
3885 exch2_jHi(4,45)=511
3886 exch2_opposingSend(4,45)=3
3887 exch2_pij(1,4,45)=1
3888 exch2_pij(2,4,45)=0
3889 exch2_pij(3,4,45)=0
3890 exch2_pij(4,4,45)=1
3891 exch2_oi(4,45)=0
3892 exch2_oj(4,45)=0
3893 RETURN
3894 END
3895
3896 SUBROUTINE W2_E2SETUP_46
3897 C Topology for tile 46
3898 #include "W2_EXCH2_TOPOLOGY.h"
3899 exch2_tNx(46)=51
3900 exch2_tNy(46)=510
3901 exch2_tBasex(46)=255
3902 exch2_tBasey(46)=0
3903 exch2_txGlobalo(46)=2296
3904 exch2_tyGlobalo(46)=1
3905 exch2_isWedge(46)=0
3906 exch2_isNedge(46)=1
3907 exch2_isEedge(46)=0
3908 exch2_isSedge(46)=1
3909 exch2_myFace(46)=5
3910 exch2_mydNx(46)=510
3911 exch2_mydNy(46)=510
3912 exch2_nNeighbours(46)=4
3913
3914 exch2_neighbourId(1,46)=1
3915 exch2_iLo(1,46)=0
3916 exch2_iHi(1,46)=52
3917 exch2_jLo(1,46)=511
3918 exch2_jHi(1,46)=511
3919 exch2_opposingSend(1,46)=9
3920 exch2_pij(1,1,46)=0
3921 exch2_pij(2,1,46)=-1
3922 exch2_pij(3,1,46)=1
3923 exch2_pij(4,1,46)=0
3924 exch2_oi(1,46)=511
3925 exch2_oj(1,46)=510
3926
3927 exch2_neighbourId(2,46)=36
3928 exch2_iLo(2,46)=0
3929 exch2_iHi(2,46)=52
3930 exch2_jLo(2,46)=0
3931 exch2_jHi(2,46)=0
3932 exch2_opposingSend(2,46)=1
3933 exch2_pij(1,2,46)=1
3934 exch2_pij(2,2,46)=0
3935 exch2_pij(3,2,46)=0
3936 exch2_pij(4,2,46)=1
3937 exch2_oi(2,46)=0
3938 exch2_oj(2,46)=-510
3939
3940 exch2_neighbourId(3,46)=47
3941 exch2_iLo(3,46)=52
3942 exch2_iHi(3,46)=52
3943 exch2_jLo(3,46)=0
3944 exch2_jHi(3,46)=511
3945 exch2_opposingSend(3,46)=4
3946 exch2_pij(1,3,46)=1
3947 exch2_pij(2,3,46)=0
3948 exch2_pij(3,3,46)=0
3949 exch2_pij(4,3,46)=1
3950 exch2_oi(3,46)=0
3951 exch2_oj(3,46)=0
3952
3953 exch2_neighbourId(4,46)=45
3954 exch2_iLo(4,46)=0
3955 exch2_iHi(4,46)=0
3956 exch2_jLo(4,46)=0
3957 exch2_jHi(4,46)=511
3958 exch2_opposingSend(4,46)=3
3959 exch2_pij(1,4,46)=1
3960 exch2_pij(2,4,46)=0
3961 exch2_pij(3,4,46)=0
3962 exch2_pij(4,4,46)=1
3963 exch2_oi(4,46)=0
3964 exch2_oj(4,46)=0
3965 RETURN
3966 END
3967
3968 SUBROUTINE W2_E2SETUP_47
3969 C Topology for tile 47
3970 #include "W2_EXCH2_TOPOLOGY.h"
3971 exch2_tNx(47)=51
3972 exch2_tNy(47)=510
3973 exch2_tBasex(47)=306
3974 exch2_tBasey(47)=0
3975 exch2_txGlobalo(47)=2347
3976 exch2_tyGlobalo(47)=1
3977 exch2_isWedge(47)=0
3978 exch2_isNedge(47)=1
3979 exch2_isEedge(47)=0
3980 exch2_isSedge(47)=1
3981 exch2_myFace(47)=5
3982 exch2_mydNx(47)=510
3983 exch2_mydNy(47)=510
3984 exch2_nNeighbours(47)=4
3985
3986 exch2_neighbourId(1,47)=1
3987 exch2_iLo(1,47)=0
3988 exch2_iHi(1,47)=52
3989 exch2_jLo(1,47)=511
3990 exch2_jHi(1,47)=511
3991 exch2_opposingSend(1,47)=10
3992 exch2_pij(1,1,47)=0
3993 exch2_pij(2,1,47)=-1
3994 exch2_pij(3,1,47)=1
3995 exch2_pij(4,1,47)=0
3996 exch2_oi(1,47)=511
3997 exch2_oj(1,47)=510
3998
3999 exch2_neighbourId(2,47)=37
4000 exch2_iLo(2,47)=0
4001 exch2_iHi(2,47)=52
4002 exch2_jLo(2,47)=0
4003 exch2_jHi(2,47)=0
4004 exch2_opposingSend(2,47)=1
4005 exch2_pij(1,2,47)=1
4006 exch2_pij(2,2,47)=0
4007 exch2_pij(3,2,47)=0
4008 exch2_pij(4,2,47)=1
4009 exch2_oi(2,47)=0
4010 exch2_oj(2,47)=-510
4011
4012 exch2_neighbourId(3,47)=48
4013 exch2_iLo(3,47)=52
4014 exch2_iHi(3,47)=52
4015 exch2_jLo(3,47)=0
4016 exch2_jHi(3,47)=511
4017 exch2_opposingSend(3,47)=4
4018 exch2_pij(1,3,47)=1
4019 exch2_pij(2,3,47)=0
4020 exch2_pij(3,3,47)=0
4021 exch2_pij(4,3,47)=1
4022 exch2_oi(3,47)=0
4023 exch2_oj(3,47)=0
4024
4025 exch2_neighbourId(4,47)=46
4026 exch2_iLo(4,47)=0
4027 exch2_iHi(4,47)=0
4028 exch2_jLo(4,47)=0
4029 exch2_jHi(4,47)=511
4030 exch2_opposingSend(4,47)=3
4031 exch2_pij(1,4,47)=1
4032 exch2_pij(2,4,47)=0
4033 exch2_pij(3,4,47)=0
4034 exch2_pij(4,4,47)=1
4035 exch2_oi(4,47)=0
4036 exch2_oj(4,47)=0
4037 RETURN
4038 END
4039
4040 SUBROUTINE W2_E2SETUP_48
4041 C Topology for tile 48
4042 #include "W2_EXCH2_TOPOLOGY.h"
4043 exch2_tNx(48)=51
4044 exch2_tNy(48)=510
4045 exch2_tBasex(48)=357
4046 exch2_tBasey(48)=0
4047 exch2_txGlobalo(48)=2398
4048 exch2_tyGlobalo(48)=1
4049 exch2_isWedge(48)=0
4050 exch2_isNedge(48)=1
4051 exch2_isEedge(48)=0
4052 exch2_isSedge(48)=1
4053 exch2_myFace(48)=5
4054 exch2_mydNx(48)=510
4055 exch2_mydNy(48)=510
4056 exch2_nNeighbours(48)=4
4057
4058 exch2_neighbourId(1,48)=1
4059 exch2_iLo(1,48)=0
4060 exch2_iHi(1,48)=52
4061 exch2_jLo(1,48)=511
4062 exch2_jHi(1,48)=511
4063 exch2_opposingSend(1,48)=11
4064 exch2_pij(1,1,48)=0
4065 exch2_pij(2,1,48)=-1
4066 exch2_pij(3,1,48)=1
4067 exch2_pij(4,1,48)=0
4068 exch2_oi(1,48)=511
4069 exch2_oj(1,48)=510
4070
4071 exch2_neighbourId(2,48)=38
4072 exch2_iLo(2,48)=0
4073 exch2_iHi(2,48)=52
4074 exch2_jLo(2,48)=0
4075 exch2_jHi(2,48)=0
4076 exch2_opposingSend(2,48)=1
4077 exch2_pij(1,2,48)=1
4078 exch2_pij(2,2,48)=0
4079 exch2_pij(3,2,48)=0
4080 exch2_pij(4,2,48)=1
4081 exch2_oi(2,48)=0
4082 exch2_oj(2,48)=-510
4083
4084 exch2_neighbourId(3,48)=49
4085 exch2_iLo(3,48)=52
4086 exch2_iHi(3,48)=52
4087 exch2_jLo(3,48)=0
4088 exch2_jHi(3,48)=511
4089 exch2_opposingSend(3,48)=4
4090 exch2_pij(1,3,48)=1
4091 exch2_pij(2,3,48)=0
4092 exch2_pij(3,3,48)=0
4093 exch2_pij(4,3,48)=1
4094 exch2_oi(3,48)=0
4095 exch2_oj(3,48)=0
4096
4097 exch2_neighbourId(4,48)=47
4098 exch2_iLo(4,48)=0
4099 exch2_iHi(4,48)=0
4100 exch2_jLo(4,48)=0
4101 exch2_jHi(4,48)=511
4102 exch2_opposingSend(4,48)=3
4103 exch2_pij(1,4,48)=1
4104 exch2_pij(2,4,48)=0
4105 exch2_pij(3,4,48)=0
4106 exch2_pij(4,4,48)=1
4107 exch2_oi(4,48)=0
4108 exch2_oj(4,48)=0
4109 RETURN
4110 END
4111
4112 SUBROUTINE W2_E2SETUP_49
4113 C Topology for tile 49
4114 #include "W2_EXCH2_TOPOLOGY.h"
4115 exch2_tNx(49)=51
4116 exch2_tNy(49)=510
4117 exch2_tBasex(49)=408
4118 exch2_tBasey(49)=0
4119 exch2_txGlobalo(49)=2449
4120 exch2_tyGlobalo(49)=1
4121 exch2_isWedge(49)=0
4122 exch2_isNedge(49)=1
4123 exch2_isEedge(49)=0
4124 exch2_isSedge(49)=1
4125 exch2_myFace(49)=5
4126 exch2_mydNx(49)=510
4127 exch2_mydNy(49)=510
4128 exch2_nNeighbours(49)=4
4129
4130 exch2_neighbourId(1,49)=1
4131 exch2_iLo(1,49)=0
4132 exch2_iHi(1,49)=52
4133 exch2_jLo(1,49)=511
4134 exch2_jHi(1,49)=511
4135 exch2_opposingSend(1,49)=12
4136 exch2_pij(1,1,49)=0
4137 exch2_pij(2,1,49)=-1
4138 exch2_pij(3,1,49)=1
4139 exch2_pij(4,1,49)=0
4140 exch2_oi(1,49)=511
4141 exch2_oj(1,49)=510
4142
4143 exch2_neighbourId(2,49)=39
4144 exch2_iLo(2,49)=0
4145 exch2_iHi(2,49)=52
4146 exch2_jLo(2,49)=0
4147 exch2_jHi(2,49)=0
4148 exch2_opposingSend(2,49)=1
4149 exch2_pij(1,2,49)=1
4150 exch2_pij(2,2,49)=0
4151 exch2_pij(3,2,49)=0
4152 exch2_pij(4,2,49)=1
4153 exch2_oi(2,49)=0
4154 exch2_oj(2,49)=-510
4155
4156 exch2_neighbourId(3,49)=50
4157 exch2_iLo(3,49)=52
4158 exch2_iHi(3,49)=52
4159 exch2_jLo(3,49)=0
4160 exch2_jHi(3,49)=511
4161 exch2_opposingSend(3,49)=4
4162 exch2_pij(1,3,49)=1
4163 exch2_pij(2,3,49)=0
4164 exch2_pij(3,3,49)=0
4165 exch2_pij(4,3,49)=1
4166 exch2_oi(3,49)=0
4167 exch2_oj(3,49)=0
4168
4169 exch2_neighbourId(4,49)=48
4170 exch2_iLo(4,49)=0
4171 exch2_iHi(4,49)=0
4172 exch2_jLo(4,49)=0
4173 exch2_jHi(4,49)=511
4174 exch2_opposingSend(4,49)=3
4175 exch2_pij(1,4,49)=1
4176 exch2_pij(2,4,49)=0
4177 exch2_pij(3,4,49)=0
4178 exch2_pij(4,4,49)=1
4179 exch2_oi(4,49)=0
4180 exch2_oj(4,49)=0
4181 RETURN
4182 END
4183
4184 SUBROUTINE W2_E2SETUP_50
4185 C Topology for tile 50
4186 #include "W2_EXCH2_TOPOLOGY.h"
4187 exch2_tNx(50)=51
4188 exch2_tNy(50)=510
4189 exch2_tBasex(50)=459
4190 exch2_tBasey(50)=0
4191 exch2_txGlobalo(50)=2500
4192 exch2_tyGlobalo(50)=1
4193 exch2_isWedge(50)=0
4194 exch2_isNedge(50)=1
4195 exch2_isEedge(50)=1
4196 exch2_isSedge(50)=1
4197 exch2_myFace(50)=5
4198 exch2_mydNx(50)=510
4199 exch2_mydNy(50)=510
4200 exch2_nNeighbours(50)=4
4201
4202 exch2_neighbourId(1,50)=1
4203 exch2_iLo(1,50)=0
4204 exch2_iHi(1,50)=52
4205 exch2_jLo(1,50)=511
4206 exch2_jHi(1,50)=511
4207 exch2_opposingSend(1,50)=13
4208 exch2_pij(1,1,50)=0
4209 exch2_pij(2,1,50)=-1
4210 exch2_pij(3,1,50)=1
4211 exch2_pij(4,1,50)=0
4212 exch2_oi(1,50)=511
4213 exch2_oj(1,50)=510
4214
4215 exch2_neighbourId(2,50)=40
4216 exch2_iLo(2,50)=0
4217 exch2_iHi(2,50)=52
4218 exch2_jLo(2,50)=0
4219 exch2_jHi(2,50)=0
4220 exch2_opposingSend(2,50)=1
4221 exch2_pij(1,2,50)=1
4222 exch2_pij(2,2,50)=0
4223 exch2_pij(3,2,50)=0
4224 exch2_pij(4,2,50)=1
4225 exch2_oi(2,50)=0
4226 exch2_oj(2,50)=-510
4227
4228 exch2_neighbourId(3,50)=51
4229 exch2_iLo(3,50)=52
4230 exch2_iHi(3,50)=52
4231 exch2_jLo(3,50)=0
4232 exch2_jHi(3,50)=511
4233 exch2_opposingSend(3,50)=4
4234 exch2_pij(1,3,50)=1
4235 exch2_pij(2,3,50)=0
4236 exch2_pij(3,3,50)=0
4237 exch2_pij(4,3,50)=1
4238 exch2_oi(3,50)=510
4239 exch2_oj(3,50)=0
4240
4241 exch2_neighbourId(4,50)=49
4242 exch2_iLo(4,50)=0
4243 exch2_iHi(4,50)=0
4244 exch2_jLo(4,50)=0
4245 exch2_jHi(4,50)=511
4246 exch2_opposingSend(4,50)=3
4247 exch2_pij(1,4,50)=1
4248 exch2_pij(2,4,50)=0
4249 exch2_pij(3,4,50)=0
4250 exch2_pij(4,4,50)=1
4251 exch2_oi(4,50)=0
4252 exch2_oj(4,50)=0
4253 RETURN
4254 END
4255
4256 SUBROUTINE W2_E2SETUP_51
4257 C Topology for tile 51
4258 #include "W2_EXCH2_TOPOLOGY.h"
4259 exch2_tNx(51)=51
4260 exch2_tNy(51)=510
4261 exch2_tBasex(51)=0
4262 exch2_tBasey(51)=0
4263 exch2_txGlobalo(51)=2551
4264 exch2_tyGlobalo(51)=1
4265 exch2_isWedge(51)=1
4266 exch2_isNedge(51)=1
4267 exch2_isEedge(51)=0
4268 exch2_isSedge(51)=1
4269 exch2_myFace(51)=6
4270 exch2_mydNx(51)=510
4271 exch2_mydNy(51)=510
4272 exch2_nNeighbours(51)=4
4273
4274 exch2_neighbourId(1,51)=1
4275 exch2_iLo(1,51)=0
4276 exch2_iHi(1,51)=52
4277 exch2_jLo(1,51)=511
4278 exch2_jHi(1,51)=511
4279 exch2_opposingSend(1,51)=2
4280 exch2_pij(1,1,51)=1
4281 exch2_pij(2,1,51)=0
4282 exch2_pij(3,1,51)=0
4283 exch2_pij(4,1,51)=1
4284 exch2_oi(1,51)=0
4285 exch2_oj(1,51)=510
4286
4287 exch2_neighbourId(2,51)=40
4288 exch2_iLo(2,51)=0
4289 exch2_iHi(2,51)=52
4290 exch2_jLo(2,51)=0
4291 exch2_jHi(2,51)=0
4292 exch2_opposingSend(2,51)=3
4293 exch2_pij(1,2,51)=0
4294 exch2_pij(2,2,51)=-1
4295 exch2_pij(3,2,51)=1
4296 exch2_pij(4,2,51)=0
4297 exch2_oi(2,51)=511
4298 exch2_oj(2,51)=-510
4299
4300 exch2_neighbourId(3,51)=52
4301 exch2_iLo(3,51)=52
4302 exch2_iHi(3,51)=52
4303 exch2_jLo(3,51)=0
4304 exch2_jHi(3,51)=511
4305 exch2_opposingSend(3,51)=4
4306 exch2_pij(1,3,51)=1
4307 exch2_pij(2,3,51)=0
4308 exch2_pij(3,3,51)=0
4309 exch2_pij(4,3,51)=1
4310 exch2_oi(3,51)=0
4311 exch2_oj(3,51)=0
4312
4313 exch2_neighbourId(4,51)=50
4314 exch2_iLo(4,51)=0
4315 exch2_iHi(4,51)=0
4316 exch2_jLo(4,51)=0
4317 exch2_jHi(4,51)=511
4318 exch2_opposingSend(4,51)=3
4319 exch2_pij(1,4,51)=1
4320 exch2_pij(2,4,51)=0
4321 exch2_pij(3,4,51)=0
4322 exch2_pij(4,4,51)=1
4323 exch2_oi(4,51)=-510
4324 exch2_oj(4,51)=0
4325 RETURN
4326 END
4327
4328 SUBROUTINE W2_E2SETUP_52
4329 C Topology for tile 52
4330 #include "W2_EXCH2_TOPOLOGY.h"
4331 exch2_tNx(52)=51
4332 exch2_tNy(52)=510
4333 exch2_tBasex(52)=51
4334 exch2_tBasey(52)=0
4335 exch2_txGlobalo(52)=2602
4336 exch2_tyGlobalo(52)=1
4337 exch2_isWedge(52)=0
4338 exch2_isNedge(52)=1
4339 exch2_isEedge(52)=0
4340 exch2_isSedge(52)=1
4341 exch2_myFace(52)=6
4342 exch2_mydNx(52)=510
4343 exch2_mydNy(52)=510
4344 exch2_nNeighbours(52)=4
4345
4346 exch2_neighbourId(1,52)=2
4347 exch2_iLo(1,52)=0
4348 exch2_iHi(1,52)=52
4349 exch2_jLo(1,52)=511
4350 exch2_jHi(1,52)=511
4351 exch2_opposingSend(1,52)=2
4352 exch2_pij(1,1,52)=1
4353 exch2_pij(2,1,52)=0
4354 exch2_pij(3,1,52)=0
4355 exch2_pij(4,1,52)=1
4356 exch2_oi(1,52)=0
4357 exch2_oj(1,52)=510
4358
4359 exch2_neighbourId(2,52)=40
4360 exch2_iLo(2,52)=0
4361 exch2_iHi(2,52)=52
4362 exch2_jLo(2,52)=0
4363 exch2_jHi(2,52)=0
4364 exch2_opposingSend(2,52)=4
4365 exch2_pij(1,2,52)=0
4366 exch2_pij(2,2,52)=-1
4367 exch2_pij(3,2,52)=1
4368 exch2_pij(4,2,52)=0
4369 exch2_oi(2,52)=511
4370 exch2_oj(2,52)=-510
4371
4372 exch2_neighbourId(3,52)=53
4373 exch2_iLo(3,52)=52
4374 exch2_iHi(3,52)=52
4375 exch2_jLo(3,52)=0
4376 exch2_jHi(3,52)=511
4377 exch2_opposingSend(3,52)=4
4378 exch2_pij(1,3,52)=1
4379 exch2_pij(2,3,52)=0
4380 exch2_pij(3,3,52)=0
4381 exch2_pij(4,3,52)=1
4382 exch2_oi(3,52)=0
4383 exch2_oj(3,52)=0
4384
4385 exch2_neighbourId(4,52)=51
4386 exch2_iLo(4,52)=0
4387 exch2_iHi(4,52)=0
4388 exch2_jLo(4,52)=0
4389 exch2_jHi(4,52)=511
4390 exch2_opposingSend(4,52)=3
4391 exch2_pij(1,4,52)=1
4392 exch2_pij(2,4,52)=0
4393 exch2_pij(3,4,52)=0
4394 exch2_pij(4,4,52)=1
4395 exch2_oi(4,52)=0
4396 exch2_oj(4,52)=0
4397 RETURN
4398 END
4399
4400 SUBROUTINE W2_E2SETUP_53
4401 C Topology for tile 53
4402 #include "W2_EXCH2_TOPOLOGY.h"
4403 exch2_tNx(53)=51
4404 exch2_tNy(53)=510
4405 exch2_tBasex(53)=102
4406 exch2_tBasey(53)=0
4407 exch2_txGlobalo(53)=2653
4408 exch2_tyGlobalo(53)=1
4409 exch2_isWedge(53)=0
4410 exch2_isNedge(53)=1
4411 exch2_isEedge(53)=0
4412 exch2_isSedge(53)=1
4413 exch2_myFace(53)=6
4414 exch2_mydNx(53)=510
4415 exch2_mydNy(53)=510
4416 exch2_nNeighbours(53)=4
4417
4418 exch2_neighbourId(1,53)=3
4419 exch2_iLo(1,53)=0
4420 exch2_iHi(1,53)=52
4421 exch2_jLo(1,53)=511
4422 exch2_jHi(1,53)=511
4423 exch2_opposingSend(1,53)=2
4424 exch2_pij(1,1,53)=1
4425 exch2_pij(2,1,53)=0
4426 exch2_pij(3,1,53)=0
4427 exch2_pij(4,1,53)=1
4428 exch2_oi(1,53)=0
4429 exch2_oj(1,53)=510
4430
4431 exch2_neighbourId(2,53)=40
4432 exch2_iLo(2,53)=0
4433 exch2_iHi(2,53)=52
4434 exch2_jLo(2,53)=0
4435 exch2_jHi(2,53)=0
4436 exch2_opposingSend(2,53)=5
4437 exch2_pij(1,2,53)=0
4438 exch2_pij(2,2,53)=-1
4439 exch2_pij(3,2,53)=1
4440 exch2_pij(4,2,53)=0
4441 exch2_oi(2,53)=511
4442 exch2_oj(2,53)=-510
4443
4444 exch2_neighbourId(3,53)=54
4445 exch2_iLo(3,53)=52
4446 exch2_iHi(3,53)=52
4447 exch2_jLo(3,53)=0
4448 exch2_jHi(3,53)=511
4449 exch2_opposingSend(3,53)=4
4450 exch2_pij(1,3,53)=1
4451 exch2_pij(2,3,53)=0
4452 exch2_pij(3,3,53)=0
4453 exch2_pij(4,3,53)=1
4454 exch2_oi(3,53)=0
4455 exch2_oj(3,53)=0
4456
4457 exch2_neighbourId(4,53)=52
4458 exch2_iLo(4,53)=0
4459 exch2_iHi(4,53)=0
4460 exch2_jLo(4,53)=0
4461 exch2_jHi(4,53)=511
4462 exch2_opposingSend(4,53)=3
4463 exch2_pij(1,4,53)=1
4464 exch2_pij(2,4,53)=0
4465 exch2_pij(3,4,53)=0
4466 exch2_pij(4,4,53)=1
4467 exch2_oi(4,53)=0
4468 exch2_oj(4,53)=0
4469 RETURN
4470 END
4471
4472 SUBROUTINE W2_E2SETUP_54
4473 C Topology for tile 54
4474 #include "W2_EXCH2_TOPOLOGY.h"
4475 exch2_tNx(54)=51
4476 exch2_tNy(54)=510
4477 exch2_tBasex(54)=153
4478 exch2_tBasey(54)=0
4479 exch2_txGlobalo(54)=2704
4480 exch2_tyGlobalo(54)=1
4481 exch2_isWedge(54)=0
4482 exch2_isNedge(54)=1
4483 exch2_isEedge(54)=0
4484 exch2_isSedge(54)=1
4485 exch2_myFace(54)=6
4486 exch2_mydNx(54)=510
4487 exch2_mydNy(54)=510
4488 exch2_nNeighbours(54)=4
4489
4490 exch2_neighbourId(1,54)=4
4491 exch2_iLo(1,54)=0
4492 exch2_iHi(1,54)=52
4493 exch2_jLo(1,54)=511
4494 exch2_jHi(1,54)=511
4495 exch2_opposingSend(1,54)=2
4496 exch2_pij(1,1,54)=1
4497 exch2_pij(2,1,54)=0
4498 exch2_pij(3,1,54)=0
4499 exch2_pij(4,1,54)=1
4500 exch2_oi(1,54)=0
4501 exch2_oj(1,54)=510
4502
4503 exch2_neighbourId(2,54)=40
4504 exch2_iLo(2,54)=0
4505 exch2_iHi(2,54)=52
4506 exch2_jLo(2,54)=0
4507 exch2_jHi(2,54)=0
4508 exch2_opposingSend(2,54)=6
4509 exch2_pij(1,2,54)=0
4510 exch2_pij(2,2,54)=-1
4511 exch2_pij(3,2,54)=1
4512 exch2_pij(4,2,54)=0
4513 exch2_oi(2,54)=511
4514 exch2_oj(2,54)=-510
4515
4516 exch2_neighbourId(3,54)=55
4517 exch2_iLo(3,54)=52
4518 exch2_iHi(3,54)=52
4519 exch2_jLo(3,54)=0
4520 exch2_jHi(3,54)=511
4521 exch2_opposingSend(3,54)=4
4522 exch2_pij(1,3,54)=1
4523 exch2_pij(2,3,54)=0
4524 exch2_pij(3,3,54)=0
4525 exch2_pij(4,3,54)=1
4526 exch2_oi(3,54)=0
4527 exch2_oj(3,54)=0
4528
4529 exch2_neighbourId(4,54)=53
4530 exch2_iLo(4,54)=0
4531 exch2_iHi(4,54)=0
4532 exch2_jLo(4,54)=0
4533 exch2_jHi(4,54)=511
4534 exch2_opposingSend(4,54)=3
4535 exch2_pij(1,4,54)=1
4536 exch2_pij(2,4,54)=0
4537 exch2_pij(3,4,54)=0
4538 exch2_pij(4,4,54)=1
4539 exch2_oi(4,54)=0
4540 exch2_oj(4,54)=0
4541 RETURN
4542 END
4543
4544 SUBROUTINE W2_E2SETUP_55
4545 C Topology for tile 55
4546 #include "W2_EXCH2_TOPOLOGY.h"
4547 exch2_tNx(55)=51
4548 exch2_tNy(55)=510
4549 exch2_tBasex(55)=204
4550 exch2_tBasey(55)=0
4551 exch2_txGlobalo(55)=2755
4552 exch2_tyGlobalo(55)=1
4553 exch2_isWedge(55)=0
4554 exch2_isNedge(55)=1
4555 exch2_isEedge(55)=0
4556 exch2_isSedge(55)=1
4557 exch2_myFace(55)=6
4558 exch2_mydNx(55)=510
4559 exch2_mydNy(55)=510
4560 exch2_nNeighbours(55)=4
4561
4562 exch2_neighbourId(1,55)=5
4563 exch2_iLo(1,55)=0
4564 exch2_iHi(1,55)=52
4565 exch2_jLo(1,55)=511
4566 exch2_jHi(1,55)=511
4567 exch2_opposingSend(1,55)=2
4568 exch2_pij(1,1,55)=1
4569 exch2_pij(2,1,55)=0
4570 exch2_pij(3,1,55)=0
4571 exch2_pij(4,1,55)=1
4572 exch2_oi(1,55)=0
4573 exch2_oj(1,55)=510
4574
4575 exch2_neighbourId(2,55)=40
4576 exch2_iLo(2,55)=0
4577 exch2_iHi(2,55)=52
4578 exch2_jLo(2,55)=0
4579 exch2_jHi(2,55)=0
4580 exch2_opposingSend(2,55)=7
4581 exch2_pij(1,2,55)=0
4582 exch2_pij(2,2,55)=-1
4583 exch2_pij(3,2,55)=1
4584 exch2_pij(4,2,55)=0
4585 exch2_oi(2,55)=511
4586 exch2_oj(2,55)=-510
4587
4588 exch2_neighbourId(3,55)=56
4589 exch2_iLo(3,55)=52
4590 exch2_iHi(3,55)=52
4591 exch2_jLo(3,55)=0
4592 exch2_jHi(3,55)=511
4593 exch2_opposingSend(3,55)=4
4594 exch2_pij(1,3,55)=1
4595 exch2_pij(2,3,55)=0
4596 exch2_pij(3,3,55)=0
4597 exch2_pij(4,3,55)=1
4598 exch2_oi(3,55)=0
4599 exch2_oj(3,55)=0
4600
4601 exch2_neighbourId(4,55)=54
4602 exch2_iLo(4,55)=0
4603 exch2_iHi(4,55)=0
4604 exch2_jLo(4,55)=0
4605 exch2_jHi(4,55)=511
4606 exch2_opposingSend(4,55)=3
4607 exch2_pij(1,4,55)=1
4608 exch2_pij(2,4,55)=0
4609 exch2_pij(3,4,55)=0
4610 exch2_pij(4,4,55)=1
4611 exch2_oi(4,55)=0
4612 exch2_oj(4,55)=0
4613 RETURN
4614 END
4615
4616 SUBROUTINE W2_E2SETUP_56
4617 C Topology for tile 56
4618 #include "W2_EXCH2_TOPOLOGY.h"
4619 exch2_tNx(56)=51
4620 exch2_tNy(56)=510
4621 exch2_tBasex(56)=255
4622 exch2_tBasey(56)=0
4623 exch2_txGlobalo(56)=2806
4624 exch2_tyGlobalo(56)=1
4625 exch2_isWedge(56)=0
4626 exch2_isNedge(56)=1
4627 exch2_isEedge(56)=0
4628 exch2_isSedge(56)=1
4629 exch2_myFace(56)=6
4630 exch2_mydNx(56)=510
4631 exch2_mydNy(56)=510
4632 exch2_nNeighbours(56)=4
4633
4634 exch2_neighbourId(1,56)=6
4635 exch2_iLo(1,56)=0
4636 exch2_iHi(1,56)=52
4637 exch2_jLo(1,56)=511
4638 exch2_jHi(1,56)=511
4639 exch2_opposingSend(1,56)=2
4640 exch2_pij(1,1,56)=1
4641 exch2_pij(2,1,56)=0
4642 exch2_pij(3,1,56)=0
4643 exch2_pij(4,1,56)=1
4644 exch2_oi(1,56)=0
4645 exch2_oj(1,56)=510
4646
4647 exch2_neighbourId(2,56)=40
4648 exch2_iLo(2,56)=0
4649 exch2_iHi(2,56)=52
4650 exch2_jLo(2,56)=0
4651 exch2_jHi(2,56)=0
4652 exch2_opposingSend(2,56)=8
4653 exch2_pij(1,2,56)=0
4654 exch2_pij(2,2,56)=-1
4655 exch2_pij(3,2,56)=1
4656 exch2_pij(4,2,56)=0
4657 exch2_oi(2,56)=511
4658 exch2_oj(2,56)=-510
4659
4660 exch2_neighbourId(3,56)=57
4661 exch2_iLo(3,56)=52
4662 exch2_iHi(3,56)=52
4663 exch2_jLo(3,56)=0
4664 exch2_jHi(3,56)=511
4665 exch2_opposingSend(3,56)=4
4666 exch2_pij(1,3,56)=1
4667 exch2_pij(2,3,56)=0
4668 exch2_pij(3,3,56)=0
4669 exch2_pij(4,3,56)=1
4670 exch2_oi(3,56)=0
4671 exch2_oj(3,56)=0
4672
4673 exch2_neighbourId(4,56)=55
4674 exch2_iLo(4,56)=0
4675 exch2_iHi(4,56)=0
4676 exch2_jLo(4,56)=0
4677 exch2_jHi(4,56)=511
4678 exch2_opposingSend(4,56)=3
4679 exch2_pij(1,4,56)=1
4680 exch2_pij(2,4,56)=0
4681 exch2_pij(3,4,56)=0
4682 exch2_pij(4,4,56)=1
4683 exch2_oi(4,56)=0
4684 exch2_oj(4,56)=0
4685 RETURN
4686 END
4687
4688 SUBROUTINE W2_E2SETUP_57
4689 C Topology for tile 57
4690 #include "W2_EXCH2_TOPOLOGY.h"
4691 exch2_tNx(57)=51
4692 exch2_tNy(57)=510
4693 exch2_tBasex(57)=306
4694 exch2_tBasey(57)=0
4695 exch2_txGlobalo(57)=2857
4696 exch2_tyGlobalo(57)=1
4697 exch2_isWedge(57)=0
4698 exch2_isNedge(57)=1
4699 exch2_isEedge(57)=0
4700 exch2_isSedge(57)=1
4701 exch2_myFace(57)=6
4702 exch2_mydNx(57)=510
4703 exch2_mydNy(57)=510
4704 exch2_nNeighbours(57)=4
4705
4706 exch2_neighbourId(1,57)=7
4707 exch2_iLo(1,57)=0
4708 exch2_iHi(1,57)=52
4709 exch2_jLo(1,57)=511
4710 exch2_jHi(1,57)=511
4711 exch2_opposingSend(1,57)=2
4712 exch2_pij(1,1,57)=1
4713 exch2_pij(2,1,57)=0
4714 exch2_pij(3,1,57)=0
4715 exch2_pij(4,1,57)=1
4716 exch2_oi(1,57)=0
4717 exch2_oj(1,57)=510
4718
4719 exch2_neighbourId(2,57)=40
4720 exch2_iLo(2,57)=0
4721 exch2_iHi(2,57)=52
4722 exch2_jLo(2,57)=0
4723 exch2_jHi(2,57)=0
4724 exch2_opposingSend(2,57)=9
4725 exch2_pij(1,2,57)=0
4726 exch2_pij(2,2,57)=-1
4727 exch2_pij(3,2,57)=1
4728 exch2_pij(4,2,57)=0
4729 exch2_oi(2,57)=511
4730 exch2_oj(2,57)=-510
4731
4732 exch2_neighbourId(3,57)=58
4733 exch2_iLo(3,57)=52
4734 exch2_iHi(3,57)=52
4735 exch2_jLo(3,57)=0
4736 exch2_jHi(3,57)=511
4737 exch2_opposingSend(3,57)=4
4738 exch2_pij(1,3,57)=1
4739 exch2_pij(2,3,57)=0
4740 exch2_pij(3,3,57)=0
4741 exch2_pij(4,3,57)=1
4742 exch2_oi(3,57)=0
4743 exch2_oj(3,57)=0
4744
4745 exch2_neighbourId(4,57)=56
4746 exch2_iLo(4,57)=0
4747 exch2_iHi(4,57)=0
4748 exch2_jLo(4,57)=0
4749 exch2_jHi(4,57)=511
4750 exch2_opposingSend(4,57)=3
4751 exch2_pij(1,4,57)=1
4752 exch2_pij(2,4,57)=0
4753 exch2_pij(3,4,57)=0
4754 exch2_pij(4,4,57)=1
4755 exch2_oi(4,57)=0
4756 exch2_oj(4,57)=0
4757 RETURN
4758 END
4759
4760 SUBROUTINE W2_E2SETUP_58
4761 C Topology for tile 58
4762 #include "W2_EXCH2_TOPOLOGY.h"
4763 exch2_tNx(58)=51
4764 exch2_tNy(58)=510
4765 exch2_tBasex(58)=357
4766 exch2_tBasey(58)=0
4767 exch2_txGlobalo(58)=2908
4768 exch2_tyGlobalo(58)=1
4769 exch2_isWedge(58)=0
4770 exch2_isNedge(58)=1
4771 exch2_isEedge(58)=0
4772 exch2_isSedge(58)=1
4773 exch2_myFace(58)=6
4774 exch2_mydNx(58)=510
4775 exch2_mydNy(58)=510
4776 exch2_nNeighbours(58)=4
4777
4778 exch2_neighbourId(1,58)=8
4779 exch2_iLo(1,58)=0
4780 exch2_iHi(1,58)=52
4781 exch2_jLo(1,58)=511
4782 exch2_jHi(1,58)=511
4783 exch2_opposingSend(1,58)=2
4784 exch2_pij(1,1,58)=1
4785 exch2_pij(2,1,58)=0
4786 exch2_pij(3,1,58)=0
4787 exch2_pij(4,1,58)=1
4788 exch2_oi(1,58)=0
4789 exch2_oj(1,58)=510
4790
4791 exch2_neighbourId(2,58)=40
4792 exch2_iLo(2,58)=0
4793 exch2_iHi(2,58)=52
4794 exch2_jLo(2,58)=0
4795 exch2_jHi(2,58)=0
4796 exch2_opposingSend(2,58)=10
4797 exch2_pij(1,2,58)=0
4798 exch2_pij(2,2,58)=-1
4799 exch2_pij(3,2,58)=1
4800 exch2_pij(4,2,58)=0
4801 exch2_oi(2,58)=511
4802 exch2_oj(2,58)=-510
4803
4804 exch2_neighbourId(3,58)=59
4805 exch2_iLo(3,58)=52
4806 exch2_iHi(3,58)=52
4807 exch2_jLo(3,58)=0
4808 exch2_jHi(3,58)=511
4809 exch2_opposingSend(3,58)=4
4810 exch2_pij(1,3,58)=1
4811 exch2_pij(2,3,58)=0
4812 exch2_pij(3,3,58)=0
4813 exch2_pij(4,3,58)=1
4814 exch2_oi(3,58)=0
4815 exch2_oj(3,58)=0
4816
4817 exch2_neighbourId(4,58)=57
4818 exch2_iLo(4,58)=0
4819 exch2_iHi(4,58)=0
4820 exch2_jLo(4,58)=0
4821 exch2_jHi(4,58)=511
4822 exch2_opposingSend(4,58)=3
4823 exch2_pij(1,4,58)=1
4824 exch2_pij(2,4,58)=0
4825 exch2_pij(3,4,58)=0
4826 exch2_pij(4,4,58)=1
4827 exch2_oi(4,58)=0
4828 exch2_oj(4,58)=0
4829 RETURN
4830 END
4831
4832 SUBROUTINE W2_E2SETUP_59
4833 C Topology for tile 59
4834 #include "W2_EXCH2_TOPOLOGY.h"
4835 exch2_tNx(59)=51
4836 exch2_tNy(59)=510
4837 exch2_tBasex(59)=408
4838 exch2_tBasey(59)=0
4839 exch2_txGlobalo(59)=2959
4840 exch2_tyGlobalo(59)=1
4841 exch2_isWedge(59)=0
4842 exch2_isNedge(59)=1
4843 exch2_isEedge(59)=0
4844 exch2_isSedge(59)=1
4845 exch2_myFace(59)=6
4846 exch2_mydNx(59)=510
4847 exch2_mydNy(59)=510
4848 exch2_nNeighbours(59)=4
4849
4850 exch2_neighbourId(1,59)=9
4851 exch2_iLo(1,59)=0
4852 exch2_iHi(1,59)=52
4853 exch2_jLo(1,59)=511
4854 exch2_jHi(1,59)=511
4855 exch2_opposingSend(1,59)=2
4856 exch2_pij(1,1,59)=1
4857 exch2_pij(2,1,59)=0
4858 exch2_pij(3,1,59)=0
4859 exch2_pij(4,1,59)=1
4860 exch2_oi(1,59)=0
4861 exch2_oj(1,59)=510
4862
4863 exch2_neighbourId(2,59)=40
4864 exch2_iLo(2,59)=0
4865 exch2_iHi(2,59)=52
4866 exch2_jLo(2,59)=0
4867 exch2_jHi(2,59)=0
4868 exch2_opposingSend(2,59)=11
4869 exch2_pij(1,2,59)=0
4870 exch2_pij(2,2,59)=-1
4871 exch2_pij(3,2,59)=1
4872 exch2_pij(4,2,59)=0
4873 exch2_oi(2,59)=511
4874 exch2_oj(2,59)=-510
4875
4876 exch2_neighbourId(3,59)=60
4877 exch2_iLo(3,59)=52
4878 exch2_iHi(3,59)=52
4879 exch2_jLo(3,59)=0
4880 exch2_jHi(3,59)=511
4881 exch2_opposingSend(3,59)=13
4882 exch2_pij(1,3,59)=1
4883 exch2_pij(2,3,59)=0
4884 exch2_pij(3,3,59)=0
4885 exch2_pij(4,3,59)=1
4886 exch2_oi(3,59)=0
4887 exch2_oj(3,59)=0
4888
4889 exch2_neighbourId(4,59)=58
4890 exch2_iLo(4,59)=0
4891 exch2_iHi(4,59)=0
4892 exch2_jLo(4,59)=0
4893 exch2_jHi(4,59)=511
4894 exch2_opposingSend(4,59)=3
4895 exch2_pij(1,4,59)=1
4896 exch2_pij(2,4,59)=0
4897 exch2_pij(3,4,59)=0
4898 exch2_pij(4,4,59)=1
4899 exch2_oi(4,59)=0
4900 exch2_oj(4,59)=0
4901 RETURN
4902 END
4903
4904 SUBROUTINE W2_E2SETUP_60
4905 C Topology for tile 60
4906 #include "W2_EXCH2_TOPOLOGY.h"
4907 exch2_tNx(60)=51
4908 exch2_tNy(60)=510
4909 exch2_tBasex(60)=459
4910 exch2_tBasey(60)=0
4911 exch2_txGlobalo(60)=3010
4912 exch2_tyGlobalo(60)=1
4913 exch2_isWedge(60)=0
4914 exch2_isNedge(60)=1
4915 exch2_isEedge(60)=1
4916 exch2_isSedge(60)=1
4917 exch2_myFace(60)=6
4918 exch2_mydNx(60)=510
4919 exch2_mydNy(60)=510
4920 exch2_nNeighbours(60)=13
4921
4922 exch2_neighbourId(1,60)=10
4923 exch2_iLo(1,60)=0
4924 exch2_iHi(1,60)=52
4925 exch2_jLo(1,60)=511
4926 exch2_jHi(1,60)=511
4927 exch2_opposingSend(1,60)=2
4928 exch2_pij(1,1,60)=1
4929 exch2_pij(2,1,60)=0
4930 exch2_pij(3,1,60)=0
4931 exch2_pij(4,1,60)=1
4932 exch2_oi(1,60)=0
4933 exch2_oj(1,60)=510
4934
4935 exch2_neighbourId(2,60)=40
4936 exch2_iLo(2,60)=0
4937 exch2_iHi(2,60)=52
4938 exch2_jLo(2,60)=0
4939 exch2_jHi(2,60)=0
4940 exch2_opposingSend(2,60)=12
4941 exch2_pij(1,2,60)=0
4942 exch2_pij(2,2,60)=-1
4943 exch2_pij(3,2,60)=1
4944 exch2_pij(4,2,60)=0
4945 exch2_oi(2,60)=511
4946 exch2_oj(2,60)=-510
4947
4948 exch2_neighbourId(3,60)=11
4949 exch2_iLo(3,60)=52
4950 exch2_iHi(3,60)=52
4951 exch2_jLo(3,60)=459
4952 exch2_jHi(3,60)=511
4953 exch2_opposingSend(3,60)=2
4954 exch2_pij(1,3,60)=0
4955 exch2_pij(2,3,60)=1
4956 exch2_pij(3,3,60)=-1
4957 exch2_pij(4,3,60)=0
4958 exch2_oi(3,60)=510
4959 exch2_oj(3,60)=511
4960
4961 exch2_neighbourId(4,60)=12
4962 exch2_iLo(4,60)=52
4963 exch2_iHi(4,60)=52
4964 exch2_jLo(4,60)=408
4965 exch2_jHi(4,60)=460
4966 exch2_opposingSend(4,60)=2
4967 exch2_pij(1,4,60)=0
4968 exch2_pij(2,4,60)=1
4969 exch2_pij(3,4,60)=-1
4970 exch2_pij(4,4,60)=0
4971 exch2_oi(4,60)=510
4972 exch2_oj(4,60)=511
4973
4974 exch2_neighbourId(5,60)=13
4975 exch2_iLo(5,60)=52
4976 exch2_iHi(5,60)=52
4977 exch2_jLo(5,60)=357
4978 exch2_jHi(5,60)=409
4979 exch2_opposingSend(5,60)=2
4980 exch2_pij(1,5,60)=0
4981 exch2_pij(2,5,60)=1
4982 exch2_pij(3,5,60)=-1
4983 exch2_pij(4,5,60)=0
4984 exch2_oi(5,60)=510
4985 exch2_oj(5,60)=511
4986
4987 exch2_neighbourId(6,60)=14
4988 exch2_iLo(6,60)=52
4989 exch2_iHi(6,60)=52
4990 exch2_jLo(6,60)=306
4991 exch2_jHi(6,60)=358
4992 exch2_opposingSend(6,60)=2
4993 exch2_pij(1,6,60)=0
4994 exch2_pij(2,6,60)=1
4995 exch2_pij(3,6,60)=-1
4996 exch2_pij(4,6,60)=0
4997 exch2_oi(6,60)=510
4998 exch2_oj(6,60)=511
4999
5000 exch2_neighbourId(7,60)=15
5001 exch2_iLo(7,60)=52
5002 exch2_iHi(7,60)=52
5003 exch2_jLo(7,60)=255
5004 exch2_jHi(7,60)=307
5005 exch2_opposingSend(7,60)=2
5006 exch2_pij(1,7,60)=0
5007 exch2_pij(2,7,60)=1
5008 exch2_pij(3,7,60)=-1
5009 exch2_pij(4,7,60)=0
5010 exch2_oi(7,60)=510
5011 exch2_oj(7,60)=511
5012
5013 exch2_neighbourId(8,60)=16
5014 exch2_iLo(8,60)=52
5015 exch2_iHi(8,60)=52
5016 exch2_jLo(8,60)=204
5017 exch2_jHi(8,60)=256
5018 exch2_opposingSend(8,60)=2
5019 exch2_pij(1,8,60)=0
5020 exch2_pij(2,8,60)=1
5021 exch2_pij(3,8,60)=-1
5022 exch2_pij(4,8,60)=0
5023 exch2_oi(8,60)=510
5024 exch2_oj(8,60)=511
5025
5026 exch2_neighbourId(9,60)=17
5027 exch2_iLo(9,60)=52
5028 exch2_iHi(9,60)=52
5029 exch2_jLo(9,60)=153
5030 exch2_jHi(9,60)=205
5031 exch2_opposingSend(9,60)=2
5032 exch2_pij(1,9,60)=0
5033 exch2_pij(2,9,60)=1
5034 exch2_pij(3,9,60)=-1
5035 exch2_pij(4,9,60)=0
5036 exch2_oi(9,60)=510
5037 exch2_oj(9,60)=511
5038
5039 exch2_neighbourId(10,60)=18
5040 exch2_iLo(10,60)=52
5041 exch2_iHi(10,60)=52
5042 exch2_jLo(10,60)=102
5043 exch2_jHi(10,60)=154
5044 exch2_opposingSend(10,60)=2
5045 exch2_pij(1,10,60)=0
5046 exch2_pij(2,10,60)=1
5047 exch2_pij(3,10,60)=-1
5048 exch2_pij(4,10,60)=0
5049 exch2_oi(10,60)=510
5050 exch2_oj(10,60)=511
5051
5052 exch2_neighbourId(11,60)=19
5053 exch2_iLo(11,60)=52
5054 exch2_iHi(11,60)=52
5055 exch2_jLo(11,60)=51
5056 exch2_jHi(11,60)=103
5057 exch2_opposingSend(11,60)=2
5058 exch2_pij(1,11,60)=0
5059 exch2_pij(2,11,60)=1
5060 exch2_pij(3,11,60)=-1
5061 exch2_pij(4,11,60)=0
5062 exch2_oi(11,60)=510
5063 exch2_oj(11,60)=511
5064
5065 exch2_neighbourId(12,60)=20
5066 exch2_iLo(12,60)=52
5067 exch2_iHi(12,60)=52
5068 exch2_jLo(12,60)=0
5069 exch2_jHi(12,60)=52
5070 exch2_opposingSend(12,60)=2
5071 exch2_pij(1,12,60)=0
5072 exch2_pij(2,12,60)=1
5073 exch2_pij(3,12,60)=-1
5074 exch2_pij(4,12,60)=0
5075 exch2_oi(12,60)=510
5076 exch2_oj(12,60)=511
5077
5078 exch2_neighbourId(13,60)=59
5079 exch2_iLo(13,60)=0
5080 exch2_iHi(13,60)=0
5081 exch2_jLo(13,60)=0
5082 exch2_jHi(13,60)=511
5083 exch2_opposingSend(13,60)=3
5084 exch2_pij(1,13,60)=1
5085 exch2_pij(2,13,60)=0
5086 exch2_pij(3,13,60)=0
5087 exch2_pij(4,13,60)=1
5088 exch2_oi(13,60)=0
5089 exch2_oj(13,60)=0
5090 RETURN
5091 END
5092
  ViewVC Help
Powered by ViewVC 1.1.22