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

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

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

Revision 1.4 - (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.3: +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 RETURN
63 END
64
65 SUBROUTINE W2_E2SETUP_1
66 C Topology for tile 1
67 #include "W2_EXCH2_TOPOLOGY.h"
68 exch2_tNx(1)=170
69 exch2_tNy(1)=170
70 exch2_tBasex(1)=0
71 exch2_tBasey(1)=0
72 exch2_txGlobalo(1)=1
73 exch2_tyGlobalo(1)=1
74 exch2_isWedge(1)=1
75 exch2_isNedge(1)=0
76 exch2_isEedge(1)=0
77 exch2_isSedge(1)=1
78 exch2_myFace(1)=1
79 exch2_mydNx(1)=510
80 exch2_mydNy(1)=510
81 exch2_nNeighbours(1)=4
82
83 exch2_neighbourId(1,1)=4
84 exch2_iLo(1,1)=0
85 exch2_iHi(1,1)=171
86 exch2_jLo(1,1)=171
87 exch2_jHi(1,1)=171
88 exch2_opposingSend(1,1)=2
89 exch2_pij(1,1,1)=1
90 exch2_pij(2,1,1)=0
91 exch2_pij(3,1,1)=0
92 exch2_pij(4,1,1)=1
93 exch2_oi(1,1)=0
94 exch2_oj(1,1)=0
95
96 exch2_neighbourId(2,1)=52
97 exch2_iLo(2,1)=0
98 exch2_iHi(2,1)=171
99 exch2_jLo(2,1)=0
100 exch2_jHi(2,1)=0
101 exch2_opposingSend(2,1)=1
102 exch2_pij(1,2,1)=1
103 exch2_pij(2,2,1)=0
104 exch2_pij(3,2,1)=0
105 exch2_pij(4,2,1)=1
106 exch2_oi(2,1)=0
107 exch2_oj(2,1)=-510
108
109 exch2_neighbourId(3,1)=2
110 exch2_iLo(3,1)=171
111 exch2_iHi(3,1)=171
112 exch2_jLo(3,1)=0
113 exch2_jHi(3,1)=171
114 exch2_opposingSend(3,1)=4
115 exch2_pij(1,3,1)=1
116 exch2_pij(2,3,1)=0
117 exch2_pij(3,3,1)=0
118 exch2_pij(4,3,1)=1
119 exch2_oi(3,1)=0
120 exch2_oj(3,1)=0
121
122 exch2_neighbourId(4,1)=45
123 exch2_iLo(4,1)=0
124 exch2_iHi(4,1)=0
125 exch2_jLo(4,1)=0
126 exch2_jHi(4,1)=171
127 exch2_opposingSend(4,1)=1
128 exch2_pij(1,4,1)=0
129 exch2_pij(2,4,1)=1
130 exch2_pij(3,4,1)=-1
131 exch2_pij(4,4,1)=0
132 exch2_oi(4,1)=-510
133 exch2_oj(4,1)=511
134 RETURN
135 END
136
137 SUBROUTINE W2_E2SETUP_2
138 C Topology for tile 2
139 #include "W2_EXCH2_TOPOLOGY.h"
140 exch2_tNx(2)=170
141 exch2_tNy(2)=170
142 exch2_tBasex(2)=170
143 exch2_tBasey(2)=0
144 exch2_txGlobalo(2)=171
145 exch2_tyGlobalo(2)=1
146 exch2_isWedge(2)=0
147 exch2_isNedge(2)=0
148 exch2_isEedge(2)=0
149 exch2_isSedge(2)=1
150 exch2_myFace(2)=1
151 exch2_mydNx(2)=510
152 exch2_mydNy(2)=510
153 exch2_nNeighbours(2)=4
154
155 exch2_neighbourId(1,2)=5
156 exch2_iLo(1,2)=0
157 exch2_iHi(1,2)=171
158 exch2_jLo(1,2)=171
159 exch2_jHi(1,2)=171
160 exch2_opposingSend(1,2)=2
161 exch2_pij(1,1,2)=1
162 exch2_pij(2,1,2)=0
163 exch2_pij(3,1,2)=0
164 exch2_pij(4,1,2)=1
165 exch2_oi(1,2)=0
166 exch2_oj(1,2)=0
167
168 exch2_neighbourId(2,2)=53
169 exch2_iLo(2,2)=0
170 exch2_iHi(2,2)=171
171 exch2_jLo(2,2)=0
172 exch2_jHi(2,2)=0
173 exch2_opposingSend(2,2)=1
174 exch2_pij(1,2,2)=1
175 exch2_pij(2,2,2)=0
176 exch2_pij(3,2,2)=0
177 exch2_pij(4,2,2)=1
178 exch2_oi(2,2)=0
179 exch2_oj(2,2)=-510
180
181 exch2_neighbourId(3,2)=3
182 exch2_iLo(3,2)=171
183 exch2_iHi(3,2)=171
184 exch2_jLo(3,2)=0
185 exch2_jHi(3,2)=171
186 exch2_opposingSend(3,2)=4
187 exch2_pij(1,3,2)=1
188 exch2_pij(2,3,2)=0
189 exch2_pij(3,3,2)=0
190 exch2_pij(4,3,2)=1
191 exch2_oi(3,2)=0
192 exch2_oj(3,2)=0
193
194 exch2_neighbourId(4,2)=1
195 exch2_iLo(4,2)=0
196 exch2_iHi(4,2)=0
197 exch2_jLo(4,2)=0
198 exch2_jHi(4,2)=171
199 exch2_opposingSend(4,2)=3
200 exch2_pij(1,4,2)=1
201 exch2_pij(2,4,2)=0
202 exch2_pij(3,4,2)=0
203 exch2_pij(4,4,2)=1
204 exch2_oi(4,2)=0
205 exch2_oj(4,2)=0
206 RETURN
207 END
208
209 SUBROUTINE W2_E2SETUP_3
210 C Topology for tile 3
211 #include "W2_EXCH2_TOPOLOGY.h"
212 exch2_tNx(3)=170
213 exch2_tNy(3)=170
214 exch2_tBasex(3)=340
215 exch2_tBasey(3)=0
216 exch2_txGlobalo(3)=341
217 exch2_tyGlobalo(3)=1
218 exch2_isWedge(3)=0
219 exch2_isNedge(3)=0
220 exch2_isEedge(3)=1
221 exch2_isSedge(3)=1
222 exch2_myFace(3)=1
223 exch2_mydNx(3)=510
224 exch2_mydNy(3)=510
225 exch2_nNeighbours(3)=4
226
227 exch2_neighbourId(1,3)=6
228 exch2_iLo(1,3)=0
229 exch2_iHi(1,3)=171
230 exch2_jLo(1,3)=171
231 exch2_jHi(1,3)=171
232 exch2_opposingSend(1,3)=2
233 exch2_pij(1,1,3)=1
234 exch2_pij(2,1,3)=0
235 exch2_pij(3,1,3)=0
236 exch2_pij(4,1,3)=1
237 exch2_oi(1,3)=0
238 exch2_oj(1,3)=0
239
240 exch2_neighbourId(2,3)=54
241 exch2_iLo(2,3)=0
242 exch2_iHi(2,3)=171
243 exch2_jLo(2,3)=0
244 exch2_jHi(2,3)=0
245 exch2_opposingSend(2,3)=1
246 exch2_pij(1,2,3)=1
247 exch2_pij(2,2,3)=0
248 exch2_pij(3,2,3)=0
249 exch2_pij(4,2,3)=1
250 exch2_oi(2,3)=0
251 exch2_oj(2,3)=-510
252
253 exch2_neighbourId(3,3)=10
254 exch2_iLo(3,3)=171
255 exch2_iHi(3,3)=171
256 exch2_jLo(3,3)=0
257 exch2_jHi(3,3)=171
258 exch2_opposingSend(3,3)=4
259 exch2_pij(1,3,3)=1
260 exch2_pij(2,3,3)=0
261 exch2_pij(3,3,3)=0
262 exch2_pij(4,3,3)=1
263 exch2_oi(3,3)=510
264 exch2_oj(3,3)=0
265
266 exch2_neighbourId(4,3)=2
267 exch2_iLo(4,3)=0
268 exch2_iHi(4,3)=0
269 exch2_jLo(4,3)=0
270 exch2_jHi(4,3)=171
271 exch2_opposingSend(4,3)=3
272 exch2_pij(1,4,3)=1
273 exch2_pij(2,4,3)=0
274 exch2_pij(3,4,3)=0
275 exch2_pij(4,4,3)=1
276 exch2_oi(4,3)=0
277 exch2_oj(4,3)=0
278 RETURN
279 END
280
281 SUBROUTINE W2_E2SETUP_4
282 C Topology for tile 4
283 #include "W2_EXCH2_TOPOLOGY.h"
284 exch2_tNx(4)=170
285 exch2_tNy(4)=170
286 exch2_tBasex(4)=0
287 exch2_tBasey(4)=170
288 exch2_txGlobalo(4)=1
289 exch2_tyGlobalo(4)=171
290 exch2_isWedge(4)=1
291 exch2_isNedge(4)=0
292 exch2_isEedge(4)=0
293 exch2_isSedge(4)=0
294 exch2_myFace(4)=1
295 exch2_mydNx(4)=510
296 exch2_mydNy(4)=510
297 exch2_nNeighbours(4)=4
298
299 exch2_neighbourId(1,4)=7
300 exch2_iLo(1,4)=0
301 exch2_iHi(1,4)=171
302 exch2_jLo(1,4)=171
303 exch2_jHi(1,4)=171
304 exch2_opposingSend(1,4)=2
305 exch2_pij(1,1,4)=1
306 exch2_pij(2,1,4)=0
307 exch2_pij(3,1,4)=0
308 exch2_pij(4,1,4)=1
309 exch2_oi(1,4)=0
310 exch2_oj(1,4)=0
311
312 exch2_neighbourId(2,4)=1
313 exch2_iLo(2,4)=0
314 exch2_iHi(2,4)=171
315 exch2_jLo(2,4)=0
316 exch2_jHi(2,4)=0
317 exch2_opposingSend(2,4)=1
318 exch2_pij(1,2,4)=1
319 exch2_pij(2,2,4)=0
320 exch2_pij(3,2,4)=0
321 exch2_pij(4,2,4)=1
322 exch2_oi(2,4)=0
323 exch2_oj(2,4)=0
324
325 exch2_neighbourId(3,4)=5
326 exch2_iLo(3,4)=171
327 exch2_iHi(3,4)=171
328 exch2_jLo(3,4)=0
329 exch2_jHi(3,4)=171
330 exch2_opposingSend(3,4)=4
331 exch2_pij(1,3,4)=1
332 exch2_pij(2,3,4)=0
333 exch2_pij(3,3,4)=0
334 exch2_pij(4,3,4)=1
335 exch2_oi(3,4)=0
336 exch2_oj(3,4)=0
337
338 exch2_neighbourId(4,4)=44
339 exch2_iLo(4,4)=0
340 exch2_iHi(4,4)=0
341 exch2_jLo(4,4)=0
342 exch2_jHi(4,4)=171
343 exch2_opposingSend(4,4)=1
344 exch2_pij(1,4,4)=0
345 exch2_pij(2,4,4)=1
346 exch2_pij(3,4,4)=-1
347 exch2_pij(4,4,4)=0
348 exch2_oi(4,4)=-510
349 exch2_oj(4,4)=511
350 RETURN
351 END
352
353 SUBROUTINE W2_E2SETUP_5
354 C Topology for tile 5
355 #include "W2_EXCH2_TOPOLOGY.h"
356 exch2_tNx(5)=170
357 exch2_tNy(5)=170
358 exch2_tBasex(5)=170
359 exch2_tBasey(5)=170
360 exch2_txGlobalo(5)=171
361 exch2_tyGlobalo(5)=171
362 exch2_isWedge(5)=0
363 exch2_isNedge(5)=0
364 exch2_isEedge(5)=0
365 exch2_isSedge(5)=0
366 exch2_myFace(5)=1
367 exch2_mydNx(5)=510
368 exch2_mydNy(5)=510
369 exch2_nNeighbours(5)=4
370
371 exch2_neighbourId(1,5)=8
372 exch2_iLo(1,5)=0
373 exch2_iHi(1,5)=171
374 exch2_jLo(1,5)=171
375 exch2_jHi(1,5)=171
376 exch2_opposingSend(1,5)=2
377 exch2_pij(1,1,5)=1
378 exch2_pij(2,1,5)=0
379 exch2_pij(3,1,5)=0
380 exch2_pij(4,1,5)=1
381 exch2_oi(1,5)=0
382 exch2_oj(1,5)=0
383
384 exch2_neighbourId(2,5)=2
385 exch2_iLo(2,5)=0
386 exch2_iHi(2,5)=171
387 exch2_jLo(2,5)=0
388 exch2_jHi(2,5)=0
389 exch2_opposingSend(2,5)=1
390 exch2_pij(1,2,5)=1
391 exch2_pij(2,2,5)=0
392 exch2_pij(3,2,5)=0
393 exch2_pij(4,2,5)=1
394 exch2_oi(2,5)=0
395 exch2_oj(2,5)=0
396
397 exch2_neighbourId(3,5)=6
398 exch2_iLo(3,5)=171
399 exch2_iHi(3,5)=171
400 exch2_jLo(3,5)=0
401 exch2_jHi(3,5)=171
402 exch2_opposingSend(3,5)=4
403 exch2_pij(1,3,5)=1
404 exch2_pij(2,3,5)=0
405 exch2_pij(3,3,5)=0
406 exch2_pij(4,3,5)=1
407 exch2_oi(3,5)=0
408 exch2_oj(3,5)=0
409
410 exch2_neighbourId(4,5)=4
411 exch2_iLo(4,5)=0
412 exch2_iHi(4,5)=0
413 exch2_jLo(4,5)=0
414 exch2_jHi(4,5)=171
415 exch2_opposingSend(4,5)=3
416 exch2_pij(1,4,5)=1
417 exch2_pij(2,4,5)=0
418 exch2_pij(3,4,5)=0
419 exch2_pij(4,4,5)=1
420 exch2_oi(4,5)=0
421 exch2_oj(4,5)=0
422 RETURN
423 END
424
425 SUBROUTINE W2_E2SETUP_6
426 C Topology for tile 6
427 #include "W2_EXCH2_TOPOLOGY.h"
428 exch2_tNx(6)=170
429 exch2_tNy(6)=170
430 exch2_tBasex(6)=340
431 exch2_tBasey(6)=170
432 exch2_txGlobalo(6)=341
433 exch2_tyGlobalo(6)=171
434 exch2_isWedge(6)=0
435 exch2_isNedge(6)=0
436 exch2_isEedge(6)=1
437 exch2_isSedge(6)=0
438 exch2_myFace(6)=1
439 exch2_mydNx(6)=510
440 exch2_mydNy(6)=510
441 exch2_nNeighbours(6)=4
442
443 exch2_neighbourId(1,6)=9
444 exch2_iLo(1,6)=0
445 exch2_iHi(1,6)=171
446 exch2_jLo(1,6)=171
447 exch2_jHi(1,6)=171
448 exch2_opposingSend(1,6)=2
449 exch2_pij(1,1,6)=1
450 exch2_pij(2,1,6)=0
451 exch2_pij(3,1,6)=0
452 exch2_pij(4,1,6)=1
453 exch2_oi(1,6)=0
454 exch2_oj(1,6)=0
455
456 exch2_neighbourId(2,6)=3
457 exch2_iLo(2,6)=0
458 exch2_iHi(2,6)=171
459 exch2_jLo(2,6)=0
460 exch2_jHi(2,6)=0
461 exch2_opposingSend(2,6)=1
462 exch2_pij(1,2,6)=1
463 exch2_pij(2,2,6)=0
464 exch2_pij(3,2,6)=0
465 exch2_pij(4,2,6)=1
466 exch2_oi(2,6)=0
467 exch2_oj(2,6)=0
468
469 exch2_neighbourId(3,6)=13
470 exch2_iLo(3,6)=171
471 exch2_iHi(3,6)=171
472 exch2_jLo(3,6)=0
473 exch2_jHi(3,6)=171
474 exch2_opposingSend(3,6)=4
475 exch2_pij(1,3,6)=1
476 exch2_pij(2,3,6)=0
477 exch2_pij(3,3,6)=0
478 exch2_pij(4,3,6)=1
479 exch2_oi(3,6)=510
480 exch2_oj(3,6)=0
481
482 exch2_neighbourId(4,6)=5
483 exch2_iLo(4,6)=0
484 exch2_iHi(4,6)=0
485 exch2_jLo(4,6)=0
486 exch2_jHi(4,6)=171
487 exch2_opposingSend(4,6)=3
488 exch2_pij(1,4,6)=1
489 exch2_pij(2,4,6)=0
490 exch2_pij(3,4,6)=0
491 exch2_pij(4,4,6)=1
492 exch2_oi(4,6)=0
493 exch2_oj(4,6)=0
494 RETURN
495 END
496
497 SUBROUTINE W2_E2SETUP_7
498 C Topology for tile 7
499 #include "W2_EXCH2_TOPOLOGY.h"
500 exch2_tNx(7)=170
501 exch2_tNy(7)=170
502 exch2_tBasex(7)=0
503 exch2_tBasey(7)=340
504 exch2_txGlobalo(7)=1
505 exch2_tyGlobalo(7)=341
506 exch2_isWedge(7)=1
507 exch2_isNedge(7)=1
508 exch2_isEedge(7)=0
509 exch2_isSedge(7)=0
510 exch2_myFace(7)=1
511 exch2_mydNx(7)=510
512 exch2_mydNy(7)=510
513 exch2_nNeighbours(7)=4
514
515 exch2_neighbourId(1,7)=25
516 exch2_iLo(1,7)=0
517 exch2_iHi(1,7)=171
518 exch2_jLo(1,7)=171
519 exch2_jHi(1,7)=171
520 exch2_opposingSend(1,7)=4
521 exch2_pij(1,1,7)=0
522 exch2_pij(2,1,7)=-1
523 exch2_pij(3,1,7)=1
524 exch2_pij(4,1,7)=0
525 exch2_oi(1,7)=511
526 exch2_oj(1,7)=510
527
528 exch2_neighbourId(2,7)=4
529 exch2_iLo(2,7)=0
530 exch2_iHi(2,7)=171
531 exch2_jLo(2,7)=0
532 exch2_jHi(2,7)=0
533 exch2_opposingSend(2,7)=1
534 exch2_pij(1,2,7)=1
535 exch2_pij(2,2,7)=0
536 exch2_pij(3,2,7)=0
537 exch2_pij(4,2,7)=1
538 exch2_oi(2,7)=0
539 exch2_oj(2,7)=0
540
541 exch2_neighbourId(3,7)=8
542 exch2_iLo(3,7)=171
543 exch2_iHi(3,7)=171
544 exch2_jLo(3,7)=0
545 exch2_jHi(3,7)=171
546 exch2_opposingSend(3,7)=4
547 exch2_pij(1,3,7)=1
548 exch2_pij(2,3,7)=0
549 exch2_pij(3,3,7)=0
550 exch2_pij(4,3,7)=1
551 exch2_oi(3,7)=0
552 exch2_oj(3,7)=0
553
554 exch2_neighbourId(4,7)=43
555 exch2_iLo(4,7)=0
556 exch2_iHi(4,7)=0
557 exch2_jLo(4,7)=0
558 exch2_jHi(4,7)=171
559 exch2_opposingSend(4,7)=1
560 exch2_pij(1,4,7)=0
561 exch2_pij(2,4,7)=1
562 exch2_pij(3,4,7)=-1
563 exch2_pij(4,4,7)=0
564 exch2_oi(4,7)=-510
565 exch2_oj(4,7)=511
566 RETURN
567 END
568
569 SUBROUTINE W2_E2SETUP_8
570 C Topology for tile 8
571 #include "W2_EXCH2_TOPOLOGY.h"
572 exch2_tNx(8)=170
573 exch2_tNy(8)=170
574 exch2_tBasex(8)=170
575 exch2_tBasey(8)=340
576 exch2_txGlobalo(8)=171
577 exch2_tyGlobalo(8)=341
578 exch2_isWedge(8)=0
579 exch2_isNedge(8)=1
580 exch2_isEedge(8)=0
581 exch2_isSedge(8)=0
582 exch2_myFace(8)=1
583 exch2_mydNx(8)=510
584 exch2_mydNy(8)=510
585 exch2_nNeighbours(8)=4
586
587 exch2_neighbourId(1,8)=22
588 exch2_iLo(1,8)=0
589 exch2_iHi(1,8)=171
590 exch2_jLo(1,8)=171
591 exch2_jHi(1,8)=171
592 exch2_opposingSend(1,8)=4
593 exch2_pij(1,1,8)=0
594 exch2_pij(2,1,8)=-1
595 exch2_pij(3,1,8)=1
596 exch2_pij(4,1,8)=0
597 exch2_oi(1,8)=511
598 exch2_oj(1,8)=510
599
600 exch2_neighbourId(2,8)=5
601 exch2_iLo(2,8)=0
602 exch2_iHi(2,8)=171
603 exch2_jLo(2,8)=0
604 exch2_jHi(2,8)=0
605 exch2_opposingSend(2,8)=1
606 exch2_pij(1,2,8)=1
607 exch2_pij(2,2,8)=0
608 exch2_pij(3,2,8)=0
609 exch2_pij(4,2,8)=1
610 exch2_oi(2,8)=0
611 exch2_oj(2,8)=0
612
613 exch2_neighbourId(3,8)=9
614 exch2_iLo(3,8)=171
615 exch2_iHi(3,8)=171
616 exch2_jLo(3,8)=0
617 exch2_jHi(3,8)=171
618 exch2_opposingSend(3,8)=4
619 exch2_pij(1,3,8)=1
620 exch2_pij(2,3,8)=0
621 exch2_pij(3,3,8)=0
622 exch2_pij(4,3,8)=1
623 exch2_oi(3,8)=0
624 exch2_oj(3,8)=0
625
626 exch2_neighbourId(4,8)=7
627 exch2_iLo(4,8)=0
628 exch2_iHi(4,8)=0
629 exch2_jLo(4,8)=0
630 exch2_jHi(4,8)=171
631 exch2_opposingSend(4,8)=3
632 exch2_pij(1,4,8)=1
633 exch2_pij(2,4,8)=0
634 exch2_pij(3,4,8)=0
635 exch2_pij(4,4,8)=1
636 exch2_oi(4,8)=0
637 exch2_oj(4,8)=0
638 RETURN
639 END
640
641 SUBROUTINE W2_E2SETUP_9
642 C Topology for tile 9
643 #include "W2_EXCH2_TOPOLOGY.h"
644 exch2_tNx(9)=170
645 exch2_tNy(9)=170
646 exch2_tBasex(9)=340
647 exch2_tBasey(9)=340
648 exch2_txGlobalo(9)=341
649 exch2_tyGlobalo(9)=341
650 exch2_isWedge(9)=0
651 exch2_isNedge(9)=1
652 exch2_isEedge(9)=1
653 exch2_isSedge(9)=0
654 exch2_myFace(9)=1
655 exch2_mydNx(9)=510
656 exch2_mydNy(9)=510
657 exch2_nNeighbours(9)=4
658
659 exch2_neighbourId(1,9)=19
660 exch2_iLo(1,9)=0
661 exch2_iHi(1,9)=171
662 exch2_jLo(1,9)=171
663 exch2_jHi(1,9)=171
664 exch2_opposingSend(1,9)=4
665 exch2_pij(1,1,9)=0
666 exch2_pij(2,1,9)=-1
667 exch2_pij(3,1,9)=1
668 exch2_pij(4,1,9)=0
669 exch2_oi(1,9)=511
670 exch2_oj(1,9)=510
671
672 exch2_neighbourId(2,9)=6
673 exch2_iLo(2,9)=0
674 exch2_iHi(2,9)=171
675 exch2_jLo(2,9)=0
676 exch2_jHi(2,9)=0
677 exch2_opposingSend(2,9)=1
678 exch2_pij(1,2,9)=1
679 exch2_pij(2,2,9)=0
680 exch2_pij(3,2,9)=0
681 exch2_pij(4,2,9)=1
682 exch2_oi(2,9)=0
683 exch2_oj(2,9)=0
684
685 exch2_neighbourId(3,9)=16
686 exch2_iLo(3,9)=171
687 exch2_iHi(3,9)=171
688 exch2_jLo(3,9)=0
689 exch2_jHi(3,9)=171
690 exch2_opposingSend(3,9)=4
691 exch2_pij(1,3,9)=1
692 exch2_pij(2,3,9)=0
693 exch2_pij(3,3,9)=0
694 exch2_pij(4,3,9)=1
695 exch2_oi(3,9)=510
696 exch2_oj(3,9)=0
697
698 exch2_neighbourId(4,9)=8
699 exch2_iLo(4,9)=0
700 exch2_iHi(4,9)=0
701 exch2_jLo(4,9)=0
702 exch2_jHi(4,9)=171
703 exch2_opposingSend(4,9)=3
704 exch2_pij(1,4,9)=1
705 exch2_pij(2,4,9)=0
706 exch2_pij(3,4,9)=0
707 exch2_pij(4,4,9)=1
708 exch2_oi(4,9)=0
709 exch2_oj(4,9)=0
710 RETURN
711 END
712
713 SUBROUTINE W2_E2SETUP_10
714 C Topology for tile 10
715 #include "W2_EXCH2_TOPOLOGY.h"
716 exch2_tNx(10)=170
717 exch2_tNy(10)=170
718 exch2_tBasex(10)=0
719 exch2_tBasey(10)=0
720 exch2_txGlobalo(10)=511
721 exch2_tyGlobalo(10)=1
722 exch2_isWedge(10)=1
723 exch2_isNedge(10)=0
724 exch2_isEedge(10)=0
725 exch2_isSedge(10)=1
726 exch2_myFace(10)=2
727 exch2_mydNx(10)=510
728 exch2_mydNy(10)=510
729 exch2_nNeighbours(10)=4
730
731 exch2_neighbourId(1,10)=13
732 exch2_iLo(1,10)=0
733 exch2_iHi(1,10)=171
734 exch2_jLo(1,10)=171
735 exch2_jHi(1,10)=171
736 exch2_opposingSend(1,10)=2
737 exch2_pij(1,1,10)=1
738 exch2_pij(2,1,10)=0
739 exch2_pij(3,1,10)=0
740 exch2_pij(4,1,10)=1
741 exch2_oi(1,10)=0
742 exch2_oj(1,10)=0
743
744 exch2_neighbourId(2,10)=54
745 exch2_iLo(2,10)=0
746 exch2_iHi(2,10)=171
747 exch2_jLo(2,10)=0
748 exch2_jHi(2,10)=0
749 exch2_opposingSend(2,10)=3
750 exch2_pij(1,2,10)=0
751 exch2_pij(2,2,10)=-1
752 exch2_pij(3,2,10)=1
753 exch2_pij(4,2,10)=0
754 exch2_oi(2,10)=511
755 exch2_oj(2,10)=-510
756
757 exch2_neighbourId(3,10)=11
758 exch2_iLo(3,10)=171
759 exch2_iHi(3,10)=171
760 exch2_jLo(3,10)=0
761 exch2_jHi(3,10)=171
762 exch2_opposingSend(3,10)=4
763 exch2_pij(1,3,10)=1
764 exch2_pij(2,3,10)=0
765 exch2_pij(3,3,10)=0
766 exch2_pij(4,3,10)=1
767 exch2_oi(3,10)=0
768 exch2_oj(3,10)=0
769
770 exch2_neighbourId(4,10)=3
771 exch2_iLo(4,10)=0
772 exch2_iHi(4,10)=0
773 exch2_jLo(4,10)=0
774 exch2_jHi(4,10)=171
775 exch2_opposingSend(4,10)=3
776 exch2_pij(1,4,10)=1
777 exch2_pij(2,4,10)=0
778 exch2_pij(3,4,10)=0
779 exch2_pij(4,4,10)=1
780 exch2_oi(4,10)=-510
781 exch2_oj(4,10)=0
782 RETURN
783 END
784
785 SUBROUTINE W2_E2SETUP_11
786 C Topology for tile 11
787 #include "W2_EXCH2_TOPOLOGY.h"
788 exch2_tNx(11)=170
789 exch2_tNy(11)=170
790 exch2_tBasex(11)=170
791 exch2_tBasey(11)=0
792 exch2_txGlobalo(11)=681
793 exch2_tyGlobalo(11)=1
794 exch2_isWedge(11)=0
795 exch2_isNedge(11)=0
796 exch2_isEedge(11)=0
797 exch2_isSedge(11)=1
798 exch2_myFace(11)=2
799 exch2_mydNx(11)=510
800 exch2_mydNy(11)=510
801 exch2_nNeighbours(11)=4
802
803 exch2_neighbourId(1,11)=14
804 exch2_iLo(1,11)=0
805 exch2_iHi(1,11)=171
806 exch2_jLo(1,11)=171
807 exch2_jHi(1,11)=171
808 exch2_opposingSend(1,11)=2
809 exch2_pij(1,1,11)=1
810 exch2_pij(2,1,11)=0
811 exch2_pij(3,1,11)=0
812 exch2_pij(4,1,11)=1
813 exch2_oi(1,11)=0
814 exch2_oj(1,11)=0
815
816 exch2_neighbourId(2,11)=51
817 exch2_iLo(2,11)=0
818 exch2_iHi(2,11)=171
819 exch2_jLo(2,11)=0
820 exch2_jHi(2,11)=0
821 exch2_opposingSend(2,11)=3
822 exch2_pij(1,2,11)=0
823 exch2_pij(2,2,11)=-1
824 exch2_pij(3,2,11)=1
825 exch2_pij(4,2,11)=0
826 exch2_oi(2,11)=511
827 exch2_oj(2,11)=-510
828
829 exch2_neighbourId(3,11)=12
830 exch2_iLo(3,11)=171
831 exch2_iHi(3,11)=171
832 exch2_jLo(3,11)=0
833 exch2_jHi(3,11)=171
834 exch2_opposingSend(3,11)=4
835 exch2_pij(1,3,11)=1
836 exch2_pij(2,3,11)=0
837 exch2_pij(3,3,11)=0
838 exch2_pij(4,3,11)=1
839 exch2_oi(3,11)=0
840 exch2_oj(3,11)=0
841
842 exch2_neighbourId(4,11)=10
843 exch2_iLo(4,11)=0
844 exch2_iHi(4,11)=0
845 exch2_jLo(4,11)=0
846 exch2_jHi(4,11)=171
847 exch2_opposingSend(4,11)=3
848 exch2_pij(1,4,11)=1
849 exch2_pij(2,4,11)=0
850 exch2_pij(3,4,11)=0
851 exch2_pij(4,4,11)=1
852 exch2_oi(4,11)=0
853 exch2_oj(4,11)=0
854 RETURN
855 END
856
857 SUBROUTINE W2_E2SETUP_12
858 C Topology for tile 12
859 #include "W2_EXCH2_TOPOLOGY.h"
860 exch2_tNx(12)=170
861 exch2_tNy(12)=170
862 exch2_tBasex(12)=340
863 exch2_tBasey(12)=0
864 exch2_txGlobalo(12)=851
865 exch2_tyGlobalo(12)=1
866 exch2_isWedge(12)=0
867 exch2_isNedge(12)=0
868 exch2_isEedge(12)=1
869 exch2_isSedge(12)=1
870 exch2_myFace(12)=2
871 exch2_mydNx(12)=510
872 exch2_mydNy(12)=510
873 exch2_nNeighbours(12)=4
874
875 exch2_neighbourId(1,12)=15
876 exch2_iLo(1,12)=0
877 exch2_iHi(1,12)=171
878 exch2_jLo(1,12)=171
879 exch2_jHi(1,12)=171
880 exch2_opposingSend(1,12)=2
881 exch2_pij(1,1,12)=1
882 exch2_pij(2,1,12)=0
883 exch2_pij(3,1,12)=0
884 exch2_pij(4,1,12)=1
885 exch2_oi(1,12)=0
886 exch2_oj(1,12)=0
887
888 exch2_neighbourId(2,12)=48
889 exch2_iLo(2,12)=0
890 exch2_iHi(2,12)=171
891 exch2_jLo(2,12)=0
892 exch2_jHi(2,12)=0
893 exch2_opposingSend(2,12)=3
894 exch2_pij(1,2,12)=0
895 exch2_pij(2,2,12)=-1
896 exch2_pij(3,2,12)=1
897 exch2_pij(4,2,12)=0
898 exch2_oi(2,12)=511
899 exch2_oj(2,12)=-510
900
901 exch2_neighbourId(3,12)=30
902 exch2_iLo(3,12)=171
903 exch2_iHi(3,12)=171
904 exch2_jLo(3,12)=0
905 exch2_jHi(3,12)=171
906 exch2_opposingSend(3,12)=2
907 exch2_pij(1,3,12)=0
908 exch2_pij(2,3,12)=1
909 exch2_pij(3,3,12)=-1
910 exch2_pij(4,3,12)=0
911 exch2_oi(3,12)=510
912 exch2_oj(3,12)=511
913
914 exch2_neighbourId(4,12)=11
915 exch2_iLo(4,12)=0
916 exch2_iHi(4,12)=0
917 exch2_jLo(4,12)=0
918 exch2_jHi(4,12)=171
919 exch2_opposingSend(4,12)=3
920 exch2_pij(1,4,12)=1
921 exch2_pij(2,4,12)=0
922 exch2_pij(3,4,12)=0
923 exch2_pij(4,4,12)=1
924 exch2_oi(4,12)=0
925 exch2_oj(4,12)=0
926 RETURN
927 END
928
929 SUBROUTINE W2_E2SETUP_13
930 C Topology for tile 13
931 #include "W2_EXCH2_TOPOLOGY.h"
932 exch2_tNx(13)=170
933 exch2_tNy(13)=170
934 exch2_tBasex(13)=0
935 exch2_tBasey(13)=170
936 exch2_txGlobalo(13)=511
937 exch2_tyGlobalo(13)=171
938 exch2_isWedge(13)=1
939 exch2_isNedge(13)=0
940 exch2_isEedge(13)=0
941 exch2_isSedge(13)=0
942 exch2_myFace(13)=2
943 exch2_mydNx(13)=510
944 exch2_mydNy(13)=510
945 exch2_nNeighbours(13)=4
946
947 exch2_neighbourId(1,13)=16
948 exch2_iLo(1,13)=0
949 exch2_iHi(1,13)=171
950 exch2_jLo(1,13)=171
951 exch2_jHi(1,13)=171
952 exch2_opposingSend(1,13)=2
953 exch2_pij(1,1,13)=1
954 exch2_pij(2,1,13)=0
955 exch2_pij(3,1,13)=0
956 exch2_pij(4,1,13)=1
957 exch2_oi(1,13)=0
958 exch2_oj(1,13)=0
959
960 exch2_neighbourId(2,13)=10
961 exch2_iLo(2,13)=0
962 exch2_iHi(2,13)=171
963 exch2_jLo(2,13)=0
964 exch2_jHi(2,13)=0
965 exch2_opposingSend(2,13)=1
966 exch2_pij(1,2,13)=1
967 exch2_pij(2,2,13)=0
968 exch2_pij(3,2,13)=0
969 exch2_pij(4,2,13)=1
970 exch2_oi(2,13)=0
971 exch2_oj(2,13)=0
972
973 exch2_neighbourId(3,13)=14
974 exch2_iLo(3,13)=171
975 exch2_iHi(3,13)=171
976 exch2_jLo(3,13)=0
977 exch2_jHi(3,13)=171
978 exch2_opposingSend(3,13)=4
979 exch2_pij(1,3,13)=1
980 exch2_pij(2,3,13)=0
981 exch2_pij(3,3,13)=0
982 exch2_pij(4,3,13)=1
983 exch2_oi(3,13)=0
984 exch2_oj(3,13)=0
985
986 exch2_neighbourId(4,13)=6
987 exch2_iLo(4,13)=0
988 exch2_iHi(4,13)=0
989 exch2_jLo(4,13)=0
990 exch2_jHi(4,13)=171
991 exch2_opposingSend(4,13)=3
992 exch2_pij(1,4,13)=1
993 exch2_pij(2,4,13)=0
994 exch2_pij(3,4,13)=0
995 exch2_pij(4,4,13)=1
996 exch2_oi(4,13)=-510
997 exch2_oj(4,13)=0
998 RETURN
999 END
1000
1001 SUBROUTINE W2_E2SETUP_14
1002 C Topology for tile 14
1003 #include "W2_EXCH2_TOPOLOGY.h"
1004 exch2_tNx(14)=170
1005 exch2_tNy(14)=170
1006 exch2_tBasex(14)=170
1007 exch2_tBasey(14)=170
1008 exch2_txGlobalo(14)=681
1009 exch2_tyGlobalo(14)=171
1010 exch2_isWedge(14)=0
1011 exch2_isNedge(14)=0
1012 exch2_isEedge(14)=0
1013 exch2_isSedge(14)=0
1014 exch2_myFace(14)=2
1015 exch2_mydNx(14)=510
1016 exch2_mydNy(14)=510
1017 exch2_nNeighbours(14)=4
1018
1019 exch2_neighbourId(1,14)=17
1020 exch2_iLo(1,14)=0
1021 exch2_iHi(1,14)=171
1022 exch2_jLo(1,14)=171
1023 exch2_jHi(1,14)=171
1024 exch2_opposingSend(1,14)=2
1025 exch2_pij(1,1,14)=1
1026 exch2_pij(2,1,14)=0
1027 exch2_pij(3,1,14)=0
1028 exch2_pij(4,1,14)=1
1029 exch2_oi(1,14)=0
1030 exch2_oj(1,14)=0
1031
1032 exch2_neighbourId(2,14)=11
1033 exch2_iLo(2,14)=0
1034 exch2_iHi(2,14)=171
1035 exch2_jLo(2,14)=0
1036 exch2_jHi(2,14)=0
1037 exch2_opposingSend(2,14)=1
1038 exch2_pij(1,2,14)=1
1039 exch2_pij(2,2,14)=0
1040 exch2_pij(3,2,14)=0
1041 exch2_pij(4,2,14)=1
1042 exch2_oi(2,14)=0
1043 exch2_oj(2,14)=0
1044
1045 exch2_neighbourId(3,14)=15
1046 exch2_iLo(3,14)=171
1047 exch2_iHi(3,14)=171
1048 exch2_jLo(3,14)=0
1049 exch2_jHi(3,14)=171
1050 exch2_opposingSend(3,14)=4
1051 exch2_pij(1,3,14)=1
1052 exch2_pij(2,3,14)=0
1053 exch2_pij(3,3,14)=0
1054 exch2_pij(4,3,14)=1
1055 exch2_oi(3,14)=0
1056 exch2_oj(3,14)=0
1057
1058 exch2_neighbourId(4,14)=13
1059 exch2_iLo(4,14)=0
1060 exch2_iHi(4,14)=0
1061 exch2_jLo(4,14)=0
1062 exch2_jHi(4,14)=171
1063 exch2_opposingSend(4,14)=3
1064 exch2_pij(1,4,14)=1
1065 exch2_pij(2,4,14)=0
1066 exch2_pij(3,4,14)=0
1067 exch2_pij(4,4,14)=1
1068 exch2_oi(4,14)=0
1069 exch2_oj(4,14)=0
1070 RETURN
1071 END
1072
1073 SUBROUTINE W2_E2SETUP_15
1074 C Topology for tile 15
1075 #include "W2_EXCH2_TOPOLOGY.h"
1076 exch2_tNx(15)=170
1077 exch2_tNy(15)=170
1078 exch2_tBasex(15)=340
1079 exch2_tBasey(15)=170
1080 exch2_txGlobalo(15)=851
1081 exch2_tyGlobalo(15)=171
1082 exch2_isWedge(15)=0
1083 exch2_isNedge(15)=0
1084 exch2_isEedge(15)=1
1085 exch2_isSedge(15)=0
1086 exch2_myFace(15)=2
1087 exch2_mydNx(15)=510
1088 exch2_mydNy(15)=510
1089 exch2_nNeighbours(15)=4
1090
1091 exch2_neighbourId(1,15)=18
1092 exch2_iLo(1,15)=0
1093 exch2_iHi(1,15)=171
1094 exch2_jLo(1,15)=171
1095 exch2_jHi(1,15)=171
1096 exch2_opposingSend(1,15)=2
1097 exch2_pij(1,1,15)=1
1098 exch2_pij(2,1,15)=0
1099 exch2_pij(3,1,15)=0
1100 exch2_pij(4,1,15)=1
1101 exch2_oi(1,15)=0
1102 exch2_oj(1,15)=0
1103
1104 exch2_neighbourId(2,15)=12
1105 exch2_iLo(2,15)=0
1106 exch2_iHi(2,15)=171
1107 exch2_jLo(2,15)=0
1108 exch2_jHi(2,15)=0
1109 exch2_opposingSend(2,15)=1
1110 exch2_pij(1,2,15)=1
1111 exch2_pij(2,2,15)=0
1112 exch2_pij(3,2,15)=0
1113 exch2_pij(4,2,15)=1
1114 exch2_oi(2,15)=0
1115 exch2_oj(2,15)=0
1116
1117 exch2_neighbourId(3,15)=29
1118 exch2_iLo(3,15)=171
1119 exch2_iHi(3,15)=171
1120 exch2_jLo(3,15)=0
1121 exch2_jHi(3,15)=171
1122 exch2_opposingSend(3,15)=2
1123 exch2_pij(1,3,15)=0
1124 exch2_pij(2,3,15)=1
1125 exch2_pij(3,3,15)=-1
1126 exch2_pij(4,3,15)=0
1127 exch2_oi(3,15)=510
1128 exch2_oj(3,15)=511
1129
1130 exch2_neighbourId(4,15)=14
1131 exch2_iLo(4,15)=0
1132 exch2_iHi(4,15)=0
1133 exch2_jLo(4,15)=0
1134 exch2_jHi(4,15)=171
1135 exch2_opposingSend(4,15)=3
1136 exch2_pij(1,4,15)=1
1137 exch2_pij(2,4,15)=0
1138 exch2_pij(3,4,15)=0
1139 exch2_pij(4,4,15)=1
1140 exch2_oi(4,15)=0
1141 exch2_oj(4,15)=0
1142 RETURN
1143 END
1144
1145 SUBROUTINE W2_E2SETUP_16
1146 C Topology for tile 16
1147 #include "W2_EXCH2_TOPOLOGY.h"
1148 exch2_tNx(16)=170
1149 exch2_tNy(16)=170
1150 exch2_tBasex(16)=0
1151 exch2_tBasey(16)=340
1152 exch2_txGlobalo(16)=511
1153 exch2_tyGlobalo(16)=341
1154 exch2_isWedge(16)=1
1155 exch2_isNedge(16)=1
1156 exch2_isEedge(16)=0
1157 exch2_isSedge(16)=0
1158 exch2_myFace(16)=2
1159 exch2_mydNx(16)=510
1160 exch2_mydNy(16)=510
1161 exch2_nNeighbours(16)=4
1162
1163 exch2_neighbourId(1,16)=19
1164 exch2_iLo(1,16)=0
1165 exch2_iHi(1,16)=171
1166 exch2_jLo(1,16)=171
1167 exch2_jHi(1,16)=171
1168 exch2_opposingSend(1,16)=2
1169 exch2_pij(1,1,16)=1
1170 exch2_pij(2,1,16)=0
1171 exch2_pij(3,1,16)=0
1172 exch2_pij(4,1,16)=1
1173 exch2_oi(1,16)=0
1174 exch2_oj(1,16)=510
1175
1176 exch2_neighbourId(2,16)=13
1177 exch2_iLo(2,16)=0
1178 exch2_iHi(2,16)=171
1179 exch2_jLo(2,16)=0
1180 exch2_jHi(2,16)=0
1181 exch2_opposingSend(2,16)=1
1182 exch2_pij(1,2,16)=1
1183 exch2_pij(2,2,16)=0
1184 exch2_pij(3,2,16)=0
1185 exch2_pij(4,2,16)=1
1186 exch2_oi(2,16)=0
1187 exch2_oj(2,16)=0
1188
1189 exch2_neighbourId(3,16)=17
1190 exch2_iLo(3,16)=171
1191 exch2_iHi(3,16)=171
1192 exch2_jLo(3,16)=0
1193 exch2_jHi(3,16)=171
1194 exch2_opposingSend(3,16)=4
1195 exch2_pij(1,3,16)=1
1196 exch2_pij(2,3,16)=0
1197 exch2_pij(3,3,16)=0
1198 exch2_pij(4,3,16)=1
1199 exch2_oi(3,16)=0
1200 exch2_oj(3,16)=0
1201
1202 exch2_neighbourId(4,16)=9
1203 exch2_iLo(4,16)=0
1204 exch2_iHi(4,16)=0
1205 exch2_jLo(4,16)=0
1206 exch2_jHi(4,16)=171
1207 exch2_opposingSend(4,16)=3
1208 exch2_pij(1,4,16)=1
1209 exch2_pij(2,4,16)=0
1210 exch2_pij(3,4,16)=0
1211 exch2_pij(4,4,16)=1
1212 exch2_oi(4,16)=-510
1213 exch2_oj(4,16)=0
1214 RETURN
1215 END
1216
1217 SUBROUTINE W2_E2SETUP_17
1218 C Topology for tile 17
1219 #include "W2_EXCH2_TOPOLOGY.h"
1220 exch2_tNx(17)=170
1221 exch2_tNy(17)=170
1222 exch2_tBasex(17)=170
1223 exch2_tBasey(17)=340
1224 exch2_txGlobalo(17)=681
1225 exch2_tyGlobalo(17)=341
1226 exch2_isWedge(17)=0
1227 exch2_isNedge(17)=1
1228 exch2_isEedge(17)=0
1229 exch2_isSedge(17)=0
1230 exch2_myFace(17)=2
1231 exch2_mydNx(17)=510
1232 exch2_mydNy(17)=510
1233 exch2_nNeighbours(17)=4
1234
1235 exch2_neighbourId(1,17)=20
1236 exch2_iLo(1,17)=0
1237 exch2_iHi(1,17)=171
1238 exch2_jLo(1,17)=171
1239 exch2_jHi(1,17)=171
1240 exch2_opposingSend(1,17)=2
1241 exch2_pij(1,1,17)=1
1242 exch2_pij(2,1,17)=0
1243 exch2_pij(3,1,17)=0
1244 exch2_pij(4,1,17)=1
1245 exch2_oi(1,17)=0
1246 exch2_oj(1,17)=510
1247
1248 exch2_neighbourId(2,17)=14
1249 exch2_iLo(2,17)=0
1250 exch2_iHi(2,17)=171
1251 exch2_jLo(2,17)=0
1252 exch2_jHi(2,17)=0
1253 exch2_opposingSend(2,17)=1
1254 exch2_pij(1,2,17)=1
1255 exch2_pij(2,2,17)=0
1256 exch2_pij(3,2,17)=0
1257 exch2_pij(4,2,17)=1
1258 exch2_oi(2,17)=0
1259 exch2_oj(2,17)=0
1260
1261 exch2_neighbourId(3,17)=18
1262 exch2_iLo(3,17)=171
1263 exch2_iHi(3,17)=171
1264 exch2_jLo(3,17)=0
1265 exch2_jHi(3,17)=171
1266 exch2_opposingSend(3,17)=4
1267 exch2_pij(1,3,17)=1
1268 exch2_pij(2,3,17)=0
1269 exch2_pij(3,3,17)=0
1270 exch2_pij(4,3,17)=1
1271 exch2_oi(3,17)=0
1272 exch2_oj(3,17)=0
1273
1274 exch2_neighbourId(4,17)=16
1275 exch2_iLo(4,17)=0
1276 exch2_iHi(4,17)=0
1277 exch2_jLo(4,17)=0
1278 exch2_jHi(4,17)=171
1279 exch2_opposingSend(4,17)=3
1280 exch2_pij(1,4,17)=1
1281 exch2_pij(2,4,17)=0
1282 exch2_pij(3,4,17)=0
1283 exch2_pij(4,4,17)=1
1284 exch2_oi(4,17)=0
1285 exch2_oj(4,17)=0
1286 RETURN
1287 END
1288
1289 SUBROUTINE W2_E2SETUP_18
1290 C Topology for tile 18
1291 #include "W2_EXCH2_TOPOLOGY.h"
1292 exch2_tNx(18)=170
1293 exch2_tNy(18)=170
1294 exch2_tBasex(18)=340
1295 exch2_tBasey(18)=340
1296 exch2_txGlobalo(18)=851
1297 exch2_tyGlobalo(18)=341
1298 exch2_isWedge(18)=0
1299 exch2_isNedge(18)=1
1300 exch2_isEedge(18)=1
1301 exch2_isSedge(18)=0
1302 exch2_myFace(18)=2
1303 exch2_mydNx(18)=510
1304 exch2_mydNy(18)=510
1305 exch2_nNeighbours(18)=4
1306
1307 exch2_neighbourId(1,18)=21
1308 exch2_iLo(1,18)=0
1309 exch2_iHi(1,18)=171
1310 exch2_jLo(1,18)=171
1311 exch2_jHi(1,18)=171
1312 exch2_opposingSend(1,18)=2
1313 exch2_pij(1,1,18)=1
1314 exch2_pij(2,1,18)=0
1315 exch2_pij(3,1,18)=0
1316 exch2_pij(4,1,18)=1
1317 exch2_oi(1,18)=0
1318 exch2_oj(1,18)=510
1319
1320 exch2_neighbourId(2,18)=15
1321 exch2_iLo(2,18)=0
1322 exch2_iHi(2,18)=171
1323 exch2_jLo(2,18)=0
1324 exch2_jHi(2,18)=0
1325 exch2_opposingSend(2,18)=1
1326 exch2_pij(1,2,18)=1
1327 exch2_pij(2,2,18)=0
1328 exch2_pij(3,2,18)=0
1329 exch2_pij(4,2,18)=1
1330 exch2_oi(2,18)=0
1331 exch2_oj(2,18)=0
1332
1333 exch2_neighbourId(3,18)=28
1334 exch2_iLo(3,18)=171
1335 exch2_iHi(3,18)=171
1336 exch2_jLo(3,18)=0
1337 exch2_jHi(3,18)=171
1338 exch2_opposingSend(3,18)=2
1339 exch2_pij(1,3,18)=0
1340 exch2_pij(2,3,18)=1
1341 exch2_pij(3,3,18)=-1
1342 exch2_pij(4,3,18)=0
1343 exch2_oi(3,18)=510
1344 exch2_oj(3,18)=511
1345
1346 exch2_neighbourId(4,18)=17
1347 exch2_iLo(4,18)=0
1348 exch2_iHi(4,18)=0
1349 exch2_jLo(4,18)=0
1350 exch2_jHi(4,18)=171
1351 exch2_opposingSend(4,18)=3
1352 exch2_pij(1,4,18)=1
1353 exch2_pij(2,4,18)=0
1354 exch2_pij(3,4,18)=0
1355 exch2_pij(4,4,18)=1
1356 exch2_oi(4,18)=0
1357 exch2_oj(4,18)=0
1358 RETURN
1359 END
1360
1361 SUBROUTINE W2_E2SETUP_19
1362 C Topology for tile 19
1363 #include "W2_EXCH2_TOPOLOGY.h"
1364 exch2_tNx(19)=170
1365 exch2_tNy(19)=170
1366 exch2_tBasex(19)=0
1367 exch2_tBasey(19)=0
1368 exch2_txGlobalo(19)=1021
1369 exch2_tyGlobalo(19)=1
1370 exch2_isWedge(19)=1
1371 exch2_isNedge(19)=0
1372 exch2_isEedge(19)=0
1373 exch2_isSedge(19)=1
1374 exch2_myFace(19)=3
1375 exch2_mydNx(19)=510
1376 exch2_mydNy(19)=510
1377 exch2_nNeighbours(19)=4
1378
1379 exch2_neighbourId(1,19)=22
1380 exch2_iLo(1,19)=0
1381 exch2_iHi(1,19)=171
1382 exch2_jLo(1,19)=171
1383 exch2_jHi(1,19)=171
1384 exch2_opposingSend(1,19)=2
1385 exch2_pij(1,1,19)=1
1386 exch2_pij(2,1,19)=0
1387 exch2_pij(3,1,19)=0
1388 exch2_pij(4,1,19)=1
1389 exch2_oi(1,19)=0
1390 exch2_oj(1,19)=0
1391
1392 exch2_neighbourId(2,19)=16
1393 exch2_iLo(2,19)=0
1394 exch2_iHi(2,19)=171
1395 exch2_jLo(2,19)=0
1396 exch2_jHi(2,19)=0
1397 exch2_opposingSend(2,19)=1
1398 exch2_pij(1,2,19)=1
1399 exch2_pij(2,2,19)=0
1400 exch2_pij(3,2,19)=0
1401 exch2_pij(4,2,19)=1
1402 exch2_oi(2,19)=0
1403 exch2_oj(2,19)=-510
1404
1405 exch2_neighbourId(3,19)=20
1406 exch2_iLo(3,19)=171
1407 exch2_iHi(3,19)=171
1408 exch2_jLo(3,19)=0
1409 exch2_jHi(3,19)=171
1410 exch2_opposingSend(3,19)=4
1411 exch2_pij(1,3,19)=1
1412 exch2_pij(2,3,19)=0
1413 exch2_pij(3,3,19)=0
1414 exch2_pij(4,3,19)=1
1415 exch2_oi(3,19)=0
1416 exch2_oj(3,19)=0
1417
1418 exch2_neighbourId(4,19)=9
1419 exch2_iLo(4,19)=0
1420 exch2_iHi(4,19)=0
1421 exch2_jLo(4,19)=0
1422 exch2_jHi(4,19)=171
1423 exch2_opposingSend(4,19)=1
1424 exch2_pij(1,4,19)=0
1425 exch2_pij(2,4,19)=1
1426 exch2_pij(3,4,19)=-1
1427 exch2_pij(4,4,19)=0
1428 exch2_oi(4,19)=-510
1429 exch2_oj(4,19)=511
1430 RETURN
1431 END
1432
1433 SUBROUTINE W2_E2SETUP_20
1434 C Topology for tile 20
1435 #include "W2_EXCH2_TOPOLOGY.h"
1436 exch2_tNx(20)=170
1437 exch2_tNy(20)=170
1438 exch2_tBasex(20)=170
1439 exch2_tBasey(20)=0
1440 exch2_txGlobalo(20)=1191
1441 exch2_tyGlobalo(20)=1
1442 exch2_isWedge(20)=0
1443 exch2_isNedge(20)=0
1444 exch2_isEedge(20)=0
1445 exch2_isSedge(20)=1
1446 exch2_myFace(20)=3
1447 exch2_mydNx(20)=510
1448 exch2_mydNy(20)=510
1449 exch2_nNeighbours(20)=4
1450
1451 exch2_neighbourId(1,20)=23
1452 exch2_iLo(1,20)=0
1453 exch2_iHi(1,20)=171
1454 exch2_jLo(1,20)=171
1455 exch2_jHi(1,20)=171
1456 exch2_opposingSend(1,20)=2
1457 exch2_pij(1,1,20)=1
1458 exch2_pij(2,1,20)=0
1459 exch2_pij(3,1,20)=0
1460 exch2_pij(4,1,20)=1
1461 exch2_oi(1,20)=0
1462 exch2_oj(1,20)=0
1463
1464 exch2_neighbourId(2,20)=17
1465 exch2_iLo(2,20)=0
1466 exch2_iHi(2,20)=171
1467 exch2_jLo(2,20)=0
1468 exch2_jHi(2,20)=0
1469 exch2_opposingSend(2,20)=1
1470 exch2_pij(1,2,20)=1
1471 exch2_pij(2,2,20)=0
1472 exch2_pij(3,2,20)=0
1473 exch2_pij(4,2,20)=1
1474 exch2_oi(2,20)=0
1475 exch2_oj(2,20)=-510
1476
1477 exch2_neighbourId(3,20)=21
1478 exch2_iLo(3,20)=171
1479 exch2_iHi(3,20)=171
1480 exch2_jLo(3,20)=0
1481 exch2_jHi(3,20)=171
1482 exch2_opposingSend(3,20)=4
1483 exch2_pij(1,3,20)=1
1484 exch2_pij(2,3,20)=0
1485 exch2_pij(3,3,20)=0
1486 exch2_pij(4,3,20)=1
1487 exch2_oi(3,20)=0
1488 exch2_oj(3,20)=0
1489
1490 exch2_neighbourId(4,20)=19
1491 exch2_iLo(4,20)=0
1492 exch2_iHi(4,20)=0
1493 exch2_jLo(4,20)=0
1494 exch2_jHi(4,20)=171
1495 exch2_opposingSend(4,20)=3
1496 exch2_pij(1,4,20)=1
1497 exch2_pij(2,4,20)=0
1498 exch2_pij(3,4,20)=0
1499 exch2_pij(4,4,20)=1
1500 exch2_oi(4,20)=0
1501 exch2_oj(4,20)=0
1502 RETURN
1503 END
1504
1505 SUBROUTINE W2_E2SETUP_21
1506 C Topology for tile 21
1507 #include "W2_EXCH2_TOPOLOGY.h"
1508 exch2_tNx(21)=170
1509 exch2_tNy(21)=170
1510 exch2_tBasex(21)=340
1511 exch2_tBasey(21)=0
1512 exch2_txGlobalo(21)=1361
1513 exch2_tyGlobalo(21)=1
1514 exch2_isWedge(21)=0
1515 exch2_isNedge(21)=0
1516 exch2_isEedge(21)=1
1517 exch2_isSedge(21)=1
1518 exch2_myFace(21)=3
1519 exch2_mydNx(21)=510
1520 exch2_mydNy(21)=510
1521 exch2_nNeighbours(21)=4
1522
1523 exch2_neighbourId(1,21)=24
1524 exch2_iLo(1,21)=0
1525 exch2_iHi(1,21)=171
1526 exch2_jLo(1,21)=171
1527 exch2_jHi(1,21)=171
1528 exch2_opposingSend(1,21)=2
1529 exch2_pij(1,1,21)=1
1530 exch2_pij(2,1,21)=0
1531 exch2_pij(3,1,21)=0
1532 exch2_pij(4,1,21)=1
1533 exch2_oi(1,21)=0
1534 exch2_oj(1,21)=0
1535
1536 exch2_neighbourId(2,21)=18
1537 exch2_iLo(2,21)=0
1538 exch2_iHi(2,21)=171
1539 exch2_jLo(2,21)=0
1540 exch2_jHi(2,21)=0
1541 exch2_opposingSend(2,21)=1
1542 exch2_pij(1,2,21)=1
1543 exch2_pij(2,2,21)=0
1544 exch2_pij(3,2,21)=0
1545 exch2_pij(4,2,21)=1
1546 exch2_oi(2,21)=0
1547 exch2_oj(2,21)=-510
1548
1549 exch2_neighbourId(3,21)=28
1550 exch2_iLo(3,21)=171
1551 exch2_iHi(3,21)=171
1552 exch2_jLo(3,21)=0
1553 exch2_jHi(3,21)=171
1554 exch2_opposingSend(3,21)=4
1555 exch2_pij(1,3,21)=1
1556 exch2_pij(2,3,21)=0
1557 exch2_pij(3,3,21)=0
1558 exch2_pij(4,3,21)=1
1559 exch2_oi(3,21)=510
1560 exch2_oj(3,21)=0
1561
1562 exch2_neighbourId(4,21)=20
1563 exch2_iLo(4,21)=0
1564 exch2_iHi(4,21)=0
1565 exch2_jLo(4,21)=0
1566 exch2_jHi(4,21)=171
1567 exch2_opposingSend(4,21)=3
1568 exch2_pij(1,4,21)=1
1569 exch2_pij(2,4,21)=0
1570 exch2_pij(3,4,21)=0
1571 exch2_pij(4,4,21)=1
1572 exch2_oi(4,21)=0
1573 exch2_oj(4,21)=0
1574 RETURN
1575 END
1576
1577 SUBROUTINE W2_E2SETUP_22
1578 C Topology for tile 22
1579 #include "W2_EXCH2_TOPOLOGY.h"
1580 exch2_tNx(22)=170
1581 exch2_tNy(22)=170
1582 exch2_tBasex(22)=0
1583 exch2_tBasey(22)=170
1584 exch2_txGlobalo(22)=1021
1585 exch2_tyGlobalo(22)=171
1586 exch2_isWedge(22)=1
1587 exch2_isNedge(22)=0
1588 exch2_isEedge(22)=0
1589 exch2_isSedge(22)=0
1590 exch2_myFace(22)=3
1591 exch2_mydNx(22)=510
1592 exch2_mydNy(22)=510
1593 exch2_nNeighbours(22)=4
1594
1595 exch2_neighbourId(1,22)=25
1596 exch2_iLo(1,22)=0
1597 exch2_iHi(1,22)=171
1598 exch2_jLo(1,22)=171
1599 exch2_jHi(1,22)=171
1600 exch2_opposingSend(1,22)=2
1601 exch2_pij(1,1,22)=1
1602 exch2_pij(2,1,22)=0
1603 exch2_pij(3,1,22)=0
1604 exch2_pij(4,1,22)=1
1605 exch2_oi(1,22)=0
1606 exch2_oj(1,22)=0
1607
1608 exch2_neighbourId(2,22)=19
1609 exch2_iLo(2,22)=0
1610 exch2_iHi(2,22)=171
1611 exch2_jLo(2,22)=0
1612 exch2_jHi(2,22)=0
1613 exch2_opposingSend(2,22)=1
1614 exch2_pij(1,2,22)=1
1615 exch2_pij(2,2,22)=0
1616 exch2_pij(3,2,22)=0
1617 exch2_pij(4,2,22)=1
1618 exch2_oi(2,22)=0
1619 exch2_oj(2,22)=0
1620
1621 exch2_neighbourId(3,22)=23
1622 exch2_iLo(3,22)=171
1623 exch2_iHi(3,22)=171
1624 exch2_jLo(3,22)=0
1625 exch2_jHi(3,22)=171
1626 exch2_opposingSend(3,22)=4
1627 exch2_pij(1,3,22)=1
1628 exch2_pij(2,3,22)=0
1629 exch2_pij(3,3,22)=0
1630 exch2_pij(4,3,22)=1
1631 exch2_oi(3,22)=0
1632 exch2_oj(3,22)=0
1633
1634 exch2_neighbourId(4,22)=8
1635 exch2_iLo(4,22)=0
1636 exch2_iHi(4,22)=0
1637 exch2_jLo(4,22)=0
1638 exch2_jHi(4,22)=171
1639 exch2_opposingSend(4,22)=1
1640 exch2_pij(1,4,22)=0
1641 exch2_pij(2,4,22)=1
1642 exch2_pij(3,4,22)=-1
1643 exch2_pij(4,4,22)=0
1644 exch2_oi(4,22)=-510
1645 exch2_oj(4,22)=511
1646 RETURN
1647 END
1648
1649 SUBROUTINE W2_E2SETUP_23
1650 C Topology for tile 23
1651 #include "W2_EXCH2_TOPOLOGY.h"
1652 exch2_tNx(23)=170
1653 exch2_tNy(23)=170
1654 exch2_tBasex(23)=170
1655 exch2_tBasey(23)=170
1656 exch2_txGlobalo(23)=1191
1657 exch2_tyGlobalo(23)=171
1658 exch2_isWedge(23)=0
1659 exch2_isNedge(23)=0
1660 exch2_isEedge(23)=0
1661 exch2_isSedge(23)=0
1662 exch2_myFace(23)=3
1663 exch2_mydNx(23)=510
1664 exch2_mydNy(23)=510
1665 exch2_nNeighbours(23)=4
1666
1667 exch2_neighbourId(1,23)=26
1668 exch2_iLo(1,23)=0
1669 exch2_iHi(1,23)=171
1670 exch2_jLo(1,23)=171
1671 exch2_jHi(1,23)=171
1672 exch2_opposingSend(1,23)=2
1673 exch2_pij(1,1,23)=1
1674 exch2_pij(2,1,23)=0
1675 exch2_pij(3,1,23)=0
1676 exch2_pij(4,1,23)=1
1677 exch2_oi(1,23)=0
1678 exch2_oj(1,23)=0
1679
1680 exch2_neighbourId(2,23)=20
1681 exch2_iLo(2,23)=0
1682 exch2_iHi(2,23)=171
1683 exch2_jLo(2,23)=0
1684 exch2_jHi(2,23)=0
1685 exch2_opposingSend(2,23)=1
1686 exch2_pij(1,2,23)=1
1687 exch2_pij(2,2,23)=0
1688 exch2_pij(3,2,23)=0
1689 exch2_pij(4,2,23)=1
1690 exch2_oi(2,23)=0
1691 exch2_oj(2,23)=0
1692
1693 exch2_neighbourId(3,23)=24
1694 exch2_iLo(3,23)=171
1695 exch2_iHi(3,23)=171
1696 exch2_jLo(3,23)=0
1697 exch2_jHi(3,23)=171
1698 exch2_opposingSend(3,23)=4
1699 exch2_pij(1,3,23)=1
1700 exch2_pij(2,3,23)=0
1701 exch2_pij(3,3,23)=0
1702 exch2_pij(4,3,23)=1
1703 exch2_oi(3,23)=0
1704 exch2_oj(3,23)=0
1705
1706 exch2_neighbourId(4,23)=22
1707 exch2_iLo(4,23)=0
1708 exch2_iHi(4,23)=0
1709 exch2_jLo(4,23)=0
1710 exch2_jHi(4,23)=171
1711 exch2_opposingSend(4,23)=3
1712 exch2_pij(1,4,23)=1
1713 exch2_pij(2,4,23)=0
1714 exch2_pij(3,4,23)=0
1715 exch2_pij(4,4,23)=1
1716 exch2_oi(4,23)=0
1717 exch2_oj(4,23)=0
1718 RETURN
1719 END
1720
1721 SUBROUTINE W2_E2SETUP_24
1722 C Topology for tile 24
1723 #include "W2_EXCH2_TOPOLOGY.h"
1724 exch2_tNx(24)=170
1725 exch2_tNy(24)=170
1726 exch2_tBasex(24)=340
1727 exch2_tBasey(24)=170
1728 exch2_txGlobalo(24)=1361
1729 exch2_tyGlobalo(24)=171
1730 exch2_isWedge(24)=0
1731 exch2_isNedge(24)=0
1732 exch2_isEedge(24)=1
1733 exch2_isSedge(24)=0
1734 exch2_myFace(24)=3
1735 exch2_mydNx(24)=510
1736 exch2_mydNy(24)=510
1737 exch2_nNeighbours(24)=4
1738
1739 exch2_neighbourId(1,24)=27
1740 exch2_iLo(1,24)=0
1741 exch2_iHi(1,24)=171
1742 exch2_jLo(1,24)=171
1743 exch2_jHi(1,24)=171
1744 exch2_opposingSend(1,24)=2
1745 exch2_pij(1,1,24)=1
1746 exch2_pij(2,1,24)=0
1747 exch2_pij(3,1,24)=0
1748 exch2_pij(4,1,24)=1
1749 exch2_oi(1,24)=0
1750 exch2_oj(1,24)=0
1751
1752 exch2_neighbourId(2,24)=21
1753 exch2_iLo(2,24)=0
1754 exch2_iHi(2,24)=171
1755 exch2_jLo(2,24)=0
1756 exch2_jHi(2,24)=0
1757 exch2_opposingSend(2,24)=1
1758 exch2_pij(1,2,24)=1
1759 exch2_pij(2,2,24)=0
1760 exch2_pij(3,2,24)=0
1761 exch2_pij(4,2,24)=1
1762 exch2_oi(2,24)=0
1763 exch2_oj(2,24)=0
1764
1765 exch2_neighbourId(3,24)=31
1766 exch2_iLo(3,24)=171
1767 exch2_iHi(3,24)=171
1768 exch2_jLo(3,24)=0
1769 exch2_jHi(3,24)=171
1770 exch2_opposingSend(3,24)=4
1771 exch2_pij(1,3,24)=1
1772 exch2_pij(2,3,24)=0
1773 exch2_pij(3,3,24)=0
1774 exch2_pij(4,3,24)=1
1775 exch2_oi(3,24)=510
1776 exch2_oj(3,24)=0
1777
1778 exch2_neighbourId(4,24)=23
1779 exch2_iLo(4,24)=0
1780 exch2_iHi(4,24)=0
1781 exch2_jLo(4,24)=0
1782 exch2_jHi(4,24)=171
1783 exch2_opposingSend(4,24)=3
1784 exch2_pij(1,4,24)=1
1785 exch2_pij(2,4,24)=0
1786 exch2_pij(3,4,24)=0
1787 exch2_pij(4,4,24)=1
1788 exch2_oi(4,24)=0
1789 exch2_oj(4,24)=0
1790 RETURN
1791 END
1792
1793 SUBROUTINE W2_E2SETUP_25
1794 C Topology for tile 25
1795 #include "W2_EXCH2_TOPOLOGY.h"
1796 exch2_tNx(25)=170
1797 exch2_tNy(25)=170
1798 exch2_tBasex(25)=0
1799 exch2_tBasey(25)=340
1800 exch2_txGlobalo(25)=1021
1801 exch2_tyGlobalo(25)=341
1802 exch2_isWedge(25)=1
1803 exch2_isNedge(25)=1
1804 exch2_isEedge(25)=0
1805 exch2_isSedge(25)=0
1806 exch2_myFace(25)=3
1807 exch2_mydNx(25)=510
1808 exch2_mydNy(25)=510
1809 exch2_nNeighbours(25)=4
1810
1811 exch2_neighbourId(1,25)=43
1812 exch2_iLo(1,25)=0
1813 exch2_iHi(1,25)=171
1814 exch2_jLo(1,25)=171
1815 exch2_jHi(1,25)=171
1816 exch2_opposingSend(1,25)=4
1817 exch2_pij(1,1,25)=0
1818 exch2_pij(2,1,25)=-1
1819 exch2_pij(3,1,25)=1
1820 exch2_pij(4,1,25)=0
1821 exch2_oi(1,25)=511
1822 exch2_oj(1,25)=510
1823
1824 exch2_neighbourId(2,25)=22
1825 exch2_iLo(2,25)=0
1826 exch2_iHi(2,25)=171
1827 exch2_jLo(2,25)=0
1828 exch2_jHi(2,25)=0
1829 exch2_opposingSend(2,25)=1
1830 exch2_pij(1,2,25)=1
1831 exch2_pij(2,2,25)=0
1832 exch2_pij(3,2,25)=0
1833 exch2_pij(4,2,25)=1
1834 exch2_oi(2,25)=0
1835 exch2_oj(2,25)=0
1836
1837 exch2_neighbourId(3,25)=26
1838 exch2_iLo(3,25)=171
1839 exch2_iHi(3,25)=171
1840 exch2_jLo(3,25)=0
1841 exch2_jHi(3,25)=171
1842 exch2_opposingSend(3,25)=4
1843 exch2_pij(1,3,25)=1
1844 exch2_pij(2,3,25)=0
1845 exch2_pij(3,3,25)=0
1846 exch2_pij(4,3,25)=1
1847 exch2_oi(3,25)=0
1848 exch2_oj(3,25)=0
1849
1850 exch2_neighbourId(4,25)=7
1851 exch2_iLo(4,25)=0
1852 exch2_iHi(4,25)=0
1853 exch2_jLo(4,25)=0
1854 exch2_jHi(4,25)=171
1855 exch2_opposingSend(4,25)=1
1856 exch2_pij(1,4,25)=0
1857 exch2_pij(2,4,25)=1
1858 exch2_pij(3,4,25)=-1
1859 exch2_pij(4,4,25)=0
1860 exch2_oi(4,25)=-510
1861 exch2_oj(4,25)=511
1862 RETURN
1863 END
1864
1865 SUBROUTINE W2_E2SETUP_26
1866 C Topology for tile 26
1867 #include "W2_EXCH2_TOPOLOGY.h"
1868 exch2_tNx(26)=170
1869 exch2_tNy(26)=170
1870 exch2_tBasex(26)=170
1871 exch2_tBasey(26)=340
1872 exch2_txGlobalo(26)=1191
1873 exch2_tyGlobalo(26)=341
1874 exch2_isWedge(26)=0
1875 exch2_isNedge(26)=1
1876 exch2_isEedge(26)=0
1877 exch2_isSedge(26)=0
1878 exch2_myFace(26)=3
1879 exch2_mydNx(26)=510
1880 exch2_mydNy(26)=510
1881 exch2_nNeighbours(26)=4
1882
1883 exch2_neighbourId(1,26)=40
1884 exch2_iLo(1,26)=0
1885 exch2_iHi(1,26)=171
1886 exch2_jLo(1,26)=171
1887 exch2_jHi(1,26)=171
1888 exch2_opposingSend(1,26)=4
1889 exch2_pij(1,1,26)=0
1890 exch2_pij(2,1,26)=-1
1891 exch2_pij(3,1,26)=1
1892 exch2_pij(4,1,26)=0
1893 exch2_oi(1,26)=511
1894 exch2_oj(1,26)=510
1895
1896 exch2_neighbourId(2,26)=23
1897 exch2_iLo(2,26)=0
1898 exch2_iHi(2,26)=171
1899 exch2_jLo(2,26)=0
1900 exch2_jHi(2,26)=0
1901 exch2_opposingSend(2,26)=1
1902 exch2_pij(1,2,26)=1
1903 exch2_pij(2,2,26)=0
1904 exch2_pij(3,2,26)=0
1905 exch2_pij(4,2,26)=1
1906 exch2_oi(2,26)=0
1907 exch2_oj(2,26)=0
1908
1909 exch2_neighbourId(3,26)=27
1910 exch2_iLo(3,26)=171
1911 exch2_iHi(3,26)=171
1912 exch2_jLo(3,26)=0
1913 exch2_jHi(3,26)=171
1914 exch2_opposingSend(3,26)=4
1915 exch2_pij(1,3,26)=1
1916 exch2_pij(2,3,26)=0
1917 exch2_pij(3,3,26)=0
1918 exch2_pij(4,3,26)=1
1919 exch2_oi(3,26)=0
1920 exch2_oj(3,26)=0
1921
1922 exch2_neighbourId(4,26)=25
1923 exch2_iLo(4,26)=0
1924 exch2_iHi(4,26)=0
1925 exch2_jLo(4,26)=0
1926 exch2_jHi(4,26)=171
1927 exch2_opposingSend(4,26)=3
1928 exch2_pij(1,4,26)=1
1929 exch2_pij(2,4,26)=0
1930 exch2_pij(3,4,26)=0
1931 exch2_pij(4,4,26)=1
1932 exch2_oi(4,26)=0
1933 exch2_oj(4,26)=0
1934 RETURN
1935 END
1936
1937 SUBROUTINE W2_E2SETUP_27
1938 C Topology for tile 27
1939 #include "W2_EXCH2_TOPOLOGY.h"
1940 exch2_tNx(27)=170
1941 exch2_tNy(27)=170
1942 exch2_tBasex(27)=340
1943 exch2_tBasey(27)=340
1944 exch2_txGlobalo(27)=1361
1945 exch2_tyGlobalo(27)=341
1946 exch2_isWedge(27)=0
1947 exch2_isNedge(27)=1
1948 exch2_isEedge(27)=1
1949 exch2_isSedge(27)=0
1950 exch2_myFace(27)=3
1951 exch2_mydNx(27)=510
1952 exch2_mydNy(27)=510
1953 exch2_nNeighbours(27)=4
1954
1955 exch2_neighbourId(1,27)=37
1956 exch2_iLo(1,27)=0
1957 exch2_iHi(1,27)=171
1958 exch2_jLo(1,27)=171
1959 exch2_jHi(1,27)=171
1960 exch2_opposingSend(1,27)=4
1961 exch2_pij(1,1,27)=0
1962 exch2_pij(2,1,27)=-1
1963 exch2_pij(3,1,27)=1
1964 exch2_pij(4,1,27)=0
1965 exch2_oi(1,27)=511
1966 exch2_oj(1,27)=510
1967
1968 exch2_neighbourId(2,27)=24
1969 exch2_iLo(2,27)=0
1970 exch2_iHi(2,27)=171
1971 exch2_jLo(2,27)=0
1972 exch2_jHi(2,27)=0
1973 exch2_opposingSend(2,27)=1
1974 exch2_pij(1,2,27)=1
1975 exch2_pij(2,2,27)=0
1976 exch2_pij(3,2,27)=0
1977 exch2_pij(4,2,27)=1
1978 exch2_oi(2,27)=0
1979 exch2_oj(2,27)=0
1980
1981 exch2_neighbourId(3,27)=34
1982 exch2_iLo(3,27)=171
1983 exch2_iHi(3,27)=171
1984 exch2_jLo(3,27)=0
1985 exch2_jHi(3,27)=171
1986 exch2_opposingSend(3,27)=4
1987 exch2_pij(1,3,27)=1
1988 exch2_pij(2,3,27)=0
1989 exch2_pij(3,3,27)=0
1990 exch2_pij(4,3,27)=1
1991 exch2_oi(3,27)=510
1992 exch2_oj(3,27)=0
1993
1994 exch2_neighbourId(4,27)=26
1995 exch2_iLo(4,27)=0
1996 exch2_iHi(4,27)=0
1997 exch2_jLo(4,27)=0
1998 exch2_jHi(4,27)=171
1999 exch2_opposingSend(4,27)=3
2000 exch2_pij(1,4,27)=1
2001 exch2_pij(2,4,27)=0
2002 exch2_pij(3,4,27)=0
2003 exch2_pij(4,4,27)=1
2004 exch2_oi(4,27)=0
2005 exch2_oj(4,27)=0
2006 RETURN
2007 END
2008
2009 SUBROUTINE W2_E2SETUP_28
2010 C Topology for tile 28
2011 #include "W2_EXCH2_TOPOLOGY.h"
2012 exch2_tNx(28)=170
2013 exch2_tNy(28)=170
2014 exch2_tBasex(28)=0
2015 exch2_tBasey(28)=0
2016 exch2_txGlobalo(28)=1531
2017 exch2_tyGlobalo(28)=1
2018 exch2_isWedge(28)=1
2019 exch2_isNedge(28)=0
2020 exch2_isEedge(28)=0
2021 exch2_isSedge(28)=1
2022 exch2_myFace(28)=4
2023 exch2_mydNx(28)=510
2024 exch2_mydNy(28)=510
2025 exch2_nNeighbours(28)=4
2026
2027 exch2_neighbourId(1,28)=31
2028 exch2_iLo(1,28)=0
2029 exch2_iHi(1,28)=171
2030 exch2_jLo(1,28)=171
2031 exch2_jHi(1,28)=171
2032 exch2_opposingSend(1,28)=2
2033 exch2_pij(1,1,28)=1
2034 exch2_pij(2,1,28)=0
2035 exch2_pij(3,1,28)=0
2036 exch2_pij(4,1,28)=1
2037 exch2_oi(1,28)=0
2038 exch2_oj(1,28)=0
2039
2040 exch2_neighbourId(2,28)=18
2041 exch2_iLo(2,28)=0
2042 exch2_iHi(2,28)=171
2043 exch2_jLo(2,28)=0
2044 exch2_jHi(2,28)=0
2045 exch2_opposingSend(2,28)=3
2046 exch2_pij(1,2,28)=0
2047 exch2_pij(2,2,28)=-1
2048 exch2_pij(3,2,28)=1
2049 exch2_pij(4,2,28)=0
2050 exch2_oi(2,28)=511
2051 exch2_oj(2,28)=-510
2052
2053 exch2_neighbourId(3,28)=29
2054 exch2_iLo(3,28)=171
2055 exch2_iHi(3,28)=171
2056 exch2_jLo(3,28)=0
2057 exch2_jHi(3,28)=171
2058 exch2_opposingSend(3,28)=4
2059 exch2_pij(1,3,28)=1
2060 exch2_pij(2,3,28)=0
2061 exch2_pij(3,3,28)=0
2062 exch2_pij(4,3,28)=1
2063 exch2_oi(3,28)=0
2064 exch2_oj(3,28)=0
2065
2066 exch2_neighbourId(4,28)=21
2067 exch2_iLo(4,28)=0
2068 exch2_iHi(4,28)=0
2069 exch2_jLo(4,28)=0
2070 exch2_jHi(4,28)=171
2071 exch2_opposingSend(4,28)=3
2072 exch2_pij(1,4,28)=1
2073 exch2_pij(2,4,28)=0
2074 exch2_pij(3,4,28)=0
2075 exch2_pij(4,4,28)=1
2076 exch2_oi(4,28)=-510
2077 exch2_oj(4,28)=0
2078 RETURN
2079 END
2080
2081 SUBROUTINE W2_E2SETUP_29
2082 C Topology for tile 29
2083 #include "W2_EXCH2_TOPOLOGY.h"
2084 exch2_tNx(29)=170
2085 exch2_tNy(29)=170
2086 exch2_tBasex(29)=170
2087 exch2_tBasey(29)=0
2088 exch2_txGlobalo(29)=1701
2089 exch2_tyGlobalo(29)=1
2090 exch2_isWedge(29)=0
2091 exch2_isNedge(29)=0
2092 exch2_isEedge(29)=0
2093 exch2_isSedge(29)=1
2094 exch2_myFace(29)=4
2095 exch2_mydNx(29)=510
2096 exch2_mydNy(29)=510
2097 exch2_nNeighbours(29)=4
2098
2099 exch2_neighbourId(1,29)=32
2100 exch2_iLo(1,29)=0
2101 exch2_iHi(1,29)=171
2102 exch2_jLo(1,29)=171
2103 exch2_jHi(1,29)=171
2104 exch2_opposingSend(1,29)=2
2105 exch2_pij(1,1,29)=1
2106 exch2_pij(2,1,29)=0
2107 exch2_pij(3,1,29)=0
2108 exch2_pij(4,1,29)=1
2109 exch2_oi(1,29)=0
2110 exch2_oj(1,29)=0
2111
2112 exch2_neighbourId(2,29)=15
2113 exch2_iLo(2,29)=0
2114 exch2_iHi(2,29)=171
2115 exch2_jLo(2,29)=0
2116 exch2_jHi(2,29)=0
2117 exch2_opposingSend(2,29)=3
2118 exch2_pij(1,2,29)=0
2119 exch2_pij(2,2,29)=-1
2120 exch2_pij(3,2,29)=1
2121 exch2_pij(4,2,29)=0
2122 exch2_oi(2,29)=511
2123 exch2_oj(2,29)=-510
2124
2125 exch2_neighbourId(3,29)=30
2126 exch2_iLo(3,29)=171
2127 exch2_iHi(3,29)=171
2128 exch2_jLo(3,29)=0
2129 exch2_jHi(3,29)=171
2130 exch2_opposingSend(3,29)=4
2131 exch2_pij(1,3,29)=1
2132 exch2_pij(2,3,29)=0
2133 exch2_pij(3,3,29)=0
2134 exch2_pij(4,3,29)=1
2135 exch2_oi(3,29)=0
2136 exch2_oj(3,29)=0
2137
2138 exch2_neighbourId(4,29)=28
2139 exch2_iLo(4,29)=0
2140 exch2_iHi(4,29)=0
2141 exch2_jLo(4,29)=0
2142 exch2_jHi(4,29)=171
2143 exch2_opposingSend(4,29)=3
2144 exch2_pij(1,4,29)=1
2145 exch2_pij(2,4,29)=0
2146 exch2_pij(3,4,29)=0
2147 exch2_pij(4,4,29)=1
2148 exch2_oi(4,29)=0
2149 exch2_oj(4,29)=0
2150 RETURN
2151 END
2152
2153 SUBROUTINE W2_E2SETUP_30
2154 C Topology for tile 30
2155 #include "W2_EXCH2_TOPOLOGY.h"
2156 exch2_tNx(30)=170
2157 exch2_tNy(30)=170
2158 exch2_tBasex(30)=340
2159 exch2_tBasey(30)=0
2160 exch2_txGlobalo(30)=1871
2161 exch2_tyGlobalo(30)=1
2162 exch2_isWedge(30)=0
2163 exch2_isNedge(30)=0
2164 exch2_isEedge(30)=1
2165 exch2_isSedge(30)=1
2166 exch2_myFace(30)=4
2167 exch2_mydNx(30)=510
2168 exch2_mydNy(30)=510
2169 exch2_nNeighbours(30)=4
2170
2171 exch2_neighbourId(1,30)=33
2172 exch2_iLo(1,30)=0
2173 exch2_iHi(1,30)=171
2174 exch2_jLo(1,30)=171
2175 exch2_jHi(1,30)=171
2176 exch2_opposingSend(1,30)=2
2177 exch2_pij(1,1,30)=1
2178 exch2_pij(2,1,30)=0
2179 exch2_pij(3,1,30)=0
2180 exch2_pij(4,1,30)=1
2181 exch2_oi(1,30)=0
2182 exch2_oj(1,30)=0
2183
2184 exch2_neighbourId(2,30)=12
2185 exch2_iLo(2,30)=0
2186 exch2_iHi(2,30)=171
2187 exch2_jLo(2,30)=0
2188 exch2_jHi(2,30)=0
2189 exch2_opposingSend(2,30)=3
2190 exch2_pij(1,2,30)=0
2191 exch2_pij(2,2,30)=-1
2192 exch2_pij(3,2,30)=1
2193 exch2_pij(4,2,30)=0
2194 exch2_oi(2,30)=511
2195 exch2_oj(2,30)=-510
2196
2197 exch2_neighbourId(3,30)=48
2198 exch2_iLo(3,30)=171
2199 exch2_iHi(3,30)=171
2200 exch2_jLo(3,30)=0
2201 exch2_jHi(3,30)=171
2202 exch2_opposingSend(3,30)=2
2203 exch2_pij(1,3,30)=0
2204 exch2_pij(2,3,30)=1
2205 exch2_pij(3,3,30)=-1
2206 exch2_pij(4,3,30)=0
2207 exch2_oi(3,30)=510
2208 exch2_oj(3,30)=511
2209
2210 exch2_neighbourId(4,30)=29
2211 exch2_iLo(4,30)=0
2212 exch2_iHi(4,30)=0
2213 exch2_jLo(4,30)=0
2214 exch2_jHi(4,30)=171
2215 exch2_opposingSend(4,30)=3
2216 exch2_pij(1,4,30)=1
2217 exch2_pij(2,4,30)=0
2218 exch2_pij(3,4,30)=0
2219 exch2_pij(4,4,30)=1
2220 exch2_oi(4,30)=0
2221 exch2_oj(4,30)=0
2222 RETURN
2223 END
2224
2225 SUBROUTINE W2_E2SETUP_31
2226 C Topology for tile 31
2227 #include "W2_EXCH2_TOPOLOGY.h"
2228 exch2_tNx(31)=170
2229 exch2_tNy(31)=170
2230 exch2_tBasex(31)=0
2231 exch2_tBasey(31)=170
2232 exch2_txGlobalo(31)=1531
2233 exch2_tyGlobalo(31)=171
2234 exch2_isWedge(31)=1
2235 exch2_isNedge(31)=0
2236 exch2_isEedge(31)=0
2237 exch2_isSedge(31)=0
2238 exch2_myFace(31)=4
2239 exch2_mydNx(31)=510
2240 exch2_mydNy(31)=510
2241 exch2_nNeighbours(31)=4
2242
2243 exch2_neighbourId(1,31)=34
2244 exch2_iLo(1,31)=0
2245 exch2_iHi(1,31)=171
2246 exch2_jLo(1,31)=171
2247 exch2_jHi(1,31)=171
2248 exch2_opposingSend(1,31)=2
2249 exch2_pij(1,1,31)=1
2250 exch2_pij(2,1,31)=0
2251 exch2_pij(3,1,31)=0
2252 exch2_pij(4,1,31)=1
2253 exch2_oi(1,31)=0
2254 exch2_oj(1,31)=0
2255
2256 exch2_neighbourId(2,31)=28
2257 exch2_iLo(2,31)=0
2258 exch2_iHi(2,31)=171
2259 exch2_jLo(2,31)=0
2260 exch2_jHi(2,31)=0
2261 exch2_opposingSend(2,31)=1
2262 exch2_pij(1,2,31)=1
2263 exch2_pij(2,2,31)=0
2264 exch2_pij(3,2,31)=0
2265 exch2_pij(4,2,31)=1
2266 exch2_oi(2,31)=0
2267 exch2_oj(2,31)=0
2268
2269 exch2_neighbourId(3,31)=32
2270 exch2_iLo(3,31)=171
2271 exch2_iHi(3,31)=171
2272 exch2_jLo(3,31)=0
2273 exch2_jHi(3,31)=171
2274 exch2_opposingSend(3,31)=4
2275 exch2_pij(1,3,31)=1
2276 exch2_pij(2,3,31)=0
2277 exch2_pij(3,3,31)=0
2278 exch2_pij(4,3,31)=1
2279 exch2_oi(3,31)=0
2280 exch2_oj(3,31)=0
2281
2282 exch2_neighbourId(4,31)=24
2283 exch2_iLo(4,31)=0
2284 exch2_iHi(4,31)=0
2285 exch2_jLo(4,31)=0
2286 exch2_jHi(4,31)=171
2287 exch2_opposingSend(4,31)=3
2288 exch2_pij(1,4,31)=1
2289 exch2_pij(2,4,31)=0
2290 exch2_pij(3,4,31)=0
2291 exch2_pij(4,4,31)=1
2292 exch2_oi(4,31)=-510
2293 exch2_oj(4,31)=0
2294 RETURN
2295 END
2296
2297 SUBROUTINE W2_E2SETUP_32
2298 C Topology for tile 32
2299 #include "W2_EXCH2_TOPOLOGY.h"
2300 exch2_tNx(32)=170
2301 exch2_tNy(32)=170
2302 exch2_tBasex(32)=170
2303 exch2_tBasey(32)=170
2304 exch2_txGlobalo(32)=1701
2305 exch2_tyGlobalo(32)=171
2306 exch2_isWedge(32)=0
2307 exch2_isNedge(32)=0
2308 exch2_isEedge(32)=0
2309 exch2_isSedge(32)=0
2310 exch2_myFace(32)=4
2311 exch2_mydNx(32)=510
2312 exch2_mydNy(32)=510
2313 exch2_nNeighbours(32)=4
2314
2315 exch2_neighbourId(1,32)=35
2316 exch2_iLo(1,32)=0
2317 exch2_iHi(1,32)=171
2318 exch2_jLo(1,32)=171
2319 exch2_jHi(1,32)=171
2320 exch2_opposingSend(1,32)=2
2321 exch2_pij(1,1,32)=1
2322 exch2_pij(2,1,32)=0
2323 exch2_pij(3,1,32)=0
2324 exch2_pij(4,1,32)=1
2325 exch2_oi(1,32)=0
2326 exch2_oj(1,32)=0
2327
2328 exch2_neighbourId(2,32)=29
2329 exch2_iLo(2,32)=0
2330 exch2_iHi(2,32)=171
2331 exch2_jLo(2,32)=0
2332 exch2_jHi(2,32)=0
2333 exch2_opposingSend(2,32)=1
2334 exch2_pij(1,2,32)=1
2335 exch2_pij(2,2,32)=0
2336 exch2_pij(3,2,32)=0
2337 exch2_pij(4,2,32)=1
2338 exch2_oi(2,32)=0
2339 exch2_oj(2,32)=0
2340
2341 exch2_neighbourId(3,32)=33
2342 exch2_iLo(3,32)=171
2343 exch2_iHi(3,32)=171
2344 exch2_jLo(3,32)=0
2345 exch2_jHi(3,32)=171
2346 exch2_opposingSend(3,32)=4
2347 exch2_pij(1,3,32)=1
2348 exch2_pij(2,3,32)=0
2349 exch2_pij(3,3,32)=0
2350 exch2_pij(4,3,32)=1
2351 exch2_oi(3,32)=0
2352 exch2_oj(3,32)=0
2353
2354 exch2_neighbourId(4,32)=31
2355 exch2_iLo(4,32)=0
2356 exch2_iHi(4,32)=0
2357 exch2_jLo(4,32)=0
2358 exch2_jHi(4,32)=171
2359 exch2_opposingSend(4,32)=3
2360 exch2_pij(1,4,32)=1
2361 exch2_pij(2,4,32)=0
2362 exch2_pij(3,4,32)=0
2363 exch2_pij(4,4,32)=1
2364 exch2_oi(4,32)=0
2365 exch2_oj(4,32)=0
2366 RETURN
2367 END
2368
2369 SUBROUTINE W2_E2SETUP_33
2370 C Topology for tile 33
2371 #include "W2_EXCH2_TOPOLOGY.h"
2372 exch2_tNx(33)=170
2373 exch2_tNy(33)=170
2374 exch2_tBasex(33)=340
2375 exch2_tBasey(33)=170
2376 exch2_txGlobalo(33)=1871
2377 exch2_tyGlobalo(33)=171
2378 exch2_isWedge(33)=0
2379 exch2_isNedge(33)=0
2380 exch2_isEedge(33)=1
2381 exch2_isSedge(33)=0
2382 exch2_myFace(33)=4
2383 exch2_mydNx(33)=510
2384 exch2_mydNy(33)=510
2385 exch2_nNeighbours(33)=4
2386
2387 exch2_neighbourId(1,33)=36
2388 exch2_iLo(1,33)=0
2389 exch2_iHi(1,33)=171
2390 exch2_jLo(1,33)=171
2391 exch2_jHi(1,33)=171
2392 exch2_opposingSend(1,33)=2
2393 exch2_pij(1,1,33)=1
2394 exch2_pij(2,1,33)=0
2395 exch2_pij(3,1,33)=0
2396 exch2_pij(4,1,33)=1
2397 exch2_oi(1,33)=0
2398 exch2_oj(1,33)=0
2399
2400 exch2_neighbourId(2,33)=30
2401 exch2_iLo(2,33)=0
2402 exch2_iHi(2,33)=171
2403 exch2_jLo(2,33)=0
2404 exch2_jHi(2,33)=0
2405 exch2_opposingSend(2,33)=1
2406 exch2_pij(1,2,33)=1
2407 exch2_pij(2,2,33)=0
2408 exch2_pij(3,2,33)=0
2409 exch2_pij(4,2,33)=1
2410 exch2_oi(2,33)=0
2411 exch2_oj(2,33)=0
2412
2413 exch2_neighbourId(3,33)=47
2414 exch2_iLo(3,33)=171
2415 exch2_iHi(3,33)=171
2416 exch2_jLo(3,33)=0
2417 exch2_jHi(3,33)=171
2418 exch2_opposingSend(3,33)=2
2419 exch2_pij(1,3,33)=0
2420 exch2_pij(2,3,33)=1
2421 exch2_pij(3,3,33)=-1
2422 exch2_pij(4,3,33)=0
2423 exch2_oi(3,33)=510
2424 exch2_oj(3,33)=511
2425
2426 exch2_neighbourId(4,33)=32
2427 exch2_iLo(4,33)=0
2428 exch2_iHi(4,33)=0
2429 exch2_jLo(4,33)=0
2430 exch2_jHi(4,33)=171
2431 exch2_opposingSend(4,33)=3
2432 exch2_pij(1,4,33)=1
2433 exch2_pij(2,4,33)=0
2434 exch2_pij(3,4,33)=0
2435 exch2_pij(4,4,33)=1
2436 exch2_oi(4,33)=0
2437 exch2_oj(4,33)=0
2438 RETURN
2439 END
2440
2441 SUBROUTINE W2_E2SETUP_34
2442 C Topology for tile 34
2443 #include "W2_EXCH2_TOPOLOGY.h"
2444 exch2_tNx(34)=170
2445 exch2_tNy(34)=170
2446 exch2_tBasex(34)=0
2447 exch2_tBasey(34)=340
2448 exch2_txGlobalo(34)=1531
2449 exch2_tyGlobalo(34)=341
2450 exch2_isWedge(34)=1
2451 exch2_isNedge(34)=1
2452 exch2_isEedge(34)=0
2453 exch2_isSedge(34)=0
2454 exch2_myFace(34)=4
2455 exch2_mydNx(34)=510
2456 exch2_mydNy(34)=510
2457 exch2_nNeighbours(34)=4
2458
2459 exch2_neighbourId(1,34)=37
2460 exch2_iLo(1,34)=0
2461 exch2_iHi(1,34)=171
2462 exch2_jLo(1,34)=171
2463 exch2_jHi(1,34)=171
2464 exch2_opposingSend(1,34)=2
2465 exch2_pij(1,1,34)=1
2466 exch2_pij(2,1,34)=0
2467 exch2_pij(3,1,34)=0
2468 exch2_pij(4,1,34)=1
2469 exch2_oi(1,34)=0
2470 exch2_oj(1,34)=510
2471
2472 exch2_neighbourId(2,34)=31
2473 exch2_iLo(2,34)=0
2474 exch2_iHi(2,34)=171
2475 exch2_jLo(2,34)=0
2476 exch2_jHi(2,34)=0
2477 exch2_opposingSend(2,34)=1
2478 exch2_pij(1,2,34)=1
2479 exch2_pij(2,2,34)=0
2480 exch2_pij(3,2,34)=0
2481 exch2_pij(4,2,34)=1
2482 exch2_oi(2,34)=0
2483 exch2_oj(2,34)=0
2484
2485 exch2_neighbourId(3,34)=35
2486 exch2_iLo(3,34)=171
2487 exch2_iHi(3,34)=171
2488 exch2_jLo(3,34)=0
2489 exch2_jHi(3,34)=171
2490 exch2_opposingSend(3,34)=4
2491 exch2_pij(1,3,34)=1
2492 exch2_pij(2,3,34)=0
2493 exch2_pij(3,3,34)=0
2494 exch2_pij(4,3,34)=1
2495 exch2_oi(3,34)=0
2496 exch2_oj(3,34)=0
2497
2498 exch2_neighbourId(4,34)=27
2499 exch2_iLo(4,34)=0
2500 exch2_iHi(4,34)=0
2501 exch2_jLo(4,34)=0
2502 exch2_jHi(4,34)=171
2503 exch2_opposingSend(4,34)=3
2504 exch2_pij(1,4,34)=1
2505 exch2_pij(2,4,34)=0
2506 exch2_pij(3,4,34)=0
2507 exch2_pij(4,4,34)=1
2508 exch2_oi(4,34)=-510
2509 exch2_oj(4,34)=0
2510 RETURN
2511 END
2512
2513 SUBROUTINE W2_E2SETUP_35
2514 C Topology for tile 35
2515 #include "W2_EXCH2_TOPOLOGY.h"
2516 exch2_tNx(35)=170
2517 exch2_tNy(35)=170
2518 exch2_tBasex(35)=170
2519 exch2_tBasey(35)=340
2520 exch2_txGlobalo(35)=1701
2521 exch2_tyGlobalo(35)=341
2522 exch2_isWedge(35)=0
2523 exch2_isNedge(35)=1
2524 exch2_isEedge(35)=0
2525 exch2_isSedge(35)=0
2526 exch2_myFace(35)=4
2527 exch2_mydNx(35)=510
2528 exch2_mydNy(35)=510
2529 exch2_nNeighbours(35)=4
2530
2531 exch2_neighbourId(1,35)=38
2532 exch2_iLo(1,35)=0
2533 exch2_iHi(1,35)=171
2534 exch2_jLo(1,35)=171
2535 exch2_jHi(1,35)=171
2536 exch2_opposingSend(1,35)=2
2537 exch2_pij(1,1,35)=1
2538 exch2_pij(2,1,35)=0
2539 exch2_pij(3,1,35)=0
2540 exch2_pij(4,1,35)=1
2541 exch2_oi(1,35)=0
2542 exch2_oj(1,35)=510
2543
2544 exch2_neighbourId(2,35)=32
2545 exch2_iLo(2,35)=0
2546 exch2_iHi(2,35)=171
2547 exch2_jLo(2,35)=0
2548 exch2_jHi(2,35)=0
2549 exch2_opposingSend(2,35)=1
2550 exch2_pij(1,2,35)=1
2551 exch2_pij(2,2,35)=0
2552 exch2_pij(3,2,35)=0
2553 exch2_pij(4,2,35)=1
2554 exch2_oi(2,35)=0
2555 exch2_oj(2,35)=0
2556
2557 exch2_neighbourId(3,35)=36
2558 exch2_iLo(3,35)=171
2559 exch2_iHi(3,35)=171
2560 exch2_jLo(3,35)=0
2561 exch2_jHi(3,35)=171
2562 exch2_opposingSend(3,35)=4
2563 exch2_pij(1,3,35)=1
2564 exch2_pij(2,3,35)=0
2565 exch2_pij(3,3,35)=0
2566 exch2_pij(4,3,35)=1
2567 exch2_oi(3,35)=0
2568 exch2_oj(3,35)=0
2569
2570 exch2_neighbourId(4,35)=34
2571 exch2_iLo(4,35)=0
2572 exch2_iHi(4,35)=0
2573 exch2_jLo(4,35)=0
2574 exch2_jHi(4,35)=171
2575 exch2_opposingSend(4,35)=3
2576 exch2_pij(1,4,35)=1
2577 exch2_pij(2,4,35)=0
2578 exch2_pij(3,4,35)=0
2579 exch2_pij(4,4,35)=1
2580 exch2_oi(4,35)=0
2581 exch2_oj(4,35)=0
2582 RETURN
2583 END
2584
2585 SUBROUTINE W2_E2SETUP_36
2586 C Topology for tile 36
2587 #include "W2_EXCH2_TOPOLOGY.h"
2588 exch2_tNx(36)=170
2589 exch2_tNy(36)=170
2590 exch2_tBasex(36)=340
2591 exch2_tBasey(36)=340
2592 exch2_txGlobalo(36)=1871
2593 exch2_tyGlobalo(36)=341
2594 exch2_isWedge(36)=0
2595 exch2_isNedge(36)=1
2596 exch2_isEedge(36)=1
2597 exch2_isSedge(36)=0
2598 exch2_myFace(36)=4
2599 exch2_mydNx(36)=510
2600 exch2_mydNy(36)=510
2601 exch2_nNeighbours(36)=4
2602
2603 exch2_neighbourId(1,36)=39
2604 exch2_iLo(1,36)=0
2605 exch2_iHi(1,36)=171
2606 exch2_jLo(1,36)=171
2607 exch2_jHi(1,36)=171
2608 exch2_opposingSend(1,36)=2
2609 exch2_pij(1,1,36)=1
2610 exch2_pij(2,1,36)=0
2611 exch2_pij(3,1,36)=0
2612 exch2_pij(4,1,36)=1
2613 exch2_oi(1,36)=0
2614 exch2_oj(1,36)=510
2615
2616 exch2_neighbourId(2,36)=33
2617 exch2_iLo(2,36)=0
2618 exch2_iHi(2,36)=171
2619 exch2_jLo(2,36)=0
2620 exch2_jHi(2,36)=0
2621 exch2_opposingSend(2,36)=1
2622 exch2_pij(1,2,36)=1
2623 exch2_pij(2,2,36)=0
2624 exch2_pij(3,2,36)=0
2625 exch2_pij(4,2,36)=1
2626 exch2_oi(2,36)=0
2627 exch2_oj(2,36)=0
2628
2629 exch2_neighbourId(3,36)=46
2630 exch2_iLo(3,36)=171
2631 exch2_iHi(3,36)=171
2632 exch2_jLo(3,36)=0
2633 exch2_jHi(3,36)=171
2634 exch2_opposingSend(3,36)=2
2635 exch2_pij(1,3,36)=0
2636 exch2_pij(2,3,36)=1
2637 exch2_pij(3,3,36)=-1
2638 exch2_pij(4,3,36)=0
2639 exch2_oi(3,36)=510
2640 exch2_oj(3,36)=511
2641
2642 exch2_neighbourId(4,36)=35
2643 exch2_iLo(4,36)=0
2644 exch2_iHi(4,36)=0
2645 exch2_jLo(4,36)=0
2646 exch2_jHi(4,36)=171
2647 exch2_opposingSend(4,36)=3
2648 exch2_pij(1,4,36)=1
2649 exch2_pij(2,4,36)=0
2650 exch2_pij(3,4,36)=0
2651 exch2_pij(4,4,36)=1
2652 exch2_oi(4,36)=0
2653 exch2_oj(4,36)=0
2654 RETURN
2655 END
2656
2657 SUBROUTINE W2_E2SETUP_37
2658 C Topology for tile 37
2659 #include "W2_EXCH2_TOPOLOGY.h"
2660 exch2_tNx(37)=170
2661 exch2_tNy(37)=170
2662 exch2_tBasex(37)=0
2663 exch2_tBasey(37)=0
2664 exch2_txGlobalo(37)=2041
2665 exch2_tyGlobalo(37)=1
2666 exch2_isWedge(37)=1
2667 exch2_isNedge(37)=0
2668 exch2_isEedge(37)=0
2669 exch2_isSedge(37)=1
2670 exch2_myFace(37)=5
2671 exch2_mydNx(37)=510
2672 exch2_mydNy(37)=510
2673 exch2_nNeighbours(37)=4
2674
2675 exch2_neighbourId(1,37)=40
2676 exch2_iLo(1,37)=0
2677 exch2_iHi(1,37)=171
2678 exch2_jLo(1,37)=171
2679 exch2_jHi(1,37)=171
2680 exch2_opposingSend(1,37)=2
2681 exch2_pij(1,1,37)=1
2682 exch2_pij(2,1,37)=0
2683 exch2_pij(3,1,37)=0
2684 exch2_pij(4,1,37)=1
2685 exch2_oi(1,37)=0
2686 exch2_oj(1,37)=0
2687
2688 exch2_neighbourId(2,37)=34
2689 exch2_iLo(2,37)=0
2690 exch2_iHi(2,37)=171
2691 exch2_jLo(2,37)=0
2692 exch2_jHi(2,37)=0
2693 exch2_opposingSend(2,37)=1
2694 exch2_pij(1,2,37)=1
2695 exch2_pij(2,2,37)=0
2696 exch2_pij(3,2,37)=0
2697 exch2_pij(4,2,37)=1
2698 exch2_oi(2,37)=0
2699 exch2_oj(2,37)=-510
2700
2701 exch2_neighbourId(3,37)=38
2702 exch2_iLo(3,37)=171
2703 exch2_iHi(3,37)=171
2704 exch2_jLo(3,37)=0
2705 exch2_jHi(3,37)=171
2706 exch2_opposingSend(3,37)=4
2707 exch2_pij(1,3,37)=1
2708 exch2_pij(2,3,37)=0
2709 exch2_pij(3,3,37)=0
2710 exch2_pij(4,3,37)=1
2711 exch2_oi(3,37)=0
2712 exch2_oj(3,37)=0
2713
2714 exch2_neighbourId(4,37)=27
2715 exch2_iLo(4,37)=0
2716 exch2_iHi(4,37)=0
2717 exch2_jLo(4,37)=0
2718 exch2_jHi(4,37)=171
2719 exch2_opposingSend(4,37)=1
2720 exch2_pij(1,4,37)=0
2721 exch2_pij(2,4,37)=1
2722 exch2_pij(3,4,37)=-1
2723 exch2_pij(4,4,37)=0
2724 exch2_oi(4,37)=-510
2725 exch2_oj(4,37)=511
2726 RETURN
2727 END
2728
2729 SUBROUTINE W2_E2SETUP_38
2730 C Topology for tile 38
2731 #include "W2_EXCH2_TOPOLOGY.h"
2732 exch2_tNx(38)=170
2733 exch2_tNy(38)=170
2734 exch2_tBasex(38)=170
2735 exch2_tBasey(38)=0
2736 exch2_txGlobalo(38)=2211
2737 exch2_tyGlobalo(38)=1
2738 exch2_isWedge(38)=0
2739 exch2_isNedge(38)=0
2740 exch2_isEedge(38)=0
2741 exch2_isSedge(38)=1
2742 exch2_myFace(38)=5
2743 exch2_mydNx(38)=510
2744 exch2_mydNy(38)=510
2745 exch2_nNeighbours(38)=4
2746
2747 exch2_neighbourId(1,38)=41
2748 exch2_iLo(1,38)=0
2749 exch2_iHi(1,38)=171
2750 exch2_jLo(1,38)=171
2751 exch2_jHi(1,38)=171
2752 exch2_opposingSend(1,38)=2
2753 exch2_pij(1,1,38)=1
2754 exch2_pij(2,1,38)=0
2755 exch2_pij(3,1,38)=0
2756 exch2_pij(4,1,38)=1
2757 exch2_oi(1,38)=0
2758 exch2_oj(1,38)=0
2759
2760 exch2_neighbourId(2,38)=35
2761 exch2_iLo(2,38)=0
2762 exch2_iHi(2,38)=171
2763 exch2_jLo(2,38)=0
2764 exch2_jHi(2,38)=0
2765 exch2_opposingSend(2,38)=1
2766 exch2_pij(1,2,38)=1
2767 exch2_pij(2,2,38)=0
2768 exch2_pij(3,2,38)=0
2769 exch2_pij(4,2,38)=1
2770 exch2_oi(2,38)=0
2771 exch2_oj(2,38)=-510
2772
2773 exch2_neighbourId(3,38)=39
2774 exch2_iLo(3,38)=171
2775 exch2_iHi(3,38)=171
2776 exch2_jLo(3,38)=0
2777 exch2_jHi(3,38)=171
2778 exch2_opposingSend(3,38)=4
2779 exch2_pij(1,3,38)=1
2780 exch2_pij(2,3,38)=0
2781 exch2_pij(3,3,38)=0
2782 exch2_pij(4,3,38)=1
2783 exch2_oi(3,38)=0
2784 exch2_oj(3,38)=0
2785
2786 exch2_neighbourId(4,38)=37
2787 exch2_iLo(4,38)=0
2788 exch2_iHi(4,38)=0
2789 exch2_jLo(4,38)=0
2790 exch2_jHi(4,38)=171
2791 exch2_opposingSend(4,38)=3
2792 exch2_pij(1,4,38)=1
2793 exch2_pij(2,4,38)=0
2794 exch2_pij(3,4,38)=0
2795 exch2_pij(4,4,38)=1
2796 exch2_oi(4,38)=0
2797 exch2_oj(4,38)=0
2798 RETURN
2799 END
2800
2801 SUBROUTINE W2_E2SETUP_39
2802 C Topology for tile 39
2803 #include "W2_EXCH2_TOPOLOGY.h"
2804 exch2_tNx(39)=170
2805 exch2_tNy(39)=170
2806 exch2_tBasex(39)=340
2807 exch2_tBasey(39)=0
2808 exch2_txGlobalo(39)=2381
2809 exch2_tyGlobalo(39)=1
2810 exch2_isWedge(39)=0
2811 exch2_isNedge(39)=0
2812 exch2_isEedge(39)=1
2813 exch2_isSedge(39)=1
2814 exch2_myFace(39)=5
2815 exch2_mydNx(39)=510
2816 exch2_mydNy(39)=510
2817 exch2_nNeighbours(39)=4
2818
2819 exch2_neighbourId(1,39)=42
2820 exch2_iLo(1,39)=0
2821 exch2_iHi(1,39)=171
2822 exch2_jLo(1,39)=171
2823 exch2_jHi(1,39)=171
2824 exch2_opposingSend(1,39)=2
2825 exch2_pij(1,1,39)=1
2826 exch2_pij(2,1,39)=0
2827 exch2_pij(3,1,39)=0
2828 exch2_pij(4,1,39)=1
2829 exch2_oi(1,39)=0
2830 exch2_oj(1,39)=0
2831
2832 exch2_neighbourId(2,39)=36
2833 exch2_iLo(2,39)=0
2834 exch2_iHi(2,39)=171
2835 exch2_jLo(2,39)=0
2836 exch2_jHi(2,39)=0
2837 exch2_opposingSend(2,39)=1
2838 exch2_pij(1,2,39)=1
2839 exch2_pij(2,2,39)=0
2840 exch2_pij(3,2,39)=0
2841 exch2_pij(4,2,39)=1
2842 exch2_oi(2,39)=0
2843 exch2_oj(2,39)=-510
2844
2845 exch2_neighbourId(3,39)=46
2846 exch2_iLo(3,39)=171
2847 exch2_iHi(3,39)=171
2848 exch2_jLo(3,39)=0
2849 exch2_jHi(3,39)=171
2850 exch2_opposingSend(3,39)=4
2851 exch2_pij(1,3,39)=1
2852 exch2_pij(2,3,39)=0
2853 exch2_pij(3,3,39)=0
2854 exch2_pij(4,3,39)=1
2855 exch2_oi(3,39)=510
2856 exch2_oj(3,39)=0
2857
2858 exch2_neighbourId(4,39)=38
2859 exch2_iLo(4,39)=0
2860 exch2_iHi(4,39)=0
2861 exch2_jLo(4,39)=0
2862 exch2_jHi(4,39)=171
2863 exch2_opposingSend(4,39)=3
2864 exch2_pij(1,4,39)=1
2865 exch2_pij(2,4,39)=0
2866 exch2_pij(3,4,39)=0
2867 exch2_pij(4,4,39)=1
2868 exch2_oi(4,39)=0
2869 exch2_oj(4,39)=0
2870 RETURN
2871 END
2872
2873 SUBROUTINE W2_E2SETUP_40
2874 C Topology for tile 40
2875 #include "W2_EXCH2_TOPOLOGY.h"
2876 exch2_tNx(40)=170
2877 exch2_tNy(40)=170
2878 exch2_tBasex(40)=0
2879 exch2_tBasey(40)=170
2880 exch2_txGlobalo(40)=2041
2881 exch2_tyGlobalo(40)=171
2882 exch2_isWedge(40)=1
2883 exch2_isNedge(40)=0
2884 exch2_isEedge(40)=0
2885 exch2_isSedge(40)=0
2886 exch2_myFace(40)=5
2887 exch2_mydNx(40)=510
2888 exch2_mydNy(40)=510
2889 exch2_nNeighbours(40)=4
2890
2891 exch2_neighbourId(1,40)=43
2892 exch2_iLo(1,40)=0
2893 exch2_iHi(1,40)=171
2894 exch2_jLo(1,40)=171
2895 exch2_jHi(1,40)=171
2896 exch2_opposingSend(1,40)=2
2897 exch2_pij(1,1,40)=1
2898 exch2_pij(2,1,40)=0
2899 exch2_pij(3,1,40)=0
2900 exch2_pij(4,1,40)=1
2901 exch2_oi(1,40)=0
2902 exch2_oj(1,40)=0
2903
2904 exch2_neighbourId(2,40)=37
2905 exch2_iLo(2,40)=0
2906 exch2_iHi(2,40)=171
2907 exch2_jLo(2,40)=0
2908 exch2_jHi(2,40)=0
2909 exch2_opposingSend(2,40)=1
2910 exch2_pij(1,2,40)=1
2911 exch2_pij(2,2,40)=0
2912 exch2_pij(3,2,40)=0
2913 exch2_pij(4,2,40)=1
2914 exch2_oi(2,40)=0
2915 exch2_oj(2,40)=0
2916
2917 exch2_neighbourId(3,40)=41
2918 exch2_iLo(3,40)=171
2919 exch2_iHi(3,40)=171
2920 exch2_jLo(3,40)=0
2921 exch2_jHi(3,40)=171
2922 exch2_opposingSend(3,40)=4
2923 exch2_pij(1,3,40)=1
2924 exch2_pij(2,3,40)=0
2925 exch2_pij(3,3,40)=0
2926 exch2_pij(4,3,40)=1
2927 exch2_oi(3,40)=0
2928 exch2_oj(3,40)=0
2929
2930 exch2_neighbourId(4,40)=26
2931 exch2_iLo(4,40)=0
2932 exch2_iHi(4,40)=0
2933 exch2_jLo(4,40)=0
2934 exch2_jHi(4,40)=171
2935 exch2_opposingSend(4,40)=1
2936 exch2_pij(1,4,40)=0
2937 exch2_pij(2,4,40)=1
2938 exch2_pij(3,4,40)=-1
2939 exch2_pij(4,4,40)=0
2940 exch2_oi(4,40)=-510
2941 exch2_oj(4,40)=511
2942 RETURN
2943 END
2944
2945 SUBROUTINE W2_E2SETUP_41
2946 C Topology for tile 41
2947 #include "W2_EXCH2_TOPOLOGY.h"
2948 exch2_tNx(41)=170
2949 exch2_tNy(41)=170
2950 exch2_tBasex(41)=170
2951 exch2_tBasey(41)=170
2952 exch2_txGlobalo(41)=2211
2953 exch2_tyGlobalo(41)=171
2954 exch2_isWedge(41)=0
2955 exch2_isNedge(41)=0
2956 exch2_isEedge(41)=0
2957 exch2_isSedge(41)=0
2958 exch2_myFace(41)=5
2959 exch2_mydNx(41)=510
2960 exch2_mydNy(41)=510
2961 exch2_nNeighbours(41)=4
2962
2963 exch2_neighbourId(1,41)=44
2964 exch2_iLo(1,41)=0
2965 exch2_iHi(1,41)=171
2966 exch2_jLo(1,41)=171
2967 exch2_jHi(1,41)=171
2968 exch2_opposingSend(1,41)=2
2969 exch2_pij(1,1,41)=1
2970 exch2_pij(2,1,41)=0
2971 exch2_pij(3,1,41)=0
2972 exch2_pij(4,1,41)=1
2973 exch2_oi(1,41)=0
2974 exch2_oj(1,41)=0
2975
2976 exch2_neighbourId(2,41)=38
2977 exch2_iLo(2,41)=0
2978 exch2_iHi(2,41)=171
2979 exch2_jLo(2,41)=0
2980 exch2_jHi(2,41)=0
2981 exch2_opposingSend(2,41)=1
2982 exch2_pij(1,2,41)=1
2983 exch2_pij(2,2,41)=0
2984 exch2_pij(3,2,41)=0
2985 exch2_pij(4,2,41)=1
2986 exch2_oi(2,41)=0
2987 exch2_oj(2,41)=0
2988
2989 exch2_neighbourId(3,41)=42
2990 exch2_iLo(3,41)=171
2991 exch2_iHi(3,41)=171
2992 exch2_jLo(3,41)=0
2993 exch2_jHi(3,41)=171
2994 exch2_opposingSend(3,41)=4
2995 exch2_pij(1,3,41)=1
2996 exch2_pij(2,3,41)=0
2997 exch2_pij(3,3,41)=0
2998 exch2_pij(4,3,41)=1
2999 exch2_oi(3,41)=0
3000 exch2_oj(3,41)=0
3001
3002 exch2_neighbourId(4,41)=40
3003 exch2_iLo(4,41)=0
3004 exch2_iHi(4,41)=0
3005 exch2_jLo(4,41)=0
3006 exch2_jHi(4,41)=171
3007 exch2_opposingSend(4,41)=3
3008 exch2_pij(1,4,41)=1
3009 exch2_pij(2,4,41)=0
3010 exch2_pij(3,4,41)=0
3011 exch2_pij(4,4,41)=1
3012 exch2_oi(4,41)=0
3013 exch2_oj(4,41)=0
3014 RETURN
3015 END
3016
3017 SUBROUTINE W2_E2SETUP_42
3018 C Topology for tile 42
3019 #include "W2_EXCH2_TOPOLOGY.h"
3020 exch2_tNx(42)=170
3021 exch2_tNy(42)=170
3022 exch2_tBasex(42)=340
3023 exch2_tBasey(42)=170
3024 exch2_txGlobalo(42)=2381
3025 exch2_tyGlobalo(42)=171
3026 exch2_isWedge(42)=0
3027 exch2_isNedge(42)=0
3028 exch2_isEedge(42)=1
3029 exch2_isSedge(42)=0
3030 exch2_myFace(42)=5
3031 exch2_mydNx(42)=510
3032 exch2_mydNy(42)=510
3033 exch2_nNeighbours(42)=4
3034
3035 exch2_neighbourId(1,42)=45
3036 exch2_iLo(1,42)=0
3037 exch2_iHi(1,42)=171
3038 exch2_jLo(1,42)=171
3039 exch2_jHi(1,42)=171
3040 exch2_opposingSend(1,42)=2
3041 exch2_pij(1,1,42)=1
3042 exch2_pij(2,1,42)=0
3043 exch2_pij(3,1,42)=0
3044 exch2_pij(4,1,42)=1
3045 exch2_oi(1,42)=0
3046 exch2_oj(1,42)=0
3047
3048 exch2_neighbourId(2,42)=39
3049 exch2_iLo(2,42)=0
3050 exch2_iHi(2,42)=171
3051 exch2_jLo(2,42)=0
3052 exch2_jHi(2,42)=0
3053 exch2_opposingSend(2,42)=1
3054 exch2_pij(1,2,42)=1
3055 exch2_pij(2,2,42)=0
3056 exch2_pij(3,2,42)=0
3057 exch2_pij(4,2,42)=1
3058 exch2_oi(2,42)=0
3059 exch2_oj(2,42)=0
3060
3061 exch2_neighbourId(3,42)=49
3062 exch2_iLo(3,42)=171
3063 exch2_iHi(3,42)=171
3064 exch2_jLo(3,42)=0
3065 exch2_jHi(3,42)=171
3066 exch2_opposingSend(3,42)=4
3067 exch2_pij(1,3,42)=1
3068 exch2_pij(2,3,42)=0
3069 exch2_pij(3,3,42)=0
3070 exch2_pij(4,3,42)=1
3071 exch2_oi(3,42)=510
3072 exch2_oj(3,42)=0
3073
3074 exch2_neighbourId(4,42)=41
3075 exch2_iLo(4,42)=0
3076 exch2_iHi(4,42)=0
3077 exch2_jLo(4,42)=0
3078 exch2_jHi(4,42)=171
3079 exch2_opposingSend(4,42)=3
3080 exch2_pij(1,4,42)=1
3081 exch2_pij(2,4,42)=0
3082 exch2_pij(3,4,42)=0
3083 exch2_pij(4,4,42)=1
3084 exch2_oi(4,42)=0
3085 exch2_oj(4,42)=0
3086 RETURN
3087 END
3088
3089 SUBROUTINE W2_E2SETUP_43
3090 C Topology for tile 43
3091 #include "W2_EXCH2_TOPOLOGY.h"
3092 exch2_tNx(43)=170
3093 exch2_tNy(43)=170
3094 exch2_tBasex(43)=0
3095 exch2_tBasey(43)=340
3096 exch2_txGlobalo(43)=2041
3097 exch2_tyGlobalo(43)=341
3098 exch2_isWedge(43)=1
3099 exch2_isNedge(43)=1
3100 exch2_isEedge(43)=0
3101 exch2_isSedge(43)=0
3102 exch2_myFace(43)=5
3103 exch2_mydNx(43)=510
3104 exch2_mydNy(43)=510
3105 exch2_nNeighbours(43)=4
3106
3107 exch2_neighbourId(1,43)=7
3108 exch2_iLo(1,43)=0
3109 exch2_iHi(1,43)=171
3110 exch2_jLo(1,43)=171
3111 exch2_jHi(1,43)=171
3112 exch2_opposingSend(1,43)=4
3113 exch2_pij(1,1,43)=0
3114 exch2_pij(2,1,43)=-1
3115 exch2_pij(3,1,43)=1
3116 exch2_pij(4,1,43)=0
3117 exch2_oi(1,43)=511
3118 exch2_oj(1,43)=510
3119
3120 exch2_neighbourId(2,43)=40
3121 exch2_iLo(2,43)=0
3122 exch2_iHi(2,43)=171
3123 exch2_jLo(2,43)=0
3124 exch2_jHi(2,43)=0
3125 exch2_opposingSend(2,43)=1
3126 exch2_pij(1,2,43)=1
3127 exch2_pij(2,2,43)=0
3128 exch2_pij(3,2,43)=0
3129 exch2_pij(4,2,43)=1
3130 exch2_oi(2,43)=0
3131 exch2_oj(2,43)=0
3132
3133 exch2_neighbourId(3,43)=44
3134 exch2_iLo(3,43)=171
3135 exch2_iHi(3,43)=171
3136 exch2_jLo(3,43)=0
3137 exch2_jHi(3,43)=171
3138 exch2_opposingSend(3,43)=4
3139 exch2_pij(1,3,43)=1
3140 exch2_pij(2,3,43)=0
3141 exch2_pij(3,3,43)=0
3142 exch2_pij(4,3,43)=1
3143 exch2_oi(3,43)=0
3144 exch2_oj(3,43)=0
3145
3146 exch2_neighbourId(4,43)=25
3147 exch2_iLo(4,43)=0
3148 exch2_iHi(4,43)=0
3149 exch2_jLo(4,43)=0
3150 exch2_jHi(4,43)=171
3151 exch2_opposingSend(4,43)=1
3152 exch2_pij(1,4,43)=0
3153 exch2_pij(2,4,43)=1
3154 exch2_pij(3,4,43)=-1
3155 exch2_pij(4,4,43)=0
3156 exch2_oi(4,43)=-510
3157 exch2_oj(4,43)=511
3158 RETURN
3159 END
3160
3161 SUBROUTINE W2_E2SETUP_44
3162 C Topology for tile 44
3163 #include "W2_EXCH2_TOPOLOGY.h"
3164 exch2_tNx(44)=170
3165 exch2_tNy(44)=170
3166 exch2_tBasex(44)=170
3167 exch2_tBasey(44)=340
3168 exch2_txGlobalo(44)=2211
3169 exch2_tyGlobalo(44)=341
3170 exch2_isWedge(44)=0
3171 exch2_isNedge(44)=1
3172 exch2_isEedge(44)=0
3173 exch2_isSedge(44)=0
3174 exch2_myFace(44)=5
3175 exch2_mydNx(44)=510
3176 exch2_mydNy(44)=510
3177 exch2_nNeighbours(44)=4
3178
3179 exch2_neighbourId(1,44)=4
3180 exch2_iLo(1,44)=0
3181 exch2_iHi(1,44)=171
3182 exch2_jLo(1,44)=171
3183 exch2_jHi(1,44)=171
3184 exch2_opposingSend(1,44)=4
3185 exch2_pij(1,1,44)=0
3186 exch2_pij(2,1,44)=-1
3187 exch2_pij(3,1,44)=1
3188 exch2_pij(4,1,44)=0
3189 exch2_oi(1,44)=511
3190 exch2_oj(1,44)=510
3191
3192 exch2_neighbourId(2,44)=41
3193 exch2_iLo(2,44)=0
3194 exch2_iHi(2,44)=171
3195 exch2_jLo(2,44)=0
3196 exch2_jHi(2,44)=0
3197 exch2_opposingSend(2,44)=1
3198 exch2_pij(1,2,44)=1
3199 exch2_pij(2,2,44)=0
3200 exch2_pij(3,2,44)=0
3201 exch2_pij(4,2,44)=1
3202 exch2_oi(2,44)=0
3203 exch2_oj(2,44)=0
3204
3205 exch2_neighbourId(3,44)=45
3206 exch2_iLo(3,44)=171
3207 exch2_iHi(3,44)=171
3208 exch2_jLo(3,44)=0
3209 exch2_jHi(3,44)=171
3210 exch2_opposingSend(3,44)=4
3211 exch2_pij(1,3,44)=1
3212 exch2_pij(2,3,44)=0
3213 exch2_pij(3,3,44)=0
3214 exch2_pij(4,3,44)=1
3215 exch2_oi(3,44)=0
3216 exch2_oj(3,44)=0
3217
3218 exch2_neighbourId(4,44)=43
3219 exch2_iLo(4,44)=0
3220 exch2_iHi(4,44)=0
3221 exch2_jLo(4,44)=0
3222 exch2_jHi(4,44)=171
3223 exch2_opposingSend(4,44)=3
3224 exch2_pij(1,4,44)=1
3225 exch2_pij(2,4,44)=0
3226 exch2_pij(3,4,44)=0
3227 exch2_pij(4,4,44)=1
3228 exch2_oi(4,44)=0
3229 exch2_oj(4,44)=0
3230 RETURN
3231 END
3232
3233 SUBROUTINE W2_E2SETUP_45
3234 C Topology for tile 45
3235 #include "W2_EXCH2_TOPOLOGY.h"
3236 exch2_tNx(45)=170
3237 exch2_tNy(45)=170
3238 exch2_tBasex(45)=340
3239 exch2_tBasey(45)=340
3240 exch2_txGlobalo(45)=2381
3241 exch2_tyGlobalo(45)=341
3242 exch2_isWedge(45)=0
3243 exch2_isNedge(45)=1
3244 exch2_isEedge(45)=1
3245 exch2_isSedge(45)=0
3246 exch2_myFace(45)=5
3247 exch2_mydNx(45)=510
3248 exch2_mydNy(45)=510
3249 exch2_nNeighbours(45)=4
3250
3251 exch2_neighbourId(1,45)=1
3252 exch2_iLo(1,45)=0
3253 exch2_iHi(1,45)=171
3254 exch2_jLo(1,45)=171
3255 exch2_jHi(1,45)=171
3256 exch2_opposingSend(1,45)=4
3257 exch2_pij(1,1,45)=0
3258 exch2_pij(2,1,45)=-1
3259 exch2_pij(3,1,45)=1
3260 exch2_pij(4,1,45)=0
3261 exch2_oi(1,45)=511
3262 exch2_oj(1,45)=510
3263
3264 exch2_neighbourId(2,45)=42
3265 exch2_iLo(2,45)=0
3266 exch2_iHi(2,45)=171
3267 exch2_jLo(2,45)=0
3268 exch2_jHi(2,45)=0
3269 exch2_opposingSend(2,45)=1
3270 exch2_pij(1,2,45)=1
3271 exch2_pij(2,2,45)=0
3272 exch2_pij(3,2,45)=0
3273 exch2_pij(4,2,45)=1
3274 exch2_oi(2,45)=0
3275 exch2_oj(2,45)=0
3276
3277 exch2_neighbourId(3,45)=52
3278 exch2_iLo(3,45)=171
3279 exch2_iHi(3,45)=171
3280 exch2_jLo(3,45)=0
3281 exch2_jHi(3,45)=171
3282 exch2_opposingSend(3,45)=4
3283 exch2_pij(1,3,45)=1
3284 exch2_pij(2,3,45)=0
3285 exch2_pij(3,3,45)=0
3286 exch2_pij(4,3,45)=1
3287 exch2_oi(3,45)=510
3288 exch2_oj(3,45)=0
3289
3290 exch2_neighbourId(4,45)=44
3291 exch2_iLo(4,45)=0
3292 exch2_iHi(4,45)=0
3293 exch2_jLo(4,45)=0
3294 exch2_jHi(4,45)=171
3295 exch2_opposingSend(4,45)=3
3296 exch2_pij(1,4,45)=1
3297 exch2_pij(2,4,45)=0
3298 exch2_pij(3,4,45)=0
3299 exch2_pij(4,4,45)=1
3300 exch2_oi(4,45)=0
3301 exch2_oj(4,45)=0
3302 RETURN
3303 END
3304
3305 SUBROUTINE W2_E2SETUP_46
3306 C Topology for tile 46
3307 #include "W2_EXCH2_TOPOLOGY.h"
3308 exch2_tNx(46)=170
3309 exch2_tNy(46)=170
3310 exch2_tBasex(46)=0
3311 exch2_tBasey(46)=0
3312 exch2_txGlobalo(46)=2551
3313 exch2_tyGlobalo(46)=1
3314 exch2_isWedge(46)=1
3315 exch2_isNedge(46)=0
3316 exch2_isEedge(46)=0
3317 exch2_isSedge(46)=1
3318 exch2_myFace(46)=6
3319 exch2_mydNx(46)=510
3320 exch2_mydNy(46)=510
3321 exch2_nNeighbours(46)=4
3322
3323 exch2_neighbourId(1,46)=49
3324 exch2_iLo(1,46)=0
3325 exch2_iHi(1,46)=171
3326 exch2_jLo(1,46)=171
3327 exch2_jHi(1,46)=171
3328 exch2_opposingSend(1,46)=2
3329 exch2_pij(1,1,46)=1
3330 exch2_pij(2,1,46)=0
3331 exch2_pij(3,1,46)=0
3332 exch2_pij(4,1,46)=1
3333 exch2_oi(1,46)=0
3334 exch2_oj(1,46)=0
3335
3336 exch2_neighbourId(2,46)=36
3337 exch2_iLo(2,46)=0
3338 exch2_iHi(2,46)=171
3339 exch2_jLo(2,46)=0
3340 exch2_jHi(2,46)=0
3341 exch2_opposingSend(2,46)=3
3342 exch2_pij(1,2,46)=0
3343 exch2_pij(2,2,46)=-1
3344 exch2_pij(3,2,46)=1
3345 exch2_pij(4,2,46)=0
3346 exch2_oi(2,46)=511
3347 exch2_oj(2,46)=-510
3348
3349 exch2_neighbourId(3,46)=47
3350 exch2_iLo(3,46)=171
3351 exch2_iHi(3,46)=171
3352 exch2_jLo(3,46)=0
3353 exch2_jHi(3,46)=171
3354 exch2_opposingSend(3,46)=4
3355 exch2_pij(1,3,46)=1
3356 exch2_pij(2,3,46)=0
3357 exch2_pij(3,3,46)=0
3358 exch2_pij(4,3,46)=1
3359 exch2_oi(3,46)=0
3360 exch2_oj(3,46)=0
3361
3362 exch2_neighbourId(4,46)=39
3363 exch2_iLo(4,46)=0
3364 exch2_iHi(4,46)=0
3365 exch2_jLo(4,46)=0
3366 exch2_jHi(4,46)=171
3367 exch2_opposingSend(4,46)=3
3368 exch2_pij(1,4,46)=1
3369 exch2_pij(2,4,46)=0
3370 exch2_pij(3,4,46)=0
3371 exch2_pij(4,4,46)=1
3372 exch2_oi(4,46)=-510
3373 exch2_oj(4,46)=0
3374 RETURN
3375 END
3376
3377 SUBROUTINE W2_E2SETUP_47
3378 C Topology for tile 47
3379 #include "W2_EXCH2_TOPOLOGY.h"
3380 exch2_tNx(47)=170
3381 exch2_tNy(47)=170
3382 exch2_tBasex(47)=170
3383 exch2_tBasey(47)=0
3384 exch2_txGlobalo(47)=2721
3385 exch2_tyGlobalo(47)=1
3386 exch2_isWedge(47)=0
3387 exch2_isNedge(47)=0
3388 exch2_isEedge(47)=0
3389 exch2_isSedge(47)=1
3390 exch2_myFace(47)=6
3391 exch2_mydNx(47)=510
3392 exch2_mydNy(47)=510
3393 exch2_nNeighbours(47)=4
3394
3395 exch2_neighbourId(1,47)=50
3396 exch2_iLo(1,47)=0
3397 exch2_iHi(1,47)=171
3398 exch2_jLo(1,47)=171
3399 exch2_jHi(1,47)=171
3400 exch2_opposingSend(1,47)=2
3401 exch2_pij(1,1,47)=1
3402 exch2_pij(2,1,47)=0
3403 exch2_pij(3,1,47)=0
3404 exch2_pij(4,1,47)=1
3405 exch2_oi(1,47)=0
3406 exch2_oj(1,47)=0
3407
3408 exch2_neighbourId(2,47)=33
3409 exch2_iLo(2,47)=0
3410 exch2_iHi(2,47)=171
3411 exch2_jLo(2,47)=0
3412 exch2_jHi(2,47)=0
3413 exch2_opposingSend(2,47)=3
3414 exch2_pij(1,2,47)=0
3415 exch2_pij(2,2,47)=-1
3416 exch2_pij(3,2,47)=1
3417 exch2_pij(4,2,47)=0
3418 exch2_oi(2,47)=511
3419 exch2_oj(2,47)=-510
3420
3421 exch2_neighbourId(3,47)=48
3422 exch2_iLo(3,47)=171
3423 exch2_iHi(3,47)=171
3424 exch2_jLo(3,47)=0
3425 exch2_jHi(3,47)=171
3426 exch2_opposingSend(3,47)=4
3427 exch2_pij(1,3,47)=1
3428 exch2_pij(2,3,47)=0
3429 exch2_pij(3,3,47)=0
3430 exch2_pij(4,3,47)=1
3431 exch2_oi(3,47)=0
3432 exch2_oj(3,47)=0
3433
3434 exch2_neighbourId(4,47)=46
3435 exch2_iLo(4,47)=0
3436 exch2_iHi(4,47)=0
3437 exch2_jLo(4,47)=0
3438 exch2_jHi(4,47)=171
3439 exch2_opposingSend(4,47)=3
3440 exch2_pij(1,4,47)=1
3441 exch2_pij(2,4,47)=0
3442 exch2_pij(3,4,47)=0
3443 exch2_pij(4,4,47)=1
3444 exch2_oi(4,47)=0
3445 exch2_oj(4,47)=0
3446 RETURN
3447 END
3448
3449 SUBROUTINE W2_E2SETUP_48
3450 C Topology for tile 48
3451 #include "W2_EXCH2_TOPOLOGY.h"
3452 exch2_tNx(48)=170
3453 exch2_tNy(48)=170
3454 exch2_tBasex(48)=340
3455 exch2_tBasey(48)=0
3456 exch2_txGlobalo(48)=2891
3457 exch2_tyGlobalo(48)=1
3458 exch2_isWedge(48)=0
3459 exch2_isNedge(48)=0
3460 exch2_isEedge(48)=1
3461 exch2_isSedge(48)=1
3462 exch2_myFace(48)=6
3463 exch2_mydNx(48)=510
3464 exch2_mydNy(48)=510
3465 exch2_nNeighbours(48)=4
3466
3467 exch2_neighbourId(1,48)=51
3468 exch2_iLo(1,48)=0
3469 exch2_iHi(1,48)=171
3470 exch2_jLo(1,48)=171
3471 exch2_jHi(1,48)=171
3472 exch2_opposingSend(1,48)=2
3473 exch2_pij(1,1,48)=1
3474 exch2_pij(2,1,48)=0
3475 exch2_pij(3,1,48)=0
3476 exch2_pij(4,1,48)=1
3477 exch2_oi(1,48)=0
3478 exch2_oj(1,48)=0
3479
3480 exch2_neighbourId(2,48)=30
3481 exch2_iLo(2,48)=0
3482 exch2_iHi(2,48)=171
3483 exch2_jLo(2,48)=0
3484 exch2_jHi(2,48)=0
3485 exch2_opposingSend(2,48)=3
3486 exch2_pij(1,2,48)=0
3487 exch2_pij(2,2,48)=-1
3488 exch2_pij(3,2,48)=1
3489 exch2_pij(4,2,48)=0
3490 exch2_oi(2,48)=511
3491 exch2_oj(2,48)=-510
3492
3493 exch2_neighbourId(3,48)=12
3494 exch2_iLo(3,48)=171
3495 exch2_iHi(3,48)=171
3496 exch2_jLo(3,48)=0
3497 exch2_jHi(3,48)=171
3498 exch2_opposingSend(3,48)=2
3499 exch2_pij(1,3,48)=0
3500 exch2_pij(2,3,48)=1
3501 exch2_pij(3,3,48)=-1
3502 exch2_pij(4,3,48)=0
3503 exch2_oi(3,48)=510
3504 exch2_oj(3,48)=511
3505
3506 exch2_neighbourId(4,48)=47
3507 exch2_iLo(4,48)=0
3508 exch2_iHi(4,48)=0
3509 exch2_jLo(4,48)=0
3510 exch2_jHi(4,48)=171
3511 exch2_opposingSend(4,48)=3
3512 exch2_pij(1,4,48)=1
3513 exch2_pij(2,4,48)=0
3514 exch2_pij(3,4,48)=0
3515 exch2_pij(4,4,48)=1
3516 exch2_oi(4,48)=0
3517 exch2_oj(4,48)=0
3518 RETURN
3519 END
3520
3521 SUBROUTINE W2_E2SETUP_49
3522 C Topology for tile 49
3523 #include "W2_EXCH2_TOPOLOGY.h"
3524 exch2_tNx(49)=170
3525 exch2_tNy(49)=170
3526 exch2_tBasex(49)=0
3527 exch2_tBasey(49)=170
3528 exch2_txGlobalo(49)=2551
3529 exch2_tyGlobalo(49)=171
3530 exch2_isWedge(49)=1
3531 exch2_isNedge(49)=0
3532 exch2_isEedge(49)=0
3533 exch2_isSedge(49)=0
3534 exch2_myFace(49)=6
3535 exch2_mydNx(49)=510
3536 exch2_mydNy(49)=510
3537 exch2_nNeighbours(49)=4
3538
3539 exch2_neighbourId(1,49)=52
3540 exch2_iLo(1,49)=0
3541 exch2_iHi(1,49)=171
3542 exch2_jLo(1,49)=171
3543 exch2_jHi(1,49)=171
3544 exch2_opposingSend(1,49)=2
3545 exch2_pij(1,1,49)=1
3546 exch2_pij(2,1,49)=0
3547 exch2_pij(3,1,49)=0
3548 exch2_pij(4,1,49)=1
3549 exch2_oi(1,49)=0
3550 exch2_oj(1,49)=0
3551
3552 exch2_neighbourId(2,49)=46
3553 exch2_iLo(2,49)=0
3554 exch2_iHi(2,49)=171
3555 exch2_jLo(2,49)=0
3556 exch2_jHi(2,49)=0
3557 exch2_opposingSend(2,49)=1
3558 exch2_pij(1,2,49)=1
3559 exch2_pij(2,2,49)=0
3560 exch2_pij(3,2,49)=0
3561 exch2_pij(4,2,49)=1
3562 exch2_oi(2,49)=0
3563 exch2_oj(2,49)=0
3564
3565 exch2_neighbourId(3,49)=50
3566 exch2_iLo(3,49)=171
3567 exch2_iHi(3,49)=171
3568 exch2_jLo(3,49)=0
3569 exch2_jHi(3,49)=171
3570 exch2_opposingSend(3,49)=4
3571 exch2_pij(1,3,49)=1
3572 exch2_pij(2,3,49)=0
3573 exch2_pij(3,3,49)=0
3574 exch2_pij(4,3,49)=1
3575 exch2_oi(3,49)=0
3576 exch2_oj(3,49)=0
3577
3578 exch2_neighbourId(4,49)=42
3579 exch2_iLo(4,49)=0
3580 exch2_iHi(4,49)=0
3581 exch2_jLo(4,49)=0
3582 exch2_jHi(4,49)=171
3583 exch2_opposingSend(4,49)=3
3584 exch2_pij(1,4,49)=1
3585 exch2_pij(2,4,49)=0
3586 exch2_pij(3,4,49)=0
3587 exch2_pij(4,4,49)=1
3588 exch2_oi(4,49)=-510
3589 exch2_oj(4,49)=0
3590 RETURN
3591 END
3592
3593 SUBROUTINE W2_E2SETUP_50
3594 C Topology for tile 50
3595 #include "W2_EXCH2_TOPOLOGY.h"
3596 exch2_tNx(50)=170
3597 exch2_tNy(50)=170
3598 exch2_tBasex(50)=170
3599 exch2_tBasey(50)=170
3600 exch2_txGlobalo(50)=2721
3601 exch2_tyGlobalo(50)=171
3602 exch2_isWedge(50)=0
3603 exch2_isNedge(50)=0
3604 exch2_isEedge(50)=0
3605 exch2_isSedge(50)=0
3606 exch2_myFace(50)=6
3607 exch2_mydNx(50)=510
3608 exch2_mydNy(50)=510
3609 exch2_nNeighbours(50)=4
3610
3611 exch2_neighbourId(1,50)=53
3612 exch2_iLo(1,50)=0
3613 exch2_iHi(1,50)=171
3614 exch2_jLo(1,50)=171
3615 exch2_jHi(1,50)=171
3616 exch2_opposingSend(1,50)=2
3617 exch2_pij(1,1,50)=1
3618 exch2_pij(2,1,50)=0
3619 exch2_pij(3,1,50)=0
3620 exch2_pij(4,1,50)=1
3621 exch2_oi(1,50)=0
3622 exch2_oj(1,50)=0
3623
3624 exch2_neighbourId(2,50)=47
3625 exch2_iLo(2,50)=0
3626 exch2_iHi(2,50)=171
3627 exch2_jLo(2,50)=0
3628 exch2_jHi(2,50)=0
3629 exch2_opposingSend(2,50)=1
3630 exch2_pij(1,2,50)=1
3631 exch2_pij(2,2,50)=0
3632 exch2_pij(3,2,50)=0
3633 exch2_pij(4,2,50)=1
3634 exch2_oi(2,50)=0
3635 exch2_oj(2,50)=0
3636
3637 exch2_neighbourId(3,50)=51
3638 exch2_iLo(3,50)=171
3639 exch2_iHi(3,50)=171
3640 exch2_jLo(3,50)=0
3641 exch2_jHi(3,50)=171
3642 exch2_opposingSend(3,50)=4
3643 exch2_pij(1,3,50)=1
3644 exch2_pij(2,3,50)=0
3645 exch2_pij(3,3,50)=0
3646 exch2_pij(4,3,50)=1
3647 exch2_oi(3,50)=0
3648 exch2_oj(3,50)=0
3649
3650 exch2_neighbourId(4,50)=49
3651 exch2_iLo(4,50)=0
3652 exch2_iHi(4,50)=0
3653 exch2_jLo(4,50)=0
3654 exch2_jHi(4,50)=171
3655 exch2_opposingSend(4,50)=3
3656 exch2_pij(1,4,50)=1
3657 exch2_pij(2,4,50)=0
3658 exch2_pij(3,4,50)=0
3659 exch2_pij(4,4,50)=1
3660 exch2_oi(4,50)=0
3661 exch2_oj(4,50)=0
3662 RETURN
3663 END
3664
3665 SUBROUTINE W2_E2SETUP_51
3666 C Topology for tile 51
3667 #include "W2_EXCH2_TOPOLOGY.h"
3668 exch2_tNx(51)=170
3669 exch2_tNy(51)=170
3670 exch2_tBasex(51)=340
3671 exch2_tBasey(51)=170
3672 exch2_txGlobalo(51)=2891
3673 exch2_tyGlobalo(51)=171
3674 exch2_isWedge(51)=0
3675 exch2_isNedge(51)=0
3676 exch2_isEedge(51)=1
3677 exch2_isSedge(51)=0
3678 exch2_myFace(51)=6
3679 exch2_mydNx(51)=510
3680 exch2_mydNy(51)=510
3681 exch2_nNeighbours(51)=4
3682
3683 exch2_neighbourId(1,51)=54
3684 exch2_iLo(1,51)=0
3685 exch2_iHi(1,51)=171
3686 exch2_jLo(1,51)=171
3687 exch2_jHi(1,51)=171
3688 exch2_opposingSend(1,51)=2
3689 exch2_pij(1,1,51)=1
3690 exch2_pij(2,1,51)=0
3691 exch2_pij(3,1,51)=0
3692 exch2_pij(4,1,51)=1
3693 exch2_oi(1,51)=0
3694 exch2_oj(1,51)=0
3695
3696 exch2_neighbourId(2,51)=48
3697 exch2_iLo(2,51)=0
3698 exch2_iHi(2,51)=171
3699 exch2_jLo(2,51)=0
3700 exch2_jHi(2,51)=0
3701 exch2_opposingSend(2,51)=1
3702 exch2_pij(1,2,51)=1
3703 exch2_pij(2,2,51)=0
3704 exch2_pij(3,2,51)=0
3705 exch2_pij(4,2,51)=1
3706 exch2_oi(2,51)=0
3707 exch2_oj(2,51)=0
3708
3709 exch2_neighbourId(3,51)=11
3710 exch2_iLo(3,51)=171
3711 exch2_iHi(3,51)=171
3712 exch2_jLo(3,51)=0
3713 exch2_jHi(3,51)=171
3714 exch2_opposingSend(3,51)=2
3715 exch2_pij(1,3,51)=0
3716 exch2_pij(2,3,51)=1
3717 exch2_pij(3,3,51)=-1
3718 exch2_pij(4,3,51)=0
3719 exch2_oi(3,51)=510
3720 exch2_oj(3,51)=511
3721
3722 exch2_neighbourId(4,51)=50
3723 exch2_iLo(4,51)=0
3724 exch2_iHi(4,51)=0
3725 exch2_jLo(4,51)=0
3726 exch2_jHi(4,51)=171
3727 exch2_opposingSend(4,51)=3
3728 exch2_pij(1,4,51)=1
3729 exch2_pij(2,4,51)=0
3730 exch2_pij(3,4,51)=0
3731 exch2_pij(4,4,51)=1
3732 exch2_oi(4,51)=0
3733 exch2_oj(4,51)=0
3734 RETURN
3735 END
3736
3737 SUBROUTINE W2_E2SETUP_52
3738 C Topology for tile 52
3739 #include "W2_EXCH2_TOPOLOGY.h"
3740 exch2_tNx(52)=170
3741 exch2_tNy(52)=170
3742 exch2_tBasex(52)=0
3743 exch2_tBasey(52)=340
3744 exch2_txGlobalo(52)=2551
3745 exch2_tyGlobalo(52)=341
3746 exch2_isWedge(52)=1
3747 exch2_isNedge(52)=1
3748 exch2_isEedge(52)=0
3749 exch2_isSedge(52)=0
3750 exch2_myFace(52)=6
3751 exch2_mydNx(52)=510
3752 exch2_mydNy(52)=510
3753 exch2_nNeighbours(52)=4
3754
3755 exch2_neighbourId(1,52)=1
3756 exch2_iLo(1,52)=0
3757 exch2_iHi(1,52)=171
3758 exch2_jLo(1,52)=171
3759 exch2_jHi(1,52)=171
3760 exch2_opposingSend(1,52)=2
3761 exch2_pij(1,1,52)=1
3762 exch2_pij(2,1,52)=0
3763 exch2_pij(3,1,52)=0
3764 exch2_pij(4,1,52)=1
3765 exch2_oi(1,52)=0
3766 exch2_oj(1,52)=510
3767
3768 exch2_neighbourId(2,52)=49
3769 exch2_iLo(2,52)=0
3770 exch2_iHi(2,52)=171
3771 exch2_jLo(2,52)=0
3772 exch2_jHi(2,52)=0
3773 exch2_opposingSend(2,52)=1
3774 exch2_pij(1,2,52)=1
3775 exch2_pij(2,2,52)=0
3776 exch2_pij(3,2,52)=0
3777 exch2_pij(4,2,52)=1
3778 exch2_oi(2,52)=0
3779 exch2_oj(2,52)=0
3780
3781 exch2_neighbourId(3,52)=53
3782 exch2_iLo(3,52)=171
3783 exch2_iHi(3,52)=171
3784 exch2_jLo(3,52)=0
3785 exch2_jHi(3,52)=171
3786 exch2_opposingSend(3,52)=4
3787 exch2_pij(1,3,52)=1
3788 exch2_pij(2,3,52)=0
3789 exch2_pij(3,3,52)=0
3790 exch2_pij(4,3,52)=1
3791 exch2_oi(3,52)=0
3792 exch2_oj(3,52)=0
3793
3794 exch2_neighbourId(4,52)=45
3795 exch2_iLo(4,52)=0
3796 exch2_iHi(4,52)=0
3797 exch2_jLo(4,52)=0
3798 exch2_jHi(4,52)=171
3799 exch2_opposingSend(4,52)=3
3800 exch2_pij(1,4,52)=1
3801 exch2_pij(2,4,52)=0
3802 exch2_pij(3,4,52)=0
3803 exch2_pij(4,4,52)=1
3804 exch2_oi(4,52)=-510
3805 exch2_oj(4,52)=0
3806 RETURN
3807 END
3808
3809 SUBROUTINE W2_E2SETUP_53
3810 C Topology for tile 53
3811 #include "W2_EXCH2_TOPOLOGY.h"
3812 exch2_tNx(53)=170
3813 exch2_tNy(53)=170
3814 exch2_tBasex(53)=170
3815 exch2_tBasey(53)=340
3816 exch2_txGlobalo(53)=2721
3817 exch2_tyGlobalo(53)=341
3818 exch2_isWedge(53)=0
3819 exch2_isNedge(53)=1
3820 exch2_isEedge(53)=0
3821 exch2_isSedge(53)=0
3822 exch2_myFace(53)=6
3823 exch2_mydNx(53)=510
3824 exch2_mydNy(53)=510
3825 exch2_nNeighbours(53)=4
3826
3827 exch2_neighbourId(1,53)=2
3828 exch2_iLo(1,53)=0
3829 exch2_iHi(1,53)=171
3830 exch2_jLo(1,53)=171
3831 exch2_jHi(1,53)=171
3832 exch2_opposingSend(1,53)=2
3833 exch2_pij(1,1,53)=1
3834 exch2_pij(2,1,53)=0
3835 exch2_pij(3,1,53)=0
3836 exch2_pij(4,1,53)=1
3837 exch2_oi(1,53)=0
3838 exch2_oj(1,53)=510
3839
3840 exch2_neighbourId(2,53)=50
3841 exch2_iLo(2,53)=0
3842 exch2_iHi(2,53)=171
3843 exch2_jLo(2,53)=0
3844 exch2_jHi(2,53)=0
3845 exch2_opposingSend(2,53)=1
3846 exch2_pij(1,2,53)=1
3847 exch2_pij(2,2,53)=0
3848 exch2_pij(3,2,53)=0
3849 exch2_pij(4,2,53)=1
3850 exch2_oi(2,53)=0
3851 exch2_oj(2,53)=0
3852
3853 exch2_neighbourId(3,53)=54
3854 exch2_iLo(3,53)=171
3855 exch2_iHi(3,53)=171
3856 exch2_jLo(3,53)=0
3857 exch2_jHi(3,53)=171
3858 exch2_opposingSend(3,53)=4
3859 exch2_pij(1,3,53)=1
3860 exch2_pij(2,3,53)=0
3861 exch2_pij(3,3,53)=0
3862 exch2_pij(4,3,53)=1
3863 exch2_oi(3,53)=0
3864 exch2_oj(3,53)=0
3865
3866 exch2_neighbourId(4,53)=52
3867 exch2_iLo(4,53)=0
3868 exch2_iHi(4,53)=0
3869 exch2_jLo(4,53)=0
3870 exch2_jHi(4,53)=171
3871 exch2_opposingSend(4,53)=3
3872 exch2_pij(1,4,53)=1
3873 exch2_pij(2,4,53)=0
3874 exch2_pij(3,4,53)=0
3875 exch2_pij(4,4,53)=1
3876 exch2_oi(4,53)=0
3877 exch2_oj(4,53)=0
3878 RETURN
3879 END
3880
3881 SUBROUTINE W2_E2SETUP_54
3882 C Topology for tile 54
3883 #include "W2_EXCH2_TOPOLOGY.h"
3884 exch2_tNx(54)=170
3885 exch2_tNy(54)=170
3886 exch2_tBasex(54)=340
3887 exch2_tBasey(54)=340
3888 exch2_txGlobalo(54)=2891
3889 exch2_tyGlobalo(54)=341
3890 exch2_isWedge(54)=0
3891 exch2_isNedge(54)=1
3892 exch2_isEedge(54)=1
3893 exch2_isSedge(54)=0
3894 exch2_myFace(54)=6
3895 exch2_mydNx(54)=510
3896 exch2_mydNy(54)=510
3897 exch2_nNeighbours(54)=4
3898
3899 exch2_neighbourId(1,54)=3
3900 exch2_iLo(1,54)=0
3901 exch2_iHi(1,54)=171
3902 exch2_jLo(1,54)=171
3903 exch2_jHi(1,54)=171
3904 exch2_opposingSend(1,54)=2
3905 exch2_pij(1,1,54)=1
3906 exch2_pij(2,1,54)=0
3907 exch2_pij(3,1,54)=0
3908 exch2_pij(4,1,54)=1
3909 exch2_oi(1,54)=0
3910 exch2_oj(1,54)=510
3911
3912 exch2_neighbourId(2,54)=51
3913 exch2_iLo(2,54)=0
3914 exch2_iHi(2,54)=171
3915 exch2_jLo(2,54)=0
3916 exch2_jHi(2,54)=0
3917 exch2_opposingSend(2,54)=1
3918 exch2_pij(1,2,54)=1
3919 exch2_pij(2,2,54)=0
3920 exch2_pij(3,2,54)=0
3921 exch2_pij(4,2,54)=1
3922 exch2_oi(2,54)=0
3923 exch2_oj(2,54)=0
3924
3925 exch2_neighbourId(3,54)=10
3926 exch2_iLo(3,54)=171
3927 exch2_iHi(3,54)=171
3928 exch2_jLo(3,54)=0
3929 exch2_jHi(3,54)=171
3930 exch2_opposingSend(3,54)=2
3931 exch2_pij(1,3,54)=0
3932 exch2_pij(2,3,54)=1
3933 exch2_pij(3,3,54)=-1
3934 exch2_pij(4,3,54)=0
3935 exch2_oi(3,54)=510
3936 exch2_oj(3,54)=511
3937
3938 exch2_neighbourId(4,54)=53
3939 exch2_iLo(4,54)=0
3940 exch2_iHi(4,54)=0
3941 exch2_jLo(4,54)=0
3942 exch2_jHi(4,54)=171
3943 exch2_opposingSend(4,54)=3
3944 exch2_pij(1,4,54)=1
3945 exch2_pij(2,4,54)=0
3946 exch2_pij(3,4,54)=0
3947 exch2_pij(4,4,54)=1
3948 exch2_oi(4,54)=0
3949 exch2_oj(4,54)=0
3950 RETURN
3951 END
3952
  ViewVC Help
Powered by ViewVC 1.1.22