/[MITgcm]/MITgcm_contrib/mlosch/cs32test/s96t/w2_e2setup.F
ViewVC logotype

Contents of /MITgcm_contrib/mlosch/cs32test/s96t/w2_e2setup.F

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

Revision 1.1 - (show annotations) (download)
Fri Mar 9 19:40:40 2007 UTC (18 years, 4 months ago) by mlosch
Branch: MAIN
CVS Tags: HEAD 
o ckecking in test case for cubed sphere with holes
1 SUBROUTINE W2_E2SETUP
2
3 C Tile toplogy settings data structures
4 #include "W2_EXCH2_TOPOLOGY.h"
5
6 C Tile settings table
7 CALL W2_E2SETUP_1
8 CALL W2_E2SETUP_2
9 CALL W2_E2SETUP_3
10 CALL W2_E2SETUP_4
11 CALL W2_E2SETUP_5
12 CALL W2_E2SETUP_6
13 CALL W2_E2SETUP_7
14 CALL W2_E2SETUP_8
15 CALL W2_E2SETUP_9
16 CALL W2_E2SETUP_10
17 CALL W2_E2SETUP_11
18 CALL W2_E2SETUP_12
19 CALL W2_E2SETUP_13
20 CALL W2_E2SETUP_14
21 CALL W2_E2SETUP_15
22 CALL W2_E2SETUP_16
23 CALL W2_E2SETUP_17
24 CALL W2_E2SETUP_18
25 CALL W2_E2SETUP_19
26 CALL W2_E2SETUP_20
27 CALL W2_E2SETUP_21
28 CALL W2_E2SETUP_22
29 CALL W2_E2SETUP_23
30 CALL W2_E2SETUP_24
31 CALL W2_E2SETUP_25
32 CALL W2_E2SETUP_26
33 CALL W2_E2SETUP_27
34 CALL W2_E2SETUP_28
35 CALL W2_E2SETUP_29
36 CALL W2_E2SETUP_30
37 CALL W2_E2SETUP_31
38 CALL W2_E2SETUP_32
39 CALL W2_E2SETUP_33
40 CALL W2_E2SETUP_34
41 CALL W2_E2SETUP_35
42 CALL W2_E2SETUP_36
43 CALL W2_E2SETUP_37
44 CALL W2_E2SETUP_38
45 CALL W2_E2SETUP_39
46 CALL W2_E2SETUP_40
47 CALL W2_E2SETUP_41
48 CALL W2_E2SETUP_42
49 CALL W2_E2SETUP_43
50 CALL W2_E2SETUP_44
51 CALL W2_E2SETUP_45
52 CALL W2_E2SETUP_46
53 CALL W2_E2SETUP_47
54 CALL W2_E2SETUP_48
55 CALL W2_E2SETUP_49
56 CALL W2_E2SETUP_50
57 CALL W2_E2SETUP_51
58 CALL W2_E2SETUP_52
59 CALL W2_E2SETUP_53
60 CALL W2_E2SETUP_54
61 CALL W2_E2SETUP_55
62 CALL W2_E2SETUP_56
63 CALL W2_E2SETUP_57
64 CALL W2_E2SETUP_58
65 CALL W2_E2SETUP_59
66 CALL W2_E2SETUP_60
67 CALL W2_E2SETUP_61
68 CALL W2_E2SETUP_62
69 CALL W2_E2SETUP_63
70 CALL W2_E2SETUP_64
71 CALL W2_E2SETUP_65
72 CALL W2_E2SETUP_66
73 CALL W2_E2SETUP_67
74 CALL W2_E2SETUP_68
75 CALL W2_E2SETUP_69
76 CALL W2_E2SETUP_70
77 CALL W2_E2SETUP_71
78 CALL W2_E2SETUP_72
79 CALL W2_E2SETUP_73
80 CALL W2_E2SETUP_74
81 CALL W2_E2SETUP_75
82 CALL W2_E2SETUP_76
83 CALL W2_E2SETUP_77
84 CALL W2_E2SETUP_78
85 CALL W2_E2SETUP_79
86 CALL W2_E2SETUP_80
87 CALL W2_E2SETUP_81
88 CALL W2_E2SETUP_82
89 CALL W2_E2SETUP_83
90 CALL W2_E2SETUP_84
91 CALL W2_E2SETUP_85
92 CALL W2_E2SETUP_86
93 CALL W2_E2SETUP_87
94 CALL W2_E2SETUP_88
95 CALL W2_E2SETUP_89
96 CALL W2_E2SETUP_90
97 CALL W2_E2SETUP_91
98 CALL W2_E2SETUP_92
99 CALL W2_E2SETUP_93
100 CALL W2_E2SETUP_94
101 CALL W2_E2SETUP_95
102 CALL W2_E2SETUP_96
103 RETURN
104 END
105 SUBROUTINE W2_E2SETUP_1
106 C Topology for tile 1
107 #include "W2_EXCH2_TOPOLOGY.h"
108 exch2_tnx(1)=8
109 exch2_tny(1)=8
110 exch2_tbasex(1)=0
111 exch2_tbasey(1)=0
112 exch2_txglobalo(1)=1
113 exch2_tyglobalo(1)=1
114 exch2_isWedge(1)=1
115 exch2_isNedge(1)=0
116 exch2_isEedge(1)=0
117 exch2_isSedge(1)=1
118 exch2_myFace(1)=1
119 exch2_mydnx(1)=32
120 exch2_mydny(1)=32
121 exch2_nNeighbours(1)=4
122
123 exch2_neighbourId(1,1)=5
124 exch2_pi(1,1,1)=1
125 exch2_pi(2,1,1)=0
126 exch2_pj(1,1,1)=0
127 exch2_pj(2,1,1)=1
128 exch2_oi(1,1)=0
129 exch2_oi_f(1,1)=0
130 exch2_oj(1,1)=0
131 exch2_oj_f(1,1)=0
132 exch2_itlo_c(1,1)=0
133 exch2_ithi_c(1,1)=9
134 exch2_jtlo_c(1,1)=0
135 exch2_jthi_c(1,1)=0
136 exch2_opposingSend_record(1,1)=2
137
138 exch2_neighbourId(2,1)=93
139 exch2_pi(1,2,1)=1
140 exch2_pi(2,2,1)=0
141 exch2_pj(1,2,1)=0
142 exch2_pj(2,2,1)=1
143 exch2_oi(2,1)=0
144 exch2_oi_f(2,1)=0
145 exch2_oj(2,1)=-32
146 exch2_oj_f(2,1)=-32
147 exch2_itlo_c(2,1)=0
148 exch2_ithi_c(2,1)=9
149 exch2_jtlo_c(2,1)=9
150 exch2_jthi_c(2,1)=9
151 exch2_opposingSend_record(2,1)=1
152
153 exch2_neighbourId(3,1)=2
154 exch2_pi(1,3,1)=1
155 exch2_pi(2,3,1)=0
156 exch2_pj(1,3,1)=0
157 exch2_pj(2,3,1)=1
158 exch2_oi(3,1)=0
159 exch2_oi_f(3,1)=0
160 exch2_oj(3,1)=0
161 exch2_oj_f(3,1)=0
162 exch2_itlo_c(3,1)=0
163 exch2_ithi_c(3,1)=0
164 exch2_jtlo_c(3,1)=0
165 exch2_jthi_c(3,1)=9
166 exch2_opposingSend_record(3,1)=4
167
168 exch2_neighbourId(4,1)=80
169 exch2_pi(1,4,1)=0
170 exch2_pi(2,4,1)=1
171 exch2_pj(1,4,1)=-1
172 exch2_pj(2,4,1)=0
173 exch2_oi(4,1)=-32
174 exch2_oi_f(4,1)=-32
175 exch2_oj(4,1)=33
176 exch2_oj_f(4,1)=34
177 exch2_itlo_c(4,1)=0
178 exch2_ithi_c(4,1)=9
179 exch2_jtlo_c(4,1)=9
180 exch2_jthi_c(4,1)=9
181 exch2_opposingSend_record(4,1)=1
182 RETURN
183 END
184
185 SUBROUTINE W2_E2SETUP_2
186 C Topology for tile 2
187 #include "W2_EXCH2_TOPOLOGY.h"
188 exch2_tnx(2)=8
189 exch2_tny(2)=8
190 exch2_tbasex(2)=8
191 exch2_tbasey(2)=0
192 exch2_txglobalo(2)=9
193 exch2_tyglobalo(2)=1
194 exch2_isWedge(2)=0
195 exch2_isNedge(2)=0
196 exch2_isEedge(2)=0
197 exch2_isSedge(2)=1
198 exch2_myFace(2)=1
199 exch2_mydnx(2)=32
200 exch2_mydny(2)=32
201 exch2_nNeighbours(2)=4
202
203 exch2_neighbourId(1,2)=6
204 exch2_pi(1,1,2)=1
205 exch2_pi(2,1,2)=0
206 exch2_pj(1,1,2)=0
207 exch2_pj(2,1,2)=1
208 exch2_oi(1,2)=0
209 exch2_oi_f(1,2)=0
210 exch2_oj(1,2)=0
211 exch2_oj_f(1,2)=0
212 exch2_itlo_c(1,2)=0
213 exch2_ithi_c(1,2)=9
214 exch2_jtlo_c(1,2)=0
215 exch2_jthi_c(1,2)=0
216 exch2_opposingSend_record(1,2)=2
217
218 exch2_neighbourId(2,2)=94
219 exch2_pi(1,2,2)=1
220 exch2_pi(2,2,2)=0
221 exch2_pj(1,2,2)=0
222 exch2_pj(2,2,2)=1
223 exch2_oi(2,2)=0
224 exch2_oi_f(2,2)=0
225 exch2_oj(2,2)=-32
226 exch2_oj_f(2,2)=-32
227 exch2_itlo_c(2,2)=0
228 exch2_ithi_c(2,2)=9
229 exch2_jtlo_c(2,2)=9
230 exch2_jthi_c(2,2)=9
231 exch2_opposingSend_record(2,2)=1
232
233 exch2_neighbourId(3,2)=3
234 exch2_pi(1,3,2)=1
235 exch2_pi(2,3,2)=0
236 exch2_pj(1,3,2)=0
237 exch2_pj(2,3,2)=1
238 exch2_oi(3,2)=0
239 exch2_oi_f(3,2)=0
240 exch2_oj(3,2)=0
241 exch2_oj_f(3,2)=0
242 exch2_itlo_c(3,2)=0
243 exch2_ithi_c(3,2)=0
244 exch2_jtlo_c(3,2)=0
245 exch2_jthi_c(3,2)=9
246 exch2_opposingSend_record(3,2)=4
247
248 exch2_neighbourId(4,2)=1
249 exch2_pi(1,4,2)=1
250 exch2_pi(2,4,2)=0
251 exch2_pj(1,4,2)=0
252 exch2_pj(2,4,2)=1
253 exch2_oi(4,2)=0
254 exch2_oi_f(4,2)=0
255 exch2_oj(4,2)=0
256 exch2_oj_f(4,2)=0
257 exch2_itlo_c(4,2)=9
258 exch2_ithi_c(4,2)=9
259 exch2_jtlo_c(4,2)=0
260 exch2_jthi_c(4,2)=9
261 exch2_opposingSend_record(4,2)=3
262 RETURN
263 END
264
265 SUBROUTINE W2_E2SETUP_3
266 C Topology for tile 3
267 #include "W2_EXCH2_TOPOLOGY.h"
268 exch2_tnx(3)=8
269 exch2_tny(3)=8
270 exch2_tbasex(3)=16
271 exch2_tbasey(3)=0
272 exch2_txglobalo(3)=17
273 exch2_tyglobalo(3)=1
274 exch2_isWedge(3)=0
275 exch2_isNedge(3)=0
276 exch2_isEedge(3)=0
277 exch2_isSedge(3)=1
278 exch2_myFace(3)=1
279 exch2_mydnx(3)=32
280 exch2_mydny(3)=32
281 exch2_nNeighbours(3)=4
282
283 exch2_neighbourId(1,3)=7
284 exch2_pi(1,1,3)=1
285 exch2_pi(2,1,3)=0
286 exch2_pj(1,1,3)=0
287 exch2_pj(2,1,3)=1
288 exch2_oi(1,3)=0
289 exch2_oi_f(1,3)=0
290 exch2_oj(1,3)=0
291 exch2_oj_f(1,3)=0
292 exch2_itlo_c(1,3)=0
293 exch2_ithi_c(1,3)=9
294 exch2_jtlo_c(1,3)=0
295 exch2_jthi_c(1,3)=0
296 exch2_opposingSend_record(1,3)=2
297
298 exch2_neighbourId(2,3)=95
299 exch2_pi(1,2,3)=1
300 exch2_pi(2,2,3)=0
301 exch2_pj(1,2,3)=0
302 exch2_pj(2,2,3)=1
303 exch2_oi(2,3)=0
304 exch2_oi_f(2,3)=0
305 exch2_oj(2,3)=-32
306 exch2_oj_f(2,3)=-32
307 exch2_itlo_c(2,3)=0
308 exch2_ithi_c(2,3)=9
309 exch2_jtlo_c(2,3)=9
310 exch2_jthi_c(2,3)=9
311 exch2_opposingSend_record(2,3)=1
312
313 exch2_neighbourId(3,3)=4
314 exch2_pi(1,3,3)=1
315 exch2_pi(2,3,3)=0
316 exch2_pj(1,3,3)=0
317 exch2_pj(2,3,3)=1
318 exch2_oi(3,3)=0
319 exch2_oi_f(3,3)=0
320 exch2_oj(3,3)=0
321 exch2_oj_f(3,3)=0
322 exch2_itlo_c(3,3)=0
323 exch2_ithi_c(3,3)=0
324 exch2_jtlo_c(3,3)=0
325 exch2_jthi_c(3,3)=9
326 exch2_opposingSend_record(3,3)=4
327
328 exch2_neighbourId(4,3)=2
329 exch2_pi(1,4,3)=1
330 exch2_pi(2,4,3)=0
331 exch2_pj(1,4,3)=0
332 exch2_pj(2,4,3)=1
333 exch2_oi(4,3)=0
334 exch2_oi_f(4,3)=0
335 exch2_oj(4,3)=0
336 exch2_oj_f(4,3)=0
337 exch2_itlo_c(4,3)=9
338 exch2_ithi_c(4,3)=9
339 exch2_jtlo_c(4,3)=0
340 exch2_jthi_c(4,3)=9
341 exch2_opposingSend_record(4,3)=3
342 RETURN
343 END
344
345 SUBROUTINE W2_E2SETUP_4
346 C Topology for tile 4
347 #include "W2_EXCH2_TOPOLOGY.h"
348 exch2_tnx(4)=8
349 exch2_tny(4)=8
350 exch2_tbasex(4)=24
351 exch2_tbasey(4)=0
352 exch2_txglobalo(4)=25
353 exch2_tyglobalo(4)=1
354 exch2_isWedge(4)=0
355 exch2_isNedge(4)=0
356 exch2_isEedge(4)=1
357 exch2_isSedge(4)=1
358 exch2_myFace(4)=1
359 exch2_mydnx(4)=32
360 exch2_mydny(4)=32
361 exch2_nNeighbours(4)=4
362
363 exch2_neighbourId(1,4)=8
364 exch2_pi(1,1,4)=1
365 exch2_pi(2,1,4)=0
366 exch2_pj(1,1,4)=0
367 exch2_pj(2,1,4)=1
368 exch2_oi(1,4)=0
369 exch2_oi_f(1,4)=0
370 exch2_oj(1,4)=0
371 exch2_oj_f(1,4)=0
372 exch2_itlo_c(1,4)=0
373 exch2_ithi_c(1,4)=9
374 exch2_jtlo_c(1,4)=0
375 exch2_jthi_c(1,4)=0
376 exch2_opposingSend_record(1,4)=2
377
378 exch2_neighbourId(2,4)=96
379 exch2_pi(1,2,4)=1
380 exch2_pi(2,2,4)=0
381 exch2_pj(1,2,4)=0
382 exch2_pj(2,2,4)=1
383 exch2_oi(2,4)=0
384 exch2_oi_f(2,4)=0
385 exch2_oj(2,4)=-32
386 exch2_oj_f(2,4)=-32
387 exch2_itlo_c(2,4)=0
388 exch2_ithi_c(2,4)=9
389 exch2_jtlo_c(2,4)=9
390 exch2_jthi_c(2,4)=9
391 exch2_opposingSend_record(2,4)=1
392
393 exch2_neighbourId(3,4)=17
394 exch2_pi(1,3,4)=1
395 exch2_pi(2,3,4)=0
396 exch2_pj(1,3,4)=0
397 exch2_pj(2,3,4)=1
398 exch2_oi(3,4)=32
399 exch2_oi_f(3,4)=32
400 exch2_oj(3,4)=0
401 exch2_oj_f(3,4)=0
402 exch2_itlo_c(3,4)=0
403 exch2_ithi_c(3,4)=0
404 exch2_jtlo_c(3,4)=0
405 exch2_jthi_c(3,4)=9
406 exch2_opposingSend_record(3,4)=4
407
408 exch2_neighbourId(4,4)=3
409 exch2_pi(1,4,4)=1
410 exch2_pi(2,4,4)=0
411 exch2_pj(1,4,4)=0
412 exch2_pj(2,4,4)=1
413 exch2_oi(4,4)=0
414 exch2_oi_f(4,4)=0
415 exch2_oj(4,4)=0
416 exch2_oj_f(4,4)=0
417 exch2_itlo_c(4,4)=9
418 exch2_ithi_c(4,4)=9
419 exch2_jtlo_c(4,4)=0
420 exch2_jthi_c(4,4)=9
421 exch2_opposingSend_record(4,4)=3
422 RETURN
423 END
424
425 SUBROUTINE W2_E2SETUP_5
426 C Topology for tile 5
427 #include "W2_EXCH2_TOPOLOGY.h"
428 exch2_tnx(5)=8
429 exch2_tny(5)=8
430 exch2_tbasex(5)=0
431 exch2_tbasey(5)=8
432 exch2_txglobalo(5)=1
433 exch2_tyglobalo(5)=9
434 exch2_isWedge(5)=1
435 exch2_isNedge(5)=0
436 exch2_isEedge(5)=0
437 exch2_isSedge(5)=0
438 exch2_myFace(5)=1
439 exch2_mydnx(5)=32
440 exch2_mydny(5)=32
441 exch2_nNeighbours(5)=4
442
443 exch2_neighbourId(1,5)=9
444 exch2_pi(1,1,5)=1
445 exch2_pi(2,1,5)=0
446 exch2_pj(1,1,5)=0
447 exch2_pj(2,1,5)=1
448 exch2_oi(1,5)=0
449 exch2_oi_f(1,5)=0
450 exch2_oj(1,5)=0
451 exch2_oj_f(1,5)=0
452 exch2_itlo_c(1,5)=0
453 exch2_ithi_c(1,5)=9
454 exch2_jtlo_c(1,5)=0
455 exch2_jthi_c(1,5)=0
456 exch2_opposingSend_record(1,5)=2
457
458 exch2_neighbourId(2,5)=1
459 exch2_pi(1,2,5)=1
460 exch2_pi(2,2,5)=0
461 exch2_pj(1,2,5)=0
462 exch2_pj(2,2,5)=1
463 exch2_oi(2,5)=0
464 exch2_oi_f(2,5)=0
465 exch2_oj(2,5)=0
466 exch2_oj_f(2,5)=0
467 exch2_itlo_c(2,5)=1
468 exch2_ithi_c(2,5)=8
469 exch2_jtlo_c(2,5)=9
470 exch2_jthi_c(2,5)=9
471 exch2_opposingSend_record(2,5)=1
472
473 exch2_neighbourId(3,5)=6
474 exch2_pi(1,3,5)=1
475 exch2_pi(2,3,5)=0
476 exch2_pj(1,3,5)=0
477 exch2_pj(2,3,5)=1
478 exch2_oi(3,5)=0
479 exch2_oi_f(3,5)=0
480 exch2_oj(3,5)=0
481 exch2_oj_f(3,5)=0
482 exch2_itlo_c(3,5)=0
483 exch2_ithi_c(3,5)=0
484 exch2_jtlo_c(3,5)=0
485 exch2_jthi_c(3,5)=9
486 exch2_opposingSend_record(3,5)=4
487
488 exch2_neighbourId(4,5)=79
489 exch2_pi(1,4,5)=0
490 exch2_pi(2,4,5)=1
491 exch2_pj(1,4,5)=-1
492 exch2_pj(2,4,5)=0
493 exch2_oi(4,5)=-32
494 exch2_oi_f(4,5)=-32
495 exch2_oj(4,5)=33
496 exch2_oj_f(4,5)=34
497 exch2_itlo_c(4,5)=0
498 exch2_ithi_c(4,5)=9
499 exch2_jtlo_c(4,5)=9
500 exch2_jthi_c(4,5)=9
501 exch2_opposingSend_record(4,5)=1
502 RETURN
503 END
504
505 SUBROUTINE W2_E2SETUP_6
506 C Topology for tile 6
507 #include "W2_EXCH2_TOPOLOGY.h"
508 exch2_tnx(6)=8
509 exch2_tny(6)=8
510 exch2_tbasex(6)=8
511 exch2_tbasey(6)=8
512 exch2_txglobalo(6)=9
513 exch2_tyglobalo(6)=9
514 exch2_isWedge(6)=0
515 exch2_isNedge(6)=0
516 exch2_isEedge(6)=0
517 exch2_isSedge(6)=0
518 exch2_myFace(6)=1
519 exch2_mydnx(6)=32
520 exch2_mydny(6)=32
521 exch2_nNeighbours(6)=4
522
523 exch2_neighbourId(1,6)=10
524 exch2_pi(1,1,6)=1
525 exch2_pi(2,1,6)=0
526 exch2_pj(1,1,6)=0
527 exch2_pj(2,1,6)=1
528 exch2_oi(1,6)=0
529 exch2_oi_f(1,6)=0
530 exch2_oj(1,6)=0
531 exch2_oj_f(1,6)=0
532 exch2_itlo_c(1,6)=0
533 exch2_ithi_c(1,6)=9
534 exch2_jtlo_c(1,6)=0
535 exch2_jthi_c(1,6)=0
536 exch2_opposingSend_record(1,6)=2
537
538 exch2_neighbourId(2,6)=2
539 exch2_pi(1,2,6)=1
540 exch2_pi(2,2,6)=0
541 exch2_pj(1,2,6)=0
542 exch2_pj(2,2,6)=1
543 exch2_oi(2,6)=0
544 exch2_oi_f(2,6)=0
545 exch2_oj(2,6)=0
546 exch2_oj_f(2,6)=0
547 exch2_itlo_c(2,6)=1
548 exch2_ithi_c(2,6)=8
549 exch2_jtlo_c(2,6)=9
550 exch2_jthi_c(2,6)=9
551 exch2_opposingSend_record(2,6)=1
552
553 exch2_neighbourId(3,6)=7
554 exch2_pi(1,3,6)=1
555 exch2_pi(2,3,6)=0
556 exch2_pj(1,3,6)=0
557 exch2_pj(2,3,6)=1
558 exch2_oi(3,6)=0
559 exch2_oi_f(3,6)=0
560 exch2_oj(3,6)=0
561 exch2_oj_f(3,6)=0
562 exch2_itlo_c(3,6)=0
563 exch2_ithi_c(3,6)=0
564 exch2_jtlo_c(3,6)=0
565 exch2_jthi_c(3,6)=9
566 exch2_opposingSend_record(3,6)=4
567
568 exch2_neighbourId(4,6)=5
569 exch2_pi(1,4,6)=1
570 exch2_pi(2,4,6)=0
571 exch2_pj(1,4,6)=0
572 exch2_pj(2,4,6)=1
573 exch2_oi(4,6)=0
574 exch2_oi_f(4,6)=0
575 exch2_oj(4,6)=0
576 exch2_oj_f(4,6)=0
577 exch2_itlo_c(4,6)=9
578 exch2_ithi_c(4,6)=9
579 exch2_jtlo_c(4,6)=0
580 exch2_jthi_c(4,6)=9
581 exch2_opposingSend_record(4,6)=3
582 RETURN
583 END
584
585 SUBROUTINE W2_E2SETUP_7
586 C Topology for tile 7
587 #include "W2_EXCH2_TOPOLOGY.h"
588 exch2_tnx(7)=8
589 exch2_tny(7)=8
590 exch2_tbasex(7)=16
591 exch2_tbasey(7)=8
592 exch2_txglobalo(7)=17
593 exch2_tyglobalo(7)=9
594 exch2_isWedge(7)=0
595 exch2_isNedge(7)=0
596 exch2_isEedge(7)=0
597 exch2_isSedge(7)=0
598 exch2_myFace(7)=1
599 exch2_mydnx(7)=32
600 exch2_mydny(7)=32
601 exch2_nNeighbours(7)=4
602
603 exch2_neighbourId(1,7)=11
604 exch2_pi(1,1,7)=1
605 exch2_pi(2,1,7)=0
606 exch2_pj(1,1,7)=0
607 exch2_pj(2,1,7)=1
608 exch2_oi(1,7)=0
609 exch2_oi_f(1,7)=0
610 exch2_oj(1,7)=0
611 exch2_oj_f(1,7)=0
612 exch2_itlo_c(1,7)=0
613 exch2_ithi_c(1,7)=9
614 exch2_jtlo_c(1,7)=0
615 exch2_jthi_c(1,7)=0
616 exch2_opposingSend_record(1,7)=2
617
618 exch2_neighbourId(2,7)=3
619 exch2_pi(1,2,7)=1
620 exch2_pi(2,2,7)=0
621 exch2_pj(1,2,7)=0
622 exch2_pj(2,2,7)=1
623 exch2_oi(2,7)=0
624 exch2_oi_f(2,7)=0
625 exch2_oj(2,7)=0
626 exch2_oj_f(2,7)=0
627 exch2_itlo_c(2,7)=1
628 exch2_ithi_c(2,7)=8
629 exch2_jtlo_c(2,7)=9
630 exch2_jthi_c(2,7)=9
631 exch2_opposingSend_record(2,7)=1
632
633 exch2_neighbourId(3,7)=8
634 exch2_pi(1,3,7)=1
635 exch2_pi(2,3,7)=0
636 exch2_pj(1,3,7)=0
637 exch2_pj(2,3,7)=1
638 exch2_oi(3,7)=0
639 exch2_oi_f(3,7)=0
640 exch2_oj(3,7)=0
641 exch2_oj_f(3,7)=0
642 exch2_itlo_c(3,7)=0
643 exch2_ithi_c(3,7)=0
644 exch2_jtlo_c(3,7)=0
645 exch2_jthi_c(3,7)=9
646 exch2_opposingSend_record(3,7)=4
647
648 exch2_neighbourId(4,7)=6
649 exch2_pi(1,4,7)=1
650 exch2_pi(2,4,7)=0
651 exch2_pj(1,4,7)=0
652 exch2_pj(2,4,7)=1
653 exch2_oi(4,7)=0
654 exch2_oi_f(4,7)=0
655 exch2_oj(4,7)=0
656 exch2_oj_f(4,7)=0
657 exch2_itlo_c(4,7)=9
658 exch2_ithi_c(4,7)=9
659 exch2_jtlo_c(4,7)=0
660 exch2_jthi_c(4,7)=9
661 exch2_opposingSend_record(4,7)=3
662 RETURN
663 END
664
665 SUBROUTINE W2_E2SETUP_8
666 C Topology for tile 8
667 #include "W2_EXCH2_TOPOLOGY.h"
668 exch2_tnx(8)=8
669 exch2_tny(8)=8
670 exch2_tbasex(8)=24
671 exch2_tbasey(8)=8
672 exch2_txglobalo(8)=25
673 exch2_tyglobalo(8)=9
674 exch2_isWedge(8)=0
675 exch2_isNedge(8)=0
676 exch2_isEedge(8)=1
677 exch2_isSedge(8)=0
678 exch2_myFace(8)=1
679 exch2_mydnx(8)=32
680 exch2_mydny(8)=32
681 exch2_nNeighbours(8)=4
682
683 exch2_neighbourId(1,8)=12
684 exch2_pi(1,1,8)=1
685 exch2_pi(2,1,8)=0
686 exch2_pj(1,1,8)=0
687 exch2_pj(2,1,8)=1
688 exch2_oi(1,8)=0
689 exch2_oi_f(1,8)=0
690 exch2_oj(1,8)=0
691 exch2_oj_f(1,8)=0
692 exch2_itlo_c(1,8)=0
693 exch2_ithi_c(1,8)=9
694 exch2_jtlo_c(1,8)=0
695 exch2_jthi_c(1,8)=0
696 exch2_opposingSend_record(1,8)=2
697
698 exch2_neighbourId(2,8)=4
699 exch2_pi(1,2,8)=1
700 exch2_pi(2,2,8)=0
701 exch2_pj(1,2,8)=0
702 exch2_pj(2,2,8)=1
703 exch2_oi(2,8)=0
704 exch2_oi_f(2,8)=0
705 exch2_oj(2,8)=0
706 exch2_oj_f(2,8)=0
707 exch2_itlo_c(2,8)=1
708 exch2_ithi_c(2,8)=8
709 exch2_jtlo_c(2,8)=9
710 exch2_jthi_c(2,8)=9
711 exch2_opposingSend_record(2,8)=1
712
713 exch2_neighbourId(3,8)=21
714 exch2_pi(1,3,8)=1
715 exch2_pi(2,3,8)=0
716 exch2_pj(1,3,8)=0
717 exch2_pj(2,3,8)=1
718 exch2_oi(3,8)=32
719 exch2_oi_f(3,8)=32
720 exch2_oj(3,8)=0
721 exch2_oj_f(3,8)=0
722 exch2_itlo_c(3,8)=0
723 exch2_ithi_c(3,8)=0
724 exch2_jtlo_c(3,8)=0
725 exch2_jthi_c(3,8)=9
726 exch2_opposingSend_record(3,8)=4
727
728 exch2_neighbourId(4,8)=7
729 exch2_pi(1,4,8)=1
730 exch2_pi(2,4,8)=0
731 exch2_pj(1,4,8)=0
732 exch2_pj(2,4,8)=1
733 exch2_oi(4,8)=0
734 exch2_oi_f(4,8)=0
735 exch2_oj(4,8)=0
736 exch2_oj_f(4,8)=0
737 exch2_itlo_c(4,8)=9
738 exch2_ithi_c(4,8)=9
739 exch2_jtlo_c(4,8)=0
740 exch2_jthi_c(4,8)=9
741 exch2_opposingSend_record(4,8)=3
742 RETURN
743 END
744
745 SUBROUTINE W2_E2SETUP_9
746 C Topology for tile 9
747 #include "W2_EXCH2_TOPOLOGY.h"
748 exch2_tnx(9)=8
749 exch2_tny(9)=8
750 exch2_tbasex(9)=0
751 exch2_tbasey(9)=16
752 exch2_txglobalo(9)=1
753 exch2_tyglobalo(9)=17
754 exch2_isWedge(9)=1
755 exch2_isNedge(9)=0
756 exch2_isEedge(9)=0
757 exch2_isSedge(9)=0
758 exch2_myFace(9)=1
759 exch2_mydnx(9)=32
760 exch2_mydny(9)=32
761 exch2_nNeighbours(9)=4
762
763 exch2_neighbourId(1,9)=13
764 exch2_pi(1,1,9)=1
765 exch2_pi(2,1,9)=0
766 exch2_pj(1,1,9)=0
767 exch2_pj(2,1,9)=1
768 exch2_oi(1,9)=0
769 exch2_oi_f(1,9)=0
770 exch2_oj(1,9)=0
771 exch2_oj_f(1,9)=0
772 exch2_itlo_c(1,9)=0
773 exch2_ithi_c(1,9)=9
774 exch2_jtlo_c(1,9)=0
775 exch2_jthi_c(1,9)=0
776 exch2_opposingSend_record(1,9)=2
777
778 exch2_neighbourId(2,9)=5
779 exch2_pi(1,2,9)=1
780 exch2_pi(2,2,9)=0
781 exch2_pj(1,2,9)=0
782 exch2_pj(2,2,9)=1
783 exch2_oi(2,9)=0
784 exch2_oi_f(2,9)=0
785 exch2_oj(2,9)=0
786 exch2_oj_f(2,9)=0
787 exch2_itlo_c(2,9)=1
788 exch2_ithi_c(2,9)=8
789 exch2_jtlo_c(2,9)=9
790 exch2_jthi_c(2,9)=9
791 exch2_opposingSend_record(2,9)=1
792
793 exch2_neighbourId(3,9)=10
794 exch2_pi(1,3,9)=1
795 exch2_pi(2,3,9)=0
796 exch2_pj(1,3,9)=0
797 exch2_pj(2,3,9)=1
798 exch2_oi(3,9)=0
799 exch2_oi_f(3,9)=0
800 exch2_oj(3,9)=0
801 exch2_oj_f(3,9)=0
802 exch2_itlo_c(3,9)=0
803 exch2_ithi_c(3,9)=0
804 exch2_jtlo_c(3,9)=0
805 exch2_jthi_c(3,9)=9
806 exch2_opposingSend_record(3,9)=4
807
808 exch2_neighbourId(4,9)=78
809 exch2_pi(1,4,9)=0
810 exch2_pi(2,4,9)=1
811 exch2_pj(1,4,9)=-1
812 exch2_pj(2,4,9)=0
813 exch2_oi(4,9)=-32
814 exch2_oi_f(4,9)=-32
815 exch2_oj(4,9)=33
816 exch2_oj_f(4,9)=34
817 exch2_itlo_c(4,9)=0
818 exch2_ithi_c(4,9)=9
819 exch2_jtlo_c(4,9)=9
820 exch2_jthi_c(4,9)=9
821 exch2_opposingSend_record(4,9)=1
822 RETURN
823 END
824
825 SUBROUTINE W2_E2SETUP_10
826 C Topology for tile 10
827 #include "W2_EXCH2_TOPOLOGY.h"
828 exch2_tnx(10)=8
829 exch2_tny(10)=8
830 exch2_tbasex(10)=8
831 exch2_tbasey(10)=16
832 exch2_txglobalo(10)=9
833 exch2_tyglobalo(10)=17
834 exch2_isWedge(10)=0
835 exch2_isNedge(10)=0
836 exch2_isEedge(10)=0
837 exch2_isSedge(10)=0
838 exch2_myFace(10)=1
839 exch2_mydnx(10)=32
840 exch2_mydny(10)=32
841 exch2_nNeighbours(10)=4
842
843 exch2_neighbourId(1,10)=14
844 exch2_pi(1,1,10)=1
845 exch2_pi(2,1,10)=0
846 exch2_pj(1,1,10)=0
847 exch2_pj(2,1,10)=1
848 exch2_oi(1,10)=0
849 exch2_oi_f(1,10)=0
850 exch2_oj(1,10)=0
851 exch2_oj_f(1,10)=0
852 exch2_itlo_c(1,10)=0
853 exch2_ithi_c(1,10)=9
854 exch2_jtlo_c(1,10)=0
855 exch2_jthi_c(1,10)=0
856 exch2_opposingSend_record(1,10)=2
857
858 exch2_neighbourId(2,10)=6
859 exch2_pi(1,2,10)=1
860 exch2_pi(2,2,10)=0
861 exch2_pj(1,2,10)=0
862 exch2_pj(2,2,10)=1
863 exch2_oi(2,10)=0
864 exch2_oi_f(2,10)=0
865 exch2_oj(2,10)=0
866 exch2_oj_f(2,10)=0
867 exch2_itlo_c(2,10)=1
868 exch2_ithi_c(2,10)=8
869 exch2_jtlo_c(2,10)=9
870 exch2_jthi_c(2,10)=9
871 exch2_opposingSend_record(2,10)=1
872
873 exch2_neighbourId(3,10)=11
874 exch2_pi(1,3,10)=1
875 exch2_pi(2,3,10)=0
876 exch2_pj(1,3,10)=0
877 exch2_pj(2,3,10)=1
878 exch2_oi(3,10)=0
879 exch2_oi_f(3,10)=0
880 exch2_oj(3,10)=0
881 exch2_oj_f(3,10)=0
882 exch2_itlo_c(3,10)=0
883 exch2_ithi_c(3,10)=0
884 exch2_jtlo_c(3,10)=0
885 exch2_jthi_c(3,10)=9
886 exch2_opposingSend_record(3,10)=4
887
888 exch2_neighbourId(4,10)=9
889 exch2_pi(1,4,10)=1
890 exch2_pi(2,4,10)=0
891 exch2_pj(1,4,10)=0
892 exch2_pj(2,4,10)=1
893 exch2_oi(4,10)=0
894 exch2_oi_f(4,10)=0
895 exch2_oj(4,10)=0
896 exch2_oj_f(4,10)=0
897 exch2_itlo_c(4,10)=9
898 exch2_ithi_c(4,10)=9
899 exch2_jtlo_c(4,10)=0
900 exch2_jthi_c(4,10)=9
901 exch2_opposingSend_record(4,10)=3
902 RETURN
903 END
904
905 SUBROUTINE W2_E2SETUP_11
906 C Topology for tile 11
907 #include "W2_EXCH2_TOPOLOGY.h"
908 exch2_tnx(11)=8
909 exch2_tny(11)=8
910 exch2_tbasex(11)=16
911 exch2_tbasey(11)=16
912 exch2_txglobalo(11)=17
913 exch2_tyglobalo(11)=17
914 exch2_isWedge(11)=0
915 exch2_isNedge(11)=0
916 exch2_isEedge(11)=0
917 exch2_isSedge(11)=0
918 exch2_myFace(11)=1
919 exch2_mydnx(11)=32
920 exch2_mydny(11)=32
921 exch2_nNeighbours(11)=4
922
923 exch2_neighbourId(1,11)=15
924 exch2_pi(1,1,11)=1
925 exch2_pi(2,1,11)=0
926 exch2_pj(1,1,11)=0
927 exch2_pj(2,1,11)=1
928 exch2_oi(1,11)=0
929 exch2_oi_f(1,11)=0
930 exch2_oj(1,11)=0
931 exch2_oj_f(1,11)=0
932 exch2_itlo_c(1,11)=0
933 exch2_ithi_c(1,11)=9
934 exch2_jtlo_c(1,11)=0
935 exch2_jthi_c(1,11)=0
936 exch2_opposingSend_record(1,11)=2
937
938 exch2_neighbourId(2,11)=7
939 exch2_pi(1,2,11)=1
940 exch2_pi(2,2,11)=0
941 exch2_pj(1,2,11)=0
942 exch2_pj(2,2,11)=1
943 exch2_oi(2,11)=0
944 exch2_oi_f(2,11)=0
945 exch2_oj(2,11)=0
946 exch2_oj_f(2,11)=0
947 exch2_itlo_c(2,11)=1
948 exch2_ithi_c(2,11)=8
949 exch2_jtlo_c(2,11)=9
950 exch2_jthi_c(2,11)=9
951 exch2_opposingSend_record(2,11)=1
952
953 exch2_neighbourId(3,11)=12
954 exch2_pi(1,3,11)=1
955 exch2_pi(2,3,11)=0
956 exch2_pj(1,3,11)=0
957 exch2_pj(2,3,11)=1
958 exch2_oi(3,11)=0
959 exch2_oi_f(3,11)=0
960 exch2_oj(3,11)=0
961 exch2_oj_f(3,11)=0
962 exch2_itlo_c(3,11)=0
963 exch2_ithi_c(3,11)=0
964 exch2_jtlo_c(3,11)=0
965 exch2_jthi_c(3,11)=9
966 exch2_opposingSend_record(3,11)=4
967
968 exch2_neighbourId(4,11)=10
969 exch2_pi(1,4,11)=1
970 exch2_pi(2,4,11)=0
971 exch2_pj(1,4,11)=0
972 exch2_pj(2,4,11)=1
973 exch2_oi(4,11)=0
974 exch2_oi_f(4,11)=0
975 exch2_oj(4,11)=0
976 exch2_oj_f(4,11)=0
977 exch2_itlo_c(4,11)=9
978 exch2_ithi_c(4,11)=9
979 exch2_jtlo_c(4,11)=0
980 exch2_jthi_c(4,11)=9
981 exch2_opposingSend_record(4,11)=3
982 RETURN
983 END
984
985 SUBROUTINE W2_E2SETUP_12
986 C Topology for tile 12
987 #include "W2_EXCH2_TOPOLOGY.h"
988 exch2_tnx(12)=8
989 exch2_tny(12)=8
990 exch2_tbasex(12)=24
991 exch2_tbasey(12)=16
992 exch2_txglobalo(12)=25
993 exch2_tyglobalo(12)=17
994 exch2_isWedge(12)=0
995 exch2_isNedge(12)=0
996 exch2_isEedge(12)=1
997 exch2_isSedge(12)=0
998 exch2_myFace(12)=1
999 exch2_mydnx(12)=32
1000 exch2_mydny(12)=32
1001 exch2_nNeighbours(12)=4
1002
1003 exch2_neighbourId(1,12)=16
1004 exch2_pi(1,1,12)=1
1005 exch2_pi(2,1,12)=0
1006 exch2_pj(1,1,12)=0
1007 exch2_pj(2,1,12)=1
1008 exch2_oi(1,12)=0
1009 exch2_oi_f(1,12)=0
1010 exch2_oj(1,12)=0
1011 exch2_oj_f(1,12)=0
1012 exch2_itlo_c(1,12)=0
1013 exch2_ithi_c(1,12)=9
1014 exch2_jtlo_c(1,12)=0
1015 exch2_jthi_c(1,12)=0
1016 exch2_opposingSend_record(1,12)=2
1017
1018 exch2_neighbourId(2,12)=8
1019 exch2_pi(1,2,12)=1
1020 exch2_pi(2,2,12)=0
1021 exch2_pj(1,2,12)=0
1022 exch2_pj(2,2,12)=1
1023 exch2_oi(2,12)=0
1024 exch2_oi_f(2,12)=0
1025 exch2_oj(2,12)=0
1026 exch2_oj_f(2,12)=0
1027 exch2_itlo_c(2,12)=1
1028 exch2_ithi_c(2,12)=8
1029 exch2_jtlo_c(2,12)=9
1030 exch2_jthi_c(2,12)=9
1031 exch2_opposingSend_record(2,12)=1
1032
1033 exch2_neighbourId(3,12)=25
1034 exch2_pi(1,3,12)=1
1035 exch2_pi(2,3,12)=0
1036 exch2_pj(1,3,12)=0
1037 exch2_pj(2,3,12)=1
1038 exch2_oi(3,12)=32
1039 exch2_oi_f(3,12)=32
1040 exch2_oj(3,12)=0
1041 exch2_oj_f(3,12)=0
1042 exch2_itlo_c(3,12)=0
1043 exch2_ithi_c(3,12)=0
1044 exch2_jtlo_c(3,12)=0
1045 exch2_jthi_c(3,12)=9
1046 exch2_opposingSend_record(3,12)=4
1047
1048 exch2_neighbourId(4,12)=11
1049 exch2_pi(1,4,12)=1
1050 exch2_pi(2,4,12)=0
1051 exch2_pj(1,4,12)=0
1052 exch2_pj(2,4,12)=1
1053 exch2_oi(4,12)=0
1054 exch2_oi_f(4,12)=0
1055 exch2_oj(4,12)=0
1056 exch2_oj_f(4,12)=0
1057 exch2_itlo_c(4,12)=9
1058 exch2_ithi_c(4,12)=9
1059 exch2_jtlo_c(4,12)=0
1060 exch2_jthi_c(4,12)=9
1061 exch2_opposingSend_record(4,12)=3
1062 RETURN
1063 END
1064
1065 SUBROUTINE W2_E2SETUP_13
1066 C Topology for tile 13
1067 #include "W2_EXCH2_TOPOLOGY.h"
1068 exch2_tnx(13)=8
1069 exch2_tny(13)=8
1070 exch2_tbasex(13)=0
1071 exch2_tbasey(13)=24
1072 exch2_txglobalo(13)=1
1073 exch2_tyglobalo(13)=25
1074 exch2_isWedge(13)=1
1075 exch2_isNedge(13)=1
1076 exch2_isEedge(13)=0
1077 exch2_isSedge(13)=0
1078 exch2_myFace(13)=1
1079 exch2_mydnx(13)=32
1080 exch2_mydny(13)=32
1081 exch2_nNeighbours(13)=4
1082
1083 exch2_neighbourId(1,13)=45
1084 exch2_pi(1,1,13)=0
1085 exch2_pi(2,1,13)=-1
1086 exch2_pj(1,1,13)=1
1087 exch2_pj(2,1,13)=0
1088 exch2_oi(1,13)=33
1089 exch2_oi_f(1,13)=34
1090 exch2_oj(1,13)=32
1091 exch2_oj_f(1,13)=32
1092 exch2_itlo_c(1,13)=0
1093 exch2_ithi_c(1,13)=0
1094 exch2_jtlo_c(1,13)=0
1095 exch2_jthi_c(1,13)=9
1096 exch2_opposingSend_record(1,13)=4
1097
1098 exch2_neighbourId(2,13)=9
1099 exch2_pi(1,2,13)=1
1100 exch2_pi(2,2,13)=0
1101 exch2_pj(1,2,13)=0
1102 exch2_pj(2,2,13)=1
1103 exch2_oi(2,13)=0
1104 exch2_oi_f(2,13)=0
1105 exch2_oj(2,13)=0
1106 exch2_oj_f(2,13)=0
1107 exch2_itlo_c(2,13)=1
1108 exch2_ithi_c(2,13)=8
1109 exch2_jtlo_c(2,13)=9
1110 exch2_jthi_c(2,13)=9
1111 exch2_opposingSend_record(2,13)=1
1112
1113 exch2_neighbourId(3,13)=14
1114 exch2_pi(1,3,13)=1
1115 exch2_pi(2,3,13)=0
1116 exch2_pj(1,3,13)=0
1117 exch2_pj(2,3,13)=1
1118 exch2_oi(3,13)=0
1119 exch2_oi_f(3,13)=0
1120 exch2_oj(3,13)=0
1121 exch2_oj_f(3,13)=0
1122 exch2_itlo_c(3,13)=0
1123 exch2_ithi_c(3,13)=0
1124 exch2_jtlo_c(3,13)=0
1125 exch2_jthi_c(3,13)=9
1126 exch2_opposingSend_record(3,13)=4
1127
1128 exch2_neighbourId(4,13)=77
1129 exch2_pi(1,4,13)=0
1130 exch2_pi(2,4,13)=1
1131 exch2_pj(1,4,13)=-1
1132 exch2_pj(2,4,13)=0
1133 exch2_oi(4,13)=-32
1134 exch2_oi_f(4,13)=-32
1135 exch2_oj(4,13)=33
1136 exch2_oj_f(4,13)=34
1137 exch2_itlo_c(4,13)=0
1138 exch2_ithi_c(4,13)=9
1139 exch2_jtlo_c(4,13)=9
1140 exch2_jthi_c(4,13)=9
1141 exch2_opposingSend_record(4,13)=1
1142 RETURN
1143 END
1144
1145 SUBROUTINE W2_E2SETUP_14
1146 C Topology for tile 14
1147 #include "W2_EXCH2_TOPOLOGY.h"
1148 exch2_tnx(14)=8
1149 exch2_tny(14)=8
1150 exch2_tbasex(14)=8
1151 exch2_tbasey(14)=24
1152 exch2_txglobalo(14)=9
1153 exch2_tyglobalo(14)=25
1154 exch2_isWedge(14)=0
1155 exch2_isNedge(14)=1
1156 exch2_isEedge(14)=0
1157 exch2_isSedge(14)=0
1158 exch2_myFace(14)=1
1159 exch2_mydnx(14)=32
1160 exch2_mydny(14)=32
1161 exch2_nNeighbours(14)=4
1162
1163 exch2_neighbourId(1,14)=41
1164 exch2_pi(1,1,14)=0
1165 exch2_pi(2,1,14)=-1
1166 exch2_pj(1,1,14)=1
1167 exch2_pj(2,1,14)=0
1168 exch2_oi(1,14)=33
1169 exch2_oi_f(1,14)=34
1170 exch2_oj(1,14)=32
1171 exch2_oj_f(1,14)=32
1172 exch2_itlo_c(1,14)=0
1173 exch2_ithi_c(1,14)=0
1174 exch2_jtlo_c(1,14)=0
1175 exch2_jthi_c(1,14)=9
1176 exch2_opposingSend_record(1,14)=4
1177
1178 exch2_neighbourId(2,14)=10
1179 exch2_pi(1,2,14)=1
1180 exch2_pi(2,2,14)=0
1181 exch2_pj(1,2,14)=0
1182 exch2_pj(2,2,14)=1
1183 exch2_oi(2,14)=0
1184 exch2_oi_f(2,14)=0
1185 exch2_oj(2,14)=0
1186 exch2_oj_f(2,14)=0
1187 exch2_itlo_c(2,14)=1
1188 exch2_ithi_c(2,14)=8
1189 exch2_jtlo_c(2,14)=9
1190 exch2_jthi_c(2,14)=9
1191 exch2_opposingSend_record(2,14)=1
1192
1193 exch2_neighbourId(3,14)=15
1194 exch2_pi(1,3,14)=1
1195 exch2_pi(2,3,14)=0
1196 exch2_pj(1,3,14)=0
1197 exch2_pj(2,3,14)=1
1198 exch2_oi(3,14)=0
1199 exch2_oi_f(3,14)=0
1200 exch2_oj(3,14)=0
1201 exch2_oj_f(3,14)=0
1202 exch2_itlo_c(3,14)=0
1203 exch2_ithi_c(3,14)=0
1204 exch2_jtlo_c(3,14)=0
1205 exch2_jthi_c(3,14)=9
1206 exch2_opposingSend_record(3,14)=4
1207
1208 exch2_neighbourId(4,14)=13
1209 exch2_pi(1,4,14)=1
1210 exch2_pi(2,4,14)=0
1211 exch2_pj(1,4,14)=0
1212 exch2_pj(2,4,14)=1
1213 exch2_oi(4,14)=0
1214 exch2_oi_f(4,14)=0
1215 exch2_oj(4,14)=0
1216 exch2_oj_f(4,14)=0
1217 exch2_itlo_c(4,14)=9
1218 exch2_ithi_c(4,14)=9
1219 exch2_jtlo_c(4,14)=0
1220 exch2_jthi_c(4,14)=9
1221 exch2_opposingSend_record(4,14)=3
1222 RETURN
1223 END
1224
1225 SUBROUTINE W2_E2SETUP_15
1226 C Topology for tile 15
1227 #include "W2_EXCH2_TOPOLOGY.h"
1228 exch2_tnx(15)=8
1229 exch2_tny(15)=8
1230 exch2_tbasex(15)=16
1231 exch2_tbasey(15)=24
1232 exch2_txglobalo(15)=17
1233 exch2_tyglobalo(15)=25
1234 exch2_isWedge(15)=0
1235 exch2_isNedge(15)=1
1236 exch2_isEedge(15)=0
1237 exch2_isSedge(15)=0
1238 exch2_myFace(15)=1
1239 exch2_mydnx(15)=32
1240 exch2_mydny(15)=32
1241 exch2_nNeighbours(15)=4
1242
1243 exch2_neighbourId(1,15)=37
1244 exch2_pi(1,1,15)=0
1245 exch2_pi(2,1,15)=-1
1246 exch2_pj(1,1,15)=1
1247 exch2_pj(2,1,15)=0
1248 exch2_oi(1,15)=33
1249 exch2_oi_f(1,15)=34
1250 exch2_oj(1,15)=32
1251 exch2_oj_f(1,15)=32
1252 exch2_itlo_c(1,15)=0
1253 exch2_ithi_c(1,15)=0
1254 exch2_jtlo_c(1,15)=0
1255 exch2_jthi_c(1,15)=9
1256 exch2_opposingSend_record(1,15)=4
1257
1258 exch2_neighbourId(2,15)=11
1259 exch2_pi(1,2,15)=1
1260 exch2_pi(2,2,15)=0
1261 exch2_pj(1,2,15)=0
1262 exch2_pj(2,2,15)=1
1263 exch2_oi(2,15)=0
1264 exch2_oi_f(2,15)=0
1265 exch2_oj(2,15)=0
1266 exch2_oj_f(2,15)=0
1267 exch2_itlo_c(2,15)=1
1268 exch2_ithi_c(2,15)=8
1269 exch2_jtlo_c(2,15)=9
1270 exch2_jthi_c(2,15)=9
1271 exch2_opposingSend_record(2,15)=1
1272
1273 exch2_neighbourId(3,15)=16
1274 exch2_pi(1,3,15)=1
1275 exch2_pi(2,3,15)=0
1276 exch2_pj(1,3,15)=0
1277 exch2_pj(2,3,15)=1
1278 exch2_oi(3,15)=0
1279 exch2_oi_f(3,15)=0
1280 exch2_oj(3,15)=0
1281 exch2_oj_f(3,15)=0
1282 exch2_itlo_c(3,15)=0
1283 exch2_ithi_c(3,15)=0
1284 exch2_jtlo_c(3,15)=0
1285 exch2_jthi_c(3,15)=9
1286 exch2_opposingSend_record(3,15)=4
1287
1288 exch2_neighbourId(4,15)=14
1289 exch2_pi(1,4,15)=1
1290 exch2_pi(2,4,15)=0
1291 exch2_pj(1,4,15)=0
1292 exch2_pj(2,4,15)=1
1293 exch2_oi(4,15)=0
1294 exch2_oi_f(4,15)=0
1295 exch2_oj(4,15)=0
1296 exch2_oj_f(4,15)=0
1297 exch2_itlo_c(4,15)=9
1298 exch2_ithi_c(4,15)=9
1299 exch2_jtlo_c(4,15)=0
1300 exch2_jthi_c(4,15)=9
1301 exch2_opposingSend_record(4,15)=3
1302 RETURN
1303 END
1304
1305 SUBROUTINE W2_E2SETUP_16
1306 C Topology for tile 16
1307 #include "W2_EXCH2_TOPOLOGY.h"
1308 exch2_tnx(16)=8
1309 exch2_tny(16)=8
1310 exch2_tbasex(16)=24
1311 exch2_tbasey(16)=24
1312 exch2_txglobalo(16)=25
1313 exch2_tyglobalo(16)=25
1314 exch2_isWedge(16)=0
1315 exch2_isNedge(16)=1
1316 exch2_isEedge(16)=1
1317 exch2_isSedge(16)=0
1318 exch2_myFace(16)=1
1319 exch2_mydnx(16)=32
1320 exch2_mydny(16)=32
1321 exch2_nNeighbours(16)=4
1322
1323 exch2_neighbourId(1,16)=33
1324 exch2_pi(1,1,16)=0
1325 exch2_pi(2,1,16)=-1
1326 exch2_pj(1,1,16)=1
1327 exch2_pj(2,1,16)=0
1328 exch2_oi(1,16)=33
1329 exch2_oi_f(1,16)=34
1330 exch2_oj(1,16)=32
1331 exch2_oj_f(1,16)=32
1332 exch2_itlo_c(1,16)=0
1333 exch2_ithi_c(1,16)=0
1334 exch2_jtlo_c(1,16)=0
1335 exch2_jthi_c(1,16)=9
1336 exch2_opposingSend_record(1,16)=4
1337
1338 exch2_neighbourId(2,16)=12
1339 exch2_pi(1,2,16)=1
1340 exch2_pi(2,2,16)=0
1341 exch2_pj(1,2,16)=0
1342 exch2_pj(2,2,16)=1
1343 exch2_oi(2,16)=0
1344 exch2_oi_f(2,16)=0
1345 exch2_oj(2,16)=0
1346 exch2_oj_f(2,16)=0
1347 exch2_itlo_c(2,16)=1
1348 exch2_ithi_c(2,16)=8
1349 exch2_jtlo_c(2,16)=9
1350 exch2_jthi_c(2,16)=9
1351 exch2_opposingSend_record(2,16)=1
1352
1353 exch2_neighbourId(3,16)=29
1354 exch2_pi(1,3,16)=1
1355 exch2_pi(2,3,16)=0
1356 exch2_pj(1,3,16)=0
1357 exch2_pj(2,3,16)=1
1358 exch2_oi(3,16)=32
1359 exch2_oi_f(3,16)=32
1360 exch2_oj(3,16)=0
1361 exch2_oj_f(3,16)=0
1362 exch2_itlo_c(3,16)=0
1363 exch2_ithi_c(3,16)=0
1364 exch2_jtlo_c(3,16)=0
1365 exch2_jthi_c(3,16)=9
1366 exch2_opposingSend_record(3,16)=4
1367
1368 exch2_neighbourId(4,16)=15
1369 exch2_pi(1,4,16)=1
1370 exch2_pi(2,4,16)=0
1371 exch2_pj(1,4,16)=0
1372 exch2_pj(2,4,16)=1
1373 exch2_oi(4,16)=0
1374 exch2_oi_f(4,16)=0
1375 exch2_oj(4,16)=0
1376 exch2_oj_f(4,16)=0
1377 exch2_itlo_c(4,16)=9
1378 exch2_ithi_c(4,16)=9
1379 exch2_jtlo_c(4,16)=0
1380 exch2_jthi_c(4,16)=9
1381 exch2_opposingSend_record(4,16)=3
1382 RETURN
1383 END
1384
1385 SUBROUTINE W2_E2SETUP_17
1386 C Topology for tile 17
1387 #include "W2_EXCH2_TOPOLOGY.h"
1388 exch2_tnx(17)=8
1389 exch2_tny(17)=8
1390 exch2_tbasex(17)=0
1391 exch2_tbasey(17)=0
1392 exch2_txglobalo(17)=33
1393 exch2_tyglobalo(17)=1
1394 exch2_isWedge(17)=1
1395 exch2_isNedge(17)=0
1396 exch2_isEedge(17)=0
1397 exch2_isSedge(17)=1
1398 exch2_myFace(17)=2
1399 exch2_mydnx(17)=32
1400 exch2_mydny(17)=32
1401 exch2_nNeighbours(17)=4
1402
1403 exch2_neighbourId(1,17)=21
1404 exch2_pi(1,1,17)=1
1405 exch2_pi(2,1,17)=0
1406 exch2_pj(1,1,17)=0
1407 exch2_pj(2,1,17)=1
1408 exch2_oi(1,17)=0
1409 exch2_oi_f(1,17)=0
1410 exch2_oj(1,17)=0
1411 exch2_oj_f(1,17)=0
1412 exch2_itlo_c(1,17)=0
1413 exch2_ithi_c(1,17)=9
1414 exch2_jtlo_c(1,17)=0
1415 exch2_jthi_c(1,17)=0
1416 exch2_opposingSend_record(1,17)=2
1417
1418 exch2_neighbourId(2,17)=96
1419 exch2_pi(1,2,17)=0
1420 exch2_pi(2,2,17)=-1
1421 exch2_pj(1,2,17)=1
1422 exch2_pj(2,2,17)=0
1423 exch2_oi(2,17)=33
1424 exch2_oi_f(2,17)=34
1425 exch2_oj(2,17)=-32
1426 exch2_oj_f(2,17)=-32
1427 exch2_itlo_c(2,17)=9
1428 exch2_ithi_c(2,17)=9
1429 exch2_jtlo_c(2,17)=0
1430 exch2_jthi_c(2,17)=9
1431 exch2_opposingSend_record(2,17)=3
1432
1433 exch2_neighbourId(3,17)=18
1434 exch2_pi(1,3,17)=1
1435 exch2_pi(2,3,17)=0
1436 exch2_pj(1,3,17)=0
1437 exch2_pj(2,3,17)=1
1438 exch2_oi(3,17)=0
1439 exch2_oi_f(3,17)=0
1440 exch2_oj(3,17)=0
1441 exch2_oj_f(3,17)=0
1442 exch2_itlo_c(3,17)=0
1443 exch2_ithi_c(3,17)=0
1444 exch2_jtlo_c(3,17)=0
1445 exch2_jthi_c(3,17)=9
1446 exch2_opposingSend_record(3,17)=4
1447
1448 exch2_neighbourId(4,17)=4
1449 exch2_pi(1,4,17)=1
1450 exch2_pi(2,4,17)=0
1451 exch2_pj(1,4,17)=0
1452 exch2_pj(2,4,17)=1
1453 exch2_oi(4,17)=-32
1454 exch2_oi_f(4,17)=-32
1455 exch2_oj(4,17)=0
1456 exch2_oj_f(4,17)=0
1457 exch2_itlo_c(4,17)=9
1458 exch2_ithi_c(4,17)=9
1459 exch2_jtlo_c(4,17)=0
1460 exch2_jthi_c(4,17)=9
1461 exch2_opposingSend_record(4,17)=3
1462 RETURN
1463 END
1464
1465 SUBROUTINE W2_E2SETUP_18
1466 C Topology for tile 18
1467 #include "W2_EXCH2_TOPOLOGY.h"
1468 exch2_tnx(18)=8
1469 exch2_tny(18)=8
1470 exch2_tbasex(18)=8
1471 exch2_tbasey(18)=0
1472 exch2_txglobalo(18)=41
1473 exch2_tyglobalo(18)=1
1474 exch2_isWedge(18)=0
1475 exch2_isNedge(18)=0
1476 exch2_isEedge(18)=0
1477 exch2_isSedge(18)=1
1478 exch2_myFace(18)=2
1479 exch2_mydnx(18)=32
1480 exch2_mydny(18)=32
1481 exch2_nNeighbours(18)=4
1482
1483 exch2_neighbourId(1,18)=22
1484 exch2_pi(1,1,18)=1
1485 exch2_pi(2,1,18)=0
1486 exch2_pj(1,1,18)=0
1487 exch2_pj(2,1,18)=1
1488 exch2_oi(1,18)=0
1489 exch2_oi_f(1,18)=0
1490 exch2_oj(1,18)=0
1491 exch2_oj_f(1,18)=0
1492 exch2_itlo_c(1,18)=0
1493 exch2_ithi_c(1,18)=9
1494 exch2_jtlo_c(1,18)=0
1495 exch2_jthi_c(1,18)=0
1496 exch2_opposingSend_record(1,18)=2
1497
1498 exch2_neighbourId(2,18)=92
1499 exch2_pi(1,2,18)=0
1500 exch2_pi(2,2,18)=-1
1501 exch2_pj(1,2,18)=1
1502 exch2_pj(2,2,18)=0
1503 exch2_oi(2,18)=33
1504 exch2_oi_f(2,18)=34
1505 exch2_oj(2,18)=-32
1506 exch2_oj_f(2,18)=-32
1507 exch2_itlo_c(2,18)=9
1508 exch2_ithi_c(2,18)=9
1509 exch2_jtlo_c(2,18)=0
1510 exch2_jthi_c(2,18)=9
1511 exch2_opposingSend_record(2,18)=3
1512
1513 exch2_neighbourId(3,18)=19
1514 exch2_pi(1,3,18)=1
1515 exch2_pi(2,3,18)=0
1516 exch2_pj(1,3,18)=0
1517 exch2_pj(2,3,18)=1
1518 exch2_oi(3,18)=0
1519 exch2_oi_f(3,18)=0
1520 exch2_oj(3,18)=0
1521 exch2_oj_f(3,18)=0
1522 exch2_itlo_c(3,18)=0
1523 exch2_ithi_c(3,18)=0
1524 exch2_jtlo_c(3,18)=0
1525 exch2_jthi_c(3,18)=9
1526 exch2_opposingSend_record(3,18)=4
1527
1528 exch2_neighbourId(4,18)=17
1529 exch2_pi(1,4,18)=1
1530 exch2_pi(2,4,18)=0
1531 exch2_pj(1,4,18)=0
1532 exch2_pj(2,4,18)=1
1533 exch2_oi(4,18)=0
1534 exch2_oi_f(4,18)=0
1535 exch2_oj(4,18)=0
1536 exch2_oj_f(4,18)=0
1537 exch2_itlo_c(4,18)=9
1538 exch2_ithi_c(4,18)=9
1539 exch2_jtlo_c(4,18)=0
1540 exch2_jthi_c(4,18)=9
1541 exch2_opposingSend_record(4,18)=3
1542 RETURN
1543 END
1544
1545 SUBROUTINE W2_E2SETUP_19
1546 C Topology for tile 19
1547 #include "W2_EXCH2_TOPOLOGY.h"
1548 exch2_tnx(19)=8
1549 exch2_tny(19)=8
1550 exch2_tbasex(19)=16
1551 exch2_tbasey(19)=0
1552 exch2_txglobalo(19)=49
1553 exch2_tyglobalo(19)=1
1554 exch2_isWedge(19)=0
1555 exch2_isNedge(19)=0
1556 exch2_isEedge(19)=0
1557 exch2_isSedge(19)=1
1558 exch2_myFace(19)=2
1559 exch2_mydnx(19)=32
1560 exch2_mydny(19)=32
1561 exch2_nNeighbours(19)=4
1562
1563 exch2_neighbourId(1,19)=23
1564 exch2_pi(1,1,19)=1
1565 exch2_pi(2,1,19)=0
1566 exch2_pj(1,1,19)=0
1567 exch2_pj(2,1,19)=1
1568 exch2_oi(1,19)=0
1569 exch2_oi_f(1,19)=0
1570 exch2_oj(1,19)=0
1571 exch2_oj_f(1,19)=0
1572 exch2_itlo_c(1,19)=0
1573 exch2_ithi_c(1,19)=9
1574 exch2_jtlo_c(1,19)=0
1575 exch2_jthi_c(1,19)=0
1576 exch2_opposingSend_record(1,19)=2
1577
1578 exch2_neighbourId(2,19)=88
1579 exch2_pi(1,2,19)=0
1580 exch2_pi(2,2,19)=-1
1581 exch2_pj(1,2,19)=1
1582 exch2_pj(2,2,19)=0
1583 exch2_oi(2,19)=33
1584 exch2_oi_f(2,19)=34
1585 exch2_oj(2,19)=-32
1586 exch2_oj_f(2,19)=-32
1587 exch2_itlo_c(2,19)=9
1588 exch2_ithi_c(2,19)=9
1589 exch2_jtlo_c(2,19)=0
1590 exch2_jthi_c(2,19)=9
1591 exch2_opposingSend_record(2,19)=3
1592
1593 exch2_neighbourId(3,19)=20
1594 exch2_pi(1,3,19)=1
1595 exch2_pi(2,3,19)=0
1596 exch2_pj(1,3,19)=0
1597 exch2_pj(2,3,19)=1
1598 exch2_oi(3,19)=0
1599 exch2_oi_f(3,19)=0
1600 exch2_oj(3,19)=0
1601 exch2_oj_f(3,19)=0
1602 exch2_itlo_c(3,19)=0
1603 exch2_ithi_c(3,19)=0
1604 exch2_jtlo_c(3,19)=0
1605 exch2_jthi_c(3,19)=9
1606 exch2_opposingSend_record(3,19)=4
1607
1608 exch2_neighbourId(4,19)=18
1609 exch2_pi(1,4,19)=1
1610 exch2_pi(2,4,19)=0
1611 exch2_pj(1,4,19)=0
1612 exch2_pj(2,4,19)=1
1613 exch2_oi(4,19)=0
1614 exch2_oi_f(4,19)=0
1615 exch2_oj(4,19)=0
1616 exch2_oj_f(4,19)=0
1617 exch2_itlo_c(4,19)=9
1618 exch2_ithi_c(4,19)=9
1619 exch2_jtlo_c(4,19)=0
1620 exch2_jthi_c(4,19)=9
1621 exch2_opposingSend_record(4,19)=3
1622 RETURN
1623 END
1624
1625 SUBROUTINE W2_E2SETUP_20
1626 C Topology for tile 20
1627 #include "W2_EXCH2_TOPOLOGY.h"
1628 exch2_tnx(20)=8
1629 exch2_tny(20)=8
1630 exch2_tbasex(20)=24
1631 exch2_tbasey(20)=0
1632 exch2_txglobalo(20)=57
1633 exch2_tyglobalo(20)=1
1634 exch2_isWedge(20)=0
1635 exch2_isNedge(20)=0
1636 exch2_isEedge(20)=1
1637 exch2_isSedge(20)=1
1638 exch2_myFace(20)=2
1639 exch2_mydnx(20)=32
1640 exch2_mydny(20)=32
1641 exch2_nNeighbours(20)=4
1642
1643 exch2_neighbourId(1,20)=24
1644 exch2_pi(1,1,20)=1
1645 exch2_pi(2,1,20)=0
1646 exch2_pj(1,1,20)=0
1647 exch2_pj(2,1,20)=1
1648 exch2_oi(1,20)=0
1649 exch2_oi_f(1,20)=0
1650 exch2_oj(1,20)=0
1651 exch2_oj_f(1,20)=0
1652 exch2_itlo_c(1,20)=0
1653 exch2_ithi_c(1,20)=9
1654 exch2_jtlo_c(1,20)=0
1655 exch2_jthi_c(1,20)=0
1656 exch2_opposingSend_record(1,20)=2
1657
1658 exch2_neighbourId(2,20)=84
1659 exch2_pi(1,2,20)=0
1660 exch2_pi(2,2,20)=-1
1661 exch2_pj(1,2,20)=1
1662 exch2_pj(2,2,20)=0
1663 exch2_oi(2,20)=33
1664 exch2_oi_f(2,20)=34
1665 exch2_oj(2,20)=-32
1666 exch2_oj_f(2,20)=-32
1667 exch2_itlo_c(2,20)=9
1668 exch2_ithi_c(2,20)=9
1669 exch2_jtlo_c(2,20)=0
1670 exch2_jthi_c(2,20)=9
1671 exch2_opposingSend_record(2,20)=3
1672
1673 exch2_neighbourId(3,20)=52
1674 exch2_pi(1,3,20)=0
1675 exch2_pi(2,3,20)=1
1676 exch2_pj(1,3,20)=-1
1677 exch2_pj(2,3,20)=0
1678 exch2_oi(3,20)=32
1679 exch2_oi_f(3,20)=32
1680 exch2_oj(3,20)=33
1681 exch2_oj_f(3,20)=34
1682 exch2_itlo_c(3,20)=0
1683 exch2_ithi_c(3,20)=9
1684 exch2_jtlo_c(3,20)=0
1685 exch2_jthi_c(3,20)=0
1686 exch2_opposingSend_record(3,20)=2
1687
1688 exch2_neighbourId(4,20)=19
1689 exch2_pi(1,4,20)=1
1690 exch2_pi(2,4,20)=0
1691 exch2_pj(1,4,20)=0
1692 exch2_pj(2,4,20)=1
1693 exch2_oi(4,20)=0
1694 exch2_oi_f(4,20)=0
1695 exch2_oj(4,20)=0
1696 exch2_oj_f(4,20)=0
1697 exch2_itlo_c(4,20)=9
1698 exch2_ithi_c(4,20)=9
1699 exch2_jtlo_c(4,20)=0
1700 exch2_jthi_c(4,20)=9
1701 exch2_opposingSend_record(4,20)=3
1702 RETURN
1703 END
1704
1705 SUBROUTINE W2_E2SETUP_21
1706 C Topology for tile 21
1707 #include "W2_EXCH2_TOPOLOGY.h"
1708 exch2_tnx(21)=8
1709 exch2_tny(21)=8
1710 exch2_tbasex(21)=0
1711 exch2_tbasey(21)=8
1712 exch2_txglobalo(21)=33
1713 exch2_tyglobalo(21)=9
1714 exch2_isWedge(21)=1
1715 exch2_isNedge(21)=0
1716 exch2_isEedge(21)=0
1717 exch2_isSedge(21)=0
1718 exch2_myFace(21)=2
1719 exch2_mydnx(21)=32
1720 exch2_mydny(21)=32
1721 exch2_nNeighbours(21)=4
1722
1723 exch2_neighbourId(1,21)=25
1724 exch2_pi(1,1,21)=1
1725 exch2_pi(2,1,21)=0
1726 exch2_pj(1,1,21)=0
1727 exch2_pj(2,1,21)=1
1728 exch2_oi(1,21)=0
1729 exch2_oi_f(1,21)=0
1730 exch2_oj(1,21)=0
1731 exch2_oj_f(1,21)=0
1732 exch2_itlo_c(1,21)=0
1733 exch2_ithi_c(1,21)=9
1734 exch2_jtlo_c(1,21)=0
1735 exch2_jthi_c(1,21)=0
1736 exch2_opposingSend_record(1,21)=2
1737
1738 exch2_neighbourId(2,21)=17
1739 exch2_pi(1,2,21)=1
1740 exch2_pi(2,2,21)=0
1741 exch2_pj(1,2,21)=0
1742 exch2_pj(2,2,21)=1
1743 exch2_oi(2,21)=0
1744 exch2_oi_f(2,21)=0
1745 exch2_oj(2,21)=0
1746 exch2_oj_f(2,21)=0
1747 exch2_itlo_c(2,21)=1
1748 exch2_ithi_c(2,21)=8
1749 exch2_jtlo_c(2,21)=9
1750 exch2_jthi_c(2,21)=9
1751 exch2_opposingSend_record(2,21)=1
1752
1753 exch2_neighbourId(3,21)=22
1754 exch2_pi(1,3,21)=1
1755 exch2_pi(2,3,21)=0
1756 exch2_pj(1,3,21)=0
1757 exch2_pj(2,3,21)=1
1758 exch2_oi(3,21)=0
1759 exch2_oi_f(3,21)=0
1760 exch2_oj(3,21)=0
1761 exch2_oj_f(3,21)=0
1762 exch2_itlo_c(3,21)=0
1763 exch2_ithi_c(3,21)=0
1764 exch2_jtlo_c(3,21)=0
1765 exch2_jthi_c(3,21)=9
1766 exch2_opposingSend_record(3,21)=4
1767
1768 exch2_neighbourId(4,21)=8
1769 exch2_pi(1,4,21)=1
1770 exch2_pi(2,4,21)=0
1771 exch2_pj(1,4,21)=0
1772 exch2_pj(2,4,21)=1
1773 exch2_oi(4,21)=-32
1774 exch2_oi_f(4,21)=-32
1775 exch2_oj(4,21)=0
1776 exch2_oj_f(4,21)=0
1777 exch2_itlo_c(4,21)=9
1778 exch2_ithi_c(4,21)=9
1779 exch2_jtlo_c(4,21)=0
1780 exch2_jthi_c(4,21)=9
1781 exch2_opposingSend_record(4,21)=3
1782 RETURN
1783 END
1784
1785 SUBROUTINE W2_E2SETUP_22
1786 C Topology for tile 22
1787 #include "W2_EXCH2_TOPOLOGY.h"
1788 exch2_tnx(22)=8
1789 exch2_tny(22)=8
1790 exch2_tbasex(22)=8
1791 exch2_tbasey(22)=8
1792 exch2_txglobalo(22)=41
1793 exch2_tyglobalo(22)=9
1794 exch2_isWedge(22)=0
1795 exch2_isNedge(22)=0
1796 exch2_isEedge(22)=0
1797 exch2_isSedge(22)=0
1798 exch2_myFace(22)=2
1799 exch2_mydnx(22)=32
1800 exch2_mydny(22)=32
1801 exch2_nNeighbours(22)=4
1802
1803 exch2_neighbourId(1,22)=26
1804 exch2_pi(1,1,22)=1
1805 exch2_pi(2,1,22)=0
1806 exch2_pj(1,1,22)=0
1807 exch2_pj(2,1,22)=1
1808 exch2_oi(1,22)=0
1809 exch2_oi_f(1,22)=0
1810 exch2_oj(1,22)=0
1811 exch2_oj_f(1,22)=0
1812 exch2_itlo_c(1,22)=0
1813 exch2_ithi_c(1,22)=9
1814 exch2_jtlo_c(1,22)=0
1815 exch2_jthi_c(1,22)=0
1816 exch2_opposingSend_record(1,22)=2
1817
1818 exch2_neighbourId(2,22)=18
1819 exch2_pi(1,2,22)=1
1820 exch2_pi(2,2,22)=0
1821 exch2_pj(1,2,22)=0
1822 exch2_pj(2,2,22)=1
1823 exch2_oi(2,22)=0
1824 exch2_oi_f(2,22)=0
1825 exch2_oj(2,22)=0
1826 exch2_oj_f(2,22)=0
1827 exch2_itlo_c(2,22)=1
1828 exch2_ithi_c(2,22)=8
1829 exch2_jtlo_c(2,22)=9
1830 exch2_jthi_c(2,22)=9
1831 exch2_opposingSend_record(2,22)=1
1832
1833 exch2_neighbourId(3,22)=23
1834 exch2_pi(1,3,22)=1
1835 exch2_pi(2,3,22)=0
1836 exch2_pj(1,3,22)=0
1837 exch2_pj(2,3,22)=1
1838 exch2_oi(3,22)=0
1839 exch2_oi_f(3,22)=0
1840 exch2_oj(3,22)=0
1841 exch2_oj_f(3,22)=0
1842 exch2_itlo_c(3,22)=0
1843 exch2_ithi_c(3,22)=0
1844 exch2_jtlo_c(3,22)=0
1845 exch2_jthi_c(3,22)=9
1846 exch2_opposingSend_record(3,22)=4
1847
1848 exch2_neighbourId(4,22)=21
1849 exch2_pi(1,4,22)=1
1850 exch2_pi(2,4,22)=0
1851 exch2_pj(1,4,22)=0
1852 exch2_pj(2,4,22)=1
1853 exch2_oi(4,22)=0
1854 exch2_oi_f(4,22)=0
1855 exch2_oj(4,22)=0
1856 exch2_oj_f(4,22)=0
1857 exch2_itlo_c(4,22)=9
1858 exch2_ithi_c(4,22)=9
1859 exch2_jtlo_c(4,22)=0
1860 exch2_jthi_c(4,22)=9
1861 exch2_opposingSend_record(4,22)=3
1862 RETURN
1863 END
1864
1865 SUBROUTINE W2_E2SETUP_23
1866 C Topology for tile 23
1867 #include "W2_EXCH2_TOPOLOGY.h"
1868 exch2_tnx(23)=8
1869 exch2_tny(23)=8
1870 exch2_tbasex(23)=16
1871 exch2_tbasey(23)=8
1872 exch2_txglobalo(23)=49
1873 exch2_tyglobalo(23)=9
1874 exch2_isWedge(23)=0
1875 exch2_isNedge(23)=0
1876 exch2_isEedge(23)=0
1877 exch2_isSedge(23)=0
1878 exch2_myFace(23)=2
1879 exch2_mydnx(23)=32
1880 exch2_mydny(23)=32
1881 exch2_nNeighbours(23)=4
1882
1883 exch2_neighbourId(1,23)=27
1884 exch2_pi(1,1,23)=1
1885 exch2_pi(2,1,23)=0
1886 exch2_pj(1,1,23)=0
1887 exch2_pj(2,1,23)=1
1888 exch2_oi(1,23)=0
1889 exch2_oi_f(1,23)=0
1890 exch2_oj(1,23)=0
1891 exch2_oj_f(1,23)=0
1892 exch2_itlo_c(1,23)=0
1893 exch2_ithi_c(1,23)=9
1894 exch2_jtlo_c(1,23)=0
1895 exch2_jthi_c(1,23)=0
1896 exch2_opposingSend_record(1,23)=2
1897
1898 exch2_neighbourId(2,23)=19
1899 exch2_pi(1,2,23)=1
1900 exch2_pi(2,2,23)=0
1901 exch2_pj(1,2,23)=0
1902 exch2_pj(2,2,23)=1
1903 exch2_oi(2,23)=0
1904 exch2_oi_f(2,23)=0
1905 exch2_oj(2,23)=0
1906 exch2_oj_f(2,23)=0
1907 exch2_itlo_c(2,23)=1
1908 exch2_ithi_c(2,23)=8
1909 exch2_jtlo_c(2,23)=9
1910 exch2_jthi_c(2,23)=9
1911 exch2_opposingSend_record(2,23)=1
1912
1913 exch2_neighbourId(3,23)=24
1914 exch2_pi(1,3,23)=1
1915 exch2_pi(2,3,23)=0
1916 exch2_pj(1,3,23)=0
1917 exch2_pj(2,3,23)=1
1918 exch2_oi(3,23)=0
1919 exch2_oi_f(3,23)=0
1920 exch2_oj(3,23)=0
1921 exch2_oj_f(3,23)=0
1922 exch2_itlo_c(3,23)=0
1923 exch2_ithi_c(3,23)=0
1924 exch2_jtlo_c(3,23)=0
1925 exch2_jthi_c(3,23)=9
1926 exch2_opposingSend_record(3,23)=4
1927
1928 exch2_neighbourId(4,23)=22
1929 exch2_pi(1,4,23)=1
1930 exch2_pi(2,4,23)=0
1931 exch2_pj(1,4,23)=0
1932 exch2_pj(2,4,23)=1
1933 exch2_oi(4,23)=0
1934 exch2_oi_f(4,23)=0
1935 exch2_oj(4,23)=0
1936 exch2_oj_f(4,23)=0
1937 exch2_itlo_c(4,23)=9
1938 exch2_ithi_c(4,23)=9
1939 exch2_jtlo_c(4,23)=0
1940 exch2_jthi_c(4,23)=9
1941 exch2_opposingSend_record(4,23)=3
1942 RETURN
1943 END
1944
1945 SUBROUTINE W2_E2SETUP_24
1946 C Topology for tile 24
1947 #include "W2_EXCH2_TOPOLOGY.h"
1948 exch2_tnx(24)=8
1949 exch2_tny(24)=8
1950 exch2_tbasex(24)=24
1951 exch2_tbasey(24)=8
1952 exch2_txglobalo(24)=57
1953 exch2_tyglobalo(24)=9
1954 exch2_isWedge(24)=0
1955 exch2_isNedge(24)=0
1956 exch2_isEedge(24)=1
1957 exch2_isSedge(24)=0
1958 exch2_myFace(24)=2
1959 exch2_mydnx(24)=32
1960 exch2_mydny(24)=32
1961 exch2_nNeighbours(24)=4
1962
1963 exch2_neighbourId(1,24)=28
1964 exch2_pi(1,1,24)=1
1965 exch2_pi(2,1,24)=0
1966 exch2_pj(1,1,24)=0
1967 exch2_pj(2,1,24)=1
1968 exch2_oi(1,24)=0
1969 exch2_oi_f(1,24)=0
1970 exch2_oj(1,24)=0
1971 exch2_oj_f(1,24)=0
1972 exch2_itlo_c(1,24)=0
1973 exch2_ithi_c(1,24)=9
1974 exch2_jtlo_c(1,24)=0
1975 exch2_jthi_c(1,24)=0
1976 exch2_opposingSend_record(1,24)=2
1977
1978 exch2_neighbourId(2,24)=20
1979 exch2_pi(1,2,24)=1
1980 exch2_pi(2,2,24)=0
1981 exch2_pj(1,2,24)=0
1982 exch2_pj(2,2,24)=1
1983 exch2_oi(2,24)=0
1984 exch2_oi_f(2,24)=0
1985 exch2_oj(2,24)=0
1986 exch2_oj_f(2,24)=0
1987 exch2_itlo_c(2,24)=1
1988 exch2_ithi_c(2,24)=8
1989 exch2_jtlo_c(2,24)=9
1990 exch2_jthi_c(2,24)=9
1991 exch2_opposingSend_record(2,24)=1
1992
1993 exch2_neighbourId(3,24)=51
1994 exch2_pi(1,3,24)=0
1995 exch2_pi(2,3,24)=1
1996 exch2_pj(1,3,24)=-1
1997 exch2_pj(2,3,24)=0
1998 exch2_oi(3,24)=32
1999 exch2_oi_f(3,24)=32
2000 exch2_oj(3,24)=33
2001 exch2_oj_f(3,24)=34
2002 exch2_itlo_c(3,24)=0
2003 exch2_ithi_c(3,24)=9
2004 exch2_jtlo_c(3,24)=0
2005 exch2_jthi_c(3,24)=0
2006 exch2_opposingSend_record(3,24)=2
2007
2008 exch2_neighbourId(4,24)=23
2009 exch2_pi(1,4,24)=1
2010 exch2_pi(2,4,24)=0
2011 exch2_pj(1,4,24)=0
2012 exch2_pj(2,4,24)=1
2013 exch2_oi(4,24)=0
2014 exch2_oi_f(4,24)=0
2015 exch2_oj(4,24)=0
2016 exch2_oj_f(4,24)=0
2017 exch2_itlo_c(4,24)=9
2018 exch2_ithi_c(4,24)=9
2019 exch2_jtlo_c(4,24)=0
2020 exch2_jthi_c(4,24)=9
2021 exch2_opposingSend_record(4,24)=3
2022 RETURN
2023 END
2024
2025 SUBROUTINE W2_E2SETUP_25
2026 C Topology for tile 25
2027 #include "W2_EXCH2_TOPOLOGY.h"
2028 exch2_tnx(25)=8
2029 exch2_tny(25)=8
2030 exch2_tbasex(25)=0
2031 exch2_tbasey(25)=16
2032 exch2_txglobalo(25)=33
2033 exch2_tyglobalo(25)=17
2034 exch2_isWedge(25)=1
2035 exch2_isNedge(25)=0
2036 exch2_isEedge(25)=0
2037 exch2_isSedge(25)=0
2038 exch2_myFace(25)=2
2039 exch2_mydnx(25)=32
2040 exch2_mydny(25)=32
2041 exch2_nNeighbours(25)=4
2042
2043 exch2_neighbourId(1,25)=29
2044 exch2_pi(1,1,25)=1
2045 exch2_pi(2,1,25)=0
2046 exch2_pj(1,1,25)=0
2047 exch2_pj(2,1,25)=1
2048 exch2_oi(1,25)=0
2049 exch2_oi_f(1,25)=0
2050 exch2_oj(1,25)=0
2051 exch2_oj_f(1,25)=0
2052 exch2_itlo_c(1,25)=0
2053 exch2_ithi_c(1,25)=9
2054 exch2_jtlo_c(1,25)=0
2055 exch2_jthi_c(1,25)=0
2056 exch2_opposingSend_record(1,25)=2
2057
2058 exch2_neighbourId(2,25)=21
2059 exch2_pi(1,2,25)=1
2060 exch2_pi(2,2,25)=0
2061 exch2_pj(1,2,25)=0
2062 exch2_pj(2,2,25)=1
2063 exch2_oi(2,25)=0
2064 exch2_oi_f(2,25)=0
2065 exch2_oj(2,25)=0
2066 exch2_oj_f(2,25)=0
2067 exch2_itlo_c(2,25)=1
2068 exch2_ithi_c(2,25)=8
2069 exch2_jtlo_c(2,25)=9
2070 exch2_jthi_c(2,25)=9
2071 exch2_opposingSend_record(2,25)=1
2072
2073 exch2_neighbourId(3,25)=26
2074 exch2_pi(1,3,25)=1
2075 exch2_pi(2,3,25)=0
2076 exch2_pj(1,3,25)=0
2077 exch2_pj(2,3,25)=1
2078 exch2_oi(3,25)=0
2079 exch2_oi_f(3,25)=0
2080 exch2_oj(3,25)=0
2081 exch2_oj_f(3,25)=0
2082 exch2_itlo_c(3,25)=0
2083 exch2_ithi_c(3,25)=0
2084 exch2_jtlo_c(3,25)=0
2085 exch2_jthi_c(3,25)=9
2086 exch2_opposingSend_record(3,25)=4
2087
2088 exch2_neighbourId(4,25)=12
2089 exch2_pi(1,4,25)=1
2090 exch2_pi(2,4,25)=0
2091 exch2_pj(1,4,25)=0
2092 exch2_pj(2,4,25)=1
2093 exch2_oi(4,25)=-32
2094 exch2_oi_f(4,25)=-32
2095 exch2_oj(4,25)=0
2096 exch2_oj_f(4,25)=0
2097 exch2_itlo_c(4,25)=9
2098 exch2_ithi_c(4,25)=9
2099 exch2_jtlo_c(4,25)=0
2100 exch2_jthi_c(4,25)=9
2101 exch2_opposingSend_record(4,25)=3
2102 RETURN
2103 END
2104
2105 SUBROUTINE W2_E2SETUP_26
2106 C Topology for tile 26
2107 #include "W2_EXCH2_TOPOLOGY.h"
2108 exch2_tnx(26)=8
2109 exch2_tny(26)=8
2110 exch2_tbasex(26)=8
2111 exch2_tbasey(26)=16
2112 exch2_txglobalo(26)=41
2113 exch2_tyglobalo(26)=17
2114 exch2_isWedge(26)=0
2115 exch2_isNedge(26)=0
2116 exch2_isEedge(26)=0
2117 exch2_isSedge(26)=0
2118 exch2_myFace(26)=2
2119 exch2_mydnx(26)=32
2120 exch2_mydny(26)=32
2121 exch2_nNeighbours(26)=4
2122
2123 exch2_neighbourId(1,26)=30
2124 exch2_pi(1,1,26)=1
2125 exch2_pi(2,1,26)=0
2126 exch2_pj(1,1,26)=0
2127 exch2_pj(2,1,26)=1
2128 exch2_oi(1,26)=0
2129 exch2_oi_f(1,26)=0
2130 exch2_oj(1,26)=0
2131 exch2_oj_f(1,26)=0
2132 exch2_itlo_c(1,26)=0
2133 exch2_ithi_c(1,26)=9
2134 exch2_jtlo_c(1,26)=0
2135 exch2_jthi_c(1,26)=0
2136 exch2_opposingSend_record(1,26)=2
2137
2138 exch2_neighbourId(2,26)=22
2139 exch2_pi(1,2,26)=1
2140 exch2_pi(2,2,26)=0
2141 exch2_pj(1,2,26)=0
2142 exch2_pj(2,2,26)=1
2143 exch2_oi(2,26)=0
2144 exch2_oi_f(2,26)=0
2145 exch2_oj(2,26)=0
2146 exch2_oj_f(2,26)=0
2147 exch2_itlo_c(2,26)=1
2148 exch2_ithi_c(2,26)=8
2149 exch2_jtlo_c(2,26)=9
2150 exch2_jthi_c(2,26)=9
2151 exch2_opposingSend_record(2,26)=1
2152
2153 exch2_neighbourId(3,26)=27
2154 exch2_pi(1,3,26)=1
2155 exch2_pi(2,3,26)=0
2156 exch2_pj(1,3,26)=0
2157 exch2_pj(2,3,26)=1
2158 exch2_oi(3,26)=0
2159 exch2_oi_f(3,26)=0
2160 exch2_oj(3,26)=0
2161 exch2_oj_f(3,26)=0
2162 exch2_itlo_c(3,26)=0
2163 exch2_ithi_c(3,26)=0
2164 exch2_jtlo_c(3,26)=0
2165 exch2_jthi_c(3,26)=9
2166 exch2_opposingSend_record(3,26)=4
2167
2168 exch2_neighbourId(4,26)=25
2169 exch2_pi(1,4,26)=1
2170 exch2_pi(2,4,26)=0
2171 exch2_pj(1,4,26)=0
2172 exch2_pj(2,4,26)=1
2173 exch2_oi(4,26)=0
2174 exch2_oi_f(4,26)=0
2175 exch2_oj(4,26)=0
2176 exch2_oj_f(4,26)=0
2177 exch2_itlo_c(4,26)=9
2178 exch2_ithi_c(4,26)=9
2179 exch2_jtlo_c(4,26)=0
2180 exch2_jthi_c(4,26)=9
2181 exch2_opposingSend_record(4,26)=3
2182 RETURN
2183 END
2184
2185 SUBROUTINE W2_E2SETUP_27
2186 C Topology for tile 27
2187 #include "W2_EXCH2_TOPOLOGY.h"
2188 exch2_tnx(27)=8
2189 exch2_tny(27)=8
2190 exch2_tbasex(27)=16
2191 exch2_tbasey(27)=16
2192 exch2_txglobalo(27)=49
2193 exch2_tyglobalo(27)=17
2194 exch2_isWedge(27)=0
2195 exch2_isNedge(27)=0
2196 exch2_isEedge(27)=0
2197 exch2_isSedge(27)=0
2198 exch2_myFace(27)=2
2199 exch2_mydnx(27)=32
2200 exch2_mydny(27)=32
2201 exch2_nNeighbours(27)=4
2202
2203 exch2_neighbourId(1,27)=31
2204 exch2_pi(1,1,27)=1
2205 exch2_pi(2,1,27)=0
2206 exch2_pj(1,1,27)=0
2207 exch2_pj(2,1,27)=1
2208 exch2_oi(1,27)=0
2209 exch2_oi_f(1,27)=0
2210 exch2_oj(1,27)=0
2211 exch2_oj_f(1,27)=0
2212 exch2_itlo_c(1,27)=0
2213 exch2_ithi_c(1,27)=9
2214 exch2_jtlo_c(1,27)=0
2215 exch2_jthi_c(1,27)=0
2216 exch2_opposingSend_record(1,27)=2
2217
2218 exch2_neighbourId(2,27)=23
2219 exch2_pi(1,2,27)=1
2220 exch2_pi(2,2,27)=0
2221 exch2_pj(1,2,27)=0
2222 exch2_pj(2,2,27)=1
2223 exch2_oi(2,27)=0
2224 exch2_oi_f(2,27)=0
2225 exch2_oj(2,27)=0
2226 exch2_oj_f(2,27)=0
2227 exch2_itlo_c(2,27)=1
2228 exch2_ithi_c(2,27)=8
2229 exch2_jtlo_c(2,27)=9
2230 exch2_jthi_c(2,27)=9
2231 exch2_opposingSend_record(2,27)=1
2232
2233 exch2_neighbourId(3,27)=28
2234 exch2_pi(1,3,27)=1
2235 exch2_pi(2,3,27)=0
2236 exch2_pj(1,3,27)=0
2237 exch2_pj(2,3,27)=1
2238 exch2_oi(3,27)=0
2239 exch2_oi_f(3,27)=0
2240 exch2_oj(3,27)=0
2241 exch2_oj_f(3,27)=0
2242 exch2_itlo_c(3,27)=0
2243 exch2_ithi_c(3,27)=0
2244 exch2_jtlo_c(3,27)=0
2245 exch2_jthi_c(3,27)=9
2246 exch2_opposingSend_record(3,27)=4
2247
2248 exch2_neighbourId(4,27)=26
2249 exch2_pi(1,4,27)=1
2250 exch2_pi(2,4,27)=0
2251 exch2_pj(1,4,27)=0
2252 exch2_pj(2,4,27)=1
2253 exch2_oi(4,27)=0
2254 exch2_oi_f(4,27)=0
2255 exch2_oj(4,27)=0
2256 exch2_oj_f(4,27)=0
2257 exch2_itlo_c(4,27)=9
2258 exch2_ithi_c(4,27)=9
2259 exch2_jtlo_c(4,27)=0
2260 exch2_jthi_c(4,27)=9
2261 exch2_opposingSend_record(4,27)=3
2262 RETURN
2263 END
2264
2265 SUBROUTINE W2_E2SETUP_28
2266 C Topology for tile 28
2267 #include "W2_EXCH2_TOPOLOGY.h"
2268 exch2_tnx(28)=8
2269 exch2_tny(28)=8
2270 exch2_tbasex(28)=24
2271 exch2_tbasey(28)=16
2272 exch2_txglobalo(28)=57
2273 exch2_tyglobalo(28)=17
2274 exch2_isWedge(28)=0
2275 exch2_isNedge(28)=0
2276 exch2_isEedge(28)=1
2277 exch2_isSedge(28)=0
2278 exch2_myFace(28)=2
2279 exch2_mydnx(28)=32
2280 exch2_mydny(28)=32
2281 exch2_nNeighbours(28)=4
2282
2283 exch2_neighbourId(1,28)=32
2284 exch2_pi(1,1,28)=1
2285 exch2_pi(2,1,28)=0
2286 exch2_pj(1,1,28)=0
2287 exch2_pj(2,1,28)=1
2288 exch2_oi(1,28)=0
2289 exch2_oi_f(1,28)=0
2290 exch2_oj(1,28)=0
2291 exch2_oj_f(1,28)=0
2292 exch2_itlo_c(1,28)=0
2293 exch2_ithi_c(1,28)=9
2294 exch2_jtlo_c(1,28)=0
2295 exch2_jthi_c(1,28)=0
2296 exch2_opposingSend_record(1,28)=2
2297
2298 exch2_neighbourId(2,28)=24
2299 exch2_pi(1,2,28)=1
2300 exch2_pi(2,2,28)=0
2301 exch2_pj(1,2,28)=0
2302 exch2_pj(2,2,28)=1
2303 exch2_oi(2,28)=0
2304 exch2_oi_f(2,28)=0
2305 exch2_oj(2,28)=0
2306 exch2_oj_f(2,28)=0
2307 exch2_itlo_c(2,28)=1
2308 exch2_ithi_c(2,28)=8
2309 exch2_jtlo_c(2,28)=9
2310 exch2_jthi_c(2,28)=9
2311 exch2_opposingSend_record(2,28)=1
2312
2313 exch2_neighbourId(3,28)=50
2314 exch2_pi(1,3,28)=0
2315 exch2_pi(2,3,28)=1
2316 exch2_pj(1,3,28)=-1
2317 exch2_pj(2,3,28)=0
2318 exch2_oi(3,28)=32
2319 exch2_oi_f(3,28)=32
2320 exch2_oj(3,28)=33
2321 exch2_oj_f(3,28)=34
2322 exch2_itlo_c(3,28)=0
2323 exch2_ithi_c(3,28)=9
2324 exch2_jtlo_c(3,28)=0
2325 exch2_jthi_c(3,28)=0
2326 exch2_opposingSend_record(3,28)=2
2327
2328 exch2_neighbourId(4,28)=27
2329 exch2_pi(1,4,28)=1
2330 exch2_pi(2,4,28)=0
2331 exch2_pj(1,4,28)=0
2332 exch2_pj(2,4,28)=1
2333 exch2_oi(4,28)=0
2334 exch2_oi_f(4,28)=0
2335 exch2_oj(4,28)=0
2336 exch2_oj_f(4,28)=0
2337 exch2_itlo_c(4,28)=9
2338 exch2_ithi_c(4,28)=9
2339 exch2_jtlo_c(4,28)=0
2340 exch2_jthi_c(4,28)=9
2341 exch2_opposingSend_record(4,28)=3
2342 RETURN
2343 END
2344
2345 SUBROUTINE W2_E2SETUP_29
2346 C Topology for tile 29
2347 #include "W2_EXCH2_TOPOLOGY.h"
2348 exch2_tnx(29)=8
2349 exch2_tny(29)=8
2350 exch2_tbasex(29)=0
2351 exch2_tbasey(29)=24
2352 exch2_txglobalo(29)=33
2353 exch2_tyglobalo(29)=25
2354 exch2_isWedge(29)=1
2355 exch2_isNedge(29)=1
2356 exch2_isEedge(29)=0
2357 exch2_isSedge(29)=0
2358 exch2_myFace(29)=2
2359 exch2_mydnx(29)=32
2360 exch2_mydny(29)=32
2361 exch2_nNeighbours(29)=4
2362
2363 exch2_neighbourId(1,29)=33
2364 exch2_pi(1,1,29)=1
2365 exch2_pi(2,1,29)=0
2366 exch2_pj(1,1,29)=0
2367 exch2_pj(2,1,29)=1
2368 exch2_oi(1,29)=0
2369 exch2_oi_f(1,29)=0
2370 exch2_oj(1,29)=32
2371 exch2_oj_f(1,29)=32
2372 exch2_itlo_c(1,29)=0
2373 exch2_ithi_c(1,29)=9
2374 exch2_jtlo_c(1,29)=0
2375 exch2_jthi_c(1,29)=0
2376 exch2_opposingSend_record(1,29)=2
2377
2378 exch2_neighbourId(2,29)=25
2379 exch2_pi(1,2,29)=1
2380 exch2_pi(2,2,29)=0
2381 exch2_pj(1,2,29)=0
2382 exch2_pj(2,2,29)=1
2383 exch2_oi(2,29)=0
2384 exch2_oi_f(2,29)=0
2385 exch2_oj(2,29)=0
2386 exch2_oj_f(2,29)=0
2387 exch2_itlo_c(2,29)=1
2388 exch2_ithi_c(2,29)=8
2389 exch2_jtlo_c(2,29)=9
2390 exch2_jthi_c(2,29)=9
2391 exch2_opposingSend_record(2,29)=1
2392
2393 exch2_neighbourId(3,29)=30
2394 exch2_pi(1,3,29)=1
2395 exch2_pi(2,3,29)=0
2396 exch2_pj(1,3,29)=0
2397 exch2_pj(2,3,29)=1
2398 exch2_oi(3,29)=0
2399 exch2_oi_f(3,29)=0
2400 exch2_oj(3,29)=0
2401 exch2_oj_f(3,29)=0
2402 exch2_itlo_c(3,29)=0
2403 exch2_ithi_c(3,29)=0
2404 exch2_jtlo_c(3,29)=0
2405 exch2_jthi_c(3,29)=9
2406 exch2_opposingSend_record(3,29)=4
2407
2408 exch2_neighbourId(4,29)=16
2409 exch2_pi(1,4,29)=1
2410 exch2_pi(2,4,29)=0
2411 exch2_pj(1,4,29)=0
2412 exch2_pj(2,4,29)=1
2413 exch2_oi(4,29)=-32
2414 exch2_oi_f(4,29)=-32
2415 exch2_oj(4,29)=0
2416 exch2_oj_f(4,29)=0
2417 exch2_itlo_c(4,29)=9
2418 exch2_ithi_c(4,29)=9
2419 exch2_jtlo_c(4,29)=0
2420 exch2_jthi_c(4,29)=9
2421 exch2_opposingSend_record(4,29)=3
2422 RETURN
2423 END
2424
2425 SUBROUTINE W2_E2SETUP_30
2426 C Topology for tile 30
2427 #include "W2_EXCH2_TOPOLOGY.h"
2428 exch2_tnx(30)=8
2429 exch2_tny(30)=8
2430 exch2_tbasex(30)=8
2431 exch2_tbasey(30)=24
2432 exch2_txglobalo(30)=41
2433 exch2_tyglobalo(30)=25
2434 exch2_isWedge(30)=0
2435 exch2_isNedge(30)=1
2436 exch2_isEedge(30)=0
2437 exch2_isSedge(30)=0
2438 exch2_myFace(30)=2
2439 exch2_mydnx(30)=32
2440 exch2_mydny(30)=32
2441 exch2_nNeighbours(30)=4
2442
2443 exch2_neighbourId(1,30)=34
2444 exch2_pi(1,1,30)=1
2445 exch2_pi(2,1,30)=0
2446 exch2_pj(1,1,30)=0
2447 exch2_pj(2,1,30)=1
2448 exch2_oi(1,30)=0
2449 exch2_oi_f(1,30)=0
2450 exch2_oj(1,30)=32
2451 exch2_oj_f(1,30)=32
2452 exch2_itlo_c(1,30)=0
2453 exch2_ithi_c(1,30)=9
2454 exch2_jtlo_c(1,30)=0
2455 exch2_jthi_c(1,30)=0
2456 exch2_opposingSend_record(1,30)=2
2457
2458 exch2_neighbourId(2,30)=26
2459 exch2_pi(1,2,30)=1
2460 exch2_pi(2,2,30)=0
2461 exch2_pj(1,2,30)=0
2462 exch2_pj(2,2,30)=1
2463 exch2_oi(2,30)=0
2464 exch2_oi_f(2,30)=0
2465 exch2_oj(2,30)=0
2466 exch2_oj_f(2,30)=0
2467 exch2_itlo_c(2,30)=1
2468 exch2_ithi_c(2,30)=8
2469 exch2_jtlo_c(2,30)=9
2470 exch2_jthi_c(2,30)=9
2471 exch2_opposingSend_record(2,30)=1
2472
2473 exch2_neighbourId(3,30)=31
2474 exch2_pi(1,3,30)=1
2475 exch2_pi(2,3,30)=0
2476 exch2_pj(1,3,30)=0
2477 exch2_pj(2,3,30)=1
2478 exch2_oi(3,30)=0
2479 exch2_oi_f(3,30)=0
2480 exch2_oj(3,30)=0
2481 exch2_oj_f(3,30)=0
2482 exch2_itlo_c(3,30)=0
2483 exch2_ithi_c(3,30)=0
2484 exch2_jtlo_c(3,30)=0
2485 exch2_jthi_c(3,30)=9
2486 exch2_opposingSend_record(3,30)=4
2487
2488 exch2_neighbourId(4,30)=29
2489 exch2_pi(1,4,30)=1
2490 exch2_pi(2,4,30)=0
2491 exch2_pj(1,4,30)=0
2492 exch2_pj(2,4,30)=1
2493 exch2_oi(4,30)=0
2494 exch2_oi_f(4,30)=0
2495 exch2_oj(4,30)=0
2496 exch2_oj_f(4,30)=0
2497 exch2_itlo_c(4,30)=9
2498 exch2_ithi_c(4,30)=9
2499 exch2_jtlo_c(4,30)=0
2500 exch2_jthi_c(4,30)=9
2501 exch2_opposingSend_record(4,30)=3
2502 RETURN
2503 END
2504
2505 SUBROUTINE W2_E2SETUP_31
2506 C Topology for tile 31
2507 #include "W2_EXCH2_TOPOLOGY.h"
2508 exch2_tnx(31)=8
2509 exch2_tny(31)=8
2510 exch2_tbasex(31)=16
2511 exch2_tbasey(31)=24
2512 exch2_txglobalo(31)=49
2513 exch2_tyglobalo(31)=25
2514 exch2_isWedge(31)=0
2515 exch2_isNedge(31)=1
2516 exch2_isEedge(31)=0
2517 exch2_isSedge(31)=0
2518 exch2_myFace(31)=2
2519 exch2_mydnx(31)=32
2520 exch2_mydny(31)=32
2521 exch2_nNeighbours(31)=4
2522
2523 exch2_neighbourId(1,31)=35
2524 exch2_pi(1,1,31)=1
2525 exch2_pi(2,1,31)=0
2526 exch2_pj(1,1,31)=0
2527 exch2_pj(2,1,31)=1
2528 exch2_oi(1,31)=0
2529 exch2_oi_f(1,31)=0
2530 exch2_oj(1,31)=32
2531 exch2_oj_f(1,31)=32
2532 exch2_itlo_c(1,31)=0
2533 exch2_ithi_c(1,31)=9
2534 exch2_jtlo_c(1,31)=0
2535 exch2_jthi_c(1,31)=0
2536 exch2_opposingSend_record(1,31)=2
2537
2538 exch2_neighbourId(2,31)=27
2539 exch2_pi(1,2,31)=1
2540 exch2_pi(2,2,31)=0
2541 exch2_pj(1,2,31)=0
2542 exch2_pj(2,2,31)=1
2543 exch2_oi(2,31)=0
2544 exch2_oi_f(2,31)=0
2545 exch2_oj(2,31)=0
2546 exch2_oj_f(2,31)=0
2547 exch2_itlo_c(2,31)=1
2548 exch2_ithi_c(2,31)=8
2549 exch2_jtlo_c(2,31)=9
2550 exch2_jthi_c(2,31)=9
2551 exch2_opposingSend_record(2,31)=1
2552
2553 exch2_neighbourId(3,31)=32
2554 exch2_pi(1,3,31)=1
2555 exch2_pi(2,3,31)=0
2556 exch2_pj(1,3,31)=0
2557 exch2_pj(2,3,31)=1
2558 exch2_oi(3,31)=0
2559 exch2_oi_f(3,31)=0
2560 exch2_oj(3,31)=0
2561 exch2_oj_f(3,31)=0
2562 exch2_itlo_c(3,31)=0
2563 exch2_ithi_c(3,31)=0
2564 exch2_jtlo_c(3,31)=0
2565 exch2_jthi_c(3,31)=9
2566 exch2_opposingSend_record(3,31)=4
2567
2568 exch2_neighbourId(4,31)=30
2569 exch2_pi(1,4,31)=1
2570 exch2_pi(2,4,31)=0
2571 exch2_pj(1,4,31)=0
2572 exch2_pj(2,4,31)=1
2573 exch2_oi(4,31)=0
2574 exch2_oi_f(4,31)=0
2575 exch2_oj(4,31)=0
2576 exch2_oj_f(4,31)=0
2577 exch2_itlo_c(4,31)=9
2578 exch2_ithi_c(4,31)=9
2579 exch2_jtlo_c(4,31)=0
2580 exch2_jthi_c(4,31)=9
2581 exch2_opposingSend_record(4,31)=3
2582 RETURN
2583 END
2584
2585 SUBROUTINE W2_E2SETUP_32
2586 C Topology for tile 32
2587 #include "W2_EXCH2_TOPOLOGY.h"
2588 exch2_tnx(32)=8
2589 exch2_tny(32)=8
2590 exch2_tbasex(32)=24
2591 exch2_tbasey(32)=24
2592 exch2_txglobalo(32)=57
2593 exch2_tyglobalo(32)=25
2594 exch2_isWedge(32)=0
2595 exch2_isNedge(32)=1
2596 exch2_isEedge(32)=1
2597 exch2_isSedge(32)=0
2598 exch2_myFace(32)=2
2599 exch2_mydnx(32)=32
2600 exch2_mydny(32)=32
2601 exch2_nNeighbours(32)=4
2602
2603 exch2_neighbourId(1,32)=36
2604 exch2_pi(1,1,32)=1
2605 exch2_pi(2,1,32)=0
2606 exch2_pj(1,1,32)=0
2607 exch2_pj(2,1,32)=1
2608 exch2_oi(1,32)=0
2609 exch2_oi_f(1,32)=0
2610 exch2_oj(1,32)=32
2611 exch2_oj_f(1,32)=32
2612 exch2_itlo_c(1,32)=0
2613 exch2_ithi_c(1,32)=9
2614 exch2_jtlo_c(1,32)=0
2615 exch2_jthi_c(1,32)=0
2616 exch2_opposingSend_record(1,32)=2
2617
2618 exch2_neighbourId(2,32)=28
2619 exch2_pi(1,2,32)=1
2620 exch2_pi(2,2,32)=0
2621 exch2_pj(1,2,32)=0
2622 exch2_pj(2,2,32)=1
2623 exch2_oi(2,32)=0
2624 exch2_oi_f(2,32)=0
2625 exch2_oj(2,32)=0
2626 exch2_oj_f(2,32)=0
2627 exch2_itlo_c(2,32)=1
2628 exch2_ithi_c(2,32)=8
2629 exch2_jtlo_c(2,32)=9
2630 exch2_jthi_c(2,32)=9
2631 exch2_opposingSend_record(2,32)=1
2632
2633 exch2_neighbourId(3,32)=49
2634 exch2_pi(1,3,32)=0
2635 exch2_pi(2,3,32)=1
2636 exch2_pj(1,3,32)=-1
2637 exch2_pj(2,3,32)=0
2638 exch2_oi(3,32)=32
2639 exch2_oi_f(3,32)=32
2640 exch2_oj(3,32)=33
2641 exch2_oj_f(3,32)=34
2642 exch2_itlo_c(3,32)=0
2643 exch2_ithi_c(3,32)=9
2644 exch2_jtlo_c(3,32)=0
2645 exch2_jthi_c(3,32)=0
2646 exch2_opposingSend_record(3,32)=2
2647
2648 exch2_neighbourId(4,32)=31
2649 exch2_pi(1,4,32)=1
2650 exch2_pi(2,4,32)=0
2651 exch2_pj(1,4,32)=0
2652 exch2_pj(2,4,32)=1
2653 exch2_oi(4,32)=0
2654 exch2_oi_f(4,32)=0
2655 exch2_oj(4,32)=0
2656 exch2_oj_f(4,32)=0
2657 exch2_itlo_c(4,32)=9
2658 exch2_ithi_c(4,32)=9
2659 exch2_jtlo_c(4,32)=0
2660 exch2_jthi_c(4,32)=9
2661 exch2_opposingSend_record(4,32)=3
2662 RETURN
2663 END
2664
2665 SUBROUTINE W2_E2SETUP_33
2666 C Topology for tile 33
2667 #include "W2_EXCH2_TOPOLOGY.h"
2668 exch2_tnx(33)=8
2669 exch2_tny(33)=8
2670 exch2_tbasex(33)=0
2671 exch2_tbasey(33)=0
2672 exch2_txglobalo(33)=65
2673 exch2_tyglobalo(33)=1
2674 exch2_isWedge(33)=1
2675 exch2_isNedge(33)=0
2676 exch2_isEedge(33)=0
2677 exch2_isSedge(33)=1
2678 exch2_myFace(33)=3
2679 exch2_mydnx(33)=32
2680 exch2_mydny(33)=32
2681 exch2_nNeighbours(33)=4
2682
2683 exch2_neighbourId(1,33)=37
2684 exch2_pi(1,1,33)=1
2685 exch2_pi(2,1,33)=0
2686 exch2_pj(1,1,33)=0
2687 exch2_pj(2,1,33)=1
2688 exch2_oi(1,33)=0
2689 exch2_oi_f(1,33)=0
2690 exch2_oj(1,33)=0
2691 exch2_oj_f(1,33)=0
2692 exch2_itlo_c(1,33)=0
2693 exch2_ithi_c(1,33)=9
2694 exch2_jtlo_c(1,33)=0
2695 exch2_jthi_c(1,33)=0
2696 exch2_opposingSend_record(1,33)=2
2697
2698 exch2_neighbourId(2,33)=29
2699 exch2_pi(1,2,33)=1
2700 exch2_pi(2,2,33)=0
2701 exch2_pj(1,2,33)=0
2702 exch2_pj(2,2,33)=1
2703 exch2_oi(2,33)=0
2704 exch2_oi_f(2,33)=0
2705 exch2_oj(2,33)=-32
2706 exch2_oj_f(2,33)=-32
2707 exch2_itlo_c(2,33)=0
2708 exch2_ithi_c(2,33)=9
2709 exch2_jtlo_c(2,33)=9
2710 exch2_jthi_c(2,33)=9
2711 exch2_opposingSend_record(2,33)=1
2712
2713 exch2_neighbourId(3,33)=34
2714 exch2_pi(1,3,33)=1
2715 exch2_pi(2,3,33)=0
2716 exch2_pj(1,3,33)=0
2717 exch2_pj(2,3,33)=1
2718 exch2_oi(3,33)=0
2719 exch2_oi_f(3,33)=0
2720 exch2_oj(3,33)=0
2721 exch2_oj_f(3,33)=0
2722 exch2_itlo_c(3,33)=0
2723 exch2_ithi_c(3,33)=0
2724 exch2_jtlo_c(3,33)=0
2725 exch2_jthi_c(3,33)=9
2726 exch2_opposingSend_record(3,33)=4
2727
2728 exch2_neighbourId(4,33)=16
2729 exch2_pi(1,4,33)=0
2730 exch2_pi(2,4,33)=1
2731 exch2_pj(1,4,33)=-1
2732 exch2_pj(2,4,33)=0
2733 exch2_oi(4,33)=-32
2734 exch2_oi_f(4,33)=-32
2735 exch2_oj(4,33)=33
2736 exch2_oj_f(4,33)=34
2737 exch2_itlo_c(4,33)=0
2738 exch2_ithi_c(4,33)=9
2739 exch2_jtlo_c(4,33)=9
2740 exch2_jthi_c(4,33)=9
2741 exch2_opposingSend_record(4,33)=1
2742 RETURN
2743 END
2744
2745 SUBROUTINE W2_E2SETUP_34
2746 C Topology for tile 34
2747 #include "W2_EXCH2_TOPOLOGY.h"
2748 exch2_tnx(34)=8
2749 exch2_tny(34)=8
2750 exch2_tbasex(34)=8
2751 exch2_tbasey(34)=0
2752 exch2_txglobalo(34)=73
2753 exch2_tyglobalo(34)=1
2754 exch2_isWedge(34)=0
2755 exch2_isNedge(34)=0
2756 exch2_isEedge(34)=0
2757 exch2_isSedge(34)=1
2758 exch2_myFace(34)=3
2759 exch2_mydnx(34)=32
2760 exch2_mydny(34)=32
2761 exch2_nNeighbours(34)=4
2762
2763 exch2_neighbourId(1,34)=38
2764 exch2_pi(1,1,34)=1
2765 exch2_pi(2,1,34)=0
2766 exch2_pj(1,1,34)=0
2767 exch2_pj(2,1,34)=1
2768 exch2_oi(1,34)=0
2769 exch2_oi_f(1,34)=0
2770 exch2_oj(1,34)=0
2771 exch2_oj_f(1,34)=0
2772 exch2_itlo_c(1,34)=0
2773 exch2_ithi_c(1,34)=9
2774 exch2_jtlo_c(1,34)=0
2775 exch2_jthi_c(1,34)=0
2776 exch2_opposingSend_record(1,34)=2
2777
2778 exch2_neighbourId(2,34)=30
2779 exch2_pi(1,2,34)=1
2780 exch2_pi(2,2,34)=0
2781 exch2_pj(1,2,34)=0
2782 exch2_pj(2,2,34)=1
2783 exch2_oi(2,34)=0
2784 exch2_oi_f(2,34)=0
2785 exch2_oj(2,34)=-32
2786 exch2_oj_f(2,34)=-32
2787 exch2_itlo_c(2,34)=0
2788 exch2_ithi_c(2,34)=9
2789 exch2_jtlo_c(2,34)=9
2790 exch2_jthi_c(2,34)=9
2791 exch2_opposingSend_record(2,34)=1
2792
2793 exch2_neighbourId(3,34)=35
2794 exch2_pi(1,3,34)=1
2795 exch2_pi(2,3,34)=0
2796 exch2_pj(1,3,34)=0
2797 exch2_pj(2,3,34)=1
2798 exch2_oi(3,34)=0
2799 exch2_oi_f(3,34)=0
2800 exch2_oj(3,34)=0
2801 exch2_oj_f(3,34)=0
2802 exch2_itlo_c(3,34)=0
2803 exch2_ithi_c(3,34)=0
2804 exch2_jtlo_c(3,34)=0
2805 exch2_jthi_c(3,34)=9
2806 exch2_opposingSend_record(3,34)=4
2807
2808 exch2_neighbourId(4,34)=33
2809 exch2_pi(1,4,34)=1
2810 exch2_pi(2,4,34)=0
2811 exch2_pj(1,4,34)=0
2812 exch2_pj(2,4,34)=1
2813 exch2_oi(4,34)=0
2814 exch2_oi_f(4,34)=0
2815 exch2_oj(4,34)=0
2816 exch2_oj_f(4,34)=0
2817 exch2_itlo_c(4,34)=9
2818 exch2_ithi_c(4,34)=9
2819 exch2_jtlo_c(4,34)=0
2820 exch2_jthi_c(4,34)=9
2821 exch2_opposingSend_record(4,34)=3
2822 RETURN
2823 END
2824
2825 SUBROUTINE W2_E2SETUP_35
2826 C Topology for tile 35
2827 #include "W2_EXCH2_TOPOLOGY.h"
2828 exch2_tnx(35)=8
2829 exch2_tny(35)=8
2830 exch2_tbasex(35)=16
2831 exch2_tbasey(35)=0
2832 exch2_txglobalo(35)=81
2833 exch2_tyglobalo(35)=1
2834 exch2_isWedge(35)=0
2835 exch2_isNedge(35)=0
2836 exch2_isEedge(35)=0
2837 exch2_isSedge(35)=1
2838 exch2_myFace(35)=3
2839 exch2_mydnx(35)=32
2840 exch2_mydny(35)=32
2841 exch2_nNeighbours(35)=4
2842
2843 exch2_neighbourId(1,35)=39
2844 exch2_pi(1,1,35)=1
2845 exch2_pi(2,1,35)=0
2846 exch2_pj(1,1,35)=0
2847 exch2_pj(2,1,35)=1
2848 exch2_oi(1,35)=0
2849 exch2_oi_f(1,35)=0
2850 exch2_oj(1,35)=0
2851 exch2_oj_f(1,35)=0
2852 exch2_itlo_c(1,35)=0
2853 exch2_ithi_c(1,35)=9
2854 exch2_jtlo_c(1,35)=0
2855 exch2_jthi_c(1,35)=0
2856 exch2_opposingSend_record(1,35)=2
2857
2858 exch2_neighbourId(2,35)=31
2859 exch2_pi(1,2,35)=1
2860 exch2_pi(2,2,35)=0
2861 exch2_pj(1,2,35)=0
2862 exch2_pj(2,2,35)=1
2863 exch2_oi(2,35)=0
2864 exch2_oi_f(2,35)=0
2865 exch2_oj(2,35)=-32
2866 exch2_oj_f(2,35)=-32
2867 exch2_itlo_c(2,35)=0
2868 exch2_ithi_c(2,35)=9
2869 exch2_jtlo_c(2,35)=9
2870 exch2_jthi_c(2,35)=9
2871 exch2_opposingSend_record(2,35)=1
2872
2873 exch2_neighbourId(3,35)=36
2874 exch2_pi(1,3,35)=1
2875 exch2_pi(2,3,35)=0
2876 exch2_pj(1,3,35)=0
2877 exch2_pj(2,3,35)=1
2878 exch2_oi(3,35)=0
2879 exch2_oi_f(3,35)=0
2880 exch2_oj(3,35)=0
2881 exch2_oj_f(3,35)=0
2882 exch2_itlo_c(3,35)=0
2883 exch2_ithi_c(3,35)=0
2884 exch2_jtlo_c(3,35)=0
2885 exch2_jthi_c(3,35)=9
2886 exch2_opposingSend_record(3,35)=4
2887
2888 exch2_neighbourId(4,35)=34
2889 exch2_pi(1,4,35)=1
2890 exch2_pi(2,4,35)=0
2891 exch2_pj(1,4,35)=0
2892 exch2_pj(2,4,35)=1
2893 exch2_oi(4,35)=0
2894 exch2_oi_f(4,35)=0
2895 exch2_oj(4,35)=0
2896 exch2_oj_f(4,35)=0
2897 exch2_itlo_c(4,35)=9
2898 exch2_ithi_c(4,35)=9
2899 exch2_jtlo_c(4,35)=0
2900 exch2_jthi_c(4,35)=9
2901 exch2_opposingSend_record(4,35)=3
2902 RETURN
2903 END
2904
2905 SUBROUTINE W2_E2SETUP_36
2906 C Topology for tile 36
2907 #include "W2_EXCH2_TOPOLOGY.h"
2908 exch2_tnx(36)=8
2909 exch2_tny(36)=8
2910 exch2_tbasex(36)=24
2911 exch2_tbasey(36)=0
2912 exch2_txglobalo(36)=89
2913 exch2_tyglobalo(36)=1
2914 exch2_isWedge(36)=0
2915 exch2_isNedge(36)=0
2916 exch2_isEedge(36)=1
2917 exch2_isSedge(36)=1
2918 exch2_myFace(36)=3
2919 exch2_mydnx(36)=32
2920 exch2_mydny(36)=32
2921 exch2_nNeighbours(36)=4
2922
2923 exch2_neighbourId(1,36)=40
2924 exch2_pi(1,1,36)=1
2925 exch2_pi(2,1,36)=0
2926 exch2_pj(1,1,36)=0
2927 exch2_pj(2,1,36)=1
2928 exch2_oi(1,36)=0
2929 exch2_oi_f(1,36)=0
2930 exch2_oj(1,36)=0
2931 exch2_oj_f(1,36)=0
2932 exch2_itlo_c(1,36)=0
2933 exch2_ithi_c(1,36)=9
2934 exch2_jtlo_c(1,36)=0
2935 exch2_jthi_c(1,36)=0
2936 exch2_opposingSend_record(1,36)=2
2937
2938 exch2_neighbourId(2,36)=32
2939 exch2_pi(1,2,36)=1
2940 exch2_pi(2,2,36)=0
2941 exch2_pj(1,2,36)=0
2942 exch2_pj(2,2,36)=1
2943 exch2_oi(2,36)=0
2944 exch2_oi_f(2,36)=0
2945 exch2_oj(2,36)=-32
2946 exch2_oj_f(2,36)=-32
2947 exch2_itlo_c(2,36)=0
2948 exch2_ithi_c(2,36)=9
2949 exch2_jtlo_c(2,36)=9
2950 exch2_jthi_c(2,36)=9
2951 exch2_opposingSend_record(2,36)=1
2952
2953 exch2_neighbourId(3,36)=49
2954 exch2_pi(1,3,36)=1
2955 exch2_pi(2,3,36)=0
2956 exch2_pj(1,3,36)=0
2957 exch2_pj(2,3,36)=1
2958 exch2_oi(3,36)=32
2959 exch2_oi_f(3,36)=32
2960 exch2_oj(3,36)=0
2961 exch2_oj_f(3,36)=0
2962 exch2_itlo_c(3,36)=0
2963 exch2_ithi_c(3,36)=0
2964 exch2_jtlo_c(3,36)=0
2965 exch2_jthi_c(3,36)=9
2966 exch2_opposingSend_record(3,36)=4
2967
2968 exch2_neighbourId(4,36)=35
2969 exch2_pi(1,4,36)=1
2970 exch2_pi(2,4,36)=0
2971 exch2_pj(1,4,36)=0
2972 exch2_pj(2,4,36)=1
2973 exch2_oi(4,36)=0
2974 exch2_oi_f(4,36)=0
2975 exch2_oj(4,36)=0
2976 exch2_oj_f(4,36)=0
2977 exch2_itlo_c(4,36)=9
2978 exch2_ithi_c(4,36)=9
2979 exch2_jtlo_c(4,36)=0
2980 exch2_jthi_c(4,36)=9
2981 exch2_opposingSend_record(4,36)=3
2982 RETURN
2983 END
2984
2985 SUBROUTINE W2_E2SETUP_37
2986 C Topology for tile 37
2987 #include "W2_EXCH2_TOPOLOGY.h"
2988 exch2_tnx(37)=8
2989 exch2_tny(37)=8
2990 exch2_tbasex(37)=0
2991 exch2_tbasey(37)=8
2992 exch2_txglobalo(37)=65
2993 exch2_tyglobalo(37)=9
2994 exch2_isWedge(37)=1
2995 exch2_isNedge(37)=0
2996 exch2_isEedge(37)=0
2997 exch2_isSedge(37)=0
2998 exch2_myFace(37)=3
2999 exch2_mydnx(37)=32
3000 exch2_mydny(37)=32
3001 exch2_nNeighbours(37)=4
3002
3003 exch2_neighbourId(1,37)=41
3004 exch2_pi(1,1,37)=1
3005 exch2_pi(2,1,37)=0
3006 exch2_pj(1,1,37)=0
3007 exch2_pj(2,1,37)=1
3008 exch2_oi(1,37)=0
3009 exch2_oi_f(1,37)=0
3010 exch2_oj(1,37)=0
3011 exch2_oj_f(1,37)=0
3012 exch2_itlo_c(1,37)=0
3013 exch2_ithi_c(1,37)=9
3014 exch2_jtlo_c(1,37)=0
3015 exch2_jthi_c(1,37)=0
3016 exch2_opposingSend_record(1,37)=2
3017
3018 exch2_neighbourId(2,37)=33
3019 exch2_pi(1,2,37)=1
3020 exch2_pi(2,2,37)=0
3021 exch2_pj(1,2,37)=0
3022 exch2_pj(2,2,37)=1
3023 exch2_oi(2,37)=0
3024 exch2_oi_f(2,37)=0
3025 exch2_oj(2,37)=0
3026 exch2_oj_f(2,37)=0
3027 exch2_itlo_c(2,37)=1
3028 exch2_ithi_c(2,37)=8
3029 exch2_jtlo_c(2,37)=9
3030 exch2_jthi_c(2,37)=9
3031 exch2_opposingSend_record(2,37)=1
3032
3033 exch2_neighbourId(3,37)=38
3034 exch2_pi(1,3,37)=1
3035 exch2_pi(2,3,37)=0
3036 exch2_pj(1,3,37)=0
3037 exch2_pj(2,3,37)=1
3038 exch2_oi(3,37)=0
3039 exch2_oi_f(3,37)=0
3040 exch2_oj(3,37)=0
3041 exch2_oj_f(3,37)=0
3042 exch2_itlo_c(3,37)=0
3043 exch2_ithi_c(3,37)=0
3044 exch2_jtlo_c(3,37)=0
3045 exch2_jthi_c(3,37)=9
3046 exch2_opposingSend_record(3,37)=4
3047
3048 exch2_neighbourId(4,37)=15
3049 exch2_pi(1,4,37)=0
3050 exch2_pi(2,4,37)=1
3051 exch2_pj(1,4,37)=-1
3052 exch2_pj(2,4,37)=0
3053 exch2_oi(4,37)=-32
3054 exch2_oi_f(4,37)=-32
3055 exch2_oj(4,37)=33
3056 exch2_oj_f(4,37)=34
3057 exch2_itlo_c(4,37)=0
3058 exch2_ithi_c(4,37)=9
3059 exch2_jtlo_c(4,37)=9
3060 exch2_jthi_c(4,37)=9
3061 exch2_opposingSend_record(4,37)=1
3062 RETURN
3063 END
3064
3065 SUBROUTINE W2_E2SETUP_38
3066 C Topology for tile 38
3067 #include "W2_EXCH2_TOPOLOGY.h"
3068 exch2_tnx(38)=8
3069 exch2_tny(38)=8
3070 exch2_tbasex(38)=8
3071 exch2_tbasey(38)=8
3072 exch2_txglobalo(38)=73
3073 exch2_tyglobalo(38)=9
3074 exch2_isWedge(38)=0
3075 exch2_isNedge(38)=0
3076 exch2_isEedge(38)=0
3077 exch2_isSedge(38)=0
3078 exch2_myFace(38)=3
3079 exch2_mydnx(38)=32
3080 exch2_mydny(38)=32
3081 exch2_nNeighbours(38)=4
3082
3083 exch2_neighbourId(1,38)=42
3084 exch2_pi(1,1,38)=1
3085 exch2_pi(2,1,38)=0
3086 exch2_pj(1,1,38)=0
3087 exch2_pj(2,1,38)=1
3088 exch2_oi(1,38)=0
3089 exch2_oi_f(1,38)=0
3090 exch2_oj(1,38)=0
3091 exch2_oj_f(1,38)=0
3092 exch2_itlo_c(1,38)=0
3093 exch2_ithi_c(1,38)=9
3094 exch2_jtlo_c(1,38)=0
3095 exch2_jthi_c(1,38)=0
3096 exch2_opposingSend_record(1,38)=2
3097
3098 exch2_neighbourId(2,38)=34
3099 exch2_pi(1,2,38)=1
3100 exch2_pi(2,2,38)=0
3101 exch2_pj(1,2,38)=0
3102 exch2_pj(2,2,38)=1
3103 exch2_oi(2,38)=0
3104 exch2_oi_f(2,38)=0
3105 exch2_oj(2,38)=0
3106 exch2_oj_f(2,38)=0
3107 exch2_itlo_c(2,38)=1
3108 exch2_ithi_c(2,38)=8
3109 exch2_jtlo_c(2,38)=9
3110 exch2_jthi_c(2,38)=9
3111 exch2_opposingSend_record(2,38)=1
3112
3113 exch2_neighbourId(3,38)=39
3114 exch2_pi(1,3,38)=1
3115 exch2_pi(2,3,38)=0
3116 exch2_pj(1,3,38)=0
3117 exch2_pj(2,3,38)=1
3118 exch2_oi(3,38)=0
3119 exch2_oi_f(3,38)=0
3120 exch2_oj(3,38)=0
3121 exch2_oj_f(3,38)=0
3122 exch2_itlo_c(3,38)=0
3123 exch2_ithi_c(3,38)=0
3124 exch2_jtlo_c(3,38)=0
3125 exch2_jthi_c(3,38)=9
3126 exch2_opposingSend_record(3,38)=4
3127
3128 exch2_neighbourId(4,38)=37
3129 exch2_pi(1,4,38)=1
3130 exch2_pi(2,4,38)=0
3131 exch2_pj(1,4,38)=0
3132 exch2_pj(2,4,38)=1
3133 exch2_oi(4,38)=0
3134 exch2_oi_f(4,38)=0
3135 exch2_oj(4,38)=0
3136 exch2_oj_f(4,38)=0
3137 exch2_itlo_c(4,38)=9
3138 exch2_ithi_c(4,38)=9
3139 exch2_jtlo_c(4,38)=0
3140 exch2_jthi_c(4,38)=9
3141 exch2_opposingSend_record(4,38)=3
3142 RETURN
3143 END
3144
3145 SUBROUTINE W2_E2SETUP_39
3146 C Topology for tile 39
3147 #include "W2_EXCH2_TOPOLOGY.h"
3148 exch2_tnx(39)=8
3149 exch2_tny(39)=8
3150 exch2_tbasex(39)=16
3151 exch2_tbasey(39)=8
3152 exch2_txglobalo(39)=81
3153 exch2_tyglobalo(39)=9
3154 exch2_isWedge(39)=0
3155 exch2_isNedge(39)=0
3156 exch2_isEedge(39)=0
3157 exch2_isSedge(39)=0
3158 exch2_myFace(39)=3
3159 exch2_mydnx(39)=32
3160 exch2_mydny(39)=32
3161 exch2_nNeighbours(39)=4
3162
3163 exch2_neighbourId(1,39)=43
3164 exch2_pi(1,1,39)=1
3165 exch2_pi(2,1,39)=0
3166 exch2_pj(1,1,39)=0
3167 exch2_pj(2,1,39)=1
3168 exch2_oi(1,39)=0
3169 exch2_oi_f(1,39)=0
3170 exch2_oj(1,39)=0
3171 exch2_oj_f(1,39)=0
3172 exch2_itlo_c(1,39)=0
3173 exch2_ithi_c(1,39)=9
3174 exch2_jtlo_c(1,39)=0
3175 exch2_jthi_c(1,39)=0
3176 exch2_opposingSend_record(1,39)=2
3177
3178 exch2_neighbourId(2,39)=35
3179 exch2_pi(1,2,39)=1
3180 exch2_pi(2,2,39)=0
3181 exch2_pj(1,2,39)=0
3182 exch2_pj(2,2,39)=1
3183 exch2_oi(2,39)=0
3184 exch2_oi_f(2,39)=0
3185 exch2_oj(2,39)=0
3186 exch2_oj_f(2,39)=0
3187 exch2_itlo_c(2,39)=1
3188 exch2_ithi_c(2,39)=8
3189 exch2_jtlo_c(2,39)=9
3190 exch2_jthi_c(2,39)=9
3191 exch2_opposingSend_record(2,39)=1
3192
3193 exch2_neighbourId(3,39)=40
3194 exch2_pi(1,3,39)=1
3195 exch2_pi(2,3,39)=0
3196 exch2_pj(1,3,39)=0
3197 exch2_pj(2,3,39)=1
3198 exch2_oi(3,39)=0
3199 exch2_oi_f(3,39)=0
3200 exch2_oj(3,39)=0
3201 exch2_oj_f(3,39)=0
3202 exch2_itlo_c(3,39)=0
3203 exch2_ithi_c(3,39)=0
3204 exch2_jtlo_c(3,39)=0
3205 exch2_jthi_c(3,39)=9
3206 exch2_opposingSend_record(3,39)=4
3207
3208 exch2_neighbourId(4,39)=38
3209 exch2_pi(1,4,39)=1
3210 exch2_pi(2,4,39)=0
3211 exch2_pj(1,4,39)=0
3212 exch2_pj(2,4,39)=1
3213 exch2_oi(4,39)=0
3214 exch2_oi_f(4,39)=0
3215 exch2_oj(4,39)=0
3216 exch2_oj_f(4,39)=0
3217 exch2_itlo_c(4,39)=9
3218 exch2_ithi_c(4,39)=9
3219 exch2_jtlo_c(4,39)=0
3220 exch2_jthi_c(4,39)=9
3221 exch2_opposingSend_record(4,39)=3
3222 RETURN
3223 END
3224
3225 SUBROUTINE W2_E2SETUP_40
3226 C Topology for tile 40
3227 #include "W2_EXCH2_TOPOLOGY.h"
3228 exch2_tnx(40)=8
3229 exch2_tny(40)=8
3230 exch2_tbasex(40)=24
3231 exch2_tbasey(40)=8
3232 exch2_txglobalo(40)=89
3233 exch2_tyglobalo(40)=9
3234 exch2_isWedge(40)=0
3235 exch2_isNedge(40)=0
3236 exch2_isEedge(40)=1
3237 exch2_isSedge(40)=0
3238 exch2_myFace(40)=3
3239 exch2_mydnx(40)=32
3240 exch2_mydny(40)=32
3241 exch2_nNeighbours(40)=4
3242
3243 exch2_neighbourId(1,40)=44
3244 exch2_pi(1,1,40)=1
3245 exch2_pi(2,1,40)=0
3246 exch2_pj(1,1,40)=0
3247 exch2_pj(2,1,40)=1
3248 exch2_oi(1,40)=0
3249 exch2_oi_f(1,40)=0
3250 exch2_oj(1,40)=0
3251 exch2_oj_f(1,40)=0
3252 exch2_itlo_c(1,40)=0
3253 exch2_ithi_c(1,40)=9
3254 exch2_jtlo_c(1,40)=0
3255 exch2_jthi_c(1,40)=0
3256 exch2_opposingSend_record(1,40)=2
3257
3258 exch2_neighbourId(2,40)=36
3259 exch2_pi(1,2,40)=1
3260 exch2_pi(2,2,40)=0
3261 exch2_pj(1,2,40)=0
3262 exch2_pj(2,2,40)=1
3263 exch2_oi(2,40)=0
3264 exch2_oi_f(2,40)=0
3265 exch2_oj(2,40)=0
3266 exch2_oj_f(2,40)=0
3267 exch2_itlo_c(2,40)=1
3268 exch2_ithi_c(2,40)=8
3269 exch2_jtlo_c(2,40)=9
3270 exch2_jthi_c(2,40)=9
3271 exch2_opposingSend_record(2,40)=1
3272
3273 exch2_neighbourId(3,40)=53
3274 exch2_pi(1,3,40)=1
3275 exch2_pi(2,3,40)=0
3276 exch2_pj(1,3,40)=0
3277 exch2_pj(2,3,40)=1
3278 exch2_oi(3,40)=32
3279 exch2_oi_f(3,40)=32
3280 exch2_oj(3,40)=0
3281 exch2_oj_f(3,40)=0
3282 exch2_itlo_c(3,40)=0
3283 exch2_ithi_c(3,40)=0
3284 exch2_jtlo_c(3,40)=0
3285 exch2_jthi_c(3,40)=9
3286 exch2_opposingSend_record(3,40)=4
3287
3288 exch2_neighbourId(4,40)=39
3289 exch2_pi(1,4,40)=1
3290 exch2_pi(2,4,40)=0
3291 exch2_pj(1,4,40)=0
3292 exch2_pj(2,4,40)=1
3293 exch2_oi(4,40)=0
3294 exch2_oi_f(4,40)=0
3295 exch2_oj(4,40)=0
3296 exch2_oj_f(4,40)=0
3297 exch2_itlo_c(4,40)=9
3298 exch2_ithi_c(4,40)=9
3299 exch2_jtlo_c(4,40)=0
3300 exch2_jthi_c(4,40)=9
3301 exch2_opposingSend_record(4,40)=3
3302 RETURN
3303 END
3304
3305 SUBROUTINE W2_E2SETUP_41
3306 C Topology for tile 41
3307 #include "W2_EXCH2_TOPOLOGY.h"
3308 exch2_tnx(41)=8
3309 exch2_tny(41)=8
3310 exch2_tbasex(41)=0
3311 exch2_tbasey(41)=16
3312 exch2_txglobalo(41)=65
3313 exch2_tyglobalo(41)=17
3314 exch2_isWedge(41)=1
3315 exch2_isNedge(41)=0
3316 exch2_isEedge(41)=0
3317 exch2_isSedge(41)=0
3318 exch2_myFace(41)=3
3319 exch2_mydnx(41)=32
3320 exch2_mydny(41)=32
3321 exch2_nNeighbours(41)=4
3322
3323 exch2_neighbourId(1,41)=45
3324 exch2_pi(1,1,41)=1
3325 exch2_pi(2,1,41)=0
3326 exch2_pj(1,1,41)=0
3327 exch2_pj(2,1,41)=1
3328 exch2_oi(1,41)=0
3329 exch2_oi_f(1,41)=0
3330 exch2_oj(1,41)=0
3331 exch2_oj_f(1,41)=0
3332 exch2_itlo_c(1,41)=0
3333 exch2_ithi_c(1,41)=9
3334 exch2_jtlo_c(1,41)=0
3335 exch2_jthi_c(1,41)=0
3336 exch2_opposingSend_record(1,41)=2
3337
3338 exch2_neighbourId(2,41)=37
3339 exch2_pi(1,2,41)=1
3340 exch2_pi(2,2,41)=0
3341 exch2_pj(1,2,41)=0
3342 exch2_pj(2,2,41)=1
3343 exch2_oi(2,41)=0
3344 exch2_oi_f(2,41)=0
3345 exch2_oj(2,41)=0
3346 exch2_oj_f(2,41)=0
3347 exch2_itlo_c(2,41)=1
3348 exch2_ithi_c(2,41)=8
3349 exch2_jtlo_c(2,41)=9
3350 exch2_jthi_c(2,41)=9
3351 exch2_opposingSend_record(2,41)=1
3352
3353 exch2_neighbourId(3,41)=42
3354 exch2_pi(1,3,41)=1
3355 exch2_pi(2,3,41)=0
3356 exch2_pj(1,3,41)=0
3357 exch2_pj(2,3,41)=1
3358 exch2_oi(3,41)=0
3359 exch2_oi_f(3,41)=0
3360 exch2_oj(3,41)=0
3361 exch2_oj_f(3,41)=0
3362 exch2_itlo_c(3,41)=0
3363 exch2_ithi_c(3,41)=0
3364 exch2_jtlo_c(3,41)=0
3365 exch2_jthi_c(3,41)=9
3366 exch2_opposingSend_record(3,41)=4
3367
3368 exch2_neighbourId(4,41)=14
3369 exch2_pi(1,4,41)=0
3370 exch2_pi(2,4,41)=1
3371 exch2_pj(1,4,41)=-1
3372 exch2_pj(2,4,41)=0
3373 exch2_oi(4,41)=-32
3374 exch2_oi_f(4,41)=-32
3375 exch2_oj(4,41)=33
3376 exch2_oj_f(4,41)=34
3377 exch2_itlo_c(4,41)=0
3378 exch2_ithi_c(4,41)=9
3379 exch2_jtlo_c(4,41)=9
3380 exch2_jthi_c(4,41)=9
3381 exch2_opposingSend_record(4,41)=1
3382 RETURN
3383 END
3384
3385 SUBROUTINE W2_E2SETUP_42
3386 C Topology for tile 42
3387 #include "W2_EXCH2_TOPOLOGY.h"
3388 exch2_tnx(42)=8
3389 exch2_tny(42)=8
3390 exch2_tbasex(42)=8
3391 exch2_tbasey(42)=16
3392 exch2_txglobalo(42)=73
3393 exch2_tyglobalo(42)=17
3394 exch2_isWedge(42)=0
3395 exch2_isNedge(42)=0
3396 exch2_isEedge(42)=0
3397 exch2_isSedge(42)=0
3398 exch2_myFace(42)=3
3399 exch2_mydnx(42)=32
3400 exch2_mydny(42)=32
3401 exch2_nNeighbours(42)=4
3402
3403 exch2_neighbourId(1,42)=46
3404 exch2_pi(1,1,42)=1
3405 exch2_pi(2,1,42)=0
3406 exch2_pj(1,1,42)=0
3407 exch2_pj(2,1,42)=1
3408 exch2_oi(1,42)=0
3409 exch2_oi_f(1,42)=0
3410 exch2_oj(1,42)=0
3411 exch2_oj_f(1,42)=0
3412 exch2_itlo_c(1,42)=0
3413 exch2_ithi_c(1,42)=9
3414 exch2_jtlo_c(1,42)=0
3415 exch2_jthi_c(1,42)=0
3416 exch2_opposingSend_record(1,42)=2
3417
3418 exch2_neighbourId(2,42)=38
3419 exch2_pi(1,2,42)=1
3420 exch2_pi(2,2,42)=0
3421 exch2_pj(1,2,42)=0
3422 exch2_pj(2,2,42)=1
3423 exch2_oi(2,42)=0
3424 exch2_oi_f(2,42)=0
3425 exch2_oj(2,42)=0
3426 exch2_oj_f(2,42)=0
3427 exch2_itlo_c(2,42)=1
3428 exch2_ithi_c(2,42)=8
3429 exch2_jtlo_c(2,42)=9
3430 exch2_jthi_c(2,42)=9
3431 exch2_opposingSend_record(2,42)=1
3432
3433 exch2_neighbourId(3,42)=43
3434 exch2_pi(1,3,42)=1
3435 exch2_pi(2,3,42)=0
3436 exch2_pj(1,3,42)=0
3437 exch2_pj(2,3,42)=1
3438 exch2_oi(3,42)=0
3439 exch2_oi_f(3,42)=0
3440 exch2_oj(3,42)=0
3441 exch2_oj_f(3,42)=0
3442 exch2_itlo_c(3,42)=0
3443 exch2_ithi_c(3,42)=0
3444 exch2_jtlo_c(3,42)=0
3445 exch2_jthi_c(3,42)=9
3446 exch2_opposingSend_record(3,42)=4
3447
3448 exch2_neighbourId(4,42)=41
3449 exch2_pi(1,4,42)=1
3450 exch2_pi(2,4,42)=0
3451 exch2_pj(1,4,42)=0
3452 exch2_pj(2,4,42)=1
3453 exch2_oi(4,42)=0
3454 exch2_oi_f(4,42)=0
3455 exch2_oj(4,42)=0
3456 exch2_oj_f(4,42)=0
3457 exch2_itlo_c(4,42)=9
3458 exch2_ithi_c(4,42)=9
3459 exch2_jtlo_c(4,42)=0
3460 exch2_jthi_c(4,42)=9
3461 exch2_opposingSend_record(4,42)=3
3462 RETURN
3463 END
3464
3465 SUBROUTINE W2_E2SETUP_43
3466 C Topology for tile 43
3467 #include "W2_EXCH2_TOPOLOGY.h"
3468 exch2_tnx(43)=8
3469 exch2_tny(43)=8
3470 exch2_tbasex(43)=16
3471 exch2_tbasey(43)=16
3472 exch2_txglobalo(43)=81
3473 exch2_tyglobalo(43)=17
3474 exch2_isWedge(43)=0
3475 exch2_isNedge(43)=0
3476 exch2_isEedge(43)=0
3477 exch2_isSedge(43)=0
3478 exch2_myFace(43)=3
3479 exch2_mydnx(43)=32
3480 exch2_mydny(43)=32
3481 exch2_nNeighbours(43)=4
3482
3483 exch2_neighbourId(1,43)=47
3484 exch2_pi(1,1,43)=1
3485 exch2_pi(2,1,43)=0
3486 exch2_pj(1,1,43)=0
3487 exch2_pj(2,1,43)=1
3488 exch2_oi(1,43)=0
3489 exch2_oi_f(1,43)=0
3490 exch2_oj(1,43)=0
3491 exch2_oj_f(1,43)=0
3492 exch2_itlo_c(1,43)=0
3493 exch2_ithi_c(1,43)=9
3494 exch2_jtlo_c(1,43)=0
3495 exch2_jthi_c(1,43)=0
3496 exch2_opposingSend_record(1,43)=2
3497
3498 exch2_neighbourId(2,43)=39
3499 exch2_pi(1,2,43)=1
3500 exch2_pi(2,2,43)=0
3501 exch2_pj(1,2,43)=0
3502 exch2_pj(2,2,43)=1
3503 exch2_oi(2,43)=0
3504 exch2_oi_f(2,43)=0
3505 exch2_oj(2,43)=0
3506 exch2_oj_f(2,43)=0
3507 exch2_itlo_c(2,43)=1
3508 exch2_ithi_c(2,43)=8
3509 exch2_jtlo_c(2,43)=9
3510 exch2_jthi_c(2,43)=9
3511 exch2_opposingSend_record(2,43)=1
3512
3513 exch2_neighbourId(3,43)=44
3514 exch2_pi(1,3,43)=1
3515 exch2_pi(2,3,43)=0
3516 exch2_pj(1,3,43)=0
3517 exch2_pj(2,3,43)=1
3518 exch2_oi(3,43)=0
3519 exch2_oi_f(3,43)=0
3520 exch2_oj(3,43)=0
3521 exch2_oj_f(3,43)=0
3522 exch2_itlo_c(3,43)=0
3523 exch2_ithi_c(3,43)=0
3524 exch2_jtlo_c(3,43)=0
3525 exch2_jthi_c(3,43)=9
3526 exch2_opposingSend_record(3,43)=4
3527
3528 exch2_neighbourId(4,43)=42
3529 exch2_pi(1,4,43)=1
3530 exch2_pi(2,4,43)=0
3531 exch2_pj(1,4,43)=0
3532 exch2_pj(2,4,43)=1
3533 exch2_oi(4,43)=0
3534 exch2_oi_f(4,43)=0
3535 exch2_oj(4,43)=0
3536 exch2_oj_f(4,43)=0
3537 exch2_itlo_c(4,43)=9
3538 exch2_ithi_c(4,43)=9
3539 exch2_jtlo_c(4,43)=0
3540 exch2_jthi_c(4,43)=9
3541 exch2_opposingSend_record(4,43)=3
3542 RETURN
3543 END
3544
3545 SUBROUTINE W2_E2SETUP_44
3546 C Topology for tile 44
3547 #include "W2_EXCH2_TOPOLOGY.h"
3548 exch2_tnx(44)=8
3549 exch2_tny(44)=8
3550 exch2_tbasex(44)=24
3551 exch2_tbasey(44)=16
3552 exch2_txglobalo(44)=89
3553 exch2_tyglobalo(44)=17
3554 exch2_isWedge(44)=0
3555 exch2_isNedge(44)=0
3556 exch2_isEedge(44)=1
3557 exch2_isSedge(44)=0
3558 exch2_myFace(44)=3
3559 exch2_mydnx(44)=32
3560 exch2_mydny(44)=32
3561 exch2_nNeighbours(44)=4
3562
3563 exch2_neighbourId(1,44)=48
3564 exch2_pi(1,1,44)=1
3565 exch2_pi(2,1,44)=0
3566 exch2_pj(1,1,44)=0
3567 exch2_pj(2,1,44)=1
3568 exch2_oi(1,44)=0
3569 exch2_oi_f(1,44)=0
3570 exch2_oj(1,44)=0
3571 exch2_oj_f(1,44)=0
3572 exch2_itlo_c(1,44)=0
3573 exch2_ithi_c(1,44)=9
3574 exch2_jtlo_c(1,44)=0
3575 exch2_jthi_c(1,44)=0
3576 exch2_opposingSend_record(1,44)=2
3577
3578 exch2_neighbourId(2,44)=40
3579 exch2_pi(1,2,44)=1
3580 exch2_pi(2,2,44)=0
3581 exch2_pj(1,2,44)=0
3582 exch2_pj(2,2,44)=1
3583 exch2_oi(2,44)=0
3584 exch2_oi_f(2,44)=0
3585 exch2_oj(2,44)=0
3586 exch2_oj_f(2,44)=0
3587 exch2_itlo_c(2,44)=1
3588 exch2_ithi_c(2,44)=8
3589 exch2_jtlo_c(2,44)=9
3590 exch2_jthi_c(2,44)=9
3591 exch2_opposingSend_record(2,44)=1
3592
3593 exch2_neighbourId(3,44)=57
3594 exch2_pi(1,3,44)=1
3595 exch2_pi(2,3,44)=0
3596 exch2_pj(1,3,44)=0
3597 exch2_pj(2,3,44)=1
3598 exch2_oi(3,44)=32
3599 exch2_oi_f(3,44)=32
3600 exch2_oj(3,44)=0
3601 exch2_oj_f(3,44)=0
3602 exch2_itlo_c(3,44)=0
3603 exch2_ithi_c(3,44)=0
3604 exch2_jtlo_c(3,44)=0
3605 exch2_jthi_c(3,44)=9
3606 exch2_opposingSend_record(3,44)=4
3607
3608 exch2_neighbourId(4,44)=43
3609 exch2_pi(1,4,44)=1
3610 exch2_pi(2,4,44)=0
3611 exch2_pj(1,4,44)=0
3612 exch2_pj(2,4,44)=1
3613 exch2_oi(4,44)=0
3614 exch2_oi_f(4,44)=0
3615 exch2_oj(4,44)=0
3616 exch2_oj_f(4,44)=0
3617 exch2_itlo_c(4,44)=9
3618 exch2_ithi_c(4,44)=9
3619 exch2_jtlo_c(4,44)=0
3620 exch2_jthi_c(4,44)=9
3621 exch2_opposingSend_record(4,44)=3
3622 RETURN
3623 END
3624
3625 SUBROUTINE W2_E2SETUP_45
3626 C Topology for tile 45
3627 #include "W2_EXCH2_TOPOLOGY.h"
3628 exch2_tnx(45)=8
3629 exch2_tny(45)=8
3630 exch2_tbasex(45)=0
3631 exch2_tbasey(45)=24
3632 exch2_txglobalo(45)=65
3633 exch2_tyglobalo(45)=25
3634 exch2_isWedge(45)=1
3635 exch2_isNedge(45)=1
3636 exch2_isEedge(45)=0
3637 exch2_isSedge(45)=0
3638 exch2_myFace(45)=3
3639 exch2_mydnx(45)=32
3640 exch2_mydny(45)=32
3641 exch2_nNeighbours(45)=4
3642
3643 exch2_neighbourId(1,45)=77
3644 exch2_pi(1,1,45)=0
3645 exch2_pi(2,1,45)=-1
3646 exch2_pj(1,1,45)=1
3647 exch2_pj(2,1,45)=0
3648 exch2_oi(1,45)=33
3649 exch2_oi_f(1,45)=34
3650 exch2_oj(1,45)=32
3651 exch2_oj_f(1,45)=32
3652 exch2_itlo_c(1,45)=0
3653 exch2_ithi_c(1,45)=0
3654 exch2_jtlo_c(1,45)=0
3655 exch2_jthi_c(1,45)=9
3656 exch2_opposingSend_record(1,45)=4
3657
3658 exch2_neighbourId(2,45)=41
3659 exch2_pi(1,2,45)=1
3660 exch2_pi(2,2,45)=0
3661 exch2_pj(1,2,45)=0
3662 exch2_pj(2,2,45)=1
3663 exch2_oi(2,45)=0
3664 exch2_oi_f(2,45)=0
3665 exch2_oj(2,45)=0
3666 exch2_oj_f(2,45)=0
3667 exch2_itlo_c(2,45)=1
3668 exch2_ithi_c(2,45)=8
3669 exch2_jtlo_c(2,45)=9
3670 exch2_jthi_c(2,45)=9
3671 exch2_opposingSend_record(2,45)=1
3672
3673 exch2_neighbourId(3,45)=46
3674 exch2_pi(1,3,45)=1
3675 exch2_pi(2,3,45)=0
3676 exch2_pj(1,3,45)=0
3677 exch2_pj(2,3,45)=1
3678 exch2_oi(3,45)=0
3679 exch2_oi_f(3,45)=0
3680 exch2_oj(3,45)=0
3681 exch2_oj_f(3,45)=0
3682 exch2_itlo_c(3,45)=0
3683 exch2_ithi_c(3,45)=0
3684 exch2_jtlo_c(3,45)=0
3685 exch2_jthi_c(3,45)=9
3686 exch2_opposingSend_record(3,45)=4
3687
3688 exch2_neighbourId(4,45)=13
3689 exch2_pi(1,4,45)=0
3690 exch2_pi(2,4,45)=1
3691 exch2_pj(1,4,45)=-1
3692 exch2_pj(2,4,45)=0
3693 exch2_oi(4,45)=-32
3694 exch2_oi_f(4,45)=-32
3695 exch2_oj(4,45)=33
3696 exch2_oj_f(4,45)=34
3697 exch2_itlo_c(4,45)=0
3698 exch2_ithi_c(4,45)=9
3699 exch2_jtlo_c(4,45)=9
3700 exch2_jthi_c(4,45)=9
3701 exch2_opposingSend_record(4,45)=1
3702 RETURN
3703 END
3704
3705 SUBROUTINE W2_E2SETUP_46
3706 C Topology for tile 46
3707 #include "W2_EXCH2_TOPOLOGY.h"
3708 exch2_tnx(46)=8
3709 exch2_tny(46)=8
3710 exch2_tbasex(46)=8
3711 exch2_tbasey(46)=24
3712 exch2_txglobalo(46)=73
3713 exch2_tyglobalo(46)=25
3714 exch2_isWedge(46)=0
3715 exch2_isNedge(46)=1
3716 exch2_isEedge(46)=0
3717 exch2_isSedge(46)=0
3718 exch2_myFace(46)=3
3719 exch2_mydnx(46)=32
3720 exch2_mydny(46)=32
3721 exch2_nNeighbours(46)=4
3722
3723 exch2_neighbourId(1,46)=73
3724 exch2_pi(1,1,46)=0
3725 exch2_pi(2,1,46)=-1
3726 exch2_pj(1,1,46)=1
3727 exch2_pj(2,1,46)=0
3728 exch2_oi(1,46)=33
3729 exch2_oi_f(1,46)=34
3730 exch2_oj(1,46)=32
3731 exch2_oj_f(1,46)=32
3732 exch2_itlo_c(1,46)=0
3733 exch2_ithi_c(1,46)=0
3734 exch2_jtlo_c(1,46)=0
3735 exch2_jthi_c(1,46)=9
3736 exch2_opposingSend_record(1,46)=4
3737
3738 exch2_neighbourId(2,46)=42
3739 exch2_pi(1,2,46)=1
3740 exch2_pi(2,2,46)=0
3741 exch2_pj(1,2,46)=0
3742 exch2_pj(2,2,46)=1
3743 exch2_oi(2,46)=0
3744 exch2_oi_f(2,46)=0
3745 exch2_oj(2,46)=0
3746 exch2_oj_f(2,46)=0
3747 exch2_itlo_c(2,46)=1
3748 exch2_ithi_c(2,46)=8
3749 exch2_jtlo_c(2,46)=9
3750 exch2_jthi_c(2,46)=9
3751 exch2_opposingSend_record(2,46)=1
3752
3753 exch2_neighbourId(3,46)=47
3754 exch2_pi(1,3,46)=1
3755 exch2_pi(2,3,46)=0
3756 exch2_pj(1,3,46)=0
3757 exch2_pj(2,3,46)=1
3758 exch2_oi(3,46)=0
3759 exch2_oi_f(3,46)=0
3760 exch2_oj(3,46)=0
3761 exch2_oj_f(3,46)=0
3762 exch2_itlo_c(3,46)=0
3763 exch2_ithi_c(3,46)=0
3764 exch2_jtlo_c(3,46)=0
3765 exch2_jthi_c(3,46)=9
3766 exch2_opposingSend_record(3,46)=4
3767
3768 exch2_neighbourId(4,46)=45
3769 exch2_pi(1,4,46)=1
3770 exch2_pi(2,4,46)=0
3771 exch2_pj(1,4,46)=0
3772 exch2_pj(2,4,46)=1
3773 exch2_oi(4,46)=0
3774 exch2_oi_f(4,46)=0
3775 exch2_oj(4,46)=0
3776 exch2_oj_f(4,46)=0
3777 exch2_itlo_c(4,46)=9
3778 exch2_ithi_c(4,46)=9
3779 exch2_jtlo_c(4,46)=0
3780 exch2_jthi_c(4,46)=9
3781 exch2_opposingSend_record(4,46)=3
3782 RETURN
3783 END
3784
3785 SUBROUTINE W2_E2SETUP_47
3786 C Topology for tile 47
3787 #include "W2_EXCH2_TOPOLOGY.h"
3788 exch2_tnx(47)=8
3789 exch2_tny(47)=8
3790 exch2_tbasex(47)=16
3791 exch2_tbasey(47)=24
3792 exch2_txglobalo(47)=81
3793 exch2_tyglobalo(47)=25
3794 exch2_isWedge(47)=0
3795 exch2_isNedge(47)=1
3796 exch2_isEedge(47)=0
3797 exch2_isSedge(47)=0
3798 exch2_myFace(47)=3
3799 exch2_mydnx(47)=32
3800 exch2_mydny(47)=32
3801 exch2_nNeighbours(47)=4
3802
3803 exch2_neighbourId(1,47)=69
3804 exch2_pi(1,1,47)=0
3805 exch2_pi(2,1,47)=-1
3806 exch2_pj(1,1,47)=1
3807 exch2_pj(2,1,47)=0
3808 exch2_oi(1,47)=33
3809 exch2_oi_f(1,47)=34
3810 exch2_oj(1,47)=32
3811 exch2_oj_f(1,47)=32
3812 exch2_itlo_c(1,47)=0
3813 exch2_ithi_c(1,47)=0
3814 exch2_jtlo_c(1,47)=0
3815 exch2_jthi_c(1,47)=9
3816 exch2_opposingSend_record(1,47)=4
3817
3818 exch2_neighbourId(2,47)=43
3819 exch2_pi(1,2,47)=1
3820 exch2_pi(2,2,47)=0
3821 exch2_pj(1,2,47)=0
3822 exch2_pj(2,2,47)=1
3823 exch2_oi(2,47)=0
3824 exch2_oi_f(2,47)=0
3825 exch2_oj(2,47)=0
3826 exch2_oj_f(2,47)=0
3827 exch2_itlo_c(2,47)=1
3828 exch2_ithi_c(2,47)=8
3829 exch2_jtlo_c(2,47)=9
3830 exch2_jthi_c(2,47)=9
3831 exch2_opposingSend_record(2,47)=1
3832
3833 exch2_neighbourId(3,47)=48
3834 exch2_pi(1,3,47)=1
3835 exch2_pi(2,3,47)=0
3836 exch2_pj(1,3,47)=0
3837 exch2_pj(2,3,47)=1
3838 exch2_oi(3,47)=0
3839 exch2_oi_f(3,47)=0
3840 exch2_oj(3,47)=0
3841 exch2_oj_f(3,47)=0
3842 exch2_itlo_c(3,47)=0
3843 exch2_ithi_c(3,47)=0
3844 exch2_jtlo_c(3,47)=0
3845 exch2_jthi_c(3,47)=9
3846 exch2_opposingSend_record(3,47)=4
3847
3848 exch2_neighbourId(4,47)=46
3849 exch2_pi(1,4,47)=1
3850 exch2_pi(2,4,47)=0
3851 exch2_pj(1,4,47)=0
3852 exch2_pj(2,4,47)=1
3853 exch2_oi(4,47)=0
3854 exch2_oi_f(4,47)=0
3855 exch2_oj(4,47)=0
3856 exch2_oj_f(4,47)=0
3857 exch2_itlo_c(4,47)=9
3858 exch2_ithi_c(4,47)=9
3859 exch2_jtlo_c(4,47)=0
3860 exch2_jthi_c(4,47)=9
3861 exch2_opposingSend_record(4,47)=3
3862 RETURN
3863 END
3864
3865 SUBROUTINE W2_E2SETUP_48
3866 C Topology for tile 48
3867 #include "W2_EXCH2_TOPOLOGY.h"
3868 exch2_tnx(48)=8
3869 exch2_tny(48)=8
3870 exch2_tbasex(48)=24
3871 exch2_tbasey(48)=24
3872 exch2_txglobalo(48)=89
3873 exch2_tyglobalo(48)=25
3874 exch2_isWedge(48)=0
3875 exch2_isNedge(48)=1
3876 exch2_isEedge(48)=1
3877 exch2_isSedge(48)=0
3878 exch2_myFace(48)=3
3879 exch2_mydnx(48)=32
3880 exch2_mydny(48)=32
3881 exch2_nNeighbours(48)=4
3882
3883 exch2_neighbourId(1,48)=65
3884 exch2_pi(1,1,48)=0
3885 exch2_pi(2,1,48)=-1
3886 exch2_pj(1,1,48)=1
3887 exch2_pj(2,1,48)=0
3888 exch2_oi(1,48)=33
3889 exch2_oi_f(1,48)=34
3890 exch2_oj(1,48)=32
3891 exch2_oj_f(1,48)=32
3892 exch2_itlo_c(1,48)=0
3893 exch2_ithi_c(1,48)=0
3894 exch2_jtlo_c(1,48)=0
3895 exch2_jthi_c(1,48)=9
3896 exch2_opposingSend_record(1,48)=4
3897
3898 exch2_neighbourId(2,48)=44
3899 exch2_pi(1,2,48)=1
3900 exch2_pi(2,2,48)=0
3901 exch2_pj(1,2,48)=0
3902 exch2_pj(2,2,48)=1
3903 exch2_oi(2,48)=0
3904 exch2_oi_f(2,48)=0
3905 exch2_oj(2,48)=0
3906 exch2_oj_f(2,48)=0
3907 exch2_itlo_c(2,48)=1
3908 exch2_ithi_c(2,48)=8
3909 exch2_jtlo_c(2,48)=9
3910 exch2_jthi_c(2,48)=9
3911 exch2_opposingSend_record(2,48)=1
3912
3913 exch2_neighbourId(3,48)=61
3914 exch2_pi(1,3,48)=1
3915 exch2_pi(2,3,48)=0
3916 exch2_pj(1,3,48)=0
3917 exch2_pj(2,3,48)=1
3918 exch2_oi(3,48)=32
3919 exch2_oi_f(3,48)=32
3920 exch2_oj(3,48)=0
3921 exch2_oj_f(3,48)=0
3922 exch2_itlo_c(3,48)=0
3923 exch2_ithi_c(3,48)=0
3924 exch2_jtlo_c(3,48)=0
3925 exch2_jthi_c(3,48)=9
3926 exch2_opposingSend_record(3,48)=4
3927
3928 exch2_neighbourId(4,48)=47
3929 exch2_pi(1,4,48)=1
3930 exch2_pi(2,4,48)=0
3931 exch2_pj(1,4,48)=0
3932 exch2_pj(2,4,48)=1
3933 exch2_oi(4,48)=0
3934 exch2_oi_f(4,48)=0
3935 exch2_oj(4,48)=0
3936 exch2_oj_f(4,48)=0
3937 exch2_itlo_c(4,48)=9
3938 exch2_ithi_c(4,48)=9
3939 exch2_jtlo_c(4,48)=0
3940 exch2_jthi_c(4,48)=9
3941 exch2_opposingSend_record(4,48)=3
3942 RETURN
3943 END
3944
3945 SUBROUTINE W2_E2SETUP_49
3946 C Topology for tile 49
3947 #include "W2_EXCH2_TOPOLOGY.h"
3948 exch2_tnx(49)=8
3949 exch2_tny(49)=8
3950 exch2_tbasex(49)=0
3951 exch2_tbasey(49)=0
3952 exch2_txglobalo(49)=97
3953 exch2_tyglobalo(49)=1
3954 exch2_isWedge(49)=1
3955 exch2_isNedge(49)=0
3956 exch2_isEedge(49)=0
3957 exch2_isSedge(49)=1
3958 exch2_myFace(49)=4
3959 exch2_mydnx(49)=32
3960 exch2_mydny(49)=32
3961 exch2_nNeighbours(49)=4
3962
3963 exch2_neighbourId(1,49)=53
3964 exch2_pi(1,1,49)=1
3965 exch2_pi(2,1,49)=0
3966 exch2_pj(1,1,49)=0
3967 exch2_pj(2,1,49)=1
3968 exch2_oi(1,49)=0
3969 exch2_oi_f(1,49)=0
3970 exch2_oj(1,49)=0
3971 exch2_oj_f(1,49)=0
3972 exch2_itlo_c(1,49)=0
3973 exch2_ithi_c(1,49)=9
3974 exch2_jtlo_c(1,49)=0
3975 exch2_jthi_c(1,49)=0
3976 exch2_opposingSend_record(1,49)=2
3977
3978 exch2_neighbourId(2,49)=32
3979 exch2_pi(1,2,49)=0
3980 exch2_pi(2,2,49)=-1
3981 exch2_pj(1,2,49)=1
3982 exch2_pj(2,2,49)=0
3983 exch2_oi(2,49)=33
3984 exch2_oi_f(2,49)=34
3985 exch2_oj(2,49)=-32
3986 exch2_oj_f(2,49)=-32
3987 exch2_itlo_c(2,49)=9
3988 exch2_ithi_c(2,49)=9
3989 exch2_jtlo_c(2,49)=0
3990 exch2_jthi_c(2,49)=9
3991 exch2_opposingSend_record(2,49)=3
3992
3993 exch2_neighbourId(3,49)=50
3994 exch2_pi(1,3,49)=1
3995 exch2_pi(2,3,49)=0
3996 exch2_pj(1,3,49)=0
3997 exch2_pj(2,3,49)=1
3998 exch2_oi(3,49)=0
3999 exch2_oi_f(3,49)=0
4000 exch2_oj(3,49)=0
4001 exch2_oj_f(3,49)=0
4002 exch2_itlo_c(3,49)=0
4003 exch2_ithi_c(3,49)=0
4004 exch2_jtlo_c(3,49)=0
4005 exch2_jthi_c(3,49)=9
4006 exch2_opposingSend_record(3,49)=4
4007
4008 exch2_neighbourId(4,49)=36
4009 exch2_pi(1,4,49)=1
4010 exch2_pi(2,4,49)=0
4011 exch2_pj(1,4,49)=0
4012 exch2_pj(2,4,49)=1
4013 exch2_oi(4,49)=-32
4014 exch2_oi_f(4,49)=-32
4015 exch2_oj(4,49)=0
4016 exch2_oj_f(4,49)=0
4017 exch2_itlo_c(4,49)=9
4018 exch2_ithi_c(4,49)=9
4019 exch2_jtlo_c(4,49)=0
4020 exch2_jthi_c(4,49)=9
4021 exch2_opposingSend_record(4,49)=3
4022 RETURN
4023 END
4024
4025 SUBROUTINE W2_E2SETUP_50
4026 C Topology for tile 50
4027 #include "W2_EXCH2_TOPOLOGY.h"
4028 exch2_tnx(50)=8
4029 exch2_tny(50)=8
4030 exch2_tbasex(50)=8
4031 exch2_tbasey(50)=0
4032 exch2_txglobalo(50)=105
4033 exch2_tyglobalo(50)=1
4034 exch2_isWedge(50)=0
4035 exch2_isNedge(50)=0
4036 exch2_isEedge(50)=0
4037 exch2_isSedge(50)=1
4038 exch2_myFace(50)=4
4039 exch2_mydnx(50)=32
4040 exch2_mydny(50)=32
4041 exch2_nNeighbours(50)=4
4042
4043 exch2_neighbourId(1,50)=54
4044 exch2_pi(1,1,50)=1
4045 exch2_pi(2,1,50)=0
4046 exch2_pj(1,1,50)=0
4047 exch2_pj(2,1,50)=1
4048 exch2_oi(1,50)=0
4049 exch2_oi_f(1,50)=0
4050 exch2_oj(1,50)=0
4051 exch2_oj_f(1,50)=0
4052 exch2_itlo_c(1,50)=0
4053 exch2_ithi_c(1,50)=9
4054 exch2_jtlo_c(1,50)=0
4055 exch2_jthi_c(1,50)=0
4056 exch2_opposingSend_record(1,50)=2
4057
4058 exch2_neighbourId(2,50)=28
4059 exch2_pi(1,2,50)=0
4060 exch2_pi(2,2,50)=-1
4061 exch2_pj(1,2,50)=1
4062 exch2_pj(2,2,50)=0
4063 exch2_oi(2,50)=33
4064 exch2_oi_f(2,50)=34
4065 exch2_oj(2,50)=-32
4066 exch2_oj_f(2,50)=-32
4067 exch2_itlo_c(2,50)=9
4068 exch2_ithi_c(2,50)=9
4069 exch2_jtlo_c(2,50)=0
4070 exch2_jthi_c(2,50)=9
4071 exch2_opposingSend_record(2,50)=3
4072
4073 exch2_neighbourId(3,50)=51
4074 exch2_pi(1,3,50)=1
4075 exch2_pi(2,3,50)=0
4076 exch2_pj(1,3,50)=0
4077 exch2_pj(2,3,50)=1
4078 exch2_oi(3,50)=0
4079 exch2_oi_f(3,50)=0
4080 exch2_oj(3,50)=0
4081 exch2_oj_f(3,50)=0
4082 exch2_itlo_c(3,50)=0
4083 exch2_ithi_c(3,50)=0
4084 exch2_jtlo_c(3,50)=0
4085 exch2_jthi_c(3,50)=9
4086 exch2_opposingSend_record(3,50)=4
4087
4088 exch2_neighbourId(4,50)=49
4089 exch2_pi(1,4,50)=1
4090 exch2_pi(2,4,50)=0
4091 exch2_pj(1,4,50)=0
4092 exch2_pj(2,4,50)=1
4093 exch2_oi(4,50)=0
4094 exch2_oi_f(4,50)=0
4095 exch2_oj(4,50)=0
4096 exch2_oj_f(4,50)=0
4097 exch2_itlo_c(4,50)=9
4098 exch2_ithi_c(4,50)=9
4099 exch2_jtlo_c(4,50)=0
4100 exch2_jthi_c(4,50)=9
4101 exch2_opposingSend_record(4,50)=3
4102 RETURN
4103 END
4104
4105 SUBROUTINE W2_E2SETUP_51
4106 C Topology for tile 51
4107 #include "W2_EXCH2_TOPOLOGY.h"
4108 exch2_tnx(51)=8
4109 exch2_tny(51)=8
4110 exch2_tbasex(51)=16
4111 exch2_tbasey(51)=0
4112 exch2_txglobalo(51)=113
4113 exch2_tyglobalo(51)=1
4114 exch2_isWedge(51)=0
4115 exch2_isNedge(51)=0
4116 exch2_isEedge(51)=0
4117 exch2_isSedge(51)=1
4118 exch2_myFace(51)=4
4119 exch2_mydnx(51)=32
4120 exch2_mydny(51)=32
4121 exch2_nNeighbours(51)=4
4122
4123 exch2_neighbourId(1,51)=55
4124 exch2_pi(1,1,51)=1
4125 exch2_pi(2,1,51)=0
4126 exch2_pj(1,1,51)=0
4127 exch2_pj(2,1,51)=1
4128 exch2_oi(1,51)=0
4129 exch2_oi_f(1,51)=0
4130 exch2_oj(1,51)=0
4131 exch2_oj_f(1,51)=0
4132 exch2_itlo_c(1,51)=0
4133 exch2_ithi_c(1,51)=9
4134 exch2_jtlo_c(1,51)=0
4135 exch2_jthi_c(1,51)=0
4136 exch2_opposingSend_record(1,51)=2
4137
4138 exch2_neighbourId(2,51)=24
4139 exch2_pi(1,2,51)=0
4140 exch2_pi(2,2,51)=-1
4141 exch2_pj(1,2,51)=1
4142 exch2_pj(2,2,51)=0
4143 exch2_oi(2,51)=33
4144 exch2_oi_f(2,51)=34
4145 exch2_oj(2,51)=-32
4146 exch2_oj_f(2,51)=-32
4147 exch2_itlo_c(2,51)=9
4148 exch2_ithi_c(2,51)=9
4149 exch2_jtlo_c(2,51)=0
4150 exch2_jthi_c(2,51)=9
4151 exch2_opposingSend_record(2,51)=3
4152
4153 exch2_neighbourId(3,51)=52
4154 exch2_pi(1,3,51)=1
4155 exch2_pi(2,3,51)=0
4156 exch2_pj(1,3,51)=0
4157 exch2_pj(2,3,51)=1
4158 exch2_oi(3,51)=0
4159 exch2_oi_f(3,51)=0
4160 exch2_oj(3,51)=0
4161 exch2_oj_f(3,51)=0
4162 exch2_itlo_c(3,51)=0
4163 exch2_ithi_c(3,51)=0
4164 exch2_jtlo_c(3,51)=0
4165 exch2_jthi_c(3,51)=9
4166 exch2_opposingSend_record(3,51)=4
4167
4168 exch2_neighbourId(4,51)=50
4169 exch2_pi(1,4,51)=1
4170 exch2_pi(2,4,51)=0
4171 exch2_pj(1,4,51)=0
4172 exch2_pj(2,4,51)=1
4173 exch2_oi(4,51)=0
4174 exch2_oi_f(4,51)=0
4175 exch2_oj(4,51)=0
4176 exch2_oj_f(4,51)=0
4177 exch2_itlo_c(4,51)=9
4178 exch2_ithi_c(4,51)=9
4179 exch2_jtlo_c(4,51)=0
4180 exch2_jthi_c(4,51)=9
4181 exch2_opposingSend_record(4,51)=3
4182 RETURN
4183 END
4184
4185 SUBROUTINE W2_E2SETUP_52
4186 C Topology for tile 52
4187 #include "W2_EXCH2_TOPOLOGY.h"
4188 exch2_tnx(52)=8
4189 exch2_tny(52)=8
4190 exch2_tbasex(52)=24
4191 exch2_tbasey(52)=0
4192 exch2_txglobalo(52)=121
4193 exch2_tyglobalo(52)=1
4194 exch2_isWedge(52)=0
4195 exch2_isNedge(52)=0
4196 exch2_isEedge(52)=1
4197 exch2_isSedge(52)=1
4198 exch2_myFace(52)=4
4199 exch2_mydnx(52)=32
4200 exch2_mydny(52)=32
4201 exch2_nNeighbours(52)=4
4202
4203 exch2_neighbourId(1,52)=56
4204 exch2_pi(1,1,52)=1
4205 exch2_pi(2,1,52)=0
4206 exch2_pj(1,1,52)=0
4207 exch2_pj(2,1,52)=1
4208 exch2_oi(1,52)=0
4209 exch2_oi_f(1,52)=0
4210 exch2_oj(1,52)=0
4211 exch2_oj_f(1,52)=0
4212 exch2_itlo_c(1,52)=0
4213 exch2_ithi_c(1,52)=9
4214 exch2_jtlo_c(1,52)=0
4215 exch2_jthi_c(1,52)=0
4216 exch2_opposingSend_record(1,52)=2
4217
4218 exch2_neighbourId(2,52)=20
4219 exch2_pi(1,2,52)=0
4220 exch2_pi(2,2,52)=-1
4221 exch2_pj(1,2,52)=1
4222 exch2_pj(2,2,52)=0
4223 exch2_oi(2,52)=33
4224 exch2_oi_f(2,52)=34
4225 exch2_oj(2,52)=-32
4226 exch2_oj_f(2,52)=-32
4227 exch2_itlo_c(2,52)=9
4228 exch2_ithi_c(2,52)=9
4229 exch2_jtlo_c(2,52)=0
4230 exch2_jthi_c(2,52)=9
4231 exch2_opposingSend_record(2,52)=3
4232
4233 exch2_neighbourId(3,52)=84
4234 exch2_pi(1,3,52)=0
4235 exch2_pi(2,3,52)=1
4236 exch2_pj(1,3,52)=-1
4237 exch2_pj(2,3,52)=0
4238 exch2_oi(3,52)=32
4239 exch2_oi_f(3,52)=32
4240 exch2_oj(3,52)=33
4241 exch2_oj_f(3,52)=34
4242 exch2_itlo_c(3,52)=0
4243 exch2_ithi_c(3,52)=9
4244 exch2_jtlo_c(3,52)=0
4245 exch2_jthi_c(3,52)=0
4246 exch2_opposingSend_record(3,52)=2
4247
4248 exch2_neighbourId(4,52)=51
4249 exch2_pi(1,4,52)=1
4250 exch2_pi(2,4,52)=0
4251 exch2_pj(1,4,52)=0
4252 exch2_pj(2,4,52)=1
4253 exch2_oi(4,52)=0
4254 exch2_oi_f(4,52)=0
4255 exch2_oj(4,52)=0
4256 exch2_oj_f(4,52)=0
4257 exch2_itlo_c(4,52)=9
4258 exch2_ithi_c(4,52)=9
4259 exch2_jtlo_c(4,52)=0
4260 exch2_jthi_c(4,52)=9
4261 exch2_opposingSend_record(4,52)=3
4262 RETURN
4263 END
4264
4265 SUBROUTINE W2_E2SETUP_53
4266 C Topology for tile 53
4267 #include "W2_EXCH2_TOPOLOGY.h"
4268 exch2_tnx(53)=8
4269 exch2_tny(53)=8
4270 exch2_tbasex(53)=0
4271 exch2_tbasey(53)=8
4272 exch2_txglobalo(53)=97
4273 exch2_tyglobalo(53)=9
4274 exch2_isWedge(53)=1
4275 exch2_isNedge(53)=0
4276 exch2_isEedge(53)=0
4277 exch2_isSedge(53)=0
4278 exch2_myFace(53)=4
4279 exch2_mydnx(53)=32
4280 exch2_mydny(53)=32
4281 exch2_nNeighbours(53)=4
4282
4283 exch2_neighbourId(1,53)=57
4284 exch2_pi(1,1,53)=1
4285 exch2_pi(2,1,53)=0
4286 exch2_pj(1,1,53)=0
4287 exch2_pj(2,1,53)=1
4288 exch2_oi(1,53)=0
4289 exch2_oi_f(1,53)=0
4290 exch2_oj(1,53)=0
4291 exch2_oj_f(1,53)=0
4292 exch2_itlo_c(1,53)=0
4293 exch2_ithi_c(1,53)=9
4294 exch2_jtlo_c(1,53)=0
4295 exch2_jthi_c(1,53)=0
4296 exch2_opposingSend_record(1,53)=2
4297
4298 exch2_neighbourId(2,53)=49
4299 exch2_pi(1,2,53)=1
4300 exch2_pi(2,2,53)=0
4301 exch2_pj(1,2,53)=0
4302 exch2_pj(2,2,53)=1
4303 exch2_oi(2,53)=0
4304 exch2_oi_f(2,53)=0
4305 exch2_oj(2,53)=0
4306 exch2_oj_f(2,53)=0
4307 exch2_itlo_c(2,53)=1
4308 exch2_ithi_c(2,53)=8
4309 exch2_jtlo_c(2,53)=9
4310 exch2_jthi_c(2,53)=9
4311 exch2_opposingSend_record(2,53)=1
4312
4313 exch2_neighbourId(3,53)=54
4314 exch2_pi(1,3,53)=1
4315 exch2_pi(2,3,53)=0
4316 exch2_pj(1,3,53)=0
4317 exch2_pj(2,3,53)=1
4318 exch2_oi(3,53)=0
4319 exch2_oi_f(3,53)=0
4320 exch2_oj(3,53)=0
4321 exch2_oj_f(3,53)=0
4322 exch2_itlo_c(3,53)=0
4323 exch2_ithi_c(3,53)=0
4324 exch2_jtlo_c(3,53)=0
4325 exch2_jthi_c(3,53)=9
4326 exch2_opposingSend_record(3,53)=4
4327
4328 exch2_neighbourId(4,53)=40
4329 exch2_pi(1,4,53)=1
4330 exch2_pi(2,4,53)=0
4331 exch2_pj(1,4,53)=0
4332 exch2_pj(2,4,53)=1
4333 exch2_oi(4,53)=-32
4334 exch2_oi_f(4,53)=-32
4335 exch2_oj(4,53)=0
4336 exch2_oj_f(4,53)=0
4337 exch2_itlo_c(4,53)=9
4338 exch2_ithi_c(4,53)=9
4339 exch2_jtlo_c(4,53)=0
4340 exch2_jthi_c(4,53)=9
4341 exch2_opposingSend_record(4,53)=3
4342 RETURN
4343 END
4344
4345 SUBROUTINE W2_E2SETUP_54
4346 C Topology for tile 54
4347 #include "W2_EXCH2_TOPOLOGY.h"
4348 exch2_tnx(54)=8
4349 exch2_tny(54)=8
4350 exch2_tbasex(54)=8
4351 exch2_tbasey(54)=8
4352 exch2_txglobalo(54)=105
4353 exch2_tyglobalo(54)=9
4354 exch2_isWedge(54)=0
4355 exch2_isNedge(54)=0
4356 exch2_isEedge(54)=0
4357 exch2_isSedge(54)=0
4358 exch2_myFace(54)=4
4359 exch2_mydnx(54)=32
4360 exch2_mydny(54)=32
4361 exch2_nNeighbours(54)=4
4362
4363 exch2_neighbourId(1,54)=58
4364 exch2_pi(1,1,54)=1
4365 exch2_pi(2,1,54)=0
4366 exch2_pj(1,1,54)=0
4367 exch2_pj(2,1,54)=1
4368 exch2_oi(1,54)=0
4369 exch2_oi_f(1,54)=0
4370 exch2_oj(1,54)=0
4371 exch2_oj_f(1,54)=0
4372 exch2_itlo_c(1,54)=0
4373 exch2_ithi_c(1,54)=9
4374 exch2_jtlo_c(1,54)=0
4375 exch2_jthi_c(1,54)=0
4376 exch2_opposingSend_record(1,54)=2
4377
4378 exch2_neighbourId(2,54)=50
4379 exch2_pi(1,2,54)=1
4380 exch2_pi(2,2,54)=0
4381 exch2_pj(1,2,54)=0
4382 exch2_pj(2,2,54)=1
4383 exch2_oi(2,54)=0
4384 exch2_oi_f(2,54)=0
4385 exch2_oj(2,54)=0
4386 exch2_oj_f(2,54)=0
4387 exch2_itlo_c(2,54)=1
4388 exch2_ithi_c(2,54)=8
4389 exch2_jtlo_c(2,54)=9
4390 exch2_jthi_c(2,54)=9
4391 exch2_opposingSend_record(2,54)=1
4392
4393 exch2_neighbourId(3,54)=55
4394 exch2_pi(1,3,54)=1
4395 exch2_pi(2,3,54)=0
4396 exch2_pj(1,3,54)=0
4397 exch2_pj(2,3,54)=1
4398 exch2_oi(3,54)=0
4399 exch2_oi_f(3,54)=0
4400 exch2_oj(3,54)=0
4401 exch2_oj_f(3,54)=0
4402 exch2_itlo_c(3,54)=0
4403 exch2_ithi_c(3,54)=0
4404 exch2_jtlo_c(3,54)=0
4405 exch2_jthi_c(3,54)=9
4406 exch2_opposingSend_record(3,54)=4
4407
4408 exch2_neighbourId(4,54)=53
4409 exch2_pi(1,4,54)=1
4410 exch2_pi(2,4,54)=0
4411 exch2_pj(1,4,54)=0
4412 exch2_pj(2,4,54)=1
4413 exch2_oi(4,54)=0
4414 exch2_oi_f(4,54)=0
4415 exch2_oj(4,54)=0
4416 exch2_oj_f(4,54)=0
4417 exch2_itlo_c(4,54)=9
4418 exch2_ithi_c(4,54)=9
4419 exch2_jtlo_c(4,54)=0
4420 exch2_jthi_c(4,54)=9
4421 exch2_opposingSend_record(4,54)=3
4422 RETURN
4423 END
4424
4425 SUBROUTINE W2_E2SETUP_55
4426 C Topology for tile 55
4427 #include "W2_EXCH2_TOPOLOGY.h"
4428 exch2_tnx(55)=8
4429 exch2_tny(55)=8
4430 exch2_tbasex(55)=16
4431 exch2_tbasey(55)=8
4432 exch2_txglobalo(55)=113
4433 exch2_tyglobalo(55)=9
4434 exch2_isWedge(55)=0
4435 exch2_isNedge(55)=0
4436 exch2_isEedge(55)=0
4437 exch2_isSedge(55)=0
4438 exch2_myFace(55)=4
4439 exch2_mydnx(55)=32
4440 exch2_mydny(55)=32
4441 exch2_nNeighbours(55)=4
4442
4443 exch2_neighbourId(1,55)=59
4444 exch2_pi(1,1,55)=1
4445 exch2_pi(2,1,55)=0
4446 exch2_pj(1,1,55)=0
4447 exch2_pj(2,1,55)=1
4448 exch2_oi(1,55)=0
4449 exch2_oi_f(1,55)=0
4450 exch2_oj(1,55)=0
4451 exch2_oj_f(1,55)=0
4452 exch2_itlo_c(1,55)=0
4453 exch2_ithi_c(1,55)=9
4454 exch2_jtlo_c(1,55)=0
4455 exch2_jthi_c(1,55)=0
4456 exch2_opposingSend_record(1,55)=2
4457
4458 exch2_neighbourId(2,55)=51
4459 exch2_pi(1,2,55)=1
4460 exch2_pi(2,2,55)=0
4461 exch2_pj(1,2,55)=0
4462 exch2_pj(2,2,55)=1
4463 exch2_oi(2,55)=0
4464 exch2_oi_f(2,55)=0
4465 exch2_oj(2,55)=0
4466 exch2_oj_f(2,55)=0
4467 exch2_itlo_c(2,55)=1
4468 exch2_ithi_c(2,55)=8
4469 exch2_jtlo_c(2,55)=9
4470 exch2_jthi_c(2,55)=9
4471 exch2_opposingSend_record(2,55)=1
4472
4473 exch2_neighbourId(3,55)=56
4474 exch2_pi(1,3,55)=1
4475 exch2_pi(2,3,55)=0
4476 exch2_pj(1,3,55)=0
4477 exch2_pj(2,3,55)=1
4478 exch2_oi(3,55)=0
4479 exch2_oi_f(3,55)=0
4480 exch2_oj(3,55)=0
4481 exch2_oj_f(3,55)=0
4482 exch2_itlo_c(3,55)=0
4483 exch2_ithi_c(3,55)=0
4484 exch2_jtlo_c(3,55)=0
4485 exch2_jthi_c(3,55)=9
4486 exch2_opposingSend_record(3,55)=4
4487
4488 exch2_neighbourId(4,55)=54
4489 exch2_pi(1,4,55)=1
4490 exch2_pi(2,4,55)=0
4491 exch2_pj(1,4,55)=0
4492 exch2_pj(2,4,55)=1
4493 exch2_oi(4,55)=0
4494 exch2_oi_f(4,55)=0
4495 exch2_oj(4,55)=0
4496 exch2_oj_f(4,55)=0
4497 exch2_itlo_c(4,55)=9
4498 exch2_ithi_c(4,55)=9
4499 exch2_jtlo_c(4,55)=0
4500 exch2_jthi_c(4,55)=9
4501 exch2_opposingSend_record(4,55)=3
4502 RETURN
4503 END
4504
4505 SUBROUTINE W2_E2SETUP_56
4506 C Topology for tile 56
4507 #include "W2_EXCH2_TOPOLOGY.h"
4508 exch2_tnx(56)=8
4509 exch2_tny(56)=8
4510 exch2_tbasex(56)=24
4511 exch2_tbasey(56)=8
4512 exch2_txglobalo(56)=121
4513 exch2_tyglobalo(56)=9
4514 exch2_isWedge(56)=0
4515 exch2_isNedge(56)=0
4516 exch2_isEedge(56)=1
4517 exch2_isSedge(56)=0
4518 exch2_myFace(56)=4
4519 exch2_mydnx(56)=32
4520 exch2_mydny(56)=32
4521 exch2_nNeighbours(56)=4
4522
4523 exch2_neighbourId(1,56)=60
4524 exch2_pi(1,1,56)=1
4525 exch2_pi(2,1,56)=0
4526 exch2_pj(1,1,56)=0
4527 exch2_pj(2,1,56)=1
4528 exch2_oi(1,56)=0
4529 exch2_oi_f(1,56)=0
4530 exch2_oj(1,56)=0
4531 exch2_oj_f(1,56)=0
4532 exch2_itlo_c(1,56)=0
4533 exch2_ithi_c(1,56)=9
4534 exch2_jtlo_c(1,56)=0
4535 exch2_jthi_c(1,56)=0
4536 exch2_opposingSend_record(1,56)=2
4537
4538 exch2_neighbourId(2,56)=52
4539 exch2_pi(1,2,56)=1
4540 exch2_pi(2,2,56)=0
4541 exch2_pj(1,2,56)=0
4542 exch2_pj(2,2,56)=1
4543 exch2_oi(2,56)=0
4544 exch2_oi_f(2,56)=0
4545 exch2_oj(2,56)=0
4546 exch2_oj_f(2,56)=0
4547 exch2_itlo_c(2,56)=1
4548 exch2_ithi_c(2,56)=8
4549 exch2_jtlo_c(2,56)=9
4550 exch2_jthi_c(2,56)=9
4551 exch2_opposingSend_record(2,56)=1
4552
4553 exch2_neighbourId(3,56)=83
4554 exch2_pi(1,3,56)=0
4555 exch2_pi(2,3,56)=1
4556 exch2_pj(1,3,56)=-1
4557 exch2_pj(2,3,56)=0
4558 exch2_oi(3,56)=32
4559 exch2_oi_f(3,56)=32
4560 exch2_oj(3,56)=33
4561 exch2_oj_f(3,56)=34
4562 exch2_itlo_c(3,56)=0
4563 exch2_ithi_c(3,56)=9
4564 exch2_jtlo_c(3,56)=0
4565 exch2_jthi_c(3,56)=0
4566 exch2_opposingSend_record(3,56)=2
4567
4568 exch2_neighbourId(4,56)=55
4569 exch2_pi(1,4,56)=1
4570 exch2_pi(2,4,56)=0
4571 exch2_pj(1,4,56)=0
4572 exch2_pj(2,4,56)=1
4573 exch2_oi(4,56)=0
4574 exch2_oi_f(4,56)=0
4575 exch2_oj(4,56)=0
4576 exch2_oj_f(4,56)=0
4577 exch2_itlo_c(4,56)=9
4578 exch2_ithi_c(4,56)=9
4579 exch2_jtlo_c(4,56)=0
4580 exch2_jthi_c(4,56)=9
4581 exch2_opposingSend_record(4,56)=3
4582 RETURN
4583 END
4584
4585 SUBROUTINE W2_E2SETUP_57
4586 C Topology for tile 57
4587 #include "W2_EXCH2_TOPOLOGY.h"
4588 exch2_tnx(57)=8
4589 exch2_tny(57)=8
4590 exch2_tbasex(57)=0
4591 exch2_tbasey(57)=16
4592 exch2_txglobalo(57)=97
4593 exch2_tyglobalo(57)=17
4594 exch2_isWedge(57)=1
4595 exch2_isNedge(57)=0
4596 exch2_isEedge(57)=0
4597 exch2_isSedge(57)=0
4598 exch2_myFace(57)=4
4599 exch2_mydnx(57)=32
4600 exch2_mydny(57)=32
4601 exch2_nNeighbours(57)=4
4602
4603 exch2_neighbourId(1,57)=61
4604 exch2_pi(1,1,57)=1
4605 exch2_pi(2,1,57)=0
4606 exch2_pj(1,1,57)=0
4607 exch2_pj(2,1,57)=1
4608 exch2_oi(1,57)=0
4609 exch2_oi_f(1,57)=0
4610 exch2_oj(1,57)=0
4611 exch2_oj_f(1,57)=0
4612 exch2_itlo_c(1,57)=0
4613 exch2_ithi_c(1,57)=9
4614 exch2_jtlo_c(1,57)=0
4615 exch2_jthi_c(1,57)=0
4616 exch2_opposingSend_record(1,57)=2
4617
4618 exch2_neighbourId(2,57)=53
4619 exch2_pi(1,2,57)=1
4620 exch2_pi(2,2,57)=0
4621 exch2_pj(1,2,57)=0
4622 exch2_pj(2,2,57)=1
4623 exch2_oi(2,57)=0
4624 exch2_oi_f(2,57)=0
4625 exch2_oj(2,57)=0
4626 exch2_oj_f(2,57)=0
4627 exch2_itlo_c(2,57)=1
4628 exch2_ithi_c(2,57)=8
4629 exch2_jtlo_c(2,57)=9
4630 exch2_jthi_c(2,57)=9
4631 exch2_opposingSend_record(2,57)=1
4632
4633 exch2_neighbourId(3,57)=58
4634 exch2_pi(1,3,57)=1
4635 exch2_pi(2,3,57)=0
4636 exch2_pj(1,3,57)=0
4637 exch2_pj(2,3,57)=1
4638 exch2_oi(3,57)=0
4639 exch2_oi_f(3,57)=0
4640 exch2_oj(3,57)=0
4641 exch2_oj_f(3,57)=0
4642 exch2_itlo_c(3,57)=0
4643 exch2_ithi_c(3,57)=0
4644 exch2_jtlo_c(3,57)=0
4645 exch2_jthi_c(3,57)=9
4646 exch2_opposingSend_record(3,57)=4
4647
4648 exch2_neighbourId(4,57)=44
4649 exch2_pi(1,4,57)=1
4650 exch2_pi(2,4,57)=0
4651 exch2_pj(1,4,57)=0
4652 exch2_pj(2,4,57)=1
4653 exch2_oi(4,57)=-32
4654 exch2_oi_f(4,57)=-32
4655 exch2_oj(4,57)=0
4656 exch2_oj_f(4,57)=0
4657 exch2_itlo_c(4,57)=9
4658 exch2_ithi_c(4,57)=9
4659 exch2_jtlo_c(4,57)=0
4660 exch2_jthi_c(4,57)=9
4661 exch2_opposingSend_record(4,57)=3
4662 RETURN
4663 END
4664
4665 SUBROUTINE W2_E2SETUP_58
4666 C Topology for tile 58
4667 #include "W2_EXCH2_TOPOLOGY.h"
4668 exch2_tnx(58)=8
4669 exch2_tny(58)=8
4670 exch2_tbasex(58)=8
4671 exch2_tbasey(58)=16
4672 exch2_txglobalo(58)=105
4673 exch2_tyglobalo(58)=17
4674 exch2_isWedge(58)=0
4675 exch2_isNedge(58)=0
4676 exch2_isEedge(58)=0
4677 exch2_isSedge(58)=0
4678 exch2_myFace(58)=4
4679 exch2_mydnx(58)=32
4680 exch2_mydny(58)=32
4681 exch2_nNeighbours(58)=4
4682
4683 exch2_neighbourId(1,58)=62
4684 exch2_pi(1,1,58)=1
4685 exch2_pi(2,1,58)=0
4686 exch2_pj(1,1,58)=0
4687 exch2_pj(2,1,58)=1
4688 exch2_oi(1,58)=0
4689 exch2_oi_f(1,58)=0
4690 exch2_oj(1,58)=0
4691 exch2_oj_f(1,58)=0
4692 exch2_itlo_c(1,58)=0
4693 exch2_ithi_c(1,58)=9
4694 exch2_jtlo_c(1,58)=0
4695 exch2_jthi_c(1,58)=0
4696 exch2_opposingSend_record(1,58)=2
4697
4698 exch2_neighbourId(2,58)=54
4699 exch2_pi(1,2,58)=1
4700 exch2_pi(2,2,58)=0
4701 exch2_pj(1,2,58)=0
4702 exch2_pj(2,2,58)=1
4703 exch2_oi(2,58)=0
4704 exch2_oi_f(2,58)=0
4705 exch2_oj(2,58)=0
4706 exch2_oj_f(2,58)=0
4707 exch2_itlo_c(2,58)=1
4708 exch2_ithi_c(2,58)=8
4709 exch2_jtlo_c(2,58)=9
4710 exch2_jthi_c(2,58)=9
4711 exch2_opposingSend_record(2,58)=1
4712
4713 exch2_neighbourId(3,58)=59
4714 exch2_pi(1,3,58)=1
4715 exch2_pi(2,3,58)=0
4716 exch2_pj(1,3,58)=0
4717 exch2_pj(2,3,58)=1
4718 exch2_oi(3,58)=0
4719 exch2_oi_f(3,58)=0
4720 exch2_oj(3,58)=0
4721 exch2_oj_f(3,58)=0
4722 exch2_itlo_c(3,58)=0
4723 exch2_ithi_c(3,58)=0
4724 exch2_jtlo_c(3,58)=0
4725 exch2_jthi_c(3,58)=9
4726 exch2_opposingSend_record(3,58)=4
4727
4728 exch2_neighbourId(4,58)=57
4729 exch2_pi(1,4,58)=1
4730 exch2_pi(2,4,58)=0
4731 exch2_pj(1,4,58)=0
4732 exch2_pj(2,4,58)=1
4733 exch2_oi(4,58)=0
4734 exch2_oi_f(4,58)=0
4735 exch2_oj(4,58)=0
4736 exch2_oj_f(4,58)=0
4737 exch2_itlo_c(4,58)=9
4738 exch2_ithi_c(4,58)=9
4739 exch2_jtlo_c(4,58)=0
4740 exch2_jthi_c(4,58)=9
4741 exch2_opposingSend_record(4,58)=3
4742 RETURN
4743 END
4744
4745 SUBROUTINE W2_E2SETUP_59
4746 C Topology for tile 59
4747 #include "W2_EXCH2_TOPOLOGY.h"
4748 exch2_tnx(59)=8
4749 exch2_tny(59)=8
4750 exch2_tbasex(59)=16
4751 exch2_tbasey(59)=16
4752 exch2_txglobalo(59)=113
4753 exch2_tyglobalo(59)=17
4754 exch2_isWedge(59)=0
4755 exch2_isNedge(59)=0
4756 exch2_isEedge(59)=0
4757 exch2_isSedge(59)=0
4758 exch2_myFace(59)=4
4759 exch2_mydnx(59)=32
4760 exch2_mydny(59)=32
4761 exch2_nNeighbours(59)=4
4762
4763 exch2_neighbourId(1,59)=63
4764 exch2_pi(1,1,59)=1
4765 exch2_pi(2,1,59)=0
4766 exch2_pj(1,1,59)=0
4767 exch2_pj(2,1,59)=1
4768 exch2_oi(1,59)=0
4769 exch2_oi_f(1,59)=0
4770 exch2_oj(1,59)=0
4771 exch2_oj_f(1,59)=0
4772 exch2_itlo_c(1,59)=0
4773 exch2_ithi_c(1,59)=9
4774 exch2_jtlo_c(1,59)=0
4775 exch2_jthi_c(1,59)=0
4776 exch2_opposingSend_record(1,59)=2
4777
4778 exch2_neighbourId(2,59)=55
4779 exch2_pi(1,2,59)=1
4780 exch2_pi(2,2,59)=0
4781 exch2_pj(1,2,59)=0
4782 exch2_pj(2,2,59)=1
4783 exch2_oi(2,59)=0
4784 exch2_oi_f(2,59)=0
4785 exch2_oj(2,59)=0
4786 exch2_oj_f(2,59)=0
4787 exch2_itlo_c(2,59)=1
4788 exch2_ithi_c(2,59)=8
4789 exch2_jtlo_c(2,59)=9
4790 exch2_jthi_c(2,59)=9
4791 exch2_opposingSend_record(2,59)=1
4792
4793 exch2_neighbourId(3,59)=60
4794 exch2_pi(1,3,59)=1
4795 exch2_pi(2,3,59)=0
4796 exch2_pj(1,3,59)=0
4797 exch2_pj(2,3,59)=1
4798 exch2_oi(3,59)=0
4799 exch2_oi_f(3,59)=0
4800 exch2_oj(3,59)=0
4801 exch2_oj_f(3,59)=0
4802 exch2_itlo_c(3,59)=0
4803 exch2_ithi_c(3,59)=0
4804 exch2_jtlo_c(3,59)=0
4805 exch2_jthi_c(3,59)=9
4806 exch2_opposingSend_record(3,59)=4
4807
4808 exch2_neighbourId(4,59)=58
4809 exch2_pi(1,4,59)=1
4810 exch2_pi(2,4,59)=0
4811 exch2_pj(1,4,59)=0
4812 exch2_pj(2,4,59)=1
4813 exch2_oi(4,59)=0
4814 exch2_oi_f(4,59)=0
4815 exch2_oj(4,59)=0
4816 exch2_oj_f(4,59)=0
4817 exch2_itlo_c(4,59)=9
4818 exch2_ithi_c(4,59)=9
4819 exch2_jtlo_c(4,59)=0
4820 exch2_jthi_c(4,59)=9
4821 exch2_opposingSend_record(4,59)=3
4822 RETURN
4823 END
4824
4825 SUBROUTINE W2_E2SETUP_60
4826 C Topology for tile 60
4827 #include "W2_EXCH2_TOPOLOGY.h"
4828 exch2_tnx(60)=8
4829 exch2_tny(60)=8
4830 exch2_tbasex(60)=24
4831 exch2_tbasey(60)=16
4832 exch2_txglobalo(60)=121
4833 exch2_tyglobalo(60)=17
4834 exch2_isWedge(60)=0
4835 exch2_isNedge(60)=0
4836 exch2_isEedge(60)=1
4837 exch2_isSedge(60)=0
4838 exch2_myFace(60)=4
4839 exch2_mydnx(60)=32
4840 exch2_mydny(60)=32
4841 exch2_nNeighbours(60)=4
4842
4843 exch2_neighbourId(1,60)=64
4844 exch2_pi(1,1,60)=1
4845 exch2_pi(2,1,60)=0
4846 exch2_pj(1,1,60)=0
4847 exch2_pj(2,1,60)=1
4848 exch2_oi(1,60)=0
4849 exch2_oi_f(1,60)=0
4850 exch2_oj(1,60)=0
4851 exch2_oj_f(1,60)=0
4852 exch2_itlo_c(1,60)=0
4853 exch2_ithi_c(1,60)=9
4854 exch2_jtlo_c(1,60)=0
4855 exch2_jthi_c(1,60)=0
4856 exch2_opposingSend_record(1,60)=2
4857
4858 exch2_neighbourId(2,60)=56
4859 exch2_pi(1,2,60)=1
4860 exch2_pi(2,2,60)=0
4861 exch2_pj(1,2,60)=0
4862 exch2_pj(2,2,60)=1
4863 exch2_oi(2,60)=0
4864 exch2_oi_f(2,60)=0
4865 exch2_oj(2,60)=0
4866 exch2_oj_f(2,60)=0
4867 exch2_itlo_c(2,60)=1
4868 exch2_ithi_c(2,60)=8
4869 exch2_jtlo_c(2,60)=9
4870 exch2_jthi_c(2,60)=9
4871 exch2_opposingSend_record(2,60)=1
4872
4873 exch2_neighbourId(3,60)=82
4874 exch2_pi(1,3,60)=0
4875 exch2_pi(2,3,60)=1
4876 exch2_pj(1,3,60)=-1
4877 exch2_pj(2,3,60)=0
4878 exch2_oi(3,60)=32
4879 exch2_oi_f(3,60)=32
4880 exch2_oj(3,60)=33
4881 exch2_oj_f(3,60)=34
4882 exch2_itlo_c(3,60)=0
4883 exch2_ithi_c(3,60)=9
4884 exch2_jtlo_c(3,60)=0
4885 exch2_jthi_c(3,60)=0
4886 exch2_opposingSend_record(3,60)=2
4887
4888 exch2_neighbourId(4,60)=59
4889 exch2_pi(1,4,60)=1
4890 exch2_pi(2,4,60)=0
4891 exch2_pj(1,4,60)=0
4892 exch2_pj(2,4,60)=1
4893 exch2_oi(4,60)=0
4894 exch2_oi_f(4,60)=0
4895 exch2_oj(4,60)=0
4896 exch2_oj_f(4,60)=0
4897 exch2_itlo_c(4,60)=9
4898 exch2_ithi_c(4,60)=9
4899 exch2_jtlo_c(4,60)=0
4900 exch2_jthi_c(4,60)=9
4901 exch2_opposingSend_record(4,60)=3
4902 RETURN
4903 END
4904
4905 SUBROUTINE W2_E2SETUP_61
4906 C Topology for tile 61
4907 #include "W2_EXCH2_TOPOLOGY.h"
4908 exch2_tnx(61)=8
4909 exch2_tny(61)=8
4910 exch2_tbasex(61)=0
4911 exch2_tbasey(61)=24
4912 exch2_txglobalo(61)=97
4913 exch2_tyglobalo(61)=25
4914 exch2_isWedge(61)=1
4915 exch2_isNedge(61)=1
4916 exch2_isEedge(61)=0
4917 exch2_isSedge(61)=0
4918 exch2_myFace(61)=4
4919 exch2_mydnx(61)=32
4920 exch2_mydny(61)=32
4921 exch2_nNeighbours(61)=4
4922
4923 exch2_neighbourId(1,61)=65
4924 exch2_pi(1,1,61)=1
4925 exch2_pi(2,1,61)=0
4926 exch2_pj(1,1,61)=0
4927 exch2_pj(2,1,61)=1
4928 exch2_oi(1,61)=0
4929 exch2_oi_f(1,61)=0
4930 exch2_oj(1,61)=32
4931 exch2_oj_f(1,61)=32
4932 exch2_itlo_c(1,61)=0
4933 exch2_ithi_c(1,61)=9
4934 exch2_jtlo_c(1,61)=0
4935 exch2_jthi_c(1,61)=0
4936 exch2_opposingSend_record(1,61)=2
4937
4938 exch2_neighbourId(2,61)=57
4939 exch2_pi(1,2,61)=1
4940 exch2_pi(2,2,61)=0
4941 exch2_pj(1,2,61)=0
4942 exch2_pj(2,2,61)=1
4943 exch2_oi(2,61)=0
4944 exch2_oi_f(2,61)=0
4945 exch2_oj(2,61)=0
4946 exch2_oj_f(2,61)=0
4947 exch2_itlo_c(2,61)=1
4948 exch2_ithi_c(2,61)=8
4949 exch2_jtlo_c(2,61)=9
4950 exch2_jthi_c(2,61)=9
4951 exch2_opposingSend_record(2,61)=1
4952
4953 exch2_neighbourId(3,61)=62
4954 exch2_pi(1,3,61)=1
4955 exch2_pi(2,3,61)=0
4956 exch2_pj(1,3,61)=0
4957 exch2_pj(2,3,61)=1
4958 exch2_oi(3,61)=0
4959 exch2_oi_f(3,61)=0
4960 exch2_oj(3,61)=0
4961 exch2_oj_f(3,61)=0
4962 exch2_itlo_c(3,61)=0
4963 exch2_ithi_c(3,61)=0
4964 exch2_jtlo_c(3,61)=0
4965 exch2_jthi_c(3,61)=9
4966 exch2_opposingSend_record(3,61)=4
4967
4968 exch2_neighbourId(4,61)=48
4969 exch2_pi(1,4,61)=1
4970 exch2_pi(2,4,61)=0
4971 exch2_pj(1,4,61)=0
4972 exch2_pj(2,4,61)=1
4973 exch2_oi(4,61)=-32
4974 exch2_oi_f(4,61)=-32
4975 exch2_oj(4,61)=0
4976 exch2_oj_f(4,61)=0
4977 exch2_itlo_c(4,61)=9
4978 exch2_ithi_c(4,61)=9
4979 exch2_jtlo_c(4,61)=0
4980 exch2_jthi_c(4,61)=9
4981 exch2_opposingSend_record(4,61)=3
4982 RETURN
4983 END
4984
4985 SUBROUTINE W2_E2SETUP_62
4986 C Topology for tile 62
4987 #include "W2_EXCH2_TOPOLOGY.h"
4988 exch2_tnx(62)=8
4989 exch2_tny(62)=8
4990 exch2_tbasex(62)=8
4991 exch2_tbasey(62)=24
4992 exch2_txglobalo(62)=105
4993 exch2_tyglobalo(62)=25
4994 exch2_isWedge(62)=0
4995 exch2_isNedge(62)=1
4996 exch2_isEedge(62)=0
4997 exch2_isSedge(62)=0
4998 exch2_myFace(62)=4
4999 exch2_mydnx(62)=32
5000 exch2_mydny(62)=32
5001 exch2_nNeighbours(62)=4
5002
5003 exch2_neighbourId(1,62)=66
5004 exch2_pi(1,1,62)=1
5005 exch2_pi(2,1,62)=0
5006 exch2_pj(1,1,62)=0
5007 exch2_pj(2,1,62)=1
5008 exch2_oi(1,62)=0
5009 exch2_oi_f(1,62)=0
5010 exch2_oj(1,62)=32
5011 exch2_oj_f(1,62)=32
5012 exch2_itlo_c(1,62)=0
5013 exch2_ithi_c(1,62)=9
5014 exch2_jtlo_c(1,62)=0
5015 exch2_jthi_c(1,62)=0
5016 exch2_opposingSend_record(1,62)=2
5017
5018 exch2_neighbourId(2,62)=58
5019 exch2_pi(1,2,62)=1
5020 exch2_pi(2,2,62)=0
5021 exch2_pj(1,2,62)=0
5022 exch2_pj(2,2,62)=1
5023 exch2_oi(2,62)=0
5024 exch2_oi_f(2,62)=0
5025 exch2_oj(2,62)=0
5026 exch2_oj_f(2,62)=0
5027 exch2_itlo_c(2,62)=1
5028 exch2_ithi_c(2,62)=8
5029 exch2_jtlo_c(2,62)=9
5030 exch2_jthi_c(2,62)=9
5031 exch2_opposingSend_record(2,62)=1
5032
5033 exch2_neighbourId(3,62)=63
5034 exch2_pi(1,3,62)=1
5035 exch2_pi(2,3,62)=0
5036 exch2_pj(1,3,62)=0
5037 exch2_pj(2,3,62)=1
5038 exch2_oi(3,62)=0
5039 exch2_oi_f(3,62)=0
5040 exch2_oj(3,62)=0
5041 exch2_oj_f(3,62)=0
5042 exch2_itlo_c(3,62)=0
5043 exch2_ithi_c(3,62)=0
5044 exch2_jtlo_c(3,62)=0
5045 exch2_jthi_c(3,62)=9
5046 exch2_opposingSend_record(3,62)=4
5047
5048 exch2_neighbourId(4,62)=61
5049 exch2_pi(1,4,62)=1
5050 exch2_pi(2,4,62)=0
5051 exch2_pj(1,4,62)=0
5052 exch2_pj(2,4,62)=1
5053 exch2_oi(4,62)=0
5054 exch2_oi_f(4,62)=0
5055 exch2_oj(4,62)=0
5056 exch2_oj_f(4,62)=0
5057 exch2_itlo_c(4,62)=9
5058 exch2_ithi_c(4,62)=9
5059 exch2_jtlo_c(4,62)=0
5060 exch2_jthi_c(4,62)=9
5061 exch2_opposingSend_record(4,62)=3
5062 RETURN
5063 END
5064
5065 SUBROUTINE W2_E2SETUP_63
5066 C Topology for tile 63
5067 #include "W2_EXCH2_TOPOLOGY.h"
5068 exch2_tnx(63)=8
5069 exch2_tny(63)=8
5070 exch2_tbasex(63)=16
5071 exch2_tbasey(63)=24
5072 exch2_txglobalo(63)=113
5073 exch2_tyglobalo(63)=25
5074 exch2_isWedge(63)=0
5075 exch2_isNedge(63)=1
5076 exch2_isEedge(63)=0
5077 exch2_isSedge(63)=0
5078 exch2_myFace(63)=4
5079 exch2_mydnx(63)=32
5080 exch2_mydny(63)=32
5081 exch2_nNeighbours(63)=4
5082
5083 exch2_neighbourId(1,63)=67
5084 exch2_pi(1,1,63)=1
5085 exch2_pi(2,1,63)=0
5086 exch2_pj(1,1,63)=0
5087 exch2_pj(2,1,63)=1
5088 exch2_oi(1,63)=0
5089 exch2_oi_f(1,63)=0
5090 exch2_oj(1,63)=32
5091 exch2_oj_f(1,63)=32
5092 exch2_itlo_c(1,63)=0
5093 exch2_ithi_c(1,63)=9
5094 exch2_jtlo_c(1,63)=0
5095 exch2_jthi_c(1,63)=0
5096 exch2_opposingSend_record(1,63)=2
5097
5098 exch2_neighbourId(2,63)=59
5099 exch2_pi(1,2,63)=1
5100 exch2_pi(2,2,63)=0
5101 exch2_pj(1,2,63)=0
5102 exch2_pj(2,2,63)=1
5103 exch2_oi(2,63)=0
5104 exch2_oi_f(2,63)=0
5105 exch2_oj(2,63)=0
5106 exch2_oj_f(2,63)=0
5107 exch2_itlo_c(2,63)=1
5108 exch2_ithi_c(2,63)=8
5109 exch2_jtlo_c(2,63)=9
5110 exch2_jthi_c(2,63)=9
5111 exch2_opposingSend_record(2,63)=1
5112
5113 exch2_neighbourId(3,63)=64
5114 exch2_pi(1,3,63)=1
5115 exch2_pi(2,3,63)=0
5116 exch2_pj(1,3,63)=0
5117 exch2_pj(2,3,63)=1
5118 exch2_oi(3,63)=0
5119 exch2_oi_f(3,63)=0
5120 exch2_oj(3,63)=0
5121 exch2_oj_f(3,63)=0
5122 exch2_itlo_c(3,63)=0
5123 exch2_ithi_c(3,63)=0
5124 exch2_jtlo_c(3,63)=0
5125 exch2_jthi_c(3,63)=9
5126 exch2_opposingSend_record(3,63)=4
5127
5128 exch2_neighbourId(4,63)=62
5129 exch2_pi(1,4,63)=1
5130 exch2_pi(2,4,63)=0
5131 exch2_pj(1,4,63)=0
5132 exch2_pj(2,4,63)=1
5133 exch2_oi(4,63)=0
5134 exch2_oi_f(4,63)=0
5135 exch2_oj(4,63)=0
5136 exch2_oj_f(4,63)=0
5137 exch2_itlo_c(4,63)=9
5138 exch2_ithi_c(4,63)=9
5139 exch2_jtlo_c(4,63)=0
5140 exch2_jthi_c(4,63)=9
5141 exch2_opposingSend_record(4,63)=3
5142 RETURN
5143 END
5144
5145 SUBROUTINE W2_E2SETUP_64
5146 C Topology for tile 64
5147 #include "W2_EXCH2_TOPOLOGY.h"
5148 exch2_tnx(64)=8
5149 exch2_tny(64)=8
5150 exch2_tbasex(64)=24
5151 exch2_tbasey(64)=24
5152 exch2_txglobalo(64)=121
5153 exch2_tyglobalo(64)=25
5154 exch2_isWedge(64)=0
5155 exch2_isNedge(64)=1
5156 exch2_isEedge(64)=1
5157 exch2_isSedge(64)=0
5158 exch2_myFace(64)=4
5159 exch2_mydnx(64)=32
5160 exch2_mydny(64)=32
5161 exch2_nNeighbours(64)=4
5162
5163 exch2_neighbourId(1,64)=68
5164 exch2_pi(1,1,64)=1
5165 exch2_pi(2,1,64)=0
5166 exch2_pj(1,1,64)=0
5167 exch2_pj(2,1,64)=1
5168 exch2_oi(1,64)=0
5169 exch2_oi_f(1,64)=0
5170 exch2_oj(1,64)=32
5171 exch2_oj_f(1,64)=32
5172 exch2_itlo_c(1,64)=0
5173 exch2_ithi_c(1,64)=9
5174 exch2_jtlo_c(1,64)=0
5175 exch2_jthi_c(1,64)=0
5176 exch2_opposingSend_record(1,64)=2
5177
5178 exch2_neighbourId(2,64)=60
5179 exch2_pi(1,2,64)=1
5180 exch2_pi(2,2,64)=0
5181 exch2_pj(1,2,64)=0
5182 exch2_pj(2,2,64)=1
5183 exch2_oi(2,64)=0
5184 exch2_oi_f(2,64)=0
5185 exch2_oj(2,64)=0
5186 exch2_oj_f(2,64)=0
5187 exch2_itlo_c(2,64)=1
5188 exch2_ithi_c(2,64)=8
5189 exch2_jtlo_c(2,64)=9
5190 exch2_jthi_c(2,64)=9
5191 exch2_opposingSend_record(2,64)=1
5192
5193 exch2_neighbourId(3,64)=81
5194 exch2_pi(1,3,64)=0
5195 exch2_pi(2,3,64)=1
5196 exch2_pj(1,3,64)=-1
5197 exch2_pj(2,3,64)=0
5198 exch2_oi(3,64)=32
5199 exch2_oi_f(3,64)=32
5200 exch2_oj(3,64)=33
5201 exch2_oj_f(3,64)=34
5202 exch2_itlo_c(3,64)=0
5203 exch2_ithi_c(3,64)=9
5204 exch2_jtlo_c(3,64)=0
5205 exch2_jthi_c(3,64)=0
5206 exch2_opposingSend_record(3,64)=2
5207
5208 exch2_neighbourId(4,64)=63
5209 exch2_pi(1,4,64)=1
5210 exch2_pi(2,4,64)=0
5211 exch2_pj(1,4,64)=0
5212 exch2_pj(2,4,64)=1
5213 exch2_oi(4,64)=0
5214 exch2_oi_f(4,64)=0
5215 exch2_oj(4,64)=0
5216 exch2_oj_f(4,64)=0
5217 exch2_itlo_c(4,64)=9
5218 exch2_ithi_c(4,64)=9
5219 exch2_jtlo_c(4,64)=0
5220 exch2_jthi_c(4,64)=9
5221 exch2_opposingSend_record(4,64)=3
5222 RETURN
5223 END
5224
5225 SUBROUTINE W2_E2SETUP_65
5226 C Topology for tile 65
5227 #include "W2_EXCH2_TOPOLOGY.h"
5228 exch2_tnx(65)=8
5229 exch2_tny(65)=8
5230 exch2_tbasex(65)=0
5231 exch2_tbasey(65)=0
5232 exch2_txglobalo(65)=129
5233 exch2_tyglobalo(65)=1
5234 exch2_isWedge(65)=1
5235 exch2_isNedge(65)=0
5236 exch2_isEedge(65)=0
5237 exch2_isSedge(65)=1
5238 exch2_myFace(65)=5
5239 exch2_mydnx(65)=32
5240 exch2_mydny(65)=32
5241 exch2_nNeighbours(65)=4
5242
5243 exch2_neighbourId(1,65)=69
5244 exch2_pi(1,1,65)=1
5245 exch2_pi(2,1,65)=0
5246 exch2_pj(1,1,65)=0
5247 exch2_pj(2,1,65)=1
5248 exch2_oi(1,65)=0
5249 exch2_oi_f(1,65)=0
5250 exch2_oj(1,65)=0
5251 exch2_oj_f(1,65)=0
5252 exch2_itlo_c(1,65)=0
5253 exch2_ithi_c(1,65)=9
5254 exch2_jtlo_c(1,65)=0
5255 exch2_jthi_c(1,65)=0
5256 exch2_opposingSend_record(1,65)=2
5257
5258 exch2_neighbourId(2,65)=61
5259 exch2_pi(1,2,65)=1
5260 exch2_pi(2,2,65)=0
5261 exch2_pj(1,2,65)=0
5262 exch2_pj(2,2,65)=1
5263 exch2_oi(2,65)=0
5264 exch2_oi_f(2,65)=0
5265 exch2_oj(2,65)=-32
5266 exch2_oj_f(2,65)=-32
5267 exch2_itlo_c(2,65)=0
5268 exch2_ithi_c(2,65)=9
5269 exch2_jtlo_c(2,65)=9
5270 exch2_jthi_c(2,65)=9
5271 exch2_opposingSend_record(2,65)=1
5272
5273 exch2_neighbourId(3,65)=66
5274 exch2_pi(1,3,65)=1
5275 exch2_pi(2,3,65)=0
5276 exch2_pj(1,3,65)=0
5277 exch2_pj(2,3,65)=1
5278 exch2_oi(3,65)=0
5279 exch2_oi_f(3,65)=0
5280 exch2_oj(3,65)=0
5281 exch2_oj_f(3,65)=0
5282 exch2_itlo_c(3,65)=0
5283 exch2_ithi_c(3,65)=0
5284 exch2_jtlo_c(3,65)=0
5285 exch2_jthi_c(3,65)=9
5286 exch2_opposingSend_record(3,65)=4
5287
5288 exch2_neighbourId(4,65)=48
5289 exch2_pi(1,4,65)=0
5290 exch2_pi(2,4,65)=1
5291 exch2_pj(1,4,65)=-1
5292 exch2_pj(2,4,65)=0
5293 exch2_oi(4,65)=-32
5294 exch2_oi_f(4,65)=-32
5295 exch2_oj(4,65)=33
5296 exch2_oj_f(4,65)=34
5297 exch2_itlo_c(4,65)=0
5298 exch2_ithi_c(4,65)=9
5299 exch2_jtlo_c(4,65)=9
5300 exch2_jthi_c(4,65)=9
5301 exch2_opposingSend_record(4,65)=1
5302 RETURN
5303 END
5304
5305 SUBROUTINE W2_E2SETUP_66
5306 C Topology for tile 66
5307 #include "W2_EXCH2_TOPOLOGY.h"
5308 exch2_tnx(66)=8
5309 exch2_tny(66)=8
5310 exch2_tbasex(66)=8
5311 exch2_tbasey(66)=0
5312 exch2_txglobalo(66)=137
5313 exch2_tyglobalo(66)=1
5314 exch2_isWedge(66)=0
5315 exch2_isNedge(66)=0
5316 exch2_isEedge(66)=0
5317 exch2_isSedge(66)=1
5318 exch2_myFace(66)=5
5319 exch2_mydnx(66)=32
5320 exch2_mydny(66)=32
5321 exch2_nNeighbours(66)=4
5322
5323 exch2_neighbourId(1,66)=70
5324 exch2_pi(1,1,66)=1
5325 exch2_pi(2,1,66)=0
5326 exch2_pj(1,1,66)=0
5327 exch2_pj(2,1,66)=1
5328 exch2_oi(1,66)=0
5329 exch2_oi_f(1,66)=0
5330 exch2_oj(1,66)=0
5331 exch2_oj_f(1,66)=0
5332 exch2_itlo_c(1,66)=0
5333 exch2_ithi_c(1,66)=9
5334 exch2_jtlo_c(1,66)=0
5335 exch2_jthi_c(1,66)=0
5336 exch2_opposingSend_record(1,66)=2
5337
5338 exch2_neighbourId(2,66)=62
5339 exch2_pi(1,2,66)=1
5340 exch2_pi(2,2,66)=0
5341 exch2_pj(1,2,66)=0
5342 exch2_pj(2,2,66)=1
5343 exch2_oi(2,66)=0
5344 exch2_oi_f(2,66)=0
5345 exch2_oj(2,66)=-32
5346 exch2_oj_f(2,66)=-32
5347 exch2_itlo_c(2,66)=0
5348 exch2_ithi_c(2,66)=9
5349 exch2_jtlo_c(2,66)=9
5350 exch2_jthi_c(2,66)=9
5351 exch2_opposingSend_record(2,66)=1
5352
5353 exch2_neighbourId(3,66)=67
5354 exch2_pi(1,3,66)=1
5355 exch2_pi(2,3,66)=0
5356 exch2_pj(1,3,66)=0
5357 exch2_pj(2,3,66)=1
5358 exch2_oi(3,66)=0
5359 exch2_oi_f(3,66)=0
5360 exch2_oj(3,66)=0
5361 exch2_oj_f(3,66)=0
5362 exch2_itlo_c(3,66)=0
5363 exch2_ithi_c(3,66)=0
5364 exch2_jtlo_c(3,66)=0
5365 exch2_jthi_c(3,66)=9
5366 exch2_opposingSend_record(3,66)=4
5367
5368 exch2_neighbourId(4,66)=65
5369 exch2_pi(1,4,66)=1
5370 exch2_pi(2,4,66)=0
5371 exch2_pj(1,4,66)=0
5372 exch2_pj(2,4,66)=1
5373 exch2_oi(4,66)=0
5374 exch2_oi_f(4,66)=0
5375 exch2_oj(4,66)=0
5376 exch2_oj_f(4,66)=0
5377 exch2_itlo_c(4,66)=9
5378 exch2_ithi_c(4,66)=9
5379 exch2_jtlo_c(4,66)=0
5380 exch2_jthi_c(4,66)=9
5381 exch2_opposingSend_record(4,66)=3
5382 RETURN
5383 END
5384
5385 SUBROUTINE W2_E2SETUP_67
5386 C Topology for tile 67
5387 #include "W2_EXCH2_TOPOLOGY.h"
5388 exch2_tnx(67)=8
5389 exch2_tny(67)=8
5390 exch2_tbasex(67)=16
5391 exch2_tbasey(67)=0
5392 exch2_txglobalo(67)=145
5393 exch2_tyglobalo(67)=1
5394 exch2_isWedge(67)=0
5395 exch2_isNedge(67)=0
5396 exch2_isEedge(67)=0
5397 exch2_isSedge(67)=1
5398 exch2_myFace(67)=5
5399 exch2_mydnx(67)=32
5400 exch2_mydny(67)=32
5401 exch2_nNeighbours(67)=4
5402
5403 exch2_neighbourId(1,67)=71
5404 exch2_pi(1,1,67)=1
5405 exch2_pi(2,1,67)=0
5406 exch2_pj(1,1,67)=0
5407 exch2_pj(2,1,67)=1
5408 exch2_oi(1,67)=0
5409 exch2_oi_f(1,67)=0
5410 exch2_oj(1,67)=0
5411 exch2_oj_f(1,67)=0
5412 exch2_itlo_c(1,67)=0
5413 exch2_ithi_c(1,67)=9
5414 exch2_jtlo_c(1,67)=0
5415 exch2_jthi_c(1,67)=0
5416 exch2_opposingSend_record(1,67)=2
5417
5418 exch2_neighbourId(2,67)=63
5419 exch2_pi(1,2,67)=1
5420 exch2_pi(2,2,67)=0
5421 exch2_pj(1,2,67)=0
5422 exch2_pj(2,2,67)=1
5423 exch2_oi(2,67)=0
5424 exch2_oi_f(2,67)=0
5425 exch2_oj(2,67)=-32
5426 exch2_oj_f(2,67)=-32
5427 exch2_itlo_c(2,67)=0
5428 exch2_ithi_c(2,67)=9
5429 exch2_jtlo_c(2,67)=9
5430 exch2_jthi_c(2,67)=9
5431 exch2_opposingSend_record(2,67)=1
5432
5433 exch2_neighbourId(3,67)=68
5434 exch2_pi(1,3,67)=1
5435 exch2_pi(2,3,67)=0
5436 exch2_pj(1,3,67)=0
5437 exch2_pj(2,3,67)=1
5438 exch2_oi(3,67)=0
5439 exch2_oi_f(3,67)=0
5440 exch2_oj(3,67)=0
5441 exch2_oj_f(3,67)=0
5442 exch2_itlo_c(3,67)=0
5443 exch2_ithi_c(3,67)=0
5444 exch2_jtlo_c(3,67)=0
5445 exch2_jthi_c(3,67)=9
5446 exch2_opposingSend_record(3,67)=4
5447
5448 exch2_neighbourId(4,67)=66
5449 exch2_pi(1,4,67)=1
5450 exch2_pi(2,4,67)=0
5451 exch2_pj(1,4,67)=0
5452 exch2_pj(2,4,67)=1
5453 exch2_oi(4,67)=0
5454 exch2_oi_f(4,67)=0
5455 exch2_oj(4,67)=0
5456 exch2_oj_f(4,67)=0
5457 exch2_itlo_c(4,67)=9
5458 exch2_ithi_c(4,67)=9
5459 exch2_jtlo_c(4,67)=0
5460 exch2_jthi_c(4,67)=9
5461 exch2_opposingSend_record(4,67)=3
5462 RETURN
5463 END
5464
5465 SUBROUTINE W2_E2SETUP_68
5466 C Topology for tile 68
5467 #include "W2_EXCH2_TOPOLOGY.h"
5468 exch2_tnx(68)=8
5469 exch2_tny(68)=8
5470 exch2_tbasex(68)=24
5471 exch2_tbasey(68)=0
5472 exch2_txglobalo(68)=153
5473 exch2_tyglobalo(68)=1
5474 exch2_isWedge(68)=0
5475 exch2_isNedge(68)=0
5476 exch2_isEedge(68)=1
5477 exch2_isSedge(68)=1
5478 exch2_myFace(68)=5
5479 exch2_mydnx(68)=32
5480 exch2_mydny(68)=32
5481 exch2_nNeighbours(68)=4
5482
5483 exch2_neighbourId(1,68)=72
5484 exch2_pi(1,1,68)=1
5485 exch2_pi(2,1,68)=0
5486 exch2_pj(1,1,68)=0
5487 exch2_pj(2,1,68)=1
5488 exch2_oi(1,68)=0
5489 exch2_oi_f(1,68)=0
5490 exch2_oj(1,68)=0
5491 exch2_oj_f(1,68)=0
5492 exch2_itlo_c(1,68)=0
5493 exch2_ithi_c(1,68)=9
5494 exch2_jtlo_c(1,68)=0
5495 exch2_jthi_c(1,68)=0
5496 exch2_opposingSend_record(1,68)=2
5497
5498 exch2_neighbourId(2,68)=64
5499 exch2_pi(1,2,68)=1
5500 exch2_pi(2,2,68)=0
5501 exch2_pj(1,2,68)=0
5502 exch2_pj(2,2,68)=1
5503 exch2_oi(2,68)=0
5504 exch2_oi_f(2,68)=0
5505 exch2_oj(2,68)=-32
5506 exch2_oj_f(2,68)=-32
5507 exch2_itlo_c(2,68)=0
5508 exch2_ithi_c(2,68)=9
5509 exch2_jtlo_c(2,68)=9
5510 exch2_jthi_c(2,68)=9
5511 exch2_opposingSend_record(2,68)=1
5512
5513 exch2_neighbourId(3,68)=81
5514 exch2_pi(1,3,68)=1
5515 exch2_pi(2,3,68)=0
5516 exch2_pj(1,3,68)=0
5517 exch2_pj(2,3,68)=1
5518 exch2_oi(3,68)=32
5519 exch2_oi_f(3,68)=32
5520 exch2_oj(3,68)=0
5521 exch2_oj_f(3,68)=0
5522 exch2_itlo_c(3,68)=0
5523 exch2_ithi_c(3,68)=0
5524 exch2_jtlo_c(3,68)=0
5525 exch2_jthi_c(3,68)=9
5526 exch2_opposingSend_record(3,68)=4
5527
5528 exch2_neighbourId(4,68)=67
5529 exch2_pi(1,4,68)=1
5530 exch2_pi(2,4,68)=0
5531 exch2_pj(1,4,68)=0
5532 exch2_pj(2,4,68)=1
5533 exch2_oi(4,68)=0
5534 exch2_oi_f(4,68)=0
5535 exch2_oj(4,68)=0
5536 exch2_oj_f(4,68)=0
5537 exch2_itlo_c(4,68)=9
5538 exch2_ithi_c(4,68)=9
5539 exch2_jtlo_c(4,68)=0
5540 exch2_jthi_c(4,68)=9
5541 exch2_opposingSend_record(4,68)=3
5542 RETURN
5543 END
5544
5545 SUBROUTINE W2_E2SETUP_69
5546 C Topology for tile 69
5547 #include "W2_EXCH2_TOPOLOGY.h"
5548 exch2_tnx(69)=8
5549 exch2_tny(69)=8
5550 exch2_tbasex(69)=0
5551 exch2_tbasey(69)=8
5552 exch2_txglobalo(69)=129
5553 exch2_tyglobalo(69)=9
5554 exch2_isWedge(69)=1
5555 exch2_isNedge(69)=0
5556 exch2_isEedge(69)=0
5557 exch2_isSedge(69)=0
5558 exch2_myFace(69)=5
5559 exch2_mydnx(69)=32
5560 exch2_mydny(69)=32
5561 exch2_nNeighbours(69)=4
5562
5563 exch2_neighbourId(1,69)=73
5564 exch2_pi(1,1,69)=1
5565 exch2_pi(2,1,69)=0
5566 exch2_pj(1,1,69)=0
5567 exch2_pj(2,1,69)=1
5568 exch2_oi(1,69)=0
5569 exch2_oi_f(1,69)=0
5570 exch2_oj(1,69)=0
5571 exch2_oj_f(1,69)=0
5572 exch2_itlo_c(1,69)=0
5573 exch2_ithi_c(1,69)=9
5574 exch2_jtlo_c(1,69)=0
5575 exch2_jthi_c(1,69)=0
5576 exch2_opposingSend_record(1,69)=2
5577
5578 exch2_neighbourId(2,69)=65
5579 exch2_pi(1,2,69)=1
5580 exch2_pi(2,2,69)=0
5581 exch2_pj(1,2,69)=0
5582 exch2_pj(2,2,69)=1
5583 exch2_oi(2,69)=0
5584 exch2_oi_f(2,69)=0
5585 exch2_oj(2,69)=0
5586 exch2_oj_f(2,69)=0
5587 exch2_itlo_c(2,69)=1
5588 exch2_ithi_c(2,69)=8
5589 exch2_jtlo_c(2,69)=9
5590 exch2_jthi_c(2,69)=9
5591 exch2_opposingSend_record(2,69)=1
5592
5593 exch2_neighbourId(3,69)=70
5594 exch2_pi(1,3,69)=1
5595 exch2_pi(2,3,69)=0
5596 exch2_pj(1,3,69)=0
5597 exch2_pj(2,3,69)=1
5598 exch2_oi(3,69)=0
5599 exch2_oi_f(3,69)=0
5600 exch2_oj(3,69)=0
5601 exch2_oj_f(3,69)=0
5602 exch2_itlo_c(3,69)=0
5603 exch2_ithi_c(3,69)=0
5604 exch2_jtlo_c(3,69)=0
5605 exch2_jthi_c(3,69)=9
5606 exch2_opposingSend_record(3,69)=4
5607
5608 exch2_neighbourId(4,69)=47
5609 exch2_pi(1,4,69)=0
5610 exch2_pi(2,4,69)=1
5611 exch2_pj(1,4,69)=-1
5612 exch2_pj(2,4,69)=0
5613 exch2_oi(4,69)=-32
5614 exch2_oi_f(4,69)=-32
5615 exch2_oj(4,69)=33
5616 exch2_oj_f(4,69)=34
5617 exch2_itlo_c(4,69)=0
5618 exch2_ithi_c(4,69)=9
5619 exch2_jtlo_c(4,69)=9
5620 exch2_jthi_c(4,69)=9
5621 exch2_opposingSend_record(4,69)=1
5622 RETURN
5623 END
5624
5625 SUBROUTINE W2_E2SETUP_70
5626 C Topology for tile 70
5627 #include "W2_EXCH2_TOPOLOGY.h"
5628 exch2_tnx(70)=8
5629 exch2_tny(70)=8
5630 exch2_tbasex(70)=8
5631 exch2_tbasey(70)=8
5632 exch2_txglobalo(70)=137
5633 exch2_tyglobalo(70)=9
5634 exch2_isWedge(70)=0
5635 exch2_isNedge(70)=0
5636 exch2_isEedge(70)=0
5637 exch2_isSedge(70)=0
5638 exch2_myFace(70)=5
5639 exch2_mydnx(70)=32
5640 exch2_mydny(70)=32
5641 exch2_nNeighbours(70)=4
5642
5643 exch2_neighbourId(1,70)=74
5644 exch2_pi(1,1,70)=1
5645 exch2_pi(2,1,70)=0
5646 exch2_pj(1,1,70)=0
5647 exch2_pj(2,1,70)=1
5648 exch2_oi(1,70)=0
5649 exch2_oi_f(1,70)=0
5650 exch2_oj(1,70)=0
5651 exch2_oj_f(1,70)=0
5652 exch2_itlo_c(1,70)=0
5653 exch2_ithi_c(1,70)=9
5654 exch2_jtlo_c(1,70)=0
5655 exch2_jthi_c(1,70)=0
5656 exch2_opposingSend_record(1,70)=2
5657
5658 exch2_neighbourId(2,70)=66
5659 exch2_pi(1,2,70)=1
5660 exch2_pi(2,2,70)=0
5661 exch2_pj(1,2,70)=0
5662 exch2_pj(2,2,70)=1
5663 exch2_oi(2,70)=0
5664 exch2_oi_f(2,70)=0
5665 exch2_oj(2,70)=0
5666 exch2_oj_f(2,70)=0
5667 exch2_itlo_c(2,70)=1
5668 exch2_ithi_c(2,70)=8
5669 exch2_jtlo_c(2,70)=9
5670 exch2_jthi_c(2,70)=9
5671 exch2_opposingSend_record(2,70)=1
5672
5673 exch2_neighbourId(3,70)=71
5674 exch2_pi(1,3,70)=1
5675 exch2_pi(2,3,70)=0
5676 exch2_pj(1,3,70)=0
5677 exch2_pj(2,3,70)=1
5678 exch2_oi(3,70)=0
5679 exch2_oi_f(3,70)=0
5680 exch2_oj(3,70)=0
5681 exch2_oj_f(3,70)=0
5682 exch2_itlo_c(3,70)=0
5683 exch2_ithi_c(3,70)=0
5684 exch2_jtlo_c(3,70)=0
5685 exch2_jthi_c(3,70)=9
5686 exch2_opposingSend_record(3,70)=4
5687
5688 exch2_neighbourId(4,70)=69
5689 exch2_pi(1,4,70)=1
5690 exch2_pi(2,4,70)=0
5691 exch2_pj(1,4,70)=0
5692 exch2_pj(2,4,70)=1
5693 exch2_oi(4,70)=0
5694 exch2_oi_f(4,70)=0
5695 exch2_oj(4,70)=0
5696 exch2_oj_f(4,70)=0
5697 exch2_itlo_c(4,70)=9
5698 exch2_ithi_c(4,70)=9
5699 exch2_jtlo_c(4,70)=0
5700 exch2_jthi_c(4,70)=9
5701 exch2_opposingSend_record(4,70)=3
5702 RETURN
5703 END
5704
5705 SUBROUTINE W2_E2SETUP_71
5706 C Topology for tile 71
5707 #include "W2_EXCH2_TOPOLOGY.h"
5708 exch2_tnx(71)=8
5709 exch2_tny(71)=8
5710 exch2_tbasex(71)=16
5711 exch2_tbasey(71)=8
5712 exch2_txglobalo(71)=145
5713 exch2_tyglobalo(71)=9
5714 exch2_isWedge(71)=0
5715 exch2_isNedge(71)=0
5716 exch2_isEedge(71)=0
5717 exch2_isSedge(71)=0
5718 exch2_myFace(71)=5
5719 exch2_mydnx(71)=32
5720 exch2_mydny(71)=32
5721 exch2_nNeighbours(71)=4
5722
5723 exch2_neighbourId(1,71)=75
5724 exch2_pi(1,1,71)=1
5725 exch2_pi(2,1,71)=0
5726 exch2_pj(1,1,71)=0
5727 exch2_pj(2,1,71)=1
5728 exch2_oi(1,71)=0
5729 exch2_oi_f(1,71)=0
5730 exch2_oj(1,71)=0
5731 exch2_oj_f(1,71)=0
5732 exch2_itlo_c(1,71)=0
5733 exch2_ithi_c(1,71)=9
5734 exch2_jtlo_c(1,71)=0
5735 exch2_jthi_c(1,71)=0
5736 exch2_opposingSend_record(1,71)=2
5737
5738 exch2_neighbourId(2,71)=67
5739 exch2_pi(1,2,71)=1
5740 exch2_pi(2,2,71)=0
5741 exch2_pj(1,2,71)=0
5742 exch2_pj(2,2,71)=1
5743 exch2_oi(2,71)=0
5744 exch2_oi_f(2,71)=0
5745 exch2_oj(2,71)=0
5746 exch2_oj_f(2,71)=0
5747 exch2_itlo_c(2,71)=1
5748 exch2_ithi_c(2,71)=8
5749 exch2_jtlo_c(2,71)=9
5750 exch2_jthi_c(2,71)=9
5751 exch2_opposingSend_record(2,71)=1
5752
5753 exch2_neighbourId(3,71)=72
5754 exch2_pi(1,3,71)=1
5755 exch2_pi(2,3,71)=0
5756 exch2_pj(1,3,71)=0
5757 exch2_pj(2,3,71)=1
5758 exch2_oi(3,71)=0
5759 exch2_oi_f(3,71)=0
5760 exch2_oj(3,71)=0
5761 exch2_oj_f(3,71)=0
5762 exch2_itlo_c(3,71)=0
5763 exch2_ithi_c(3,71)=0
5764 exch2_jtlo_c(3,71)=0
5765 exch2_jthi_c(3,71)=9
5766 exch2_opposingSend_record(3,71)=4
5767
5768 exch2_neighbourId(4,71)=70
5769 exch2_pi(1,4,71)=1
5770 exch2_pi(2,4,71)=0
5771 exch2_pj(1,4,71)=0
5772 exch2_pj(2,4,71)=1
5773 exch2_oi(4,71)=0
5774 exch2_oi_f(4,71)=0
5775 exch2_oj(4,71)=0
5776 exch2_oj_f(4,71)=0
5777 exch2_itlo_c(4,71)=9
5778 exch2_ithi_c(4,71)=9
5779 exch2_jtlo_c(4,71)=0
5780 exch2_jthi_c(4,71)=9
5781 exch2_opposingSend_record(4,71)=3
5782 RETURN
5783 END
5784
5785 SUBROUTINE W2_E2SETUP_72
5786 C Topology for tile 72
5787 #include "W2_EXCH2_TOPOLOGY.h"
5788 exch2_tnx(72)=8
5789 exch2_tny(72)=8
5790 exch2_tbasex(72)=24
5791 exch2_tbasey(72)=8
5792 exch2_txglobalo(72)=153
5793 exch2_tyglobalo(72)=9
5794 exch2_isWedge(72)=0
5795 exch2_isNedge(72)=0
5796 exch2_isEedge(72)=1
5797 exch2_isSedge(72)=0
5798 exch2_myFace(72)=5
5799 exch2_mydnx(72)=32
5800 exch2_mydny(72)=32
5801 exch2_nNeighbours(72)=4
5802
5803 exch2_neighbourId(1,72)=76
5804 exch2_pi(1,1,72)=1
5805 exch2_pi(2,1,72)=0
5806 exch2_pj(1,1,72)=0
5807 exch2_pj(2,1,72)=1
5808 exch2_oi(1,72)=0
5809 exch2_oi_f(1,72)=0
5810 exch2_oj(1,72)=0
5811 exch2_oj_f(1,72)=0
5812 exch2_itlo_c(1,72)=0
5813 exch2_ithi_c(1,72)=9
5814 exch2_jtlo_c(1,72)=0
5815 exch2_jthi_c(1,72)=0
5816 exch2_opposingSend_record(1,72)=2
5817
5818 exch2_neighbourId(2,72)=68
5819 exch2_pi(1,2,72)=1
5820 exch2_pi(2,2,72)=0
5821 exch2_pj(1,2,72)=0
5822 exch2_pj(2,2,72)=1
5823 exch2_oi(2,72)=0
5824 exch2_oi_f(2,72)=0
5825 exch2_oj(2,72)=0
5826 exch2_oj_f(2,72)=0
5827 exch2_itlo_c(2,72)=1
5828 exch2_ithi_c(2,72)=8
5829 exch2_jtlo_c(2,72)=9
5830 exch2_jthi_c(2,72)=9
5831 exch2_opposingSend_record(2,72)=1
5832
5833 exch2_neighbourId(3,72)=85
5834 exch2_pi(1,3,72)=1
5835 exch2_pi(2,3,72)=0
5836 exch2_pj(1,3,72)=0
5837 exch2_pj(2,3,72)=1
5838 exch2_oi(3,72)=32
5839 exch2_oi_f(3,72)=32
5840 exch2_oj(3,72)=0
5841 exch2_oj_f(3,72)=0
5842 exch2_itlo_c(3,72)=0
5843 exch2_ithi_c(3,72)=0
5844 exch2_jtlo_c(3,72)=0
5845 exch2_jthi_c(3,72)=9
5846 exch2_opposingSend_record(3,72)=4
5847
5848 exch2_neighbourId(4,72)=71
5849 exch2_pi(1,4,72)=1
5850 exch2_pi(2,4,72)=0
5851 exch2_pj(1,4,72)=0
5852 exch2_pj(2,4,72)=1
5853 exch2_oi(4,72)=0
5854 exch2_oi_f(4,72)=0
5855 exch2_oj(4,72)=0
5856 exch2_oj_f(4,72)=0
5857 exch2_itlo_c(4,72)=9
5858 exch2_ithi_c(4,72)=9
5859 exch2_jtlo_c(4,72)=0
5860 exch2_jthi_c(4,72)=9
5861 exch2_opposingSend_record(4,72)=3
5862 RETURN
5863 END
5864
5865 SUBROUTINE W2_E2SETUP_73
5866 C Topology for tile 73
5867 #include "W2_EXCH2_TOPOLOGY.h"
5868 exch2_tnx(73)=8
5869 exch2_tny(73)=8
5870 exch2_tbasex(73)=0
5871 exch2_tbasey(73)=16
5872 exch2_txglobalo(73)=129
5873 exch2_tyglobalo(73)=17
5874 exch2_isWedge(73)=1
5875 exch2_isNedge(73)=0
5876 exch2_isEedge(73)=0
5877 exch2_isSedge(73)=0
5878 exch2_myFace(73)=5
5879 exch2_mydnx(73)=32
5880 exch2_mydny(73)=32
5881 exch2_nNeighbours(73)=4
5882
5883 exch2_neighbourId(1,73)=77
5884 exch2_pi(1,1,73)=1
5885 exch2_pi(2,1,73)=0
5886 exch2_pj(1,1,73)=0
5887 exch2_pj(2,1,73)=1
5888 exch2_oi(1,73)=0
5889 exch2_oi_f(1,73)=0
5890 exch2_oj(1,73)=0
5891 exch2_oj_f(1,73)=0
5892 exch2_itlo_c(1,73)=0
5893 exch2_ithi_c(1,73)=9
5894 exch2_jtlo_c(1,73)=0
5895 exch2_jthi_c(1,73)=0
5896 exch2_opposingSend_record(1,73)=2
5897
5898 exch2_neighbourId(2,73)=69
5899 exch2_pi(1,2,73)=1
5900 exch2_pi(2,2,73)=0
5901 exch2_pj(1,2,73)=0
5902 exch2_pj(2,2,73)=1
5903 exch2_oi(2,73)=0
5904 exch2_oi_f(2,73)=0
5905 exch2_oj(2,73)=0
5906 exch2_oj_f(2,73)=0
5907 exch2_itlo_c(2,73)=1
5908 exch2_ithi_c(2,73)=8
5909 exch2_jtlo_c(2,73)=9
5910 exch2_jthi_c(2,73)=9
5911 exch2_opposingSend_record(2,73)=1
5912
5913 exch2_neighbourId(3,73)=74
5914 exch2_pi(1,3,73)=1
5915 exch2_pi(2,3,73)=0
5916 exch2_pj(1,3,73)=0
5917 exch2_pj(2,3,73)=1
5918 exch2_oi(3,73)=0
5919 exch2_oi_f(3,73)=0
5920 exch2_oj(3,73)=0
5921 exch2_oj_f(3,73)=0
5922 exch2_itlo_c(3,73)=0
5923 exch2_ithi_c(3,73)=0
5924 exch2_jtlo_c(3,73)=0
5925 exch2_jthi_c(3,73)=9
5926 exch2_opposingSend_record(3,73)=4
5927
5928 exch2_neighbourId(4,73)=46
5929 exch2_pi(1,4,73)=0
5930 exch2_pi(2,4,73)=1
5931 exch2_pj(1,4,73)=-1
5932 exch2_pj(2,4,73)=0
5933 exch2_oi(4,73)=-32
5934 exch2_oi_f(4,73)=-32
5935 exch2_oj(4,73)=33
5936 exch2_oj_f(4,73)=34
5937 exch2_itlo_c(4,73)=0
5938 exch2_ithi_c(4,73)=9
5939 exch2_jtlo_c(4,73)=9
5940 exch2_jthi_c(4,73)=9
5941 exch2_opposingSend_record(4,73)=1
5942 RETURN
5943 END
5944
5945 SUBROUTINE W2_E2SETUP_74
5946 C Topology for tile 74
5947 #include "W2_EXCH2_TOPOLOGY.h"
5948 exch2_tnx(74)=8
5949 exch2_tny(74)=8
5950 exch2_tbasex(74)=8
5951 exch2_tbasey(74)=16
5952 exch2_txglobalo(74)=137
5953 exch2_tyglobalo(74)=17
5954 exch2_isWedge(74)=0
5955 exch2_isNedge(74)=0
5956 exch2_isEedge(74)=0
5957 exch2_isSedge(74)=0
5958 exch2_myFace(74)=5
5959 exch2_mydnx(74)=32
5960 exch2_mydny(74)=32
5961 exch2_nNeighbours(74)=4
5962
5963 exch2_neighbourId(1,74)=78
5964 exch2_pi(1,1,74)=1
5965 exch2_pi(2,1,74)=0
5966 exch2_pj(1,1,74)=0
5967 exch2_pj(2,1,74)=1
5968 exch2_oi(1,74)=0
5969 exch2_oi_f(1,74)=0
5970 exch2_oj(1,74)=0
5971 exch2_oj_f(1,74)=0
5972 exch2_itlo_c(1,74)=0
5973 exch2_ithi_c(1,74)=9
5974 exch2_jtlo_c(1,74)=0
5975 exch2_jthi_c(1,74)=0
5976 exch2_opposingSend_record(1,74)=2
5977
5978 exch2_neighbourId(2,74)=70
5979 exch2_pi(1,2,74)=1
5980 exch2_pi(2,2,74)=0
5981 exch2_pj(1,2,74)=0
5982 exch2_pj(2,2,74)=1
5983 exch2_oi(2,74)=0
5984 exch2_oi_f(2,74)=0
5985 exch2_oj(2,74)=0
5986 exch2_oj_f(2,74)=0
5987 exch2_itlo_c(2,74)=1
5988 exch2_ithi_c(2,74)=8
5989 exch2_jtlo_c(2,74)=9
5990 exch2_jthi_c(2,74)=9
5991 exch2_opposingSend_record(2,74)=1
5992
5993 exch2_neighbourId(3,74)=75
5994 exch2_pi(1,3,74)=1
5995 exch2_pi(2,3,74)=0
5996 exch2_pj(1,3,74)=0
5997 exch2_pj(2,3,74)=1
5998 exch2_oi(3,74)=0
5999 exch2_oi_f(3,74)=0
6000 exch2_oj(3,74)=0
6001 exch2_oj_f(3,74)=0
6002 exch2_itlo_c(3,74)=0
6003 exch2_ithi_c(3,74)=0
6004 exch2_jtlo_c(3,74)=0
6005 exch2_jthi_c(3,74)=9
6006 exch2_opposingSend_record(3,74)=4
6007
6008 exch2_neighbourId(4,74)=73
6009 exch2_pi(1,4,74)=1
6010 exch2_pi(2,4,74)=0
6011 exch2_pj(1,4,74)=0
6012 exch2_pj(2,4,74)=1
6013 exch2_oi(4,74)=0
6014 exch2_oi_f(4,74)=0
6015 exch2_oj(4,74)=0
6016 exch2_oj_f(4,74)=0
6017 exch2_itlo_c(4,74)=9
6018 exch2_ithi_c(4,74)=9
6019 exch2_jtlo_c(4,74)=0
6020 exch2_jthi_c(4,74)=9
6021 exch2_opposingSend_record(4,74)=3
6022 RETURN
6023 END
6024
6025 SUBROUTINE W2_E2SETUP_75
6026 C Topology for tile 75
6027 #include "W2_EXCH2_TOPOLOGY.h"
6028 exch2_tnx(75)=8
6029 exch2_tny(75)=8
6030 exch2_tbasex(75)=16
6031 exch2_tbasey(75)=16
6032 exch2_txglobalo(75)=145
6033 exch2_tyglobalo(75)=17
6034 exch2_isWedge(75)=0
6035 exch2_isNedge(75)=0
6036 exch2_isEedge(75)=0
6037 exch2_isSedge(75)=0
6038 exch2_myFace(75)=5
6039 exch2_mydnx(75)=32
6040 exch2_mydny(75)=32
6041 exch2_nNeighbours(75)=4
6042
6043 exch2_neighbourId(1,75)=79
6044 exch2_pi(1,1,75)=1
6045 exch2_pi(2,1,75)=0
6046 exch2_pj(1,1,75)=0
6047 exch2_pj(2,1,75)=1
6048 exch2_oi(1,75)=0
6049 exch2_oi_f(1,75)=0
6050 exch2_oj(1,75)=0
6051 exch2_oj_f(1,75)=0
6052 exch2_itlo_c(1,75)=0
6053 exch2_ithi_c(1,75)=9
6054 exch2_jtlo_c(1,75)=0
6055 exch2_jthi_c(1,75)=0
6056 exch2_opposingSend_record(1,75)=2
6057
6058 exch2_neighbourId(2,75)=71
6059 exch2_pi(1,2,75)=1
6060 exch2_pi(2,2,75)=0
6061 exch2_pj(1,2,75)=0
6062 exch2_pj(2,2,75)=1
6063 exch2_oi(2,75)=0
6064 exch2_oi_f(2,75)=0
6065 exch2_oj(2,75)=0
6066 exch2_oj_f(2,75)=0
6067 exch2_itlo_c(2,75)=1
6068 exch2_ithi_c(2,75)=8
6069 exch2_jtlo_c(2,75)=9
6070 exch2_jthi_c(2,75)=9
6071 exch2_opposingSend_record(2,75)=1
6072
6073 exch2_neighbourId(3,75)=76
6074 exch2_pi(1,3,75)=1
6075 exch2_pi(2,3,75)=0
6076 exch2_pj(1,3,75)=0
6077 exch2_pj(2,3,75)=1
6078 exch2_oi(3,75)=0
6079 exch2_oi_f(3,75)=0
6080 exch2_oj(3,75)=0
6081 exch2_oj_f(3,75)=0
6082 exch2_itlo_c(3,75)=0
6083 exch2_ithi_c(3,75)=0
6084 exch2_jtlo_c(3,75)=0
6085 exch2_jthi_c(3,75)=9
6086 exch2_opposingSend_record(3,75)=4
6087
6088 exch2_neighbourId(4,75)=74
6089 exch2_pi(1,4,75)=1
6090 exch2_pi(2,4,75)=0
6091 exch2_pj(1,4,75)=0
6092 exch2_pj(2,4,75)=1
6093 exch2_oi(4,75)=0
6094 exch2_oi_f(4,75)=0
6095 exch2_oj(4,75)=0
6096 exch2_oj_f(4,75)=0
6097 exch2_itlo_c(4,75)=9
6098 exch2_ithi_c(4,75)=9
6099 exch2_jtlo_c(4,75)=0
6100 exch2_jthi_c(4,75)=9
6101 exch2_opposingSend_record(4,75)=3
6102 RETURN
6103 END
6104
6105 SUBROUTINE W2_E2SETUP_76
6106 C Topology for tile 76
6107 #include "W2_EXCH2_TOPOLOGY.h"
6108 exch2_tnx(76)=8
6109 exch2_tny(76)=8
6110 exch2_tbasex(76)=24
6111 exch2_tbasey(76)=16
6112 exch2_txglobalo(76)=153
6113 exch2_tyglobalo(76)=17
6114 exch2_isWedge(76)=0
6115 exch2_isNedge(76)=0
6116 exch2_isEedge(76)=1
6117 exch2_isSedge(76)=0
6118 exch2_myFace(76)=5
6119 exch2_mydnx(76)=32
6120 exch2_mydny(76)=32
6121 exch2_nNeighbours(76)=4
6122
6123 exch2_neighbourId(1,76)=80
6124 exch2_pi(1,1,76)=1
6125 exch2_pi(2,1,76)=0
6126 exch2_pj(1,1,76)=0
6127 exch2_pj(2,1,76)=1
6128 exch2_oi(1,76)=0
6129 exch2_oi_f(1,76)=0
6130 exch2_oj(1,76)=0
6131 exch2_oj_f(1,76)=0
6132 exch2_itlo_c(1,76)=0
6133 exch2_ithi_c(1,76)=9
6134 exch2_jtlo_c(1,76)=0
6135 exch2_jthi_c(1,76)=0
6136 exch2_opposingSend_record(1,76)=2
6137
6138 exch2_neighbourId(2,76)=72
6139 exch2_pi(1,2,76)=1
6140 exch2_pi(2,2,76)=0
6141 exch2_pj(1,2,76)=0
6142 exch2_pj(2,2,76)=1
6143 exch2_oi(2,76)=0
6144 exch2_oi_f(2,76)=0
6145 exch2_oj(2,76)=0
6146 exch2_oj_f(2,76)=0
6147 exch2_itlo_c(2,76)=1
6148 exch2_ithi_c(2,76)=8
6149 exch2_jtlo_c(2,76)=9
6150 exch2_jthi_c(2,76)=9
6151 exch2_opposingSend_record(2,76)=1
6152
6153 exch2_neighbourId(3,76)=89
6154 exch2_pi(1,3,76)=1
6155 exch2_pi(2,3,76)=0
6156 exch2_pj(1,3,76)=0
6157 exch2_pj(2,3,76)=1
6158 exch2_oi(3,76)=32
6159 exch2_oi_f(3,76)=32
6160 exch2_oj(3,76)=0
6161 exch2_oj_f(3,76)=0
6162 exch2_itlo_c(3,76)=0
6163 exch2_ithi_c(3,76)=0
6164 exch2_jtlo_c(3,76)=0
6165 exch2_jthi_c(3,76)=9
6166 exch2_opposingSend_record(3,76)=4
6167
6168 exch2_neighbourId(4,76)=75
6169 exch2_pi(1,4,76)=1
6170 exch2_pi(2,4,76)=0
6171 exch2_pj(1,4,76)=0
6172 exch2_pj(2,4,76)=1
6173 exch2_oi(4,76)=0
6174 exch2_oi_f(4,76)=0
6175 exch2_oj(4,76)=0
6176 exch2_oj_f(4,76)=0
6177 exch2_itlo_c(4,76)=9
6178 exch2_ithi_c(4,76)=9
6179 exch2_jtlo_c(4,76)=0
6180 exch2_jthi_c(4,76)=9
6181 exch2_opposingSend_record(4,76)=3
6182 RETURN
6183 END
6184
6185 SUBROUTINE W2_E2SETUP_77
6186 C Topology for tile 77
6187 #include "W2_EXCH2_TOPOLOGY.h"
6188 exch2_tnx(77)=8
6189 exch2_tny(77)=8
6190 exch2_tbasex(77)=0
6191 exch2_tbasey(77)=24
6192 exch2_txglobalo(77)=129
6193 exch2_tyglobalo(77)=25
6194 exch2_isWedge(77)=1
6195 exch2_isNedge(77)=1
6196 exch2_isEedge(77)=0
6197 exch2_isSedge(77)=0
6198 exch2_myFace(77)=5
6199 exch2_mydnx(77)=32
6200 exch2_mydny(77)=32
6201 exch2_nNeighbours(77)=4
6202
6203 exch2_neighbourId(1,77)=13
6204 exch2_pi(1,1,77)=0
6205 exch2_pi(2,1,77)=-1
6206 exch2_pj(1,1,77)=1
6207 exch2_pj(2,1,77)=0
6208 exch2_oi(1,77)=33
6209 exch2_oi_f(1,77)=34
6210 exch2_oj(1,77)=32
6211 exch2_oj_f(1,77)=32
6212 exch2_itlo_c(1,77)=0
6213 exch2_ithi_c(1,77)=0
6214 exch2_jtlo_c(1,77)=0
6215 exch2_jthi_c(1,77)=9
6216 exch2_opposingSend_record(1,77)=4
6217
6218 exch2_neighbourId(2,77)=73
6219 exch2_pi(1,2,77)=1
6220 exch2_pi(2,2,77)=0
6221 exch2_pj(1,2,77)=0
6222 exch2_pj(2,2,77)=1
6223 exch2_oi(2,77)=0
6224 exch2_oi_f(2,77)=0
6225 exch2_oj(2,77)=0
6226 exch2_oj_f(2,77)=0
6227 exch2_itlo_c(2,77)=1
6228 exch2_ithi_c(2,77)=8
6229 exch2_jtlo_c(2,77)=9
6230 exch2_jthi_c(2,77)=9
6231 exch2_opposingSend_record(2,77)=1
6232
6233 exch2_neighbourId(3,77)=78
6234 exch2_pi(1,3,77)=1
6235 exch2_pi(2,3,77)=0
6236 exch2_pj(1,3,77)=0
6237 exch2_pj(2,3,77)=1
6238 exch2_oi(3,77)=0
6239 exch2_oi_f(3,77)=0
6240 exch2_oj(3,77)=0
6241 exch2_oj_f(3,77)=0
6242 exch2_itlo_c(3,77)=0
6243 exch2_ithi_c(3,77)=0
6244 exch2_jtlo_c(3,77)=0
6245 exch2_jthi_c(3,77)=9
6246 exch2_opposingSend_record(3,77)=4
6247
6248 exch2_neighbourId(4,77)=45
6249 exch2_pi(1,4,77)=0
6250 exch2_pi(2,4,77)=1
6251 exch2_pj(1,4,77)=-1
6252 exch2_pj(2,4,77)=0
6253 exch2_oi(4,77)=-32
6254 exch2_oi_f(4,77)=-32
6255 exch2_oj(4,77)=33
6256 exch2_oj_f(4,77)=34
6257 exch2_itlo_c(4,77)=0
6258 exch2_ithi_c(4,77)=9
6259 exch2_jtlo_c(4,77)=9
6260 exch2_jthi_c(4,77)=9
6261 exch2_opposingSend_record(4,77)=1
6262 RETURN
6263 END
6264
6265 SUBROUTINE W2_E2SETUP_78
6266 C Topology for tile 78
6267 #include "W2_EXCH2_TOPOLOGY.h"
6268 exch2_tnx(78)=8
6269 exch2_tny(78)=8
6270 exch2_tbasex(78)=8
6271 exch2_tbasey(78)=24
6272 exch2_txglobalo(78)=137
6273 exch2_tyglobalo(78)=25
6274 exch2_isWedge(78)=0
6275 exch2_isNedge(78)=1
6276 exch2_isEedge(78)=0
6277 exch2_isSedge(78)=0
6278 exch2_myFace(78)=5
6279 exch2_mydnx(78)=32
6280 exch2_mydny(78)=32
6281 exch2_nNeighbours(78)=4
6282
6283 exch2_neighbourId(1,78)=9
6284 exch2_pi(1,1,78)=0
6285 exch2_pi(2,1,78)=-1
6286 exch2_pj(1,1,78)=1
6287 exch2_pj(2,1,78)=0
6288 exch2_oi(1,78)=33
6289 exch2_oi_f(1,78)=34
6290 exch2_oj(1,78)=32
6291 exch2_oj_f(1,78)=32
6292 exch2_itlo_c(1,78)=0
6293 exch2_ithi_c(1,78)=0
6294 exch2_jtlo_c(1,78)=0
6295 exch2_jthi_c(1,78)=9
6296 exch2_opposingSend_record(1,78)=4
6297
6298 exch2_neighbourId(2,78)=74
6299 exch2_pi(1,2,78)=1
6300 exch2_pi(2,2,78)=0
6301 exch2_pj(1,2,78)=0
6302 exch2_pj(2,2,78)=1
6303 exch2_oi(2,78)=0
6304 exch2_oi_f(2,78)=0
6305 exch2_oj(2,78)=0
6306 exch2_oj_f(2,78)=0
6307 exch2_itlo_c(2,78)=1
6308 exch2_ithi_c(2,78)=8
6309 exch2_jtlo_c(2,78)=9
6310 exch2_jthi_c(2,78)=9
6311 exch2_opposingSend_record(2,78)=1
6312
6313 exch2_neighbourId(3,78)=79
6314 exch2_pi(1,3,78)=1
6315 exch2_pi(2,3,78)=0
6316 exch2_pj(1,3,78)=0
6317 exch2_pj(2,3,78)=1
6318 exch2_oi(3,78)=0
6319 exch2_oi_f(3,78)=0
6320 exch2_oj(3,78)=0
6321 exch2_oj_f(3,78)=0
6322 exch2_itlo_c(3,78)=0
6323 exch2_ithi_c(3,78)=0
6324 exch2_jtlo_c(3,78)=0
6325 exch2_jthi_c(3,78)=9
6326 exch2_opposingSend_record(3,78)=4
6327
6328 exch2_neighbourId(4,78)=77
6329 exch2_pi(1,4,78)=1
6330 exch2_pi(2,4,78)=0
6331 exch2_pj(1,4,78)=0
6332 exch2_pj(2,4,78)=1
6333 exch2_oi(4,78)=0
6334 exch2_oi_f(4,78)=0
6335 exch2_oj(4,78)=0
6336 exch2_oj_f(4,78)=0
6337 exch2_itlo_c(4,78)=9
6338 exch2_ithi_c(4,78)=9
6339 exch2_jtlo_c(4,78)=0
6340 exch2_jthi_c(4,78)=9
6341 exch2_opposingSend_record(4,78)=3
6342 RETURN
6343 END
6344
6345 SUBROUTINE W2_E2SETUP_79
6346 C Topology for tile 79
6347 #include "W2_EXCH2_TOPOLOGY.h"
6348 exch2_tnx(79)=8
6349 exch2_tny(79)=8
6350 exch2_tbasex(79)=16
6351 exch2_tbasey(79)=24
6352 exch2_txglobalo(79)=145
6353 exch2_tyglobalo(79)=25
6354 exch2_isWedge(79)=0
6355 exch2_isNedge(79)=1
6356 exch2_isEedge(79)=0
6357 exch2_isSedge(79)=0
6358 exch2_myFace(79)=5
6359 exch2_mydnx(79)=32
6360 exch2_mydny(79)=32
6361 exch2_nNeighbours(79)=4
6362
6363 exch2_neighbourId(1,79)=5
6364 exch2_pi(1,1,79)=0
6365 exch2_pi(2,1,79)=-1
6366 exch2_pj(1,1,79)=1
6367 exch2_pj(2,1,79)=0
6368 exch2_oi(1,79)=33
6369 exch2_oi_f(1,79)=34
6370 exch2_oj(1,79)=32
6371 exch2_oj_f(1,79)=32
6372 exch2_itlo_c(1,79)=0
6373 exch2_ithi_c(1,79)=0
6374 exch2_jtlo_c(1,79)=0
6375 exch2_jthi_c(1,79)=9
6376 exch2_opposingSend_record(1,79)=4
6377
6378 exch2_neighbourId(2,79)=75
6379 exch2_pi(1,2,79)=1
6380 exch2_pi(2,2,79)=0
6381 exch2_pj(1,2,79)=0
6382 exch2_pj(2,2,79)=1
6383 exch2_oi(2,79)=0
6384 exch2_oi_f(2,79)=0
6385 exch2_oj(2,79)=0
6386 exch2_oj_f(2,79)=0
6387 exch2_itlo_c(2,79)=1
6388 exch2_ithi_c(2,79)=8
6389 exch2_jtlo_c(2,79)=9
6390 exch2_jthi_c(2,79)=9
6391 exch2_opposingSend_record(2,79)=1
6392
6393 exch2_neighbourId(3,79)=80
6394 exch2_pi(1,3,79)=1
6395 exch2_pi(2,3,79)=0
6396 exch2_pj(1,3,79)=0
6397 exch2_pj(2,3,79)=1
6398 exch2_oi(3,79)=0
6399 exch2_oi_f(3,79)=0
6400 exch2_oj(3,79)=0
6401 exch2_oj_f(3,79)=0
6402 exch2_itlo_c(3,79)=0
6403 exch2_ithi_c(3,79)=0
6404 exch2_jtlo_c(3,79)=0
6405 exch2_jthi_c(3,79)=9
6406 exch2_opposingSend_record(3,79)=4
6407
6408 exch2_neighbourId(4,79)=78
6409 exch2_pi(1,4,79)=1
6410 exch2_pi(2,4,79)=0
6411 exch2_pj(1,4,79)=0
6412 exch2_pj(2,4,79)=1
6413 exch2_oi(4,79)=0
6414 exch2_oi_f(4,79)=0
6415 exch2_oj(4,79)=0
6416 exch2_oj_f(4,79)=0
6417 exch2_itlo_c(4,79)=9
6418 exch2_ithi_c(4,79)=9
6419 exch2_jtlo_c(4,79)=0
6420 exch2_jthi_c(4,79)=9
6421 exch2_opposingSend_record(4,79)=3
6422 RETURN
6423 END
6424
6425 SUBROUTINE W2_E2SETUP_80
6426 C Topology for tile 80
6427 #include "W2_EXCH2_TOPOLOGY.h"
6428 exch2_tnx(80)=8
6429 exch2_tny(80)=8
6430 exch2_tbasex(80)=24
6431 exch2_tbasey(80)=24
6432 exch2_txglobalo(80)=153
6433 exch2_tyglobalo(80)=25
6434 exch2_isWedge(80)=0
6435 exch2_isNedge(80)=1
6436 exch2_isEedge(80)=1
6437 exch2_isSedge(80)=0
6438 exch2_myFace(80)=5
6439 exch2_mydnx(80)=32
6440 exch2_mydny(80)=32
6441 exch2_nNeighbours(80)=4
6442
6443 exch2_neighbourId(1,80)=1
6444 exch2_pi(1,1,80)=0
6445 exch2_pi(2,1,80)=-1
6446 exch2_pj(1,1,80)=1
6447 exch2_pj(2,1,80)=0
6448 exch2_oi(1,80)=33
6449 exch2_oi_f(1,80)=34
6450 exch2_oj(1,80)=32
6451 exch2_oj_f(1,80)=32
6452 exch2_itlo_c(1,80)=0
6453 exch2_ithi_c(1,80)=0
6454 exch2_jtlo_c(1,80)=0
6455 exch2_jthi_c(1,80)=9
6456 exch2_opposingSend_record(1,80)=4
6457
6458 exch2_neighbourId(2,80)=76
6459 exch2_pi(1,2,80)=1
6460 exch2_pi(2,2,80)=0
6461 exch2_pj(1,2,80)=0
6462 exch2_pj(2,2,80)=1
6463 exch2_oi(2,80)=0
6464 exch2_oi_f(2,80)=0
6465 exch2_oj(2,80)=0
6466 exch2_oj_f(2,80)=0
6467 exch2_itlo_c(2,80)=1
6468 exch2_ithi_c(2,80)=8
6469 exch2_jtlo_c(2,80)=9
6470 exch2_jthi_c(2,80)=9
6471 exch2_opposingSend_record(2,80)=1
6472
6473 exch2_neighbourId(3,80)=93
6474 exch2_pi(1,3,80)=1
6475 exch2_pi(2,3,80)=0
6476 exch2_pj(1,3,80)=0
6477 exch2_pj(2,3,80)=1
6478 exch2_oi(3,80)=32
6479 exch2_oi_f(3,80)=32
6480 exch2_oj(3,80)=0
6481 exch2_oj_f(3,80)=0
6482 exch2_itlo_c(3,80)=0
6483 exch2_ithi_c(3,80)=0
6484 exch2_jtlo_c(3,80)=0
6485 exch2_jthi_c(3,80)=9
6486 exch2_opposingSend_record(3,80)=4
6487
6488 exch2_neighbourId(4,80)=79
6489 exch2_pi(1,4,80)=1
6490 exch2_pi(2,4,80)=0
6491 exch2_pj(1,4,80)=0
6492 exch2_pj(2,4,80)=1
6493 exch2_oi(4,80)=0
6494 exch2_oi_f(4,80)=0
6495 exch2_oj(4,80)=0
6496 exch2_oj_f(4,80)=0
6497 exch2_itlo_c(4,80)=9
6498 exch2_ithi_c(4,80)=9
6499 exch2_jtlo_c(4,80)=0
6500 exch2_jthi_c(4,80)=9
6501 exch2_opposingSend_record(4,80)=3
6502 RETURN
6503 END
6504
6505 SUBROUTINE W2_E2SETUP_81
6506 C Topology for tile 81
6507 #include "W2_EXCH2_TOPOLOGY.h"
6508 exch2_tnx(81)=8
6509 exch2_tny(81)=8
6510 exch2_tbasex(81)=0
6511 exch2_tbasey(81)=0
6512 exch2_txglobalo(81)=161
6513 exch2_tyglobalo(81)=1
6514 exch2_isWedge(81)=1
6515 exch2_isNedge(81)=0
6516 exch2_isEedge(81)=0
6517 exch2_isSedge(81)=1
6518 exch2_myFace(81)=6
6519 exch2_mydnx(81)=32
6520 exch2_mydny(81)=32
6521 exch2_nNeighbours(81)=4
6522
6523 exch2_neighbourId(1,81)=85
6524 exch2_pi(1,1,81)=1
6525 exch2_pi(2,1,81)=0
6526 exch2_pj(1,1,81)=0
6527 exch2_pj(2,1,81)=1
6528 exch2_oi(1,81)=0
6529 exch2_oi_f(1,81)=0
6530 exch2_oj(1,81)=0
6531 exch2_oj_f(1,81)=0
6532 exch2_itlo_c(1,81)=0
6533 exch2_ithi_c(1,81)=9
6534 exch2_jtlo_c(1,81)=0
6535 exch2_jthi_c(1,81)=0
6536 exch2_opposingSend_record(1,81)=2
6537
6538 exch2_neighbourId(2,81)=64
6539 exch2_pi(1,2,81)=0
6540 exch2_pi(2,2,81)=-1
6541 exch2_pj(1,2,81)=1
6542 exch2_pj(2,2,81)=0
6543 exch2_oi(2,81)=33
6544 exch2_oi_f(2,81)=34
6545 exch2_oj(2,81)=-32
6546 exch2_oj_f(2,81)=-32
6547 exch2_itlo_c(2,81)=9
6548 exch2_ithi_c(2,81)=9
6549 exch2_jtlo_c(2,81)=0
6550 exch2_jthi_c(2,81)=9
6551 exch2_opposingSend_record(2,81)=3
6552
6553 exch2_neighbourId(3,81)=82
6554 exch2_pi(1,3,81)=1
6555 exch2_pi(2,3,81)=0
6556 exch2_pj(1,3,81)=0
6557 exch2_pj(2,3,81)=1
6558 exch2_oi(3,81)=0
6559 exch2_oi_f(3,81)=0
6560 exch2_oj(3,81)=0
6561 exch2_oj_f(3,81)=0
6562 exch2_itlo_c(3,81)=0
6563 exch2_ithi_c(3,81)=0
6564 exch2_jtlo_c(3,81)=0
6565 exch2_jthi_c(3,81)=9
6566 exch2_opposingSend_record(3,81)=4
6567
6568 exch2_neighbourId(4,81)=68
6569 exch2_pi(1,4,81)=1
6570 exch2_pi(2,4,81)=0
6571 exch2_pj(1,4,81)=0
6572 exch2_pj(2,4,81)=1
6573 exch2_oi(4,81)=-32
6574 exch2_oi_f(4,81)=-32
6575 exch2_oj(4,81)=0
6576 exch2_oj_f(4,81)=0
6577 exch2_itlo_c(4,81)=9
6578 exch2_ithi_c(4,81)=9
6579 exch2_jtlo_c(4,81)=0
6580 exch2_jthi_c(4,81)=9
6581 exch2_opposingSend_record(4,81)=3
6582 RETURN
6583 END
6584
6585 SUBROUTINE W2_E2SETUP_82
6586 C Topology for tile 82
6587 #include "W2_EXCH2_TOPOLOGY.h"
6588 exch2_tnx(82)=8
6589 exch2_tny(82)=8
6590 exch2_tbasex(82)=8
6591 exch2_tbasey(82)=0
6592 exch2_txglobalo(82)=169
6593 exch2_tyglobalo(82)=1
6594 exch2_isWedge(82)=0
6595 exch2_isNedge(82)=0
6596 exch2_isEedge(82)=0
6597 exch2_isSedge(82)=1
6598 exch2_myFace(82)=6
6599 exch2_mydnx(82)=32
6600 exch2_mydny(82)=32
6601 exch2_nNeighbours(82)=4
6602
6603 exch2_neighbourId(1,82)=86
6604 exch2_pi(1,1,82)=1
6605 exch2_pi(2,1,82)=0
6606 exch2_pj(1,1,82)=0
6607 exch2_pj(2,1,82)=1
6608 exch2_oi(1,82)=0
6609 exch2_oi_f(1,82)=0
6610 exch2_oj(1,82)=0
6611 exch2_oj_f(1,82)=0
6612 exch2_itlo_c(1,82)=0
6613 exch2_ithi_c(1,82)=9
6614 exch2_jtlo_c(1,82)=0
6615 exch2_jthi_c(1,82)=0
6616 exch2_opposingSend_record(1,82)=2
6617
6618 exch2_neighbourId(2,82)=60
6619 exch2_pi(1,2,82)=0
6620 exch2_pi(2,2,82)=-1
6621 exch2_pj(1,2,82)=1
6622 exch2_pj(2,2,82)=0
6623 exch2_oi(2,82)=33
6624 exch2_oi_f(2,82)=34
6625 exch2_oj(2,82)=-32
6626 exch2_oj_f(2,82)=-32
6627 exch2_itlo_c(2,82)=9
6628 exch2_ithi_c(2,82)=9
6629 exch2_jtlo_c(2,82)=0
6630 exch2_jthi_c(2,82)=9
6631 exch2_opposingSend_record(2,82)=3
6632
6633 exch2_neighbourId(3,82)=83
6634 exch2_pi(1,3,82)=1
6635 exch2_pi(2,3,82)=0
6636 exch2_pj(1,3,82)=0
6637 exch2_pj(2,3,82)=1
6638 exch2_oi(3,82)=0
6639 exch2_oi_f(3,82)=0
6640 exch2_oj(3,82)=0
6641 exch2_oj_f(3,82)=0
6642 exch2_itlo_c(3,82)=0
6643 exch2_ithi_c(3,82)=0
6644 exch2_jtlo_c(3,82)=0
6645 exch2_jthi_c(3,82)=9
6646 exch2_opposingSend_record(3,82)=4
6647
6648 exch2_neighbourId(4,82)=81
6649 exch2_pi(1,4,82)=1
6650 exch2_pi(2,4,82)=0
6651 exch2_pj(1,4,82)=0
6652 exch2_pj(2,4,82)=1
6653 exch2_oi(4,82)=0
6654 exch2_oi_f(4,82)=0
6655 exch2_oj(4,82)=0
6656 exch2_oj_f(4,82)=0
6657 exch2_itlo_c(4,82)=9
6658 exch2_ithi_c(4,82)=9
6659 exch2_jtlo_c(4,82)=0
6660 exch2_jthi_c(4,82)=9
6661 exch2_opposingSend_record(4,82)=3
6662 RETURN
6663 END
6664
6665 SUBROUTINE W2_E2SETUP_83
6666 C Topology for tile 83
6667 #include "W2_EXCH2_TOPOLOGY.h"
6668 exch2_tnx(83)=8
6669 exch2_tny(83)=8
6670 exch2_tbasex(83)=16
6671 exch2_tbasey(83)=0
6672 exch2_txglobalo(83)=177
6673 exch2_tyglobalo(83)=1
6674 exch2_isWedge(83)=0
6675 exch2_isNedge(83)=0
6676 exch2_isEedge(83)=0
6677 exch2_isSedge(83)=1
6678 exch2_myFace(83)=6
6679 exch2_mydnx(83)=32
6680 exch2_mydny(83)=32
6681 exch2_nNeighbours(83)=4
6682
6683 exch2_neighbourId(1,83)=87
6684 exch2_pi(1,1,83)=1
6685 exch2_pi(2,1,83)=0
6686 exch2_pj(1,1,83)=0
6687 exch2_pj(2,1,83)=1
6688 exch2_oi(1,83)=0
6689 exch2_oi_f(1,83)=0
6690 exch2_oj(1,83)=0
6691 exch2_oj_f(1,83)=0
6692 exch2_itlo_c(1,83)=0
6693 exch2_ithi_c(1,83)=9
6694 exch2_jtlo_c(1,83)=0
6695 exch2_jthi_c(1,83)=0
6696 exch2_opposingSend_record(1,83)=2
6697
6698 exch2_neighbourId(2,83)=56
6699 exch2_pi(1,2,83)=0
6700 exch2_pi(2,2,83)=-1
6701 exch2_pj(1,2,83)=1
6702 exch2_pj(2,2,83)=0
6703 exch2_oi(2,83)=33
6704 exch2_oi_f(2,83)=34
6705 exch2_oj(2,83)=-32
6706 exch2_oj_f(2,83)=-32
6707 exch2_itlo_c(2,83)=9
6708 exch2_ithi_c(2,83)=9
6709 exch2_jtlo_c(2,83)=0
6710 exch2_jthi_c(2,83)=9
6711 exch2_opposingSend_record(2,83)=3
6712
6713 exch2_neighbourId(3,83)=84
6714 exch2_pi(1,3,83)=1
6715 exch2_pi(2,3,83)=0
6716 exch2_pj(1,3,83)=0
6717 exch2_pj(2,3,83)=1
6718 exch2_oi(3,83)=0
6719 exch2_oi_f(3,83)=0
6720 exch2_oj(3,83)=0
6721 exch2_oj_f(3,83)=0
6722 exch2_itlo_c(3,83)=0
6723 exch2_ithi_c(3,83)=0
6724 exch2_jtlo_c(3,83)=0
6725 exch2_jthi_c(3,83)=9
6726 exch2_opposingSend_record(3,83)=4
6727
6728 exch2_neighbourId(4,83)=82
6729 exch2_pi(1,4,83)=1
6730 exch2_pi(2,4,83)=0
6731 exch2_pj(1,4,83)=0
6732 exch2_pj(2,4,83)=1
6733 exch2_oi(4,83)=0
6734 exch2_oi_f(4,83)=0
6735 exch2_oj(4,83)=0
6736 exch2_oj_f(4,83)=0
6737 exch2_itlo_c(4,83)=9
6738 exch2_ithi_c(4,83)=9
6739 exch2_jtlo_c(4,83)=0
6740 exch2_jthi_c(4,83)=9
6741 exch2_opposingSend_record(4,83)=3
6742 RETURN
6743 END
6744
6745 SUBROUTINE W2_E2SETUP_84
6746 C Topology for tile 84
6747 #include "W2_EXCH2_TOPOLOGY.h"
6748 exch2_tnx(84)=8
6749 exch2_tny(84)=8
6750 exch2_tbasex(84)=24
6751 exch2_tbasey(84)=0
6752 exch2_txglobalo(84)=185
6753 exch2_tyglobalo(84)=1
6754 exch2_isWedge(84)=0
6755 exch2_isNedge(84)=0
6756 exch2_isEedge(84)=1
6757 exch2_isSedge(84)=1
6758 exch2_myFace(84)=6
6759 exch2_mydnx(84)=32
6760 exch2_mydny(84)=32
6761 exch2_nNeighbours(84)=4
6762
6763 exch2_neighbourId(1,84)=88
6764 exch2_pi(1,1,84)=1
6765 exch2_pi(2,1,84)=0
6766 exch2_pj(1,1,84)=0
6767 exch2_pj(2,1,84)=1
6768 exch2_oi(1,84)=0
6769 exch2_oi_f(1,84)=0
6770 exch2_oj(1,84)=0
6771 exch2_oj_f(1,84)=0
6772 exch2_itlo_c(1,84)=0
6773 exch2_ithi_c(1,84)=9
6774 exch2_jtlo_c(1,84)=0
6775 exch2_jthi_c(1,84)=0
6776 exch2_opposingSend_record(1,84)=2
6777
6778 exch2_neighbourId(2,84)=52
6779 exch2_pi(1,2,84)=0
6780 exch2_pi(2,2,84)=-1
6781 exch2_pj(1,2,84)=1
6782 exch2_pj(2,2,84)=0
6783 exch2_oi(2,84)=33
6784 exch2_oi_f(2,84)=34
6785 exch2_oj(2,84)=-32
6786 exch2_oj_f(2,84)=-32
6787 exch2_itlo_c(2,84)=9
6788 exch2_ithi_c(2,84)=9
6789 exch2_jtlo_c(2,84)=0
6790 exch2_jthi_c(2,84)=9
6791 exch2_opposingSend_record(2,84)=3
6792
6793 exch2_neighbourId(3,84)=20
6794 exch2_pi(1,3,84)=0
6795 exch2_pi(2,3,84)=1
6796 exch2_pj(1,3,84)=-1
6797 exch2_pj(2,3,84)=0
6798 exch2_oi(3,84)=32
6799 exch2_oi_f(3,84)=32
6800 exch2_oj(3,84)=33
6801 exch2_oj_f(3,84)=34
6802 exch2_itlo_c(3,84)=0
6803 exch2_ithi_c(3,84)=9
6804 exch2_jtlo_c(3,84)=0
6805 exch2_jthi_c(3,84)=0
6806 exch2_opposingSend_record(3,84)=2
6807
6808 exch2_neighbourId(4,84)=83
6809 exch2_pi(1,4,84)=1
6810 exch2_pi(2,4,84)=0
6811 exch2_pj(1,4,84)=0
6812 exch2_pj(2,4,84)=1
6813 exch2_oi(4,84)=0
6814 exch2_oi_f(4,84)=0
6815 exch2_oj(4,84)=0
6816 exch2_oj_f(4,84)=0
6817 exch2_itlo_c(4,84)=9
6818 exch2_ithi_c(4,84)=9
6819 exch2_jtlo_c(4,84)=0
6820 exch2_jthi_c(4,84)=9
6821 exch2_opposingSend_record(4,84)=3
6822 RETURN
6823 END
6824
6825 SUBROUTINE W2_E2SETUP_85
6826 C Topology for tile 85
6827 #include "W2_EXCH2_TOPOLOGY.h"
6828 exch2_tnx(85)=8
6829 exch2_tny(85)=8
6830 exch2_tbasex(85)=0
6831 exch2_tbasey(85)=8
6832 exch2_txglobalo(85)=161
6833 exch2_tyglobalo(85)=9
6834 exch2_isWedge(85)=1
6835 exch2_isNedge(85)=0
6836 exch2_isEedge(85)=0
6837 exch2_isSedge(85)=0
6838 exch2_myFace(85)=6
6839 exch2_mydnx(85)=32
6840 exch2_mydny(85)=32
6841 exch2_nNeighbours(85)=4
6842
6843 exch2_neighbourId(1,85)=89
6844 exch2_pi(1,1,85)=1
6845 exch2_pi(2,1,85)=0
6846 exch2_pj(1,1,85)=0
6847 exch2_pj(2,1,85)=1
6848 exch2_oi(1,85)=0
6849 exch2_oi_f(1,85)=0
6850 exch2_oj(1,85)=0
6851 exch2_oj_f(1,85)=0
6852 exch2_itlo_c(1,85)=0
6853 exch2_ithi_c(1,85)=9
6854 exch2_jtlo_c(1,85)=0
6855 exch2_jthi_c(1,85)=0
6856 exch2_opposingSend_record(1,85)=2
6857
6858 exch2_neighbourId(2,85)=81
6859 exch2_pi(1,2,85)=1
6860 exch2_pi(2,2,85)=0
6861 exch2_pj(1,2,85)=0
6862 exch2_pj(2,2,85)=1
6863 exch2_oi(2,85)=0
6864 exch2_oi_f(2,85)=0
6865 exch2_oj(2,85)=0
6866 exch2_oj_f(2,85)=0
6867 exch2_itlo_c(2,85)=1
6868 exch2_ithi_c(2,85)=8
6869 exch2_jtlo_c(2,85)=9
6870 exch2_jthi_c(2,85)=9
6871 exch2_opposingSend_record(2,85)=1
6872
6873 exch2_neighbourId(3,85)=86
6874 exch2_pi(1,3,85)=1
6875 exch2_pi(2,3,85)=0
6876 exch2_pj(1,3,85)=0
6877 exch2_pj(2,3,85)=1
6878 exch2_oi(3,85)=0
6879 exch2_oi_f(3,85)=0
6880 exch2_oj(3,85)=0
6881 exch2_oj_f(3,85)=0
6882 exch2_itlo_c(3,85)=0
6883 exch2_ithi_c(3,85)=0
6884 exch2_jtlo_c(3,85)=0
6885 exch2_jthi_c(3,85)=9
6886 exch2_opposingSend_record(3,85)=4
6887
6888 exch2_neighbourId(4,85)=72
6889 exch2_pi(1,4,85)=1
6890 exch2_pi(2,4,85)=0
6891 exch2_pj(1,4,85)=0
6892 exch2_pj(2,4,85)=1
6893 exch2_oi(4,85)=-32
6894 exch2_oi_f(4,85)=-32
6895 exch2_oj(4,85)=0
6896 exch2_oj_f(4,85)=0
6897 exch2_itlo_c(4,85)=9
6898 exch2_ithi_c(4,85)=9
6899 exch2_jtlo_c(4,85)=0
6900 exch2_jthi_c(4,85)=9
6901 exch2_opposingSend_record(4,85)=3
6902 RETURN
6903 END
6904
6905 SUBROUTINE W2_E2SETUP_86
6906 C Topology for tile 86
6907 #include "W2_EXCH2_TOPOLOGY.h"
6908 exch2_tnx(86)=8
6909 exch2_tny(86)=8
6910 exch2_tbasex(86)=8
6911 exch2_tbasey(86)=8
6912 exch2_txglobalo(86)=169
6913 exch2_tyglobalo(86)=9
6914 exch2_isWedge(86)=0
6915 exch2_isNedge(86)=0
6916 exch2_isEedge(86)=0
6917 exch2_isSedge(86)=0
6918 exch2_myFace(86)=6
6919 exch2_mydnx(86)=32
6920 exch2_mydny(86)=32
6921 exch2_nNeighbours(86)=4
6922
6923 exch2_neighbourId(1,86)=90
6924 exch2_pi(1,1,86)=1
6925 exch2_pi(2,1,86)=0
6926 exch2_pj(1,1,86)=0
6927 exch2_pj(2,1,86)=1
6928 exch2_oi(1,86)=0
6929 exch2_oi_f(1,86)=0
6930 exch2_oj(1,86)=0
6931 exch2_oj_f(1,86)=0
6932 exch2_itlo_c(1,86)=0
6933 exch2_ithi_c(1,86)=9
6934 exch2_jtlo_c(1,86)=0
6935 exch2_jthi_c(1,86)=0
6936 exch2_opposingSend_record(1,86)=2
6937
6938 exch2_neighbourId(2,86)=82
6939 exch2_pi(1,2,86)=1
6940 exch2_pi(2,2,86)=0
6941 exch2_pj(1,2,86)=0
6942 exch2_pj(2,2,86)=1
6943 exch2_oi(2,86)=0
6944 exch2_oi_f(2,86)=0
6945 exch2_oj(2,86)=0
6946 exch2_oj_f(2,86)=0
6947 exch2_itlo_c(2,86)=1
6948 exch2_ithi_c(2,86)=8
6949 exch2_jtlo_c(2,86)=9
6950 exch2_jthi_c(2,86)=9
6951 exch2_opposingSend_record(2,86)=1
6952
6953 exch2_neighbourId(3,86)=87
6954 exch2_pi(1,3,86)=1
6955 exch2_pi(2,3,86)=0
6956 exch2_pj(1,3,86)=0
6957 exch2_pj(2,3,86)=1
6958 exch2_oi(3,86)=0
6959 exch2_oi_f(3,86)=0
6960 exch2_oj(3,86)=0
6961 exch2_oj_f(3,86)=0
6962 exch2_itlo_c(3,86)=0
6963 exch2_ithi_c(3,86)=0
6964 exch2_jtlo_c(3,86)=0
6965 exch2_jthi_c(3,86)=9
6966 exch2_opposingSend_record(3,86)=4
6967
6968 exch2_neighbourId(4,86)=85
6969 exch2_pi(1,4,86)=1
6970 exch2_pi(2,4,86)=0
6971 exch2_pj(1,4,86)=0
6972 exch2_pj(2,4,86)=1
6973 exch2_oi(4,86)=0
6974 exch2_oi_f(4,86)=0
6975 exch2_oj(4,86)=0
6976 exch2_oj_f(4,86)=0
6977 exch2_itlo_c(4,86)=9
6978 exch2_ithi_c(4,86)=9
6979 exch2_jtlo_c(4,86)=0
6980 exch2_jthi_c(4,86)=9
6981 exch2_opposingSend_record(4,86)=3
6982 RETURN
6983 END
6984
6985 SUBROUTINE W2_E2SETUP_87
6986 C Topology for tile 87
6987 #include "W2_EXCH2_TOPOLOGY.h"
6988 exch2_tnx(87)=8
6989 exch2_tny(87)=8
6990 exch2_tbasex(87)=16
6991 exch2_tbasey(87)=8
6992 exch2_txglobalo(87)=177
6993 exch2_tyglobalo(87)=9
6994 exch2_isWedge(87)=0
6995 exch2_isNedge(87)=0
6996 exch2_isEedge(87)=0
6997 exch2_isSedge(87)=0
6998 exch2_myFace(87)=6
6999 exch2_mydnx(87)=32
7000 exch2_mydny(87)=32
7001 exch2_nNeighbours(87)=4
7002
7003 exch2_neighbourId(1,87)=91
7004 exch2_pi(1,1,87)=1
7005 exch2_pi(2,1,87)=0
7006 exch2_pj(1,1,87)=0
7007 exch2_pj(2,1,87)=1
7008 exch2_oi(1,87)=0
7009 exch2_oi_f(1,87)=0
7010 exch2_oj(1,87)=0
7011 exch2_oj_f(1,87)=0
7012 exch2_itlo_c(1,87)=0
7013 exch2_ithi_c(1,87)=9
7014 exch2_jtlo_c(1,87)=0
7015 exch2_jthi_c(1,87)=0
7016 exch2_opposingSend_record(1,87)=2
7017
7018 exch2_neighbourId(2,87)=83
7019 exch2_pi(1,2,87)=1
7020 exch2_pi(2,2,87)=0
7021 exch2_pj(1,2,87)=0
7022 exch2_pj(2,2,87)=1
7023 exch2_oi(2,87)=0
7024 exch2_oi_f(2,87)=0
7025 exch2_oj(2,87)=0
7026 exch2_oj_f(2,87)=0
7027 exch2_itlo_c(2,87)=1
7028 exch2_ithi_c(2,87)=8
7029 exch2_jtlo_c(2,87)=9
7030 exch2_jthi_c(2,87)=9
7031 exch2_opposingSend_record(2,87)=1
7032
7033 exch2_neighbourId(3,87)=88
7034 exch2_pi(1,3,87)=1
7035 exch2_pi(2,3,87)=0
7036 exch2_pj(1,3,87)=0
7037 exch2_pj(2,3,87)=1
7038 exch2_oi(3,87)=0
7039 exch2_oi_f(3,87)=0
7040 exch2_oj(3,87)=0
7041 exch2_oj_f(3,87)=0
7042 exch2_itlo_c(3,87)=0
7043 exch2_ithi_c(3,87)=0
7044 exch2_jtlo_c(3,87)=0
7045 exch2_jthi_c(3,87)=9
7046 exch2_opposingSend_record(3,87)=4
7047
7048 exch2_neighbourId(4,87)=86
7049 exch2_pi(1,4,87)=1
7050 exch2_pi(2,4,87)=0
7051 exch2_pj(1,4,87)=0
7052 exch2_pj(2,4,87)=1
7053 exch2_oi(4,87)=0
7054 exch2_oi_f(4,87)=0
7055 exch2_oj(4,87)=0
7056 exch2_oj_f(4,87)=0
7057 exch2_itlo_c(4,87)=9
7058 exch2_ithi_c(4,87)=9
7059 exch2_jtlo_c(4,87)=0
7060 exch2_jthi_c(4,87)=9
7061 exch2_opposingSend_record(4,87)=3
7062 RETURN
7063 END
7064
7065 SUBROUTINE W2_E2SETUP_88
7066 C Topology for tile 88
7067 #include "W2_EXCH2_TOPOLOGY.h"
7068 exch2_tnx(88)=8
7069 exch2_tny(88)=8
7070 exch2_tbasex(88)=24
7071 exch2_tbasey(88)=8
7072 exch2_txglobalo(88)=185
7073 exch2_tyglobalo(88)=9
7074 exch2_isWedge(88)=0
7075 exch2_isNedge(88)=0
7076 exch2_isEedge(88)=1
7077 exch2_isSedge(88)=0
7078 exch2_myFace(88)=6
7079 exch2_mydnx(88)=32
7080 exch2_mydny(88)=32
7081 exch2_nNeighbours(88)=4
7082
7083 exch2_neighbourId(1,88)=92
7084 exch2_pi(1,1,88)=1
7085 exch2_pi(2,1,88)=0
7086 exch2_pj(1,1,88)=0
7087 exch2_pj(2,1,88)=1
7088 exch2_oi(1,88)=0
7089 exch2_oi_f(1,88)=0
7090 exch2_oj(1,88)=0
7091 exch2_oj_f(1,88)=0
7092 exch2_itlo_c(1,88)=0
7093 exch2_ithi_c(1,88)=9
7094 exch2_jtlo_c(1,88)=0
7095 exch2_jthi_c(1,88)=0
7096 exch2_opposingSend_record(1,88)=2
7097
7098 exch2_neighbourId(2,88)=84
7099 exch2_pi(1,2,88)=1
7100 exch2_pi(2,2,88)=0
7101 exch2_pj(1,2,88)=0
7102 exch2_pj(2,2,88)=1
7103 exch2_oi(2,88)=0
7104 exch2_oi_f(2,88)=0
7105 exch2_oj(2,88)=0
7106 exch2_oj_f(2,88)=0
7107 exch2_itlo_c(2,88)=1
7108 exch2_ithi_c(2,88)=8
7109 exch2_jtlo_c(2,88)=9
7110 exch2_jthi_c(2,88)=9
7111 exch2_opposingSend_record(2,88)=1
7112
7113 exch2_neighbourId(3,88)=19
7114 exch2_pi(1,3,88)=0
7115 exch2_pi(2,3,88)=1
7116 exch2_pj(1,3,88)=-1
7117 exch2_pj(2,3,88)=0
7118 exch2_oi(3,88)=32
7119 exch2_oi_f(3,88)=32
7120 exch2_oj(3,88)=33
7121 exch2_oj_f(3,88)=34
7122 exch2_itlo_c(3,88)=0
7123 exch2_ithi_c(3,88)=9
7124 exch2_jtlo_c(3,88)=0
7125 exch2_jthi_c(3,88)=0
7126 exch2_opposingSend_record(3,88)=2
7127
7128 exch2_neighbourId(4,88)=87
7129 exch2_pi(1,4,88)=1
7130 exch2_pi(2,4,88)=0
7131 exch2_pj(1,4,88)=0
7132 exch2_pj(2,4,88)=1
7133 exch2_oi(4,88)=0
7134 exch2_oi_f(4,88)=0
7135 exch2_oj(4,88)=0
7136 exch2_oj_f(4,88)=0
7137 exch2_itlo_c(4,88)=9
7138 exch2_ithi_c(4,88)=9
7139 exch2_jtlo_c(4,88)=0
7140 exch2_jthi_c(4,88)=9
7141 exch2_opposingSend_record(4,88)=3
7142 RETURN
7143 END
7144
7145 SUBROUTINE W2_E2SETUP_89
7146 C Topology for tile 89
7147 #include "W2_EXCH2_TOPOLOGY.h"
7148 exch2_tnx(89)=8
7149 exch2_tny(89)=8
7150 exch2_tbasex(89)=0
7151 exch2_tbasey(89)=16
7152 exch2_txglobalo(89)=161
7153 exch2_tyglobalo(89)=17
7154 exch2_isWedge(89)=1
7155 exch2_isNedge(89)=0
7156 exch2_isEedge(89)=0
7157 exch2_isSedge(89)=0
7158 exch2_myFace(89)=6
7159 exch2_mydnx(89)=32
7160 exch2_mydny(89)=32
7161 exch2_nNeighbours(89)=4
7162
7163 exch2_neighbourId(1,89)=93
7164 exch2_pi(1,1,89)=1
7165 exch2_pi(2,1,89)=0
7166 exch2_pj(1,1,89)=0
7167 exch2_pj(2,1,89)=1
7168 exch2_oi(1,89)=0
7169 exch2_oi_f(1,89)=0
7170 exch2_oj(1,89)=0
7171 exch2_oj_f(1,89)=0
7172 exch2_itlo_c(1,89)=0
7173 exch2_ithi_c(1,89)=9
7174 exch2_jtlo_c(1,89)=0
7175 exch2_jthi_c(1,89)=0
7176 exch2_opposingSend_record(1,89)=2
7177
7178 exch2_neighbourId(2,89)=85
7179 exch2_pi(1,2,89)=1
7180 exch2_pi(2,2,89)=0
7181 exch2_pj(1,2,89)=0
7182 exch2_pj(2,2,89)=1
7183 exch2_oi(2,89)=0
7184 exch2_oi_f(2,89)=0
7185 exch2_oj(2,89)=0
7186 exch2_oj_f(2,89)=0
7187 exch2_itlo_c(2,89)=1
7188 exch2_ithi_c(2,89)=8
7189 exch2_jtlo_c(2,89)=9
7190 exch2_jthi_c(2,89)=9
7191 exch2_opposingSend_record(2,89)=1
7192
7193 exch2_neighbourId(3,89)=90
7194 exch2_pi(1,3,89)=1
7195 exch2_pi(2,3,89)=0
7196 exch2_pj(1,3,89)=0
7197 exch2_pj(2,3,89)=1
7198 exch2_oi(3,89)=0
7199 exch2_oi_f(3,89)=0
7200 exch2_oj(3,89)=0
7201 exch2_oj_f(3,89)=0
7202 exch2_itlo_c(3,89)=0
7203 exch2_ithi_c(3,89)=0
7204 exch2_jtlo_c(3,89)=0
7205 exch2_jthi_c(3,89)=9
7206 exch2_opposingSend_record(3,89)=4
7207
7208 exch2_neighbourId(4,89)=76
7209 exch2_pi(1,4,89)=1
7210 exch2_pi(2,4,89)=0
7211 exch2_pj(1,4,89)=0
7212 exch2_pj(2,4,89)=1
7213 exch2_oi(4,89)=-32
7214 exch2_oi_f(4,89)=-32
7215 exch2_oj(4,89)=0
7216 exch2_oj_f(4,89)=0
7217 exch2_itlo_c(4,89)=9
7218 exch2_ithi_c(4,89)=9
7219 exch2_jtlo_c(4,89)=0
7220 exch2_jthi_c(4,89)=9
7221 exch2_opposingSend_record(4,89)=3
7222 RETURN
7223 END
7224
7225 SUBROUTINE W2_E2SETUP_90
7226 C Topology for tile 90
7227 #include "W2_EXCH2_TOPOLOGY.h"
7228 exch2_tnx(90)=8
7229 exch2_tny(90)=8
7230 exch2_tbasex(90)=8
7231 exch2_tbasey(90)=16
7232 exch2_txglobalo(90)=169
7233 exch2_tyglobalo(90)=17
7234 exch2_isWedge(90)=0
7235 exch2_isNedge(90)=0
7236 exch2_isEedge(90)=0
7237 exch2_isSedge(90)=0
7238 exch2_myFace(90)=6
7239 exch2_mydnx(90)=32
7240 exch2_mydny(90)=32
7241 exch2_nNeighbours(90)=4
7242
7243 exch2_neighbourId(1,90)=94
7244 exch2_pi(1,1,90)=1
7245 exch2_pi(2,1,90)=0
7246 exch2_pj(1,1,90)=0
7247 exch2_pj(2,1,90)=1
7248 exch2_oi(1,90)=0
7249 exch2_oi_f(1,90)=0
7250 exch2_oj(1,90)=0
7251 exch2_oj_f(1,90)=0
7252 exch2_itlo_c(1,90)=0
7253 exch2_ithi_c(1,90)=9
7254 exch2_jtlo_c(1,90)=0
7255 exch2_jthi_c(1,90)=0
7256 exch2_opposingSend_record(1,90)=2
7257
7258 exch2_neighbourId(2,90)=86
7259 exch2_pi(1,2,90)=1
7260 exch2_pi(2,2,90)=0
7261 exch2_pj(1,2,90)=0
7262 exch2_pj(2,2,90)=1
7263 exch2_oi(2,90)=0
7264 exch2_oi_f(2,90)=0
7265 exch2_oj(2,90)=0
7266 exch2_oj_f(2,90)=0
7267 exch2_itlo_c(2,90)=1
7268 exch2_ithi_c(2,90)=8
7269 exch2_jtlo_c(2,90)=9
7270 exch2_jthi_c(2,90)=9
7271 exch2_opposingSend_record(2,90)=1
7272
7273 exch2_neighbourId(3,90)=91
7274 exch2_pi(1,3,90)=1
7275 exch2_pi(2,3,90)=0
7276 exch2_pj(1,3,90)=0
7277 exch2_pj(2,3,90)=1
7278 exch2_oi(3,90)=0
7279 exch2_oi_f(3,90)=0
7280 exch2_oj(3,90)=0
7281 exch2_oj_f(3,90)=0
7282 exch2_itlo_c(3,90)=0
7283 exch2_ithi_c(3,90)=0
7284 exch2_jtlo_c(3,90)=0
7285 exch2_jthi_c(3,90)=9
7286 exch2_opposingSend_record(3,90)=4
7287
7288 exch2_neighbourId(4,90)=89
7289 exch2_pi(1,4,90)=1
7290 exch2_pi(2,4,90)=0
7291 exch2_pj(1,4,90)=0
7292 exch2_pj(2,4,90)=1
7293 exch2_oi(4,90)=0
7294 exch2_oi_f(4,90)=0
7295 exch2_oj(4,90)=0
7296 exch2_oj_f(4,90)=0
7297 exch2_itlo_c(4,90)=9
7298 exch2_ithi_c(4,90)=9
7299 exch2_jtlo_c(4,90)=0
7300 exch2_jthi_c(4,90)=9
7301 exch2_opposingSend_record(4,90)=3
7302 RETURN
7303 END
7304
7305 SUBROUTINE W2_E2SETUP_91
7306 C Topology for tile 91
7307 #include "W2_EXCH2_TOPOLOGY.h"
7308 exch2_tnx(91)=8
7309 exch2_tny(91)=8
7310 exch2_tbasex(91)=16
7311 exch2_tbasey(91)=16
7312 exch2_txglobalo(91)=177
7313 exch2_tyglobalo(91)=17
7314 exch2_isWedge(91)=0
7315 exch2_isNedge(91)=0
7316 exch2_isEedge(91)=0
7317 exch2_isSedge(91)=0
7318 exch2_myFace(91)=6
7319 exch2_mydnx(91)=32
7320 exch2_mydny(91)=32
7321 exch2_nNeighbours(91)=4
7322
7323 exch2_neighbourId(1,91)=95
7324 exch2_pi(1,1,91)=1
7325 exch2_pi(2,1,91)=0
7326 exch2_pj(1,1,91)=0
7327 exch2_pj(2,1,91)=1
7328 exch2_oi(1,91)=0
7329 exch2_oi_f(1,91)=0
7330 exch2_oj(1,91)=0
7331 exch2_oj_f(1,91)=0
7332 exch2_itlo_c(1,91)=0
7333 exch2_ithi_c(1,91)=9
7334 exch2_jtlo_c(1,91)=0
7335 exch2_jthi_c(1,91)=0
7336 exch2_opposingSend_record(1,91)=2
7337
7338 exch2_neighbourId(2,91)=87
7339 exch2_pi(1,2,91)=1
7340 exch2_pi(2,2,91)=0
7341 exch2_pj(1,2,91)=0
7342 exch2_pj(2,2,91)=1
7343 exch2_oi(2,91)=0
7344 exch2_oi_f(2,91)=0
7345 exch2_oj(2,91)=0
7346 exch2_oj_f(2,91)=0
7347 exch2_itlo_c(2,91)=1
7348 exch2_ithi_c(2,91)=8
7349 exch2_jtlo_c(2,91)=9
7350 exch2_jthi_c(2,91)=9
7351 exch2_opposingSend_record(2,91)=1
7352
7353 exch2_neighbourId(3,91)=92
7354 exch2_pi(1,3,91)=1
7355 exch2_pi(2,3,91)=0
7356 exch2_pj(1,3,91)=0
7357 exch2_pj(2,3,91)=1
7358 exch2_oi(3,91)=0
7359 exch2_oi_f(3,91)=0
7360 exch2_oj(3,91)=0
7361 exch2_oj_f(3,91)=0
7362 exch2_itlo_c(3,91)=0
7363 exch2_ithi_c(3,91)=0
7364 exch2_jtlo_c(3,91)=0
7365 exch2_jthi_c(3,91)=9
7366 exch2_opposingSend_record(3,91)=4
7367
7368 exch2_neighbourId(4,91)=90
7369 exch2_pi(1,4,91)=1
7370 exch2_pi(2,4,91)=0
7371 exch2_pj(1,4,91)=0
7372 exch2_pj(2,4,91)=1
7373 exch2_oi(4,91)=0
7374 exch2_oi_f(4,91)=0
7375 exch2_oj(4,91)=0
7376 exch2_oj_f(4,91)=0
7377 exch2_itlo_c(4,91)=9
7378 exch2_ithi_c(4,91)=9
7379 exch2_jtlo_c(4,91)=0
7380 exch2_jthi_c(4,91)=9
7381 exch2_opposingSend_record(4,91)=3
7382 RETURN
7383 END
7384
7385 SUBROUTINE W2_E2SETUP_92
7386 C Topology for tile 92
7387 #include "W2_EXCH2_TOPOLOGY.h"
7388 exch2_tnx(92)=8
7389 exch2_tny(92)=8
7390 exch2_tbasex(92)=24
7391 exch2_tbasey(92)=16
7392 exch2_txglobalo(92)=185
7393 exch2_tyglobalo(92)=17
7394 exch2_isWedge(92)=0
7395 exch2_isNedge(92)=0
7396 exch2_isEedge(92)=1
7397 exch2_isSedge(92)=0
7398 exch2_myFace(92)=6
7399 exch2_mydnx(92)=32
7400 exch2_mydny(92)=32
7401 exch2_nNeighbours(92)=4
7402
7403 exch2_neighbourId(1,92)=96
7404 exch2_pi(1,1,92)=1
7405 exch2_pi(2,1,92)=0
7406 exch2_pj(1,1,92)=0
7407 exch2_pj(2,1,92)=1
7408 exch2_oi(1,92)=0
7409 exch2_oi_f(1,92)=0
7410 exch2_oj(1,92)=0
7411 exch2_oj_f(1,92)=0
7412 exch2_itlo_c(1,92)=0
7413 exch2_ithi_c(1,92)=9
7414 exch2_jtlo_c(1,92)=0
7415 exch2_jthi_c(1,92)=0
7416 exch2_opposingSend_record(1,92)=2
7417
7418 exch2_neighbourId(2,92)=88
7419 exch2_pi(1,2,92)=1
7420 exch2_pi(2,2,92)=0
7421 exch2_pj(1,2,92)=0
7422 exch2_pj(2,2,92)=1
7423 exch2_oi(2,92)=0
7424 exch2_oi_f(2,92)=0
7425 exch2_oj(2,92)=0
7426 exch2_oj_f(2,92)=0
7427 exch2_itlo_c(2,92)=1
7428 exch2_ithi_c(2,92)=8
7429 exch2_jtlo_c(2,92)=9
7430 exch2_jthi_c(2,92)=9
7431 exch2_opposingSend_record(2,92)=1
7432
7433 exch2_neighbourId(3,92)=18
7434 exch2_pi(1,3,92)=0
7435 exch2_pi(2,3,92)=1
7436 exch2_pj(1,3,92)=-1
7437 exch2_pj(2,3,92)=0
7438 exch2_oi(3,92)=32
7439 exch2_oi_f(3,92)=32
7440 exch2_oj(3,92)=33
7441 exch2_oj_f(3,92)=34
7442 exch2_itlo_c(3,92)=0
7443 exch2_ithi_c(3,92)=9
7444 exch2_jtlo_c(3,92)=0
7445 exch2_jthi_c(3,92)=0
7446 exch2_opposingSend_record(3,92)=2
7447
7448 exch2_neighbourId(4,92)=91
7449 exch2_pi(1,4,92)=1
7450 exch2_pi(2,4,92)=0
7451 exch2_pj(1,4,92)=0
7452 exch2_pj(2,4,92)=1
7453 exch2_oi(4,92)=0
7454 exch2_oi_f(4,92)=0
7455 exch2_oj(4,92)=0
7456 exch2_oj_f(4,92)=0
7457 exch2_itlo_c(4,92)=9
7458 exch2_ithi_c(4,92)=9
7459 exch2_jtlo_c(4,92)=0
7460 exch2_jthi_c(4,92)=9
7461 exch2_opposingSend_record(4,92)=3
7462 RETURN
7463 END
7464
7465 SUBROUTINE W2_E2SETUP_93
7466 C Topology for tile 93
7467 #include "W2_EXCH2_TOPOLOGY.h"
7468 exch2_tnx(93)=8
7469 exch2_tny(93)=8
7470 exch2_tbasex(93)=0
7471 exch2_tbasey(93)=24
7472 exch2_txglobalo(93)=161
7473 exch2_tyglobalo(93)=25
7474 exch2_isWedge(93)=1
7475 exch2_isNedge(93)=1
7476 exch2_isEedge(93)=0
7477 exch2_isSedge(93)=0
7478 exch2_myFace(93)=6
7479 exch2_mydnx(93)=32
7480 exch2_mydny(93)=32
7481 exch2_nNeighbours(93)=4
7482
7483 exch2_neighbourId(1,93)=1
7484 exch2_pi(1,1,93)=1
7485 exch2_pi(2,1,93)=0
7486 exch2_pj(1,1,93)=0
7487 exch2_pj(2,1,93)=1
7488 exch2_oi(1,93)=0
7489 exch2_oi_f(1,93)=0
7490 exch2_oj(1,93)=32
7491 exch2_oj_f(1,93)=32
7492 exch2_itlo_c(1,93)=0
7493 exch2_ithi_c(1,93)=9
7494 exch2_jtlo_c(1,93)=0
7495 exch2_jthi_c(1,93)=0
7496 exch2_opposingSend_record(1,93)=2
7497
7498 exch2_neighbourId(2,93)=89
7499 exch2_pi(1,2,93)=1
7500 exch2_pi(2,2,93)=0
7501 exch2_pj(1,2,93)=0
7502 exch2_pj(2,2,93)=1
7503 exch2_oi(2,93)=0
7504 exch2_oi_f(2,93)=0
7505 exch2_oj(2,93)=0
7506 exch2_oj_f(2,93)=0
7507 exch2_itlo_c(2,93)=1
7508 exch2_ithi_c(2,93)=8
7509 exch2_jtlo_c(2,93)=9
7510 exch2_jthi_c(2,93)=9
7511 exch2_opposingSend_record(2,93)=1
7512
7513 exch2_neighbourId(3,93)=94
7514 exch2_pi(1,3,93)=1
7515 exch2_pi(2,3,93)=0
7516 exch2_pj(1,3,93)=0
7517 exch2_pj(2,3,93)=1
7518 exch2_oi(3,93)=0
7519 exch2_oi_f(3,93)=0
7520 exch2_oj(3,93)=0
7521 exch2_oj_f(3,93)=0
7522 exch2_itlo_c(3,93)=0
7523 exch2_ithi_c(3,93)=0
7524 exch2_jtlo_c(3,93)=0
7525 exch2_jthi_c(3,93)=9
7526 exch2_opposingSend_record(3,93)=4
7527
7528 exch2_neighbourId(4,93)=80
7529 exch2_pi(1,4,93)=1
7530 exch2_pi(2,4,93)=0
7531 exch2_pj(1,4,93)=0
7532 exch2_pj(2,4,93)=1
7533 exch2_oi(4,93)=-32
7534 exch2_oi_f(4,93)=-32
7535 exch2_oj(4,93)=0
7536 exch2_oj_f(4,93)=0
7537 exch2_itlo_c(4,93)=9
7538 exch2_ithi_c(4,93)=9
7539 exch2_jtlo_c(4,93)=0
7540 exch2_jthi_c(4,93)=9
7541 exch2_opposingSend_record(4,93)=3
7542 RETURN
7543 END
7544
7545 SUBROUTINE W2_E2SETUP_94
7546 C Topology for tile 94
7547 #include "W2_EXCH2_TOPOLOGY.h"
7548 exch2_tnx(94)=8
7549 exch2_tny(94)=8
7550 exch2_tbasex(94)=8
7551 exch2_tbasey(94)=24
7552 exch2_txglobalo(94)=169
7553 exch2_tyglobalo(94)=25
7554 exch2_isWedge(94)=0
7555 exch2_isNedge(94)=1
7556 exch2_isEedge(94)=0
7557 exch2_isSedge(94)=0
7558 exch2_myFace(94)=6
7559 exch2_mydnx(94)=32
7560 exch2_mydny(94)=32
7561 exch2_nNeighbours(94)=4
7562
7563 exch2_neighbourId(1,94)=2
7564 exch2_pi(1,1,94)=1
7565 exch2_pi(2,1,94)=0
7566 exch2_pj(1,1,94)=0
7567 exch2_pj(2,1,94)=1
7568 exch2_oi(1,94)=0
7569 exch2_oi_f(1,94)=0
7570 exch2_oj(1,94)=32
7571 exch2_oj_f(1,94)=32
7572 exch2_itlo_c(1,94)=0
7573 exch2_ithi_c(1,94)=9
7574 exch2_jtlo_c(1,94)=0
7575 exch2_jthi_c(1,94)=0
7576 exch2_opposingSend_record(1,94)=2
7577
7578 exch2_neighbourId(2,94)=90
7579 exch2_pi(1,2,94)=1
7580 exch2_pi(2,2,94)=0
7581 exch2_pj(1,2,94)=0
7582 exch2_pj(2,2,94)=1
7583 exch2_oi(2,94)=0
7584 exch2_oi_f(2,94)=0
7585 exch2_oj(2,94)=0
7586 exch2_oj_f(2,94)=0
7587 exch2_itlo_c(2,94)=1
7588 exch2_ithi_c(2,94)=8
7589 exch2_jtlo_c(2,94)=9
7590 exch2_jthi_c(2,94)=9
7591 exch2_opposingSend_record(2,94)=1
7592
7593 exch2_neighbourId(3,94)=95
7594 exch2_pi(1,3,94)=1
7595 exch2_pi(2,3,94)=0
7596 exch2_pj(1,3,94)=0
7597 exch2_pj(2,3,94)=1
7598 exch2_oi(3,94)=0
7599 exch2_oi_f(3,94)=0
7600 exch2_oj(3,94)=0
7601 exch2_oj_f(3,94)=0
7602 exch2_itlo_c(3,94)=0
7603 exch2_ithi_c(3,94)=0
7604 exch2_jtlo_c(3,94)=0
7605 exch2_jthi_c(3,94)=9
7606 exch2_opposingSend_record(3,94)=4
7607
7608 exch2_neighbourId(4,94)=93
7609 exch2_pi(1,4,94)=1
7610 exch2_pi(2,4,94)=0
7611 exch2_pj(1,4,94)=0
7612 exch2_pj(2,4,94)=1
7613 exch2_oi(4,94)=0
7614 exch2_oi_f(4,94)=0
7615 exch2_oj(4,94)=0
7616 exch2_oj_f(4,94)=0
7617 exch2_itlo_c(4,94)=9
7618 exch2_ithi_c(4,94)=9
7619 exch2_jtlo_c(4,94)=0
7620 exch2_jthi_c(4,94)=9
7621 exch2_opposingSend_record(4,94)=3
7622 RETURN
7623 END
7624
7625 SUBROUTINE W2_E2SETUP_95
7626 C Topology for tile 95
7627 #include "W2_EXCH2_TOPOLOGY.h"
7628 exch2_tnx(95)=8
7629 exch2_tny(95)=8
7630 exch2_tbasex(95)=16
7631 exch2_tbasey(95)=24
7632 exch2_txglobalo(95)=177
7633 exch2_tyglobalo(95)=25
7634 exch2_isWedge(95)=0
7635 exch2_isNedge(95)=1
7636 exch2_isEedge(95)=0
7637 exch2_isSedge(95)=0
7638 exch2_myFace(95)=6
7639 exch2_mydnx(95)=32
7640 exch2_mydny(95)=32
7641 exch2_nNeighbours(95)=4
7642
7643 exch2_neighbourId(1,95)=3
7644 exch2_pi(1,1,95)=1
7645 exch2_pi(2,1,95)=0
7646 exch2_pj(1,1,95)=0
7647 exch2_pj(2,1,95)=1
7648 exch2_oi(1,95)=0
7649 exch2_oi_f(1,95)=0
7650 exch2_oj(1,95)=32
7651 exch2_oj_f(1,95)=32
7652 exch2_itlo_c(1,95)=0
7653 exch2_ithi_c(1,95)=9
7654 exch2_jtlo_c(1,95)=0
7655 exch2_jthi_c(1,95)=0
7656 exch2_opposingSend_record(1,95)=2
7657
7658 exch2_neighbourId(2,95)=91
7659 exch2_pi(1,2,95)=1
7660 exch2_pi(2,2,95)=0
7661 exch2_pj(1,2,95)=0
7662 exch2_pj(2,2,95)=1
7663 exch2_oi(2,95)=0
7664 exch2_oi_f(2,95)=0
7665 exch2_oj(2,95)=0
7666 exch2_oj_f(2,95)=0
7667 exch2_itlo_c(2,95)=1
7668 exch2_ithi_c(2,95)=8
7669 exch2_jtlo_c(2,95)=9
7670 exch2_jthi_c(2,95)=9
7671 exch2_opposingSend_record(2,95)=1
7672
7673 exch2_neighbourId(3,95)=96
7674 exch2_pi(1,3,95)=1
7675 exch2_pi(2,3,95)=0
7676 exch2_pj(1,3,95)=0
7677 exch2_pj(2,3,95)=1
7678 exch2_oi(3,95)=0
7679 exch2_oi_f(3,95)=0
7680 exch2_oj(3,95)=0
7681 exch2_oj_f(3,95)=0
7682 exch2_itlo_c(3,95)=0
7683 exch2_ithi_c(3,95)=0
7684 exch2_jtlo_c(3,95)=0
7685 exch2_jthi_c(3,95)=9
7686 exch2_opposingSend_record(3,95)=4
7687
7688 exch2_neighbourId(4,95)=94
7689 exch2_pi(1,4,95)=1
7690 exch2_pi(2,4,95)=0
7691 exch2_pj(1,4,95)=0
7692 exch2_pj(2,4,95)=1
7693 exch2_oi(4,95)=0
7694 exch2_oi_f(4,95)=0
7695 exch2_oj(4,95)=0
7696 exch2_oj_f(4,95)=0
7697 exch2_itlo_c(4,95)=9
7698 exch2_ithi_c(4,95)=9
7699 exch2_jtlo_c(4,95)=0
7700 exch2_jthi_c(4,95)=9
7701 exch2_opposingSend_record(4,95)=3
7702 RETURN
7703 END
7704
7705 SUBROUTINE W2_E2SETUP_96
7706 C Topology for tile 96
7707 #include "W2_EXCH2_TOPOLOGY.h"
7708 exch2_tnx(96)=8
7709 exch2_tny(96)=8
7710 exch2_tbasex(96)=24
7711 exch2_tbasey(96)=24
7712 exch2_txglobalo(96)=185
7713 exch2_tyglobalo(96)=25
7714 exch2_isWedge(96)=0
7715 exch2_isNedge(96)=1
7716 exch2_isEedge(96)=1
7717 exch2_isSedge(96)=0
7718 exch2_myFace(96)=6
7719 exch2_mydnx(96)=32
7720 exch2_mydny(96)=32
7721 exch2_nNeighbours(96)=4
7722
7723 exch2_neighbourId(1,96)=4
7724 exch2_pi(1,1,96)=1
7725 exch2_pi(2,1,96)=0
7726 exch2_pj(1,1,96)=0
7727 exch2_pj(2,1,96)=1
7728 exch2_oi(1,96)=0
7729 exch2_oi_f(1,96)=0
7730 exch2_oj(1,96)=32
7731 exch2_oj_f(1,96)=32
7732 exch2_itlo_c(1,96)=0
7733 exch2_ithi_c(1,96)=9
7734 exch2_jtlo_c(1,96)=0
7735 exch2_jthi_c(1,96)=0
7736 exch2_opposingSend_record(1,96)=2
7737
7738 exch2_neighbourId(2,96)=92
7739 exch2_pi(1,2,96)=1
7740 exch2_pi(2,2,96)=0
7741 exch2_pj(1,2,96)=0
7742 exch2_pj(2,2,96)=1
7743 exch2_oi(2,96)=0
7744 exch2_oi_f(2,96)=0
7745 exch2_oj(2,96)=0
7746 exch2_oj_f(2,96)=0
7747 exch2_itlo_c(2,96)=1
7748 exch2_ithi_c(2,96)=8
7749 exch2_jtlo_c(2,96)=9
7750 exch2_jthi_c(2,96)=9
7751 exch2_opposingSend_record(2,96)=1
7752
7753 exch2_neighbourId(3,96)=17
7754 exch2_pi(1,3,96)=0
7755 exch2_pi(2,3,96)=1
7756 exch2_pj(1,3,96)=-1
7757 exch2_pj(2,3,96)=0
7758 exch2_oi(3,96)=32
7759 exch2_oi_f(3,96)=32
7760 exch2_oj(3,96)=33
7761 exch2_oj_f(3,96)=34
7762 exch2_itlo_c(3,96)=0
7763 exch2_ithi_c(3,96)=9
7764 exch2_jtlo_c(3,96)=0
7765 exch2_jthi_c(3,96)=0
7766 exch2_opposingSend_record(3,96)=2
7767
7768 exch2_neighbourId(4,96)=95
7769 exch2_pi(1,4,96)=1
7770 exch2_pi(2,4,96)=0
7771 exch2_pj(1,4,96)=0
7772 exch2_pj(2,4,96)=1
7773 exch2_oi(4,96)=0
7774 exch2_oi_f(4,96)=0
7775 exch2_oj(4,96)=0
7776 exch2_oj_f(4,96)=0
7777 exch2_itlo_c(4,96)=9
7778 exch2_ithi_c(4,96)=9
7779 exch2_jtlo_c(4,96)=0
7780 exch2_jthi_c(4,96)=9
7781 exch2_opposingSend_record(4,96)=3
7782 RETURN
7783 END
7784
  ViewVC Help
Powered by ViewVC 1.1.22