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

Annotation 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 - (hide 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 mlosch 1.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