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

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