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

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

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

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