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

Annotation of /MITgcm_contrib/high_res_cube/code-mods/s60t_51x510/w2_e2setup.F

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

Revision 1.1 - (hide annotations) (download)
Tue Nov 11 18:08:08 2003 UTC (23 years ago) by cnh
Branch: MAIN
Branch point for: initial 
Initial revision
1 cnh 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     RETURN
68     END
69     SUBROUTINE W2_E2SETUP_1
70     C Topology for tile 1
71     #include "W2_EXCH2_TOPOLOGY.h"
72     exch2_tnx(1)=51
73     exch2_tny(1)=510
74     exch2_tbasex(1)=0
75     exch2_tbasey(1)=0
76     exch2_txglobalo(1)=1
77     exch2_tyglobalo(1)=1
78     exch2_isWedge(1)=1
79     exch2_isNedge(1)=1
80     exch2_isEedge(1)=0
81     exch2_isSedge(1)=1
82     exch2_myFace(1)=1
83     exch2_mydnx(1)=510
84     exch2_mydny(1)=510
85     exch2_nNeighbours(1)=13
86    
87     exch2_neighbourId(1,1)=21
88     exch2_pi(1,1,1)=0
89     exch2_pi(2,1,1)=-1
90     exch2_pj(1,1,1)=1
91     exch2_pj(2,1,1)=0
92     exch2_oi(1,1)=511
93     exch2_oi_f(1,1)=512
94     exch2_oj(1,1)=510
95     exch2_oj_f(1,1)=510
96     exch2_itlo_c(1,1)=0
97     exch2_ithi_c(1,1)=0
98     exch2_jtlo_c(1,1)=459
99     exch2_jthi_c(1,1)=511
100     exch2_opposingSend_record(1,1)=4
101    
102     exch2_neighbourId(2,1)=51
103     exch2_pi(1,2,1)=1
104     exch2_pi(2,2,1)=0
105     exch2_pj(1,2,1)=0
106     exch2_pj(2,2,1)=1
107     exch2_oi(2,1)=0
108     exch2_oi_f(2,1)=0
109     exch2_oj(2,1)=-510
110     exch2_oj_f(2,1)=-510
111     exch2_itlo_c(2,1)=0
112     exch2_ithi_c(2,1)=52
113     exch2_jtlo_c(2,1)=511
114     exch2_jthi_c(2,1)=511
115     exch2_opposingSend_record(2,1)=1
116    
117     exch2_neighbourId(3,1)=2
118     exch2_pi(1,3,1)=1
119     exch2_pi(2,3,1)=0
120     exch2_pj(1,3,1)=0
121     exch2_pj(2,3,1)=1
122     exch2_oi(3,1)=0
123     exch2_oi_f(3,1)=0
124     exch2_oj(3,1)=0
125     exch2_oj_f(3,1)=0
126     exch2_itlo_c(3,1)=0
127     exch2_ithi_c(3,1)=0
128     exch2_jtlo_c(3,1)=0
129     exch2_jthi_c(3,1)=511
130     exch2_opposingSend_record(3,1)=4
131    
132     exch2_neighbourId(4,1)=41
133     exch2_pi(1,4,1)=0
134     exch2_pi(2,4,1)=1
135     exch2_pj(1,4,1)=-1
136     exch2_pj(2,4,1)=0
137     exch2_oi(4,1)=-510
138     exch2_oi_f(4,1)=-510
139     exch2_oj(4,1)=511
140     exch2_oj_f(4,1)=512
141     exch2_itlo_c(4,1)=0
142     exch2_ithi_c(4,1)=52
143     exch2_jtlo_c(4,1)=511
144     exch2_jthi_c(4,1)=511
145     exch2_opposingSend_record(4,1)=1
146    
147     exch2_neighbourId(5,1)=42
148     exch2_pi(1,5,1)=0
149     exch2_pi(2,5,1)=1
150     exch2_pj(1,5,1)=-1
151     exch2_pj(2,5,1)=0
152     exch2_oi(5,1)=-510
153     exch2_oi_f(5,1)=-510
154     exch2_oj(5,1)=511
155     exch2_oj_f(5,1)=512
156     exch2_itlo_c(5,1)=0
157     exch2_ithi_c(5,1)=52
158     exch2_jtlo_c(5,1)=511
159     exch2_jthi_c(5,1)=511
160     exch2_opposingSend_record(5,1)=1
161    
162     exch2_neighbourId(6,1)=43
163     exch2_pi(1,6,1)=0
164     exch2_pi(2,6,1)=1
165     exch2_pj(1,6,1)=-1
166     exch2_pj(2,6,1)=0
167     exch2_oi(6,1)=-510
168     exch2_oi_f(6,1)=-510
169     exch2_oj(6,1)=511
170     exch2_oj_f(6,1)=512
171     exch2_itlo_c(6,1)=0
172     exch2_ithi_c(6,1)=52
173     exch2_jtlo_c(6,1)=511
174     exch2_jthi_c(6,1)=511
175     exch2_opposingSend_record(6,1)=1
176    
177     exch2_neighbourId(7,1)=44
178     exch2_pi(1,7,1)=0
179     exch2_pi(2,7,1)=1
180     exch2_pj(1,7,1)=-1
181     exch2_pj(2,7,1)=0
182     exch2_oi(7,1)=-510
183     exch2_oi_f(7,1)=-510
184     exch2_oj(7,1)=511
185     exch2_oj_f(7,1)=512
186     exch2_itlo_c(7,1)=0
187     exch2_ithi_c(7,1)=52
188     exch2_jtlo_c(7,1)=511
189     exch2_jthi_c(7,1)=511
190     exch2_opposingSend_record(7,1)=1
191    
192     exch2_neighbourId(8,1)=45
193     exch2_pi(1,8,1)=0
194     exch2_pi(2,8,1)=1
195     exch2_pj(1,8,1)=-1
196     exch2_pj(2,8,1)=0
197     exch2_oi(8,1)=-510
198     exch2_oi_f(8,1)=-510
199     exch2_oj(8,1)=511
200     exch2_oj_f(8,1)=512
201     exch2_itlo_c(8,1)=0
202     exch2_ithi_c(8,1)=52
203     exch2_jtlo_c(8,1)=511
204     exch2_jthi_c(8,1)=511
205     exch2_opposingSend_record(8,1)=1
206    
207     exch2_neighbourId(9,1)=46
208     exch2_pi(1,9,1)=0
209     exch2_pi(2,9,1)=1
210     exch2_pj(1,9,1)=-1
211     exch2_pj(2,9,1)=0
212     exch2_oi(9,1)=-510
213     exch2_oi_f(9,1)=-510
214     exch2_oj(9,1)=511
215     exch2_oj_f(9,1)=512
216     exch2_itlo_c(9,1)=0
217     exch2_ithi_c(9,1)=52
218     exch2_jtlo_c(9,1)=511
219     exch2_jthi_c(9,1)=511
220     exch2_opposingSend_record(9,1)=1
221    
222     exch2_neighbourId(10,1)=47
223     exch2_pi(1,10,1)=0
224     exch2_pi(2,10,1)=1
225     exch2_pj(1,10,1)=-1
226     exch2_pj(2,10,1)=0
227     exch2_oi(10,1)=-510
228     exch2_oi_f(10,1)=-510
229     exch2_oj(10,1)=511
230     exch2_oj_f(10,1)=512
231     exch2_itlo_c(10,1)=0
232     exch2_ithi_c(10,1)=52
233     exch2_jtlo_c(10,1)=511
234     exch2_jthi_c(10,1)=511
235     exch2_opposingSend_record(10,1)=1
236    
237     exch2_neighbourId(11,1)=48
238     exch2_pi(1,11,1)=0
239     exch2_pi(2,11,1)=1
240     exch2_pj(1,11,1)=-1
241     exch2_pj(2,11,1)=0
242     exch2_oi(11,1)=-510
243     exch2_oi_f(11,1)=-510
244     exch2_oj(11,1)=511
245     exch2_oj_f(11,1)=512
246     exch2_itlo_c(11,1)=0
247     exch2_ithi_c(11,1)=52
248     exch2_jtlo_c(11,1)=511
249     exch2_jthi_c(11,1)=511
250     exch2_opposingSend_record(11,1)=1
251    
252     exch2_neighbourId(12,1)=49
253     exch2_pi(1,12,1)=0
254     exch2_pi(2,12,1)=1
255     exch2_pj(1,12,1)=-1
256     exch2_pj(2,12,1)=0
257     exch2_oi(12,1)=-510
258     exch2_oi_f(12,1)=-510
259     exch2_oj(12,1)=511
260     exch2_oj_f(12,1)=512
261     exch2_itlo_c(12,1)=0
262     exch2_ithi_c(12,1)=52
263     exch2_jtlo_c(12,1)=511
264     exch2_jthi_c(12,1)=511
265     exch2_opposingSend_record(12,1)=1
266    
267     exch2_neighbourId(13,1)=50
268     exch2_pi(1,13,1)=0
269     exch2_pi(2,13,1)=1
270     exch2_pj(1,13,1)=-1
271     exch2_pj(2,13,1)=0
272     exch2_oi(13,1)=-510
273     exch2_oi_f(13,1)=-510
274     exch2_oj(13,1)=511
275     exch2_oj_f(13,1)=512
276     exch2_itlo_c(13,1)=0
277     exch2_ithi_c(13,1)=52
278     exch2_jtlo_c(13,1)=511
279     exch2_jthi_c(13,1)=511
280     exch2_opposingSend_record(13,1)=1
281     RETURN
282     END
283    
284     SUBROUTINE W2_E2SETUP_2
285     C Topology for tile 2
286     #include "W2_EXCH2_TOPOLOGY.h"
287     exch2_tnx(2)=51
288     exch2_tny(2)=510
289     exch2_tbasex(2)=51
290     exch2_tbasey(2)=0
291     exch2_txglobalo(2)=52
292     exch2_tyglobalo(2)=1
293     exch2_isWedge(2)=0
294     exch2_isNedge(2)=1
295     exch2_isEedge(2)=0
296     exch2_isSedge(2)=1
297     exch2_myFace(2)=1
298     exch2_mydnx(2)=510
299     exch2_mydny(2)=510
300     exch2_nNeighbours(2)=4
301    
302     exch2_neighbourId(1,2)=21
303     exch2_pi(1,1,2)=0
304     exch2_pi(2,1,2)=-1
305     exch2_pj(1,1,2)=1
306     exch2_pj(2,1,2)=0
307     exch2_oi(1,2)=511
308     exch2_oi_f(1,2)=512
309     exch2_oj(1,2)=510
310     exch2_oj_f(1,2)=510
311     exch2_itlo_c(1,2)=0
312     exch2_ithi_c(1,2)=0
313     exch2_jtlo_c(1,2)=408
314     exch2_jthi_c(1,2)=460
315     exch2_opposingSend_record(1,2)=5
316    
317     exch2_neighbourId(2,2)=52
318     exch2_pi(1,2,2)=1
319     exch2_pi(2,2,2)=0
320     exch2_pj(1,2,2)=0
321     exch2_pj(2,2,2)=1
322     exch2_oi(2,2)=0
323     exch2_oi_f(2,2)=0
324     exch2_oj(2,2)=-510
325     exch2_oj_f(2,2)=-510
326     exch2_itlo_c(2,2)=0
327     exch2_ithi_c(2,2)=52
328     exch2_jtlo_c(2,2)=511
329     exch2_jthi_c(2,2)=511
330     exch2_opposingSend_record(2,2)=1
331    
332     exch2_neighbourId(3,2)=3
333     exch2_pi(1,3,2)=1
334     exch2_pi(2,3,2)=0
335     exch2_pj(1,3,2)=0
336     exch2_pj(2,3,2)=1
337     exch2_oi(3,2)=0
338     exch2_oi_f(3,2)=0
339     exch2_oj(3,2)=0
340     exch2_oj_f(3,2)=0
341     exch2_itlo_c(3,2)=0
342     exch2_ithi_c(3,2)=0
343     exch2_jtlo_c(3,2)=0
344     exch2_jthi_c(3,2)=511
345     exch2_opposingSend_record(3,2)=4
346    
347     exch2_neighbourId(4,2)=1
348     exch2_pi(1,4,2)=1
349     exch2_pi(2,4,2)=0
350     exch2_pj(1,4,2)=0
351     exch2_pj(2,4,2)=1
352     exch2_oi(4,2)=0
353     exch2_oi_f(4,2)=0
354     exch2_oj(4,2)=0
355     exch2_oj_f(4,2)=0
356     exch2_itlo_c(4,2)=52
357     exch2_ithi_c(4,2)=52
358     exch2_jtlo_c(4,2)=0
359     exch2_jthi_c(4,2)=511
360     exch2_opposingSend_record(4,2)=3
361     RETURN
362     END
363    
364     SUBROUTINE W2_E2SETUP_3
365     C Topology for tile 3
366     #include "W2_EXCH2_TOPOLOGY.h"
367     exch2_tnx(3)=51
368     exch2_tny(3)=510
369     exch2_tbasex(3)=102
370     exch2_tbasey(3)=0
371     exch2_txglobalo(3)=103
372     exch2_tyglobalo(3)=1
373     exch2_isWedge(3)=0
374     exch2_isNedge(3)=1
375     exch2_isEedge(3)=0
376     exch2_isSedge(3)=1
377     exch2_myFace(3)=1
378     exch2_mydnx(3)=510
379     exch2_mydny(3)=510
380     exch2_nNeighbours(3)=4
381    
382     exch2_neighbourId(1,3)=21
383     exch2_pi(1,1,3)=0
384     exch2_pi(2,1,3)=-1
385     exch2_pj(1,1,3)=1
386     exch2_pj(2,1,3)=0
387     exch2_oi(1,3)=511
388     exch2_oi_f(1,3)=512
389     exch2_oj(1,3)=510
390     exch2_oj_f(1,3)=510
391     exch2_itlo_c(1,3)=0
392     exch2_ithi_c(1,3)=0
393     exch2_jtlo_c(1,3)=357
394     exch2_jthi_c(1,3)=409
395     exch2_opposingSend_record(1,3)=6
396    
397     exch2_neighbourId(2,3)=53
398     exch2_pi(1,2,3)=1
399     exch2_pi(2,2,3)=0
400     exch2_pj(1,2,3)=0
401     exch2_pj(2,2,3)=1
402     exch2_oi(2,3)=0
403     exch2_oi_f(2,3)=0
404     exch2_oj(2,3)=-510
405     exch2_oj_f(2,3)=-510
406     exch2_itlo_c(2,3)=0
407     exch2_ithi_c(2,3)=52
408     exch2_jtlo_c(2,3)=511
409     exch2_jthi_c(2,3)=511
410     exch2_opposingSend_record(2,3)=1
411    
412     exch2_neighbourId(3,3)=4
413     exch2_pi(1,3,3)=1
414     exch2_pi(2,3,3)=0
415     exch2_pj(1,3,3)=0
416     exch2_pj(2,3,3)=1
417     exch2_oi(3,3)=0
418     exch2_oi_f(3,3)=0
419     exch2_oj(3,3)=0
420     exch2_oj_f(3,3)=0
421     exch2_itlo_c(3,3)=0
422     exch2_ithi_c(3,3)=0
423     exch2_jtlo_c(3,3)=0
424     exch2_jthi_c(3,3)=511
425     exch2_opposingSend_record(3,3)=4
426    
427     exch2_neighbourId(4,3)=2
428     exch2_pi(1,4,3)=1
429     exch2_pi(2,4,3)=0
430     exch2_pj(1,4,3)=0
431     exch2_pj(2,4,3)=1
432     exch2_oi(4,3)=0
433     exch2_oi_f(4,3)=0
434     exch2_oj(4,3)=0
435     exch2_oj_f(4,3)=0
436     exch2_itlo_c(4,3)=52
437     exch2_ithi_c(4,3)=52
438     exch2_jtlo_c(4,3)=0
439     exch2_jthi_c(4,3)=511
440     exch2_opposingSend_record(4,3)=3
441     RETURN
442     END
443    
444     SUBROUTINE W2_E2SETUP_4
445     C Topology for tile 4
446     #include "W2_EXCH2_TOPOLOGY.h"
447     exch2_tnx(4)=51
448     exch2_tny(4)=510
449     exch2_tbasex(4)=153
450     exch2_tbasey(4)=0
451     exch2_txglobalo(4)=154
452     exch2_tyglobalo(4)=1
453     exch2_isWedge(4)=0
454     exch2_isNedge(4)=1
455     exch2_isEedge(4)=0
456     exch2_isSedge(4)=1
457     exch2_myFace(4)=1
458     exch2_mydnx(4)=510
459     exch2_mydny(4)=510
460     exch2_nNeighbours(4)=4
461    
462     exch2_neighbourId(1,4)=21
463     exch2_pi(1,1,4)=0
464     exch2_pi(2,1,4)=-1
465     exch2_pj(1,1,4)=1
466     exch2_pj(2,1,4)=0
467     exch2_oi(1,4)=511
468     exch2_oi_f(1,4)=512
469     exch2_oj(1,4)=510
470     exch2_oj_f(1,4)=510
471     exch2_itlo_c(1,4)=0
472     exch2_ithi_c(1,4)=0
473     exch2_jtlo_c(1,4)=306
474     exch2_jthi_c(1,4)=358
475     exch2_opposingSend_record(1,4)=7
476    
477     exch2_neighbourId(2,4)=54
478     exch2_pi(1,2,4)=1
479     exch2_pi(2,2,4)=0
480     exch2_pj(1,2,4)=0
481     exch2_pj(2,2,4)=1
482     exch2_oi(2,4)=0
483     exch2_oi_f(2,4)=0
484     exch2_oj(2,4)=-510
485     exch2_oj_f(2,4)=-510
486     exch2_itlo_c(2,4)=0
487     exch2_ithi_c(2,4)=52
488     exch2_jtlo_c(2,4)=511
489     exch2_jthi_c(2,4)=511
490     exch2_opposingSend_record(2,4)=1
491    
492     exch2_neighbourId(3,4)=5
493     exch2_pi(1,3,4)=1
494     exch2_pi(2,3,4)=0
495     exch2_pj(1,3,4)=0
496     exch2_pj(2,3,4)=1
497     exch2_oi(3,4)=0
498     exch2_oi_f(3,4)=0
499     exch2_oj(3,4)=0
500     exch2_oj_f(3,4)=0
501     exch2_itlo_c(3,4)=0
502     exch2_ithi_c(3,4)=0
503     exch2_jtlo_c(3,4)=0
504     exch2_jthi_c(3,4)=511
505     exch2_opposingSend_record(3,4)=4
506    
507     exch2_neighbourId(4,4)=3
508     exch2_pi(1,4,4)=1
509     exch2_pi(2,4,4)=0
510     exch2_pj(1,4,4)=0
511     exch2_pj(2,4,4)=1
512     exch2_oi(4,4)=0
513     exch2_oi_f(4,4)=0
514     exch2_oj(4,4)=0
515     exch2_oj_f(4,4)=0
516     exch2_itlo_c(4,4)=52
517     exch2_ithi_c(4,4)=52
518     exch2_jtlo_c(4,4)=0
519     exch2_jthi_c(4,4)=511
520     exch2_opposingSend_record(4,4)=3
521     RETURN
522     END
523    
524     SUBROUTINE W2_E2SETUP_5
525     C Topology for tile 5
526     #include "W2_EXCH2_TOPOLOGY.h"
527     exch2_tnx(5)=51
528     exch2_tny(5)=510
529     exch2_tbasex(5)=204
530     exch2_tbasey(5)=0
531     exch2_txglobalo(5)=205
532     exch2_tyglobalo(5)=1
533     exch2_isWedge(5)=0
534     exch2_isNedge(5)=1
535     exch2_isEedge(5)=0
536     exch2_isSedge(5)=1
537     exch2_myFace(5)=1
538     exch2_mydnx(5)=510
539     exch2_mydny(5)=510
540     exch2_nNeighbours(5)=4
541    
542     exch2_neighbourId(1,5)=21
543     exch2_pi(1,1,5)=0
544     exch2_pi(2,1,5)=-1
545     exch2_pj(1,1,5)=1
546     exch2_pj(2,1,5)=0
547     exch2_oi(1,5)=511
548     exch2_oi_f(1,5)=512
549     exch2_oj(1,5)=510
550     exch2_oj_f(1,5)=510
551     exch2_itlo_c(1,5)=0
552     exch2_ithi_c(1,5)=0
553     exch2_jtlo_c(1,5)=255
554     exch2_jthi_c(1,5)=307
555     exch2_opposingSend_record(1,5)=8
556    
557     exch2_neighbourId(2,5)=55
558     exch2_pi(1,2,5)=1
559     exch2_pi(2,2,5)=0
560     exch2_pj(1,2,5)=0
561     exch2_pj(2,2,5)=1
562     exch2_oi(2,5)=0
563     exch2_oi_f(2,5)=0
564     exch2_oj(2,5)=-510
565     exch2_oj_f(2,5)=-510
566     exch2_itlo_c(2,5)=0
567     exch2_ithi_c(2,5)=52
568     exch2_jtlo_c(2,5)=511
569     exch2_jthi_c(2,5)=511
570     exch2_opposingSend_record(2,5)=1
571    
572     exch2_neighbourId(3,5)=6
573     exch2_pi(1,3,5)=1
574     exch2_pi(2,3,5)=0
575     exch2_pj(1,3,5)=0
576     exch2_pj(2,3,5)=1
577     exch2_oi(3,5)=0
578     exch2_oi_f(3,5)=0
579     exch2_oj(3,5)=0
580     exch2_oj_f(3,5)=0
581     exch2_itlo_c(3,5)=0
582     exch2_ithi_c(3,5)=0
583     exch2_jtlo_c(3,5)=0
584     exch2_jthi_c(3,5)=511
585     exch2_opposingSend_record(3,5)=4
586    
587     exch2_neighbourId(4,5)=4
588     exch2_pi(1,4,5)=1
589     exch2_pi(2,4,5)=0
590     exch2_pj(1,4,5)=0
591     exch2_pj(2,4,5)=1
592     exch2_oi(4,5)=0
593     exch2_oi_f(4,5)=0
594     exch2_oj(4,5)=0
595     exch2_oj_f(4,5)=0
596     exch2_itlo_c(4,5)=52
597     exch2_ithi_c(4,5)=52
598     exch2_jtlo_c(4,5)=0
599     exch2_jthi_c(4,5)=511
600     exch2_opposingSend_record(4,5)=3
601     RETURN
602     END
603    
604     SUBROUTINE W2_E2SETUP_6
605     C Topology for tile 6
606     #include "W2_EXCH2_TOPOLOGY.h"
607     exch2_tnx(6)=51
608     exch2_tny(6)=510
609     exch2_tbasex(6)=255
610     exch2_tbasey(6)=0
611     exch2_txglobalo(6)=256
612     exch2_tyglobalo(6)=1
613     exch2_isWedge(6)=0
614     exch2_isNedge(6)=1
615     exch2_isEedge(6)=0
616     exch2_isSedge(6)=1
617     exch2_myFace(6)=1
618     exch2_mydnx(6)=510
619     exch2_mydny(6)=510
620     exch2_nNeighbours(6)=4
621    
622     exch2_neighbourId(1,6)=21
623     exch2_pi(1,1,6)=0
624     exch2_pi(2,1,6)=-1
625     exch2_pj(1,1,6)=1
626     exch2_pj(2,1,6)=0
627     exch2_oi(1,6)=511
628     exch2_oi_f(1,6)=512
629     exch2_oj(1,6)=510
630     exch2_oj_f(1,6)=510
631     exch2_itlo_c(1,6)=0
632     exch2_ithi_c(1,6)=0
633     exch2_jtlo_c(1,6)=204
634     exch2_jthi_c(1,6)=256
635     exch2_opposingSend_record(1,6)=9
636    
637     exch2_neighbourId(2,6)=56
638     exch2_pi(1,2,6)=1
639     exch2_pi(2,2,6)=0
640     exch2_pj(1,2,6)=0
641     exch2_pj(2,2,6)=1
642     exch2_oi(2,6)=0
643     exch2_oi_f(2,6)=0
644     exch2_oj(2,6)=-510
645     exch2_oj_f(2,6)=-510
646     exch2_itlo_c(2,6)=0
647     exch2_ithi_c(2,6)=52
648     exch2_jtlo_c(2,6)=511
649     exch2_jthi_c(2,6)=511
650     exch2_opposingSend_record(2,6)=1
651    
652     exch2_neighbourId(3,6)=7
653     exch2_pi(1,3,6)=1
654     exch2_pi(2,3,6)=0
655     exch2_pj(1,3,6)=0
656     exch2_pj(2,3,6)=1
657     exch2_oi(3,6)=0
658     exch2_oi_f(3,6)=0
659     exch2_oj(3,6)=0
660     exch2_oj_f(3,6)=0
661     exch2_itlo_c(3,6)=0
662     exch2_ithi_c(3,6)=0
663     exch2_jtlo_c(3,6)=0
664     exch2_jthi_c(3,6)=511
665     exch2_opposingSend_record(3,6)=4
666    
667     exch2_neighbourId(4,6)=5
668     exch2_pi(1,4,6)=1
669     exch2_pi(2,4,6)=0
670     exch2_pj(1,4,6)=0
671     exch2_pj(2,4,6)=1
672     exch2_oi(4,6)=0
673     exch2_oi_f(4,6)=0
674     exch2_oj(4,6)=0
675     exch2_oj_f(4,6)=0
676     exch2_itlo_c(4,6)=52
677     exch2_ithi_c(4,6)=52
678     exch2_jtlo_c(4,6)=0
679     exch2_jthi_c(4,6)=511
680     exch2_opposingSend_record(4,6)=3
681     RETURN
682     END
683    
684     SUBROUTINE W2_E2SETUP_7
685     C Topology for tile 7
686     #include "W2_EXCH2_TOPOLOGY.h"
687     exch2_tnx(7)=51
688     exch2_tny(7)=510
689     exch2_tbasex(7)=306
690     exch2_tbasey(7)=0
691     exch2_txglobalo(7)=307
692     exch2_tyglobalo(7)=1
693     exch2_isWedge(7)=0
694     exch2_isNedge(7)=1
695     exch2_isEedge(7)=0
696     exch2_isSedge(7)=1
697     exch2_myFace(7)=1
698     exch2_mydnx(7)=510
699     exch2_mydny(7)=510
700     exch2_nNeighbours(7)=4
701    
702     exch2_neighbourId(1,7)=21
703     exch2_pi(1,1,7)=0
704     exch2_pi(2,1,7)=-1
705     exch2_pj(1,1,7)=1
706     exch2_pj(2,1,7)=0
707     exch2_oi(1,7)=511
708     exch2_oi_f(1,7)=512
709     exch2_oj(1,7)=510
710     exch2_oj_f(1,7)=510
711     exch2_itlo_c(1,7)=0
712     exch2_ithi_c(1,7)=0
713     exch2_jtlo_c(1,7)=153
714     exch2_jthi_c(1,7)=205
715     exch2_opposingSend_record(1,7)=10
716    
717     exch2_neighbourId(2,7)=57
718     exch2_pi(1,2,7)=1
719     exch2_pi(2,2,7)=0
720     exch2_pj(1,2,7)=0
721     exch2_pj(2,2,7)=1
722     exch2_oi(2,7)=0
723     exch2_oi_f(2,7)=0
724     exch2_oj(2,7)=-510
725     exch2_oj_f(2,7)=-510
726     exch2_itlo_c(2,7)=0
727     exch2_ithi_c(2,7)=52
728     exch2_jtlo_c(2,7)=511
729     exch2_jthi_c(2,7)=511
730     exch2_opposingSend_record(2,7)=1
731    
732     exch2_neighbourId(3,7)=8
733     exch2_pi(1,3,7)=1
734     exch2_pi(2,3,7)=0
735     exch2_pj(1,3,7)=0
736     exch2_pj(2,3,7)=1
737     exch2_oi(3,7)=0
738     exch2_oi_f(3,7)=0
739     exch2_oj(3,7)=0
740     exch2_oj_f(3,7)=0
741     exch2_itlo_c(3,7)=0
742     exch2_ithi_c(3,7)=0
743     exch2_jtlo_c(3,7)=0
744     exch2_jthi_c(3,7)=511
745     exch2_opposingSend_record(3,7)=4
746    
747     exch2_neighbourId(4,7)=6
748     exch2_pi(1,4,7)=1
749     exch2_pi(2,4,7)=0
750     exch2_pj(1,4,7)=0
751     exch2_pj(2,4,7)=1
752     exch2_oi(4,7)=0
753     exch2_oi_f(4,7)=0
754     exch2_oj(4,7)=0
755     exch2_oj_f(4,7)=0
756     exch2_itlo_c(4,7)=52
757     exch2_ithi_c(4,7)=52
758     exch2_jtlo_c(4,7)=0
759     exch2_jthi_c(4,7)=511
760     exch2_opposingSend_record(4,7)=3
761     RETURN
762     END
763    
764     SUBROUTINE W2_E2SETUP_8
765     C Topology for tile 8
766     #include "W2_EXCH2_TOPOLOGY.h"
767     exch2_tnx(8)=51
768     exch2_tny(8)=510
769     exch2_tbasex(8)=357
770     exch2_tbasey(8)=0
771     exch2_txglobalo(8)=358
772     exch2_tyglobalo(8)=1
773     exch2_isWedge(8)=0
774     exch2_isNedge(8)=1
775     exch2_isEedge(8)=0
776     exch2_isSedge(8)=1
777     exch2_myFace(8)=1
778     exch2_mydnx(8)=510
779     exch2_mydny(8)=510
780     exch2_nNeighbours(8)=4
781    
782     exch2_neighbourId(1,8)=21
783     exch2_pi(1,1,8)=0
784     exch2_pi(2,1,8)=-1
785     exch2_pj(1,1,8)=1
786     exch2_pj(2,1,8)=0
787     exch2_oi(1,8)=511
788     exch2_oi_f(1,8)=512
789     exch2_oj(1,8)=510
790     exch2_oj_f(1,8)=510
791     exch2_itlo_c(1,8)=0
792     exch2_ithi_c(1,8)=0
793     exch2_jtlo_c(1,8)=102
794     exch2_jthi_c(1,8)=154
795     exch2_opposingSend_record(1,8)=11
796    
797     exch2_neighbourId(2,8)=58
798     exch2_pi(1,2,8)=1
799     exch2_pi(2,2,8)=0
800     exch2_pj(1,2,8)=0
801     exch2_pj(2,2,8)=1
802     exch2_oi(2,8)=0
803     exch2_oi_f(2,8)=0
804     exch2_oj(2,8)=-510
805     exch2_oj_f(2,8)=-510
806     exch2_itlo_c(2,8)=0
807     exch2_ithi_c(2,8)=52
808     exch2_jtlo_c(2,8)=511
809     exch2_jthi_c(2,8)=511
810     exch2_opposingSend_record(2,8)=1
811    
812     exch2_neighbourId(3,8)=9
813     exch2_pi(1,3,8)=1
814     exch2_pi(2,3,8)=0
815     exch2_pj(1,3,8)=0
816     exch2_pj(2,3,8)=1
817     exch2_oi(3,8)=0
818     exch2_oi_f(3,8)=0
819     exch2_oj(3,8)=0
820     exch2_oj_f(3,8)=0
821     exch2_itlo_c(3,8)=0
822     exch2_ithi_c(3,8)=0
823     exch2_jtlo_c(3,8)=0
824     exch2_jthi_c(3,8)=511
825     exch2_opposingSend_record(3,8)=4
826    
827     exch2_neighbourId(4,8)=7
828     exch2_pi(1,4,8)=1
829     exch2_pi(2,4,8)=0
830     exch2_pj(1,4,8)=0
831     exch2_pj(2,4,8)=1
832     exch2_oi(4,8)=0
833     exch2_oi_f(4,8)=0
834     exch2_oj(4,8)=0
835     exch2_oj_f(4,8)=0
836     exch2_itlo_c(4,8)=52
837     exch2_ithi_c(4,8)=52
838     exch2_jtlo_c(4,8)=0
839     exch2_jthi_c(4,8)=511
840     exch2_opposingSend_record(4,8)=3
841     RETURN
842     END
843    
844     SUBROUTINE W2_E2SETUP_9
845     C Topology for tile 9
846     #include "W2_EXCH2_TOPOLOGY.h"
847     exch2_tnx(9)=51
848     exch2_tny(9)=510
849     exch2_tbasex(9)=408
850     exch2_tbasey(9)=0
851     exch2_txglobalo(9)=409
852     exch2_tyglobalo(9)=1
853     exch2_isWedge(9)=0
854     exch2_isNedge(9)=1
855     exch2_isEedge(9)=0
856     exch2_isSedge(9)=1
857     exch2_myFace(9)=1
858     exch2_mydnx(9)=510
859     exch2_mydny(9)=510
860     exch2_nNeighbours(9)=4
861    
862     exch2_neighbourId(1,9)=21
863     exch2_pi(1,1,9)=0
864     exch2_pi(2,1,9)=-1
865     exch2_pj(1,1,9)=1
866     exch2_pj(2,1,9)=0
867     exch2_oi(1,9)=511
868     exch2_oi_f(1,9)=512
869     exch2_oj(1,9)=510
870     exch2_oj_f(1,9)=510
871     exch2_itlo_c(1,9)=0
872     exch2_ithi_c(1,9)=0
873     exch2_jtlo_c(1,9)=51
874     exch2_jthi_c(1,9)=103
875     exch2_opposingSend_record(1,9)=12
876    
877     exch2_neighbourId(2,9)=59
878     exch2_pi(1,2,9)=1
879     exch2_pi(2,2,9)=0
880     exch2_pj(1,2,9)=0
881     exch2_pj(2,2,9)=1
882     exch2_oi(2,9)=0
883     exch2_oi_f(2,9)=0
884     exch2_oj(2,9)=-510
885     exch2_oj_f(2,9)=-510
886     exch2_itlo_c(2,9)=0
887     exch2_ithi_c(2,9)=52
888     exch2_jtlo_c(2,9)=511
889     exch2_jthi_c(2,9)=511
890     exch2_opposingSend_record(2,9)=1
891    
892     exch2_neighbourId(3,9)=10
893     exch2_pi(1,3,9)=1
894     exch2_pi(2,3,9)=0
895     exch2_pj(1,3,9)=0
896     exch2_pj(2,3,9)=1
897     exch2_oi(3,9)=0
898     exch2_oi_f(3,9)=0
899     exch2_oj(3,9)=0
900     exch2_oj_f(3,9)=0
901     exch2_itlo_c(3,9)=0
902     exch2_ithi_c(3,9)=0
903     exch2_jtlo_c(3,9)=0
904     exch2_jthi_c(3,9)=511
905     exch2_opposingSend_record(3,9)=4
906    
907     exch2_neighbourId(4,9)=8
908     exch2_pi(1,4,9)=1
909     exch2_pi(2,4,9)=0
910     exch2_pj(1,4,9)=0
911     exch2_pj(2,4,9)=1
912     exch2_oi(4,9)=0
913     exch2_oi_f(4,9)=0
914     exch2_oj(4,9)=0
915     exch2_oj_f(4,9)=0
916     exch2_itlo_c(4,9)=52
917     exch2_ithi_c(4,9)=52
918     exch2_jtlo_c(4,9)=0
919     exch2_jthi_c(4,9)=511
920     exch2_opposingSend_record(4,9)=3
921     RETURN
922     END
923    
924     SUBROUTINE W2_E2SETUP_10
925     C Topology for tile 10
926     #include "W2_EXCH2_TOPOLOGY.h"
927     exch2_tnx(10)=51
928     exch2_tny(10)=510
929     exch2_tbasex(10)=459
930     exch2_tbasey(10)=0
931     exch2_txglobalo(10)=460
932     exch2_tyglobalo(10)=1
933     exch2_isWedge(10)=0
934     exch2_isNedge(10)=1
935     exch2_isEedge(10)=1
936     exch2_isSedge(10)=1
937     exch2_myFace(10)=1
938     exch2_mydnx(10)=510
939     exch2_mydny(10)=510
940     exch2_nNeighbours(10)=4
941    
942     exch2_neighbourId(1,10)=21
943     exch2_pi(1,1,10)=0
944     exch2_pi(2,1,10)=-1
945     exch2_pj(1,1,10)=1
946     exch2_pj(2,1,10)=0
947     exch2_oi(1,10)=511
948     exch2_oi_f(1,10)=512
949     exch2_oj(1,10)=510
950     exch2_oj_f(1,10)=510
951     exch2_itlo_c(1,10)=0
952     exch2_ithi_c(1,10)=0
953     exch2_jtlo_c(1,10)=0
954     exch2_jthi_c(1,10)=52
955     exch2_opposingSend_record(1,10)=13
956    
957     exch2_neighbourId(2,10)=60
958     exch2_pi(1,2,10)=1
959     exch2_pi(2,2,10)=0
960     exch2_pj(1,2,10)=0
961     exch2_pj(2,2,10)=1
962     exch2_oi(2,10)=0
963     exch2_oi_f(2,10)=0
964     exch2_oj(2,10)=-510
965     exch2_oj_f(2,10)=-510
966     exch2_itlo_c(2,10)=0
967     exch2_ithi_c(2,10)=52
968     exch2_jtlo_c(2,10)=511
969     exch2_jthi_c(2,10)=511
970     exch2_opposingSend_record(2,10)=1
971    
972     exch2_neighbourId(3,10)=11
973     exch2_pi(1,3,10)=1
974     exch2_pi(2,3,10)=0
975     exch2_pj(1,3,10)=0
976     exch2_pj(2,3,10)=1
977     exch2_oi(3,10)=510
978     exch2_oi_f(3,10)=510
979     exch2_oj(3,10)=0
980     exch2_oj_f(3,10)=0
981     exch2_itlo_c(3,10)=0
982     exch2_ithi_c(3,10)=0
983     exch2_jtlo_c(3,10)=0
984     exch2_jthi_c(3,10)=511
985     exch2_opposingSend_record(3,10)=4
986    
987     exch2_neighbourId(4,10)=9
988     exch2_pi(1,4,10)=1
989     exch2_pi(2,4,10)=0
990     exch2_pj(1,4,10)=0
991     exch2_pj(2,4,10)=1
992     exch2_oi(4,10)=0
993     exch2_oi_f(4,10)=0
994     exch2_oj(4,10)=0
995     exch2_oj_f(4,10)=0
996     exch2_itlo_c(4,10)=52
997     exch2_ithi_c(4,10)=52
998     exch2_jtlo_c(4,10)=0
999     exch2_jthi_c(4,10)=511
1000     exch2_opposingSend_record(4,10)=3
1001     RETURN
1002     END
1003    
1004     SUBROUTINE W2_E2SETUP_11
1005     C Topology for tile 11
1006     #include "W2_EXCH2_TOPOLOGY.h"
1007     exch2_tnx(11)=51
1008     exch2_tny(11)=510
1009     exch2_tbasex(11)=0
1010     exch2_tbasey(11)=0
1011     exch2_txglobalo(11)=511
1012     exch2_tyglobalo(11)=1
1013     exch2_isWedge(11)=1
1014     exch2_isNedge(11)=1
1015     exch2_isEedge(11)=0
1016     exch2_isSedge(11)=1
1017     exch2_myFace(11)=2
1018     exch2_mydnx(11)=510
1019     exch2_mydny(11)=510
1020     exch2_nNeighbours(11)=4
1021    
1022     exch2_neighbourId(1,11)=21
1023     exch2_pi(1,1,11)=1
1024     exch2_pi(2,1,11)=0
1025     exch2_pj(1,1,11)=0
1026     exch2_pj(2,1,11)=1
1027     exch2_oi(1,11)=0
1028     exch2_oi_f(1,11)=0
1029     exch2_oj(1,11)=510
1030     exch2_oj_f(1,11)=510
1031     exch2_itlo_c(1,11)=0
1032     exch2_ithi_c(1,11)=52
1033     exch2_jtlo_c(1,11)=0
1034     exch2_jthi_c(1,11)=0
1035     exch2_opposingSend_record(1,11)=2
1036    
1037     exch2_neighbourId(2,11)=60
1038     exch2_pi(1,2,11)=0
1039     exch2_pi(2,2,11)=-1
1040     exch2_pj(1,2,11)=1
1041     exch2_pj(2,2,11)=0
1042     exch2_oi(2,11)=511
1043     exch2_oi_f(2,11)=512
1044     exch2_oj(2,11)=-510
1045     exch2_oj_f(2,11)=-510
1046     exch2_itlo_c(2,11)=52
1047     exch2_ithi_c(2,11)=52
1048     exch2_jtlo_c(2,11)=459
1049     exch2_jthi_c(2,11)=511
1050     exch2_opposingSend_record(2,11)=3
1051    
1052     exch2_neighbourId(3,11)=12
1053     exch2_pi(1,3,11)=1
1054     exch2_pi(2,3,11)=0
1055     exch2_pj(1,3,11)=0
1056     exch2_pj(2,3,11)=1
1057     exch2_oi(3,11)=0
1058     exch2_oi_f(3,11)=0
1059     exch2_oj(3,11)=0
1060     exch2_oj_f(3,11)=0
1061     exch2_itlo_c(3,11)=0
1062     exch2_ithi_c(3,11)=0
1063     exch2_jtlo_c(3,11)=0
1064     exch2_jthi_c(3,11)=511
1065     exch2_opposingSend_record(3,11)=4
1066    
1067     exch2_neighbourId(4,11)=10
1068     exch2_pi(1,4,11)=1
1069     exch2_pi(2,4,11)=0
1070     exch2_pj(1,4,11)=0
1071     exch2_pj(2,4,11)=1
1072     exch2_oi(4,11)=-510
1073     exch2_oi_f(4,11)=-510
1074     exch2_oj(4,11)=0
1075     exch2_oj_f(4,11)=0
1076     exch2_itlo_c(4,11)=52
1077     exch2_ithi_c(4,11)=52
1078     exch2_jtlo_c(4,11)=0
1079     exch2_jthi_c(4,11)=511
1080     exch2_opposingSend_record(4,11)=3
1081     RETURN
1082     END
1083    
1084     SUBROUTINE W2_E2SETUP_12
1085     C Topology for tile 12
1086     #include "W2_EXCH2_TOPOLOGY.h"
1087     exch2_tnx(12)=51
1088     exch2_tny(12)=510
1089     exch2_tbasex(12)=51
1090     exch2_tbasey(12)=0
1091     exch2_txglobalo(12)=562
1092     exch2_tyglobalo(12)=1
1093     exch2_isWedge(12)=0
1094     exch2_isNedge(12)=1
1095     exch2_isEedge(12)=0
1096     exch2_isSedge(12)=1
1097     exch2_myFace(12)=2
1098     exch2_mydnx(12)=510
1099     exch2_mydny(12)=510
1100     exch2_nNeighbours(12)=4
1101    
1102     exch2_neighbourId(1,12)=22
1103     exch2_pi(1,1,12)=1
1104     exch2_pi(2,1,12)=0
1105     exch2_pj(1,1,12)=0
1106     exch2_pj(2,1,12)=1
1107     exch2_oi(1,12)=0
1108     exch2_oi_f(1,12)=0
1109     exch2_oj(1,12)=510
1110     exch2_oj_f(1,12)=510
1111     exch2_itlo_c(1,12)=0
1112     exch2_ithi_c(1,12)=52
1113     exch2_jtlo_c(1,12)=0
1114     exch2_jthi_c(1,12)=0
1115     exch2_opposingSend_record(1,12)=2
1116    
1117     exch2_neighbourId(2,12)=60
1118     exch2_pi(1,2,12)=0
1119     exch2_pi(2,2,12)=-1
1120     exch2_pj(1,2,12)=1
1121     exch2_pj(2,2,12)=0
1122     exch2_oi(2,12)=511
1123     exch2_oi_f(2,12)=512
1124     exch2_oj(2,12)=-510
1125     exch2_oj_f(2,12)=-510
1126     exch2_itlo_c(2,12)=52
1127     exch2_ithi_c(2,12)=52
1128     exch2_jtlo_c(2,12)=408
1129     exch2_jthi_c(2,12)=460
1130     exch2_opposingSend_record(2,12)=4
1131    
1132     exch2_neighbourId(3,12)=13
1133     exch2_pi(1,3,12)=1
1134     exch2_pi(2,3,12)=0
1135     exch2_pj(1,3,12)=0
1136     exch2_pj(2,3,12)=1
1137     exch2_oi(3,12)=0
1138     exch2_oi_f(3,12)=0
1139     exch2_oj(3,12)=0
1140     exch2_oj_f(3,12)=0
1141     exch2_itlo_c(3,12)=0
1142     exch2_ithi_c(3,12)=0
1143     exch2_jtlo_c(3,12)=0
1144     exch2_jthi_c(3,12)=511
1145     exch2_opposingSend_record(3,12)=4
1146    
1147     exch2_neighbourId(4,12)=11
1148     exch2_pi(1,4,12)=1
1149     exch2_pi(2,4,12)=0
1150     exch2_pj(1,4,12)=0
1151     exch2_pj(2,4,12)=1
1152     exch2_oi(4,12)=0
1153     exch2_oi_f(4,12)=0
1154     exch2_oj(4,12)=0
1155     exch2_oj_f(4,12)=0
1156     exch2_itlo_c(4,12)=52
1157     exch2_ithi_c(4,12)=52
1158     exch2_jtlo_c(4,12)=0
1159     exch2_jthi_c(4,12)=511
1160     exch2_opposingSend_record(4,12)=3
1161     RETURN
1162     END
1163    
1164     SUBROUTINE W2_E2SETUP_13
1165     C Topology for tile 13
1166     #include "W2_EXCH2_TOPOLOGY.h"
1167     exch2_tnx(13)=51
1168     exch2_tny(13)=510
1169     exch2_tbasex(13)=102
1170     exch2_tbasey(13)=0
1171     exch2_txglobalo(13)=613
1172     exch2_tyglobalo(13)=1
1173     exch2_isWedge(13)=0
1174     exch2_isNedge(13)=1
1175     exch2_isEedge(13)=0
1176     exch2_isSedge(13)=1
1177     exch2_myFace(13)=2
1178     exch2_mydnx(13)=510
1179     exch2_mydny(13)=510
1180     exch2_nNeighbours(13)=4
1181    
1182     exch2_neighbourId(1,13)=23
1183     exch2_pi(1,1,13)=1
1184     exch2_pi(2,1,13)=0
1185     exch2_pj(1,1,13)=0
1186     exch2_pj(2,1,13)=1
1187     exch2_oi(1,13)=0
1188     exch2_oi_f(1,13)=0
1189     exch2_oj(1,13)=510
1190     exch2_oj_f(1,13)=510
1191     exch2_itlo_c(1,13)=0
1192     exch2_ithi_c(1,13)=52
1193     exch2_jtlo_c(1,13)=0
1194     exch2_jthi_c(1,13)=0
1195     exch2_opposingSend_record(1,13)=2
1196    
1197     exch2_neighbourId(2,13)=60
1198     exch2_pi(1,2,13)=0
1199     exch2_pi(2,2,13)=-1
1200     exch2_pj(1,2,13)=1
1201     exch2_pj(2,2,13)=0
1202     exch2_oi(2,13)=511
1203     exch2_oi_f(2,13)=512
1204     exch2_oj(2,13)=-510
1205     exch2_oj_f(2,13)=-510
1206     exch2_itlo_c(2,13)=52
1207     exch2_ithi_c(2,13)=52
1208     exch2_jtlo_c(2,13)=357
1209     exch2_jthi_c(2,13)=409
1210     exch2_opposingSend_record(2,13)=5
1211    
1212     exch2_neighbourId(3,13)=14
1213     exch2_pi(1,3,13)=1
1214     exch2_pi(2,3,13)=0
1215     exch2_pj(1,3,13)=0
1216     exch2_pj(2,3,13)=1
1217     exch2_oi(3,13)=0
1218     exch2_oi_f(3,13)=0
1219     exch2_oj(3,13)=0
1220     exch2_oj_f(3,13)=0
1221     exch2_itlo_c(3,13)=0
1222     exch2_ithi_c(3,13)=0
1223     exch2_jtlo_c(3,13)=0
1224     exch2_jthi_c(3,13)=511
1225     exch2_opposingSend_record(3,13)=4
1226    
1227     exch2_neighbourId(4,13)=12
1228     exch2_pi(1,4,13)=1
1229     exch2_pi(2,4,13)=0
1230     exch2_pj(1,4,13)=0
1231     exch2_pj(2,4,13)=1
1232     exch2_oi(4,13)=0
1233     exch2_oi_f(4,13)=0
1234     exch2_oj(4,13)=0
1235     exch2_oj_f(4,13)=0
1236     exch2_itlo_c(4,13)=52
1237     exch2_ithi_c(4,13)=52
1238     exch2_jtlo_c(4,13)=0
1239     exch2_jthi_c(4,13)=511
1240     exch2_opposingSend_record(4,13)=3
1241     RETURN
1242     END
1243    
1244     SUBROUTINE W2_E2SETUP_14
1245     C Topology for tile 14
1246     #include "W2_EXCH2_TOPOLOGY.h"
1247     exch2_tnx(14)=51
1248     exch2_tny(14)=510
1249     exch2_tbasex(14)=153
1250     exch2_tbasey(14)=0
1251     exch2_txglobalo(14)=664
1252     exch2_tyglobalo(14)=1
1253     exch2_isWedge(14)=0
1254     exch2_isNedge(14)=1
1255     exch2_isEedge(14)=0
1256     exch2_isSedge(14)=1
1257     exch2_myFace(14)=2
1258     exch2_mydnx(14)=510
1259     exch2_mydny(14)=510
1260     exch2_nNeighbours(14)=4
1261    
1262     exch2_neighbourId(1,14)=24
1263     exch2_pi(1,1,14)=1
1264     exch2_pi(2,1,14)=0
1265     exch2_pj(1,1,14)=0
1266     exch2_pj(2,1,14)=1
1267     exch2_oi(1,14)=0
1268     exch2_oi_f(1,14)=0
1269     exch2_oj(1,14)=510
1270     exch2_oj_f(1,14)=510
1271     exch2_itlo_c(1,14)=0
1272     exch2_ithi_c(1,14)=52
1273     exch2_jtlo_c(1,14)=0
1274     exch2_jthi_c(1,14)=0
1275     exch2_opposingSend_record(1,14)=2
1276    
1277     exch2_neighbourId(2,14)=60
1278     exch2_pi(1,2,14)=0
1279     exch2_pi(2,2,14)=-1
1280     exch2_pj(1,2,14)=1
1281     exch2_pj(2,2,14)=0
1282     exch2_oi(2,14)=511
1283     exch2_oi_f(2,14)=512
1284     exch2_oj(2,14)=-510
1285     exch2_oj_f(2,14)=-510
1286     exch2_itlo_c(2,14)=52
1287     exch2_ithi_c(2,14)=52
1288     exch2_jtlo_c(2,14)=306
1289     exch2_jthi_c(2,14)=358
1290     exch2_opposingSend_record(2,14)=6
1291    
1292     exch2_neighbourId(3,14)=15
1293     exch2_pi(1,3,14)=1
1294     exch2_pi(2,3,14)=0
1295     exch2_pj(1,3,14)=0
1296     exch2_pj(2,3,14)=1
1297     exch2_oi(3,14)=0
1298     exch2_oi_f(3,14)=0
1299     exch2_oj(3,14)=0
1300     exch2_oj_f(3,14)=0
1301     exch2_itlo_c(3,14)=0
1302     exch2_ithi_c(3,14)=0
1303     exch2_jtlo_c(3,14)=0
1304     exch2_jthi_c(3,14)=511
1305     exch2_opposingSend_record(3,14)=4
1306    
1307     exch2_neighbourId(4,14)=13
1308     exch2_pi(1,4,14)=1
1309     exch2_pi(2,4,14)=0
1310     exch2_pj(1,4,14)=0
1311     exch2_pj(2,4,14)=1
1312     exch2_oi(4,14)=0
1313     exch2_oi_f(4,14)=0
1314     exch2_oj(4,14)=0
1315     exch2_oj_f(4,14)=0
1316     exch2_itlo_c(4,14)=52
1317     exch2_ithi_c(4,14)=52
1318     exch2_jtlo_c(4,14)=0
1319     exch2_jthi_c(4,14)=511
1320     exch2_opposingSend_record(4,14)=3
1321     RETURN
1322     END
1323    
1324     SUBROUTINE W2_E2SETUP_15
1325     C Topology for tile 15
1326     #include "W2_EXCH2_TOPOLOGY.h"
1327     exch2_tnx(15)=51
1328     exch2_tny(15)=510
1329     exch2_tbasex(15)=204
1330     exch2_tbasey(15)=0
1331     exch2_txglobalo(15)=715
1332     exch2_tyglobalo(15)=1
1333     exch2_isWedge(15)=0
1334     exch2_isNedge(15)=1
1335     exch2_isEedge(15)=0
1336     exch2_isSedge(15)=1
1337     exch2_myFace(15)=2
1338     exch2_mydnx(15)=510
1339     exch2_mydny(15)=510
1340     exch2_nNeighbours(15)=4
1341    
1342     exch2_neighbourId(1,15)=25
1343     exch2_pi(1,1,15)=1
1344     exch2_pi(2,1,15)=0
1345     exch2_pj(1,1,15)=0
1346     exch2_pj(2,1,15)=1
1347     exch2_oi(1,15)=0
1348     exch2_oi_f(1,15)=0
1349     exch2_oj(1,15)=510
1350     exch2_oj_f(1,15)=510
1351     exch2_itlo_c(1,15)=0
1352     exch2_ithi_c(1,15)=52
1353     exch2_jtlo_c(1,15)=0
1354     exch2_jthi_c(1,15)=0
1355     exch2_opposingSend_record(1,15)=2
1356    
1357     exch2_neighbourId(2,15)=60
1358     exch2_pi(1,2,15)=0
1359     exch2_pi(2,2,15)=-1
1360     exch2_pj(1,2,15)=1
1361     exch2_pj(2,2,15)=0
1362     exch2_oi(2,15)=511
1363     exch2_oi_f(2,15)=512
1364     exch2_oj(2,15)=-510
1365     exch2_oj_f(2,15)=-510
1366     exch2_itlo_c(2,15)=52
1367     exch2_ithi_c(2,15)=52
1368     exch2_jtlo_c(2,15)=255
1369     exch2_jthi_c(2,15)=307
1370     exch2_opposingSend_record(2,15)=7
1371    
1372     exch2_neighbourId(3,15)=16
1373     exch2_pi(1,3,15)=1
1374     exch2_pi(2,3,15)=0
1375     exch2_pj(1,3,15)=0
1376     exch2_pj(2,3,15)=1
1377     exch2_oi(3,15)=0
1378     exch2_oi_f(3,15)=0
1379     exch2_oj(3,15)=0
1380     exch2_oj_f(3,15)=0
1381     exch2_itlo_c(3,15)=0
1382     exch2_ithi_c(3,15)=0
1383     exch2_jtlo_c(3,15)=0
1384     exch2_jthi_c(3,15)=511
1385     exch2_opposingSend_record(3,15)=4
1386    
1387     exch2_neighbourId(4,15)=14
1388     exch2_pi(1,4,15)=1
1389     exch2_pi(2,4,15)=0
1390     exch2_pj(1,4,15)=0
1391     exch2_pj(2,4,15)=1
1392     exch2_oi(4,15)=0
1393     exch2_oi_f(4,15)=0
1394     exch2_oj(4,15)=0
1395     exch2_oj_f(4,15)=0
1396     exch2_itlo_c(4,15)=52
1397     exch2_ithi_c(4,15)=52
1398     exch2_jtlo_c(4,15)=0
1399     exch2_jthi_c(4,15)=511
1400     exch2_opposingSend_record(4,15)=3
1401     RETURN
1402     END
1403    
1404     SUBROUTINE W2_E2SETUP_16
1405     C Topology for tile 16
1406     #include "W2_EXCH2_TOPOLOGY.h"
1407     exch2_tnx(16)=51
1408     exch2_tny(16)=510
1409     exch2_tbasex(16)=255
1410     exch2_tbasey(16)=0
1411     exch2_txglobalo(16)=766
1412     exch2_tyglobalo(16)=1
1413     exch2_isWedge(16)=0
1414     exch2_isNedge(16)=1
1415     exch2_isEedge(16)=0
1416     exch2_isSedge(16)=1
1417     exch2_myFace(16)=2
1418     exch2_mydnx(16)=510
1419     exch2_mydny(16)=510
1420     exch2_nNeighbours(16)=4
1421    
1422     exch2_neighbourId(1,16)=26
1423     exch2_pi(1,1,16)=1
1424     exch2_pi(2,1,16)=0
1425     exch2_pj(1,1,16)=0
1426     exch2_pj(2,1,16)=1
1427     exch2_oi(1,16)=0
1428     exch2_oi_f(1,16)=0
1429     exch2_oj(1,16)=510
1430     exch2_oj_f(1,16)=510
1431     exch2_itlo_c(1,16)=0
1432     exch2_ithi_c(1,16)=52
1433     exch2_jtlo_c(1,16)=0
1434     exch2_jthi_c(1,16)=0
1435     exch2_opposingSend_record(1,16)=2
1436    
1437     exch2_neighbourId(2,16)=60
1438     exch2_pi(1,2,16)=0
1439     exch2_pi(2,2,16)=-1
1440     exch2_pj(1,2,16)=1
1441     exch2_pj(2,2,16)=0
1442     exch2_oi(2,16)=511
1443     exch2_oi_f(2,16)=512
1444     exch2_oj(2,16)=-510
1445     exch2_oj_f(2,16)=-510
1446     exch2_itlo_c(2,16)=52
1447     exch2_ithi_c(2,16)=52
1448     exch2_jtlo_c(2,16)=204
1449     exch2_jthi_c(2,16)=256
1450     exch2_opposingSend_record(2,16)=8
1451    
1452     exch2_neighbourId(3,16)=17
1453     exch2_pi(1,3,16)=1
1454     exch2_pi(2,3,16)=0
1455     exch2_pj(1,3,16)=0
1456     exch2_pj(2,3,16)=1
1457     exch2_oi(3,16)=0
1458     exch2_oi_f(3,16)=0
1459     exch2_oj(3,16)=0
1460     exch2_oj_f(3,16)=0
1461     exch2_itlo_c(3,16)=0
1462     exch2_ithi_c(3,16)=0
1463     exch2_jtlo_c(3,16)=0
1464     exch2_jthi_c(3,16)=511
1465     exch2_opposingSend_record(3,16)=4
1466    
1467     exch2_neighbourId(4,16)=15
1468     exch2_pi(1,4,16)=1
1469     exch2_pi(2,4,16)=0
1470     exch2_pj(1,4,16)=0
1471     exch2_pj(2,4,16)=1
1472     exch2_oi(4,16)=0
1473     exch2_oi_f(4,16)=0
1474     exch2_oj(4,16)=0
1475     exch2_oj_f(4,16)=0
1476     exch2_itlo_c(4,16)=52
1477     exch2_ithi_c(4,16)=52
1478     exch2_jtlo_c(4,16)=0
1479     exch2_jthi_c(4,16)=511
1480     exch2_opposingSend_record(4,16)=3
1481     RETURN
1482     END
1483    
1484     SUBROUTINE W2_E2SETUP_17
1485     C Topology for tile 17
1486     #include "W2_EXCH2_TOPOLOGY.h"
1487     exch2_tnx(17)=51
1488     exch2_tny(17)=510
1489     exch2_tbasex(17)=306
1490     exch2_tbasey(17)=0
1491     exch2_txglobalo(17)=817
1492     exch2_tyglobalo(17)=1
1493     exch2_isWedge(17)=0
1494     exch2_isNedge(17)=1
1495     exch2_isEedge(17)=0
1496     exch2_isSedge(17)=1
1497     exch2_myFace(17)=2
1498     exch2_mydnx(17)=510
1499     exch2_mydny(17)=510
1500     exch2_nNeighbours(17)=4
1501    
1502     exch2_neighbourId(1,17)=27
1503     exch2_pi(1,1,17)=1
1504     exch2_pi(2,1,17)=0
1505     exch2_pj(1,1,17)=0
1506     exch2_pj(2,1,17)=1
1507     exch2_oi(1,17)=0
1508     exch2_oi_f(1,17)=0
1509     exch2_oj(1,17)=510
1510     exch2_oj_f(1,17)=510
1511     exch2_itlo_c(1,17)=0
1512     exch2_ithi_c(1,17)=52
1513     exch2_jtlo_c(1,17)=0
1514     exch2_jthi_c(1,17)=0
1515     exch2_opposingSend_record(1,17)=2
1516    
1517     exch2_neighbourId(2,17)=60
1518     exch2_pi(1,2,17)=0
1519     exch2_pi(2,2,17)=-1
1520     exch2_pj(1,2,17)=1
1521     exch2_pj(2,2,17)=0
1522     exch2_oi(2,17)=511
1523     exch2_oi_f(2,17)=512
1524     exch2_oj(2,17)=-510
1525     exch2_oj_f(2,17)=-510
1526     exch2_itlo_c(2,17)=52
1527     exch2_ithi_c(2,17)=52
1528     exch2_jtlo_c(2,17)=153
1529     exch2_jthi_c(2,17)=205
1530     exch2_opposingSend_record(2,17)=9
1531    
1532     exch2_neighbourId(3,17)=18
1533     exch2_pi(1,3,17)=1
1534     exch2_pi(2,3,17)=0
1535     exch2_pj(1,3,17)=0
1536     exch2_pj(2,3,17)=1
1537     exch2_oi(3,17)=0
1538     exch2_oi_f(3,17)=0
1539     exch2_oj(3,17)=0
1540     exch2_oj_f(3,17)=0
1541     exch2_itlo_c(3,17)=0
1542     exch2_ithi_c(3,17)=0
1543     exch2_jtlo_c(3,17)=0
1544     exch2_jthi_c(3,17)=511
1545     exch2_opposingSend_record(3,17)=4
1546    
1547     exch2_neighbourId(4,17)=16
1548     exch2_pi(1,4,17)=1
1549     exch2_pi(2,4,17)=0
1550     exch2_pj(1,4,17)=0
1551     exch2_pj(2,4,17)=1
1552     exch2_oi(4,17)=0
1553     exch2_oi_f(4,17)=0
1554     exch2_oj(4,17)=0
1555     exch2_oj_f(4,17)=0
1556     exch2_itlo_c(4,17)=52
1557     exch2_ithi_c(4,17)=52
1558     exch2_jtlo_c(4,17)=0
1559     exch2_jthi_c(4,17)=511
1560     exch2_opposingSend_record(4,17)=3
1561     RETURN
1562     END
1563    
1564     SUBROUTINE W2_E2SETUP_18
1565     C Topology for tile 18
1566     #include "W2_EXCH2_TOPOLOGY.h"
1567     exch2_tnx(18)=51
1568     exch2_tny(18)=510
1569     exch2_tbasex(18)=357
1570     exch2_tbasey(18)=0
1571     exch2_txglobalo(18)=868
1572     exch2_tyglobalo(18)=1
1573     exch2_isWedge(18)=0
1574     exch2_isNedge(18)=1
1575     exch2_isEedge(18)=0
1576     exch2_isSedge(18)=1
1577     exch2_myFace(18)=2
1578     exch2_mydnx(18)=510
1579     exch2_mydny(18)=510
1580     exch2_nNeighbours(18)=4
1581    
1582     exch2_neighbourId(1,18)=28
1583     exch2_pi(1,1,18)=1
1584     exch2_pi(2,1,18)=0
1585     exch2_pj(1,1,18)=0
1586     exch2_pj(2,1,18)=1
1587     exch2_oi(1,18)=0
1588     exch2_oi_f(1,18)=0
1589     exch2_oj(1,18)=510
1590     exch2_oj_f(1,18)=510
1591     exch2_itlo_c(1,18)=0
1592     exch2_ithi_c(1,18)=52
1593     exch2_jtlo_c(1,18)=0
1594     exch2_jthi_c(1,18)=0
1595     exch2_opposingSend_record(1,18)=2
1596    
1597     exch2_neighbourId(2,18)=60
1598     exch2_pi(1,2,18)=0
1599     exch2_pi(2,2,18)=-1
1600     exch2_pj(1,2,18)=1
1601     exch2_pj(2,2,18)=0
1602     exch2_oi(2,18)=511
1603     exch2_oi_f(2,18)=512
1604     exch2_oj(2,18)=-510
1605     exch2_oj_f(2,18)=-510
1606     exch2_itlo_c(2,18)=52
1607     exch2_ithi_c(2,18)=52
1608     exch2_jtlo_c(2,18)=102
1609     exch2_jthi_c(2,18)=154
1610     exch2_opposingSend_record(2,18)=10
1611    
1612     exch2_neighbourId(3,18)=19
1613     exch2_pi(1,3,18)=1
1614     exch2_pi(2,3,18)=0
1615     exch2_pj(1,3,18)=0
1616     exch2_pj(2,3,18)=1
1617     exch2_oi(3,18)=0
1618     exch2_oi_f(3,18)=0
1619     exch2_oj(3,18)=0
1620     exch2_oj_f(3,18)=0
1621     exch2_itlo_c(3,18)=0
1622     exch2_ithi_c(3,18)=0
1623     exch2_jtlo_c(3,18)=0
1624     exch2_jthi_c(3,18)=511
1625     exch2_opposingSend_record(3,18)=4
1626    
1627     exch2_neighbourId(4,18)=17
1628     exch2_pi(1,4,18)=1
1629     exch2_pi(2,4,18)=0
1630     exch2_pj(1,4,18)=0
1631     exch2_pj(2,4,18)=1
1632     exch2_oi(4,18)=0
1633     exch2_oi_f(4,18)=0
1634     exch2_oj(4,18)=0
1635     exch2_oj_f(4,18)=0
1636     exch2_itlo_c(4,18)=52
1637     exch2_ithi_c(4,18)=52
1638     exch2_jtlo_c(4,18)=0
1639     exch2_jthi_c(4,18)=511
1640     exch2_opposingSend_record(4,18)=3
1641     RETURN
1642     END
1643    
1644     SUBROUTINE W2_E2SETUP_19
1645     C Topology for tile 19
1646     #include "W2_EXCH2_TOPOLOGY.h"
1647     exch2_tnx(19)=51
1648     exch2_tny(19)=510
1649     exch2_tbasex(19)=408
1650     exch2_tbasey(19)=0
1651     exch2_txglobalo(19)=919
1652     exch2_tyglobalo(19)=1
1653     exch2_isWedge(19)=0
1654     exch2_isNedge(19)=1
1655     exch2_isEedge(19)=0
1656     exch2_isSedge(19)=1
1657     exch2_myFace(19)=2
1658     exch2_mydnx(19)=510
1659     exch2_mydny(19)=510
1660     exch2_nNeighbours(19)=4
1661    
1662     exch2_neighbourId(1,19)=29
1663     exch2_pi(1,1,19)=1
1664     exch2_pi(2,1,19)=0
1665     exch2_pj(1,1,19)=0
1666     exch2_pj(2,1,19)=1
1667     exch2_oi(1,19)=0
1668     exch2_oi_f(1,19)=0
1669     exch2_oj(1,19)=510
1670     exch2_oj_f(1,19)=510
1671     exch2_itlo_c(1,19)=0
1672     exch2_ithi_c(1,19)=52
1673     exch2_jtlo_c(1,19)=0
1674     exch2_jthi_c(1,19)=0
1675     exch2_opposingSend_record(1,19)=2
1676    
1677     exch2_neighbourId(2,19)=60
1678     exch2_pi(1,2,19)=0
1679     exch2_pi(2,2,19)=-1
1680     exch2_pj(1,2,19)=1
1681     exch2_pj(2,2,19)=0
1682     exch2_oi(2,19)=511
1683     exch2_oi_f(2,19)=512
1684     exch2_oj(2,19)=-510
1685     exch2_oj_f(2,19)=-510
1686     exch2_itlo_c(2,19)=52
1687     exch2_ithi_c(2,19)=52
1688     exch2_jtlo_c(2,19)=51
1689     exch2_jthi_c(2,19)=103
1690     exch2_opposingSend_record(2,19)=11
1691    
1692     exch2_neighbourId(3,19)=20
1693     exch2_pi(1,3,19)=1
1694     exch2_pi(2,3,19)=0
1695     exch2_pj(1,3,19)=0
1696     exch2_pj(2,3,19)=1
1697     exch2_oi(3,19)=0
1698     exch2_oi_f(3,19)=0
1699     exch2_oj(3,19)=0
1700     exch2_oj_f(3,19)=0
1701     exch2_itlo_c(3,19)=0
1702     exch2_ithi_c(3,19)=0
1703     exch2_jtlo_c(3,19)=0
1704     exch2_jthi_c(3,19)=511
1705     exch2_opposingSend_record(3,19)=13
1706    
1707     exch2_neighbourId(4,19)=18
1708     exch2_pi(1,4,19)=1
1709     exch2_pi(2,4,19)=0
1710     exch2_pj(1,4,19)=0
1711     exch2_pj(2,4,19)=1
1712     exch2_oi(4,19)=0
1713     exch2_oi_f(4,19)=0
1714     exch2_oj(4,19)=0
1715     exch2_oj_f(4,19)=0
1716     exch2_itlo_c(4,19)=52
1717     exch2_ithi_c(4,19)=52
1718     exch2_jtlo_c(4,19)=0
1719     exch2_jthi_c(4,19)=511
1720     exch2_opposingSend_record(4,19)=3
1721     RETURN
1722     END
1723    
1724     SUBROUTINE W2_E2SETUP_20
1725     C Topology for tile 20
1726     #include "W2_EXCH2_TOPOLOGY.h"
1727     exch2_tnx(20)=51
1728     exch2_tny(20)=510
1729     exch2_tbasex(20)=459
1730     exch2_tbasey(20)=0
1731     exch2_txglobalo(20)=970
1732     exch2_tyglobalo(20)=1
1733     exch2_isWedge(20)=0
1734     exch2_isNedge(20)=1
1735     exch2_isEedge(20)=1
1736     exch2_isSedge(20)=1
1737     exch2_myFace(20)=2
1738     exch2_mydnx(20)=510
1739     exch2_mydny(20)=510
1740     exch2_nNeighbours(20)=13
1741    
1742     exch2_neighbourId(1,20)=30
1743     exch2_pi(1,1,20)=1
1744     exch2_pi(2,1,20)=0
1745     exch2_pj(1,1,20)=0
1746     exch2_pj(2,1,20)=1
1747     exch2_oi(1,20)=0
1748     exch2_oi_f(1,20)=0
1749     exch2_oj(1,20)=510
1750     exch2_oj_f(1,20)=510
1751     exch2_itlo_c(1,20)=0
1752     exch2_ithi_c(1,20)=52
1753     exch2_jtlo_c(1,20)=0
1754     exch2_jthi_c(1,20)=0
1755     exch2_opposingSend_record(1,20)=2
1756    
1757     exch2_neighbourId(2,20)=60
1758     exch2_pi(1,2,20)=0
1759     exch2_pi(2,2,20)=-1
1760     exch2_pj(1,2,20)=1
1761     exch2_pj(2,2,20)=0
1762     exch2_oi(2,20)=511
1763     exch2_oi_f(2,20)=512
1764     exch2_oj(2,20)=-510
1765     exch2_oj_f(2,20)=-510
1766     exch2_itlo_c(2,20)=52
1767     exch2_ithi_c(2,20)=52
1768     exch2_jtlo_c(2,20)=0
1769     exch2_jthi_c(2,20)=52
1770     exch2_opposingSend_record(2,20)=12
1771    
1772     exch2_neighbourId(3,20)=31
1773     exch2_pi(1,3,20)=0
1774     exch2_pi(2,3,20)=1
1775     exch2_pj(1,3,20)=-1
1776     exch2_pj(2,3,20)=0
1777     exch2_oi(3,20)=510
1778     exch2_oi_f(3,20)=510
1779     exch2_oj(3,20)=511
1780     exch2_oj_f(3,20)=512
1781     exch2_itlo_c(3,20)=0
1782     exch2_ithi_c(3,20)=52
1783     exch2_jtlo_c(3,20)=0
1784     exch2_jthi_c(3,20)=0
1785     exch2_opposingSend_record(3,20)=2
1786    
1787     exch2_neighbourId(4,20)=32
1788     exch2_pi(1,4,20)=0
1789     exch2_pi(2,4,20)=1
1790     exch2_pj(1,4,20)=-1
1791     exch2_pj(2,4,20)=0
1792     exch2_oi(4,20)=510
1793     exch2_oi_f(4,20)=510
1794     exch2_oj(4,20)=511
1795     exch2_oj_f(4,20)=512
1796     exch2_itlo_c(4,20)=0
1797     exch2_ithi_c(4,20)=52
1798     exch2_jtlo_c(4,20)=0
1799     exch2_jthi_c(4,20)=0
1800     exch2_opposingSend_record(4,20)=2
1801    
1802     exch2_neighbourId(5,20)=33
1803     exch2_pi(1,5,20)=0
1804     exch2_pi(2,5,20)=1
1805     exch2_pj(1,5,20)=-1
1806     exch2_pj(2,5,20)=0
1807     exch2_oi(5,20)=510
1808     exch2_oi_f(5,20)=510
1809     exch2_oj(5,20)=511
1810     exch2_oj_f(5,20)=512
1811     exch2_itlo_c(5,20)=0
1812     exch2_ithi_c(5,20)=52
1813     exch2_jtlo_c(5,20)=0
1814     exch2_jthi_c(5,20)=0
1815     exch2_opposingSend_record(5,20)=2
1816    
1817     exch2_neighbourId(6,20)=34
1818     exch2_pi(1,6,20)=0
1819     exch2_pi(2,6,20)=1
1820     exch2_pj(1,6,20)=-1
1821     exch2_pj(2,6,20)=0
1822     exch2_oi(6,20)=510
1823     exch2_oi_f(6,20)=510
1824     exch2_oj(6,20)=511
1825     exch2_oj_f(6,20)=512
1826     exch2_itlo_c(6,20)=0
1827     exch2_ithi_c(6,20)=52
1828     exch2_jtlo_c(6,20)=0
1829     exch2_jthi_c(6,20)=0
1830     exch2_opposingSend_record(6,20)=2
1831    
1832     exch2_neighbourId(7,20)=35
1833     exch2_pi(1,7,20)=0
1834     exch2_pi(2,7,20)=1
1835     exch2_pj(1,7,20)=-1
1836     exch2_pj(2,7,20)=0
1837     exch2_oi(7,20)=510
1838     exch2_oi_f(7,20)=510
1839     exch2_oj(7,20)=511
1840     exch2_oj_f(7,20)=512
1841     exch2_itlo_c(7,20)=0
1842     exch2_ithi_c(7,20)=52
1843     exch2_jtlo_c(7,20)=0
1844     exch2_jthi_c(7,20)=0
1845     exch2_opposingSend_record(7,20)=2
1846    
1847     exch2_neighbourId(8,20)=36
1848     exch2_pi(1,8,20)=0
1849     exch2_pi(2,8,20)=1
1850     exch2_pj(1,8,20)=-1
1851     exch2_pj(2,8,20)=0
1852     exch2_oi(8,20)=510
1853     exch2_oi_f(8,20)=510
1854     exch2_oj(8,20)=511
1855     exch2_oj_f(8,20)=512
1856     exch2_itlo_c(8,20)=0
1857     exch2_ithi_c(8,20)=52
1858     exch2_jtlo_c(8,20)=0
1859     exch2_jthi_c(8,20)=0
1860     exch2_opposingSend_record(8,20)=2
1861    
1862     exch2_neighbourId(9,20)=37
1863     exch2_pi(1,9,20)=0
1864     exch2_pi(2,9,20)=1
1865     exch2_pj(1,9,20)=-1
1866     exch2_pj(2,9,20)=0
1867     exch2_oi(9,20)=510
1868     exch2_oi_f(9,20)=510
1869     exch2_oj(9,20)=511
1870     exch2_oj_f(9,20)=512
1871     exch2_itlo_c(9,20)=0
1872     exch2_ithi_c(9,20)=52
1873     exch2_jtlo_c(9,20)=0
1874     exch2_jthi_c(9,20)=0
1875     exch2_opposingSend_record(9,20)=2
1876    
1877     exch2_neighbourId(10,20)=38
1878     exch2_pi(1,10,20)=0
1879     exch2_pi(2,10,20)=1
1880     exch2_pj(1,10,20)=-1
1881     exch2_pj(2,10,20)=0
1882     exch2_oi(10,20)=510
1883     exch2_oi_f(10,20)=510
1884     exch2_oj(10,20)=511
1885     exch2_oj_f(10,20)=512
1886     exch2_itlo_c(10,20)=0
1887     exch2_ithi_c(10,20)=52
1888     exch2_jtlo_c(10,20)=0
1889     exch2_jthi_c(10,20)=0
1890     exch2_opposingSend_record(10,20)=2
1891    
1892     exch2_neighbourId(11,20)=39
1893     exch2_pi(1,11,20)=0
1894     exch2_pi(2,11,20)=1
1895     exch2_pj(1,11,20)=-1
1896     exch2_pj(2,11,20)=0
1897     exch2_oi(11,20)=510
1898     exch2_oi_f(11,20)=510
1899     exch2_oj(11,20)=511
1900     exch2_oj_f(11,20)=512
1901     exch2_itlo_c(11,20)=0
1902     exch2_ithi_c(11,20)=52
1903     exch2_jtlo_c(11,20)=0
1904     exch2_jthi_c(11,20)=0
1905     exch2_opposingSend_record(11,20)=2
1906    
1907     exch2_neighbourId(12,20)=40
1908     exch2_pi(1,12,20)=0
1909     exch2_pi(2,12,20)=1
1910     exch2_pj(1,12,20)=-1
1911     exch2_pj(2,12,20)=0
1912     exch2_oi(12,20)=510
1913     exch2_oi_f(12,20)=510
1914     exch2_oj(12,20)=511
1915     exch2_oj_f(12,20)=512
1916     exch2_itlo_c(12,20)=0
1917     exch2_ithi_c(12,20)=52
1918     exch2_jtlo_c(12,20)=0
1919     exch2_jthi_c(12,20)=0
1920     exch2_opposingSend_record(12,20)=2
1921    
1922     exch2_neighbourId(13,20)=19
1923     exch2_pi(1,13,20)=1
1924     exch2_pi(2,13,20)=0
1925     exch2_pj(1,13,20)=0
1926     exch2_pj(2,13,20)=1
1927     exch2_oi(13,20)=0
1928     exch2_oi_f(13,20)=0
1929     exch2_oj(13,20)=0
1930     exch2_oj_f(13,20)=0
1931     exch2_itlo_c(13,20)=52
1932     exch2_ithi_c(13,20)=52
1933     exch2_jtlo_c(13,20)=0
1934     exch2_jthi_c(13,20)=511
1935     exch2_opposingSend_record(13,20)=3
1936     RETURN
1937     END
1938    
1939     SUBROUTINE W2_E2SETUP_21
1940     C Topology for tile 21
1941     #include "W2_EXCH2_TOPOLOGY.h"
1942     exch2_tnx(21)=51
1943     exch2_tny(21)=510
1944     exch2_tbasex(21)=0
1945     exch2_tbasey(21)=0
1946     exch2_txglobalo(21)=1021
1947     exch2_tyglobalo(21)=1
1948     exch2_isWedge(21)=1
1949     exch2_isNedge(21)=1
1950     exch2_isEedge(21)=0
1951     exch2_isSedge(21)=1
1952     exch2_myFace(21)=3
1953     exch2_mydnx(21)=510
1954     exch2_mydny(21)=510
1955     exch2_nNeighbours(21)=13
1956    
1957     exch2_neighbourId(1,21)=41
1958     exch2_pi(1,1,21)=0
1959     exch2_pi(2,1,21)=-1
1960     exch2_pj(1,1,21)=1
1961     exch2_pj(2,1,21)=0
1962     exch2_oi(1,21)=511
1963     exch2_oi_f(1,21)=512
1964     exch2_oj(1,21)=510
1965     exch2_oj_f(1,21)=510
1966     exch2_itlo_c(1,21)=0
1967     exch2_ithi_c(1,21)=0
1968     exch2_jtlo_c(1,21)=459
1969     exch2_jthi_c(1,21)=511
1970     exch2_opposingSend_record(1,21)=4
1971    
1972     exch2_neighbourId(2,21)=11
1973     exch2_pi(1,2,21)=1
1974     exch2_pi(2,2,21)=0
1975     exch2_pj(1,2,21)=0
1976     exch2_pj(2,2,21)=1
1977     exch2_oi(2,21)=0
1978     exch2_oi_f(2,21)=0
1979     exch2_oj(2,21)=-510
1980     exch2_oj_f(2,21)=-510
1981     exch2_itlo_c(2,21)=0
1982     exch2_ithi_c(2,21)=52
1983     exch2_jtlo_c(2,21)=511
1984     exch2_jthi_c(2,21)=511
1985     exch2_opposingSend_record(2,21)=1
1986    
1987     exch2_neighbourId(3,21)=22
1988     exch2_pi(1,3,21)=1
1989     exch2_pi(2,3,21)=0
1990     exch2_pj(1,3,21)=0
1991     exch2_pj(2,3,21)=1
1992     exch2_oi(3,21)=0
1993     exch2_oi_f(3,21)=0
1994     exch2_oj(3,21)=0
1995     exch2_oj_f(3,21)=0
1996     exch2_itlo_c(3,21)=0
1997     exch2_ithi_c(3,21)=0
1998     exch2_jtlo_c(3,21)=0
1999     exch2_jthi_c(3,21)=511
2000     exch2_opposingSend_record(3,21)=4
2001    
2002     exch2_neighbourId(4,21)=1
2003     exch2_pi(1,4,21)=0
2004     exch2_pi(2,4,21)=1
2005     exch2_pj(1,4,21)=-1
2006     exch2_pj(2,4,21)=0
2007     exch2_oi(4,21)=-510
2008     exch2_oi_f(4,21)=-510
2009     exch2_oj(4,21)=511
2010     exch2_oj_f(4,21)=512
2011     exch2_itlo_c(4,21)=0
2012     exch2_ithi_c(4,21)=52
2013     exch2_jtlo_c(4,21)=511
2014     exch2_jthi_c(4,21)=511
2015     exch2_opposingSend_record(4,21)=1
2016    
2017     exch2_neighbourId(5,21)=2
2018     exch2_pi(1,5,21)=0
2019     exch2_pi(2,5,21)=1
2020     exch2_pj(1,5,21)=-1
2021     exch2_pj(2,5,21)=0
2022     exch2_oi(5,21)=-510
2023     exch2_oi_f(5,21)=-510
2024     exch2_oj(5,21)=511
2025     exch2_oj_f(5,21)=512
2026     exch2_itlo_c(5,21)=0
2027     exch2_ithi_c(5,21)=52
2028     exch2_jtlo_c(5,21)=511
2029     exch2_jthi_c(5,21)=511
2030     exch2_opposingSend_record(5,21)=1
2031    
2032     exch2_neighbourId(6,21)=3
2033     exch2_pi(1,6,21)=0
2034     exch2_pi(2,6,21)=1
2035     exch2_pj(1,6,21)=-1
2036     exch2_pj(2,6,21)=0
2037     exch2_oi(6,21)=-510
2038     exch2_oi_f(6,21)=-510
2039     exch2_oj(6,21)=511
2040     exch2_oj_f(6,21)=512
2041     exch2_itlo_c(6,21)=0
2042     exch2_ithi_c(6,21)=52
2043     exch2_jtlo_c(6,21)=511
2044     exch2_jthi_c(6,21)=511
2045     exch2_opposingSend_record(6,21)=1
2046    
2047     exch2_neighbourId(7,21)=4
2048     exch2_pi(1,7,21)=0
2049     exch2_pi(2,7,21)=1
2050     exch2_pj(1,7,21)=-1
2051     exch2_pj(2,7,21)=0
2052     exch2_oi(7,21)=-510
2053     exch2_oi_f(7,21)=-510
2054     exch2_oj(7,21)=511
2055     exch2_oj_f(7,21)=512
2056     exch2_itlo_c(7,21)=0
2057     exch2_ithi_c(7,21)=52
2058     exch2_jtlo_c(7,21)=511
2059     exch2_jthi_c(7,21)=511
2060     exch2_opposingSend_record(7,21)=1
2061    
2062     exch2_neighbourId(8,21)=5
2063     exch2_pi(1,8,21)=0
2064     exch2_pi(2,8,21)=1
2065     exch2_pj(1,8,21)=-1
2066     exch2_pj(2,8,21)=0
2067     exch2_oi(8,21)=-510
2068     exch2_oi_f(8,21)=-510
2069     exch2_oj(8,21)=511
2070     exch2_oj_f(8,21)=512
2071     exch2_itlo_c(8,21)=0
2072     exch2_ithi_c(8,21)=52
2073     exch2_jtlo_c(8,21)=511
2074     exch2_jthi_c(8,21)=511
2075     exch2_opposingSend_record(8,21)=1
2076    
2077     exch2_neighbourId(9,21)=6
2078     exch2_pi(1,9,21)=0
2079     exch2_pi(2,9,21)=1
2080     exch2_pj(1,9,21)=-1
2081     exch2_pj(2,9,21)=0
2082     exch2_oi(9,21)=-510
2083     exch2_oi_f(9,21)=-510
2084     exch2_oj(9,21)=511
2085     exch2_oj_f(9,21)=512
2086     exch2_itlo_c(9,21)=0
2087     exch2_ithi_c(9,21)=52
2088     exch2_jtlo_c(9,21)=511
2089     exch2_jthi_c(9,21)=511
2090     exch2_opposingSend_record(9,21)=1
2091    
2092     exch2_neighbourId(10,21)=7
2093     exch2_pi(1,10,21)=0
2094     exch2_pi(2,10,21)=1
2095     exch2_pj(1,10,21)=-1
2096     exch2_pj(2,10,21)=0
2097     exch2_oi(10,21)=-510
2098     exch2_oi_f(10,21)=-510
2099     exch2_oj(10,21)=511
2100     exch2_oj_f(10,21)=512
2101     exch2_itlo_c(10,21)=0
2102     exch2_ithi_c(10,21)=52
2103     exch2_jtlo_c(10,21)=511
2104     exch2_jthi_c(10,21)=511
2105     exch2_opposingSend_record(10,21)=1
2106    
2107     exch2_neighbourId(11,21)=8
2108     exch2_pi(1,11,21)=0
2109     exch2_pi(2,11,21)=1
2110     exch2_pj(1,11,21)=-1
2111     exch2_pj(2,11,21)=0
2112     exch2_oi(11,21)=-510
2113     exch2_oi_f(11,21)=-510
2114     exch2_oj(11,21)=511
2115     exch2_oj_f(11,21)=512
2116     exch2_itlo_c(11,21)=0
2117     exch2_ithi_c(11,21)=52
2118     exch2_jtlo_c(11,21)=511
2119     exch2_jthi_c(11,21)=511
2120     exch2_opposingSend_record(11,21)=1
2121    
2122     exch2_neighbourId(12,21)=9
2123     exch2_pi(1,12,21)=0
2124     exch2_pi(2,12,21)=1
2125     exch2_pj(1,12,21)=-1
2126     exch2_pj(2,12,21)=0
2127     exch2_oi(12,21)=-510
2128     exch2_oi_f(12,21)=-510
2129     exch2_oj(12,21)=511
2130     exch2_oj_f(12,21)=512
2131     exch2_itlo_c(12,21)=0
2132     exch2_ithi_c(12,21)=52
2133     exch2_jtlo_c(12,21)=511
2134     exch2_jthi_c(12,21)=511
2135     exch2_opposingSend_record(12,21)=1
2136    
2137     exch2_neighbourId(13,21)=10
2138     exch2_pi(1,13,21)=0
2139     exch2_pi(2,13,21)=1
2140     exch2_pj(1,13,21)=-1
2141     exch2_pj(2,13,21)=0
2142     exch2_oi(13,21)=-510
2143     exch2_oi_f(13,21)=-510
2144     exch2_oj(13,21)=511
2145     exch2_oj_f(13,21)=512
2146     exch2_itlo_c(13,21)=0
2147     exch2_ithi_c(13,21)=52
2148     exch2_jtlo_c(13,21)=511
2149     exch2_jthi_c(13,21)=511
2150     exch2_opposingSend_record(13,21)=1
2151     RETURN
2152     END
2153    
2154     SUBROUTINE W2_E2SETUP_22
2155     C Topology for tile 22
2156     #include "W2_EXCH2_TOPOLOGY.h"
2157     exch2_tnx(22)=51
2158     exch2_tny(22)=510
2159     exch2_tbasex(22)=51
2160     exch2_tbasey(22)=0
2161     exch2_txglobalo(22)=1072
2162     exch2_tyglobalo(22)=1
2163     exch2_isWedge(22)=0
2164     exch2_isNedge(22)=1
2165     exch2_isEedge(22)=0
2166     exch2_isSedge(22)=1
2167     exch2_myFace(22)=3
2168     exch2_mydnx(22)=510
2169     exch2_mydny(22)=510
2170     exch2_nNeighbours(22)=4
2171    
2172     exch2_neighbourId(1,22)=41
2173     exch2_pi(1,1,22)=0
2174     exch2_pi(2,1,22)=-1
2175     exch2_pj(1,1,22)=1
2176     exch2_pj(2,1,22)=0
2177     exch2_oi(1,22)=511
2178     exch2_oi_f(1,22)=512
2179     exch2_oj(1,22)=510
2180     exch2_oj_f(1,22)=510
2181     exch2_itlo_c(1,22)=0
2182     exch2_ithi_c(1,22)=0
2183     exch2_jtlo_c(1,22)=408
2184     exch2_jthi_c(1,22)=460
2185     exch2_opposingSend_record(1,22)=5
2186    
2187     exch2_neighbourId(2,22)=12
2188     exch2_pi(1,2,22)=1
2189     exch2_pi(2,2,22)=0
2190     exch2_pj(1,2,22)=0
2191     exch2_pj(2,2,22)=1
2192     exch2_oi(2,22)=0
2193     exch2_oi_f(2,22)=0
2194     exch2_oj(2,22)=-510
2195     exch2_oj_f(2,22)=-510
2196     exch2_itlo_c(2,22)=0
2197     exch2_ithi_c(2,22)=52
2198     exch2_jtlo_c(2,22)=511
2199     exch2_jthi_c(2,22)=511
2200     exch2_opposingSend_record(2,22)=1
2201    
2202     exch2_neighbourId(3,22)=23
2203     exch2_pi(1,3,22)=1
2204     exch2_pi(2,3,22)=0
2205     exch2_pj(1,3,22)=0
2206     exch2_pj(2,3,22)=1
2207     exch2_oi(3,22)=0
2208     exch2_oi_f(3,22)=0
2209     exch2_oj(3,22)=0
2210     exch2_oj_f(3,22)=0
2211     exch2_itlo_c(3,22)=0
2212     exch2_ithi_c(3,22)=0
2213     exch2_jtlo_c(3,22)=0
2214     exch2_jthi_c(3,22)=511
2215     exch2_opposingSend_record(3,22)=4
2216    
2217     exch2_neighbourId(4,22)=21
2218     exch2_pi(1,4,22)=1
2219     exch2_pi(2,4,22)=0
2220     exch2_pj(1,4,22)=0
2221     exch2_pj(2,4,22)=1
2222     exch2_oi(4,22)=0
2223     exch2_oi_f(4,22)=0
2224     exch2_oj(4,22)=0
2225     exch2_oj_f(4,22)=0
2226     exch2_itlo_c(4,22)=52
2227     exch2_ithi_c(4,22)=52
2228     exch2_jtlo_c(4,22)=0
2229     exch2_jthi_c(4,22)=511
2230     exch2_opposingSend_record(4,22)=3
2231     RETURN
2232     END
2233    
2234     SUBROUTINE W2_E2SETUP_23
2235     C Topology for tile 23
2236     #include "W2_EXCH2_TOPOLOGY.h"
2237     exch2_tnx(23)=51
2238     exch2_tny(23)=510
2239     exch2_tbasex(23)=102
2240     exch2_tbasey(23)=0
2241     exch2_txglobalo(23)=1123
2242     exch2_tyglobalo(23)=1
2243     exch2_isWedge(23)=0
2244     exch2_isNedge(23)=1
2245     exch2_isEedge(23)=0
2246     exch2_isSedge(23)=1
2247     exch2_myFace(23)=3
2248     exch2_mydnx(23)=510
2249     exch2_mydny(23)=510
2250     exch2_nNeighbours(23)=4
2251    
2252     exch2_neighbourId(1,23)=41
2253     exch2_pi(1,1,23)=0
2254     exch2_pi(2,1,23)=-1
2255     exch2_pj(1,1,23)=1
2256     exch2_pj(2,1,23)=0
2257     exch2_oi(1,23)=511
2258     exch2_oi_f(1,23)=512
2259     exch2_oj(1,23)=510
2260     exch2_oj_f(1,23)=510
2261     exch2_itlo_c(1,23)=0
2262     exch2_ithi_c(1,23)=0
2263     exch2_jtlo_c(1,23)=357
2264     exch2_jthi_c(1,23)=409
2265     exch2_opposingSend_record(1,23)=6
2266    
2267     exch2_neighbourId(2,23)=13
2268     exch2_pi(1,2,23)=1
2269     exch2_pi(2,2,23)=0
2270     exch2_pj(1,2,23)=0
2271     exch2_pj(2,2,23)=1
2272     exch2_oi(2,23)=0
2273     exch2_oi_f(2,23)=0
2274     exch2_oj(2,23)=-510
2275     exch2_oj_f(2,23)=-510
2276     exch2_itlo_c(2,23)=0
2277     exch2_ithi_c(2,23)=52
2278     exch2_jtlo_c(2,23)=511
2279     exch2_jthi_c(2,23)=511
2280     exch2_opposingSend_record(2,23)=1
2281    
2282     exch2_neighbourId(3,23)=24
2283     exch2_pi(1,3,23)=1
2284     exch2_pi(2,3,23)=0
2285     exch2_pj(1,3,23)=0
2286     exch2_pj(2,3,23)=1
2287     exch2_oi(3,23)=0
2288     exch2_oi_f(3,23)=0
2289     exch2_oj(3,23)=0
2290     exch2_oj_f(3,23)=0
2291     exch2_itlo_c(3,23)=0
2292     exch2_ithi_c(3,23)=0
2293     exch2_jtlo_c(3,23)=0
2294     exch2_jthi_c(3,23)=511
2295     exch2_opposingSend_record(3,23)=4
2296    
2297     exch2_neighbourId(4,23)=22
2298     exch2_pi(1,4,23)=1
2299     exch2_pi(2,4,23)=0
2300     exch2_pj(1,4,23)=0
2301     exch2_pj(2,4,23)=1
2302     exch2_oi(4,23)=0
2303     exch2_oi_f(4,23)=0
2304     exch2_oj(4,23)=0
2305     exch2_oj_f(4,23)=0
2306     exch2_itlo_c(4,23)=52
2307     exch2_ithi_c(4,23)=52
2308     exch2_jtlo_c(4,23)=0
2309     exch2_jthi_c(4,23)=511
2310     exch2_opposingSend_record(4,23)=3
2311     RETURN
2312     END
2313    
2314     SUBROUTINE W2_E2SETUP_24
2315     C Topology for tile 24
2316     #include "W2_EXCH2_TOPOLOGY.h"
2317     exch2_tnx(24)=51
2318     exch2_tny(24)=510
2319     exch2_tbasex(24)=153
2320     exch2_tbasey(24)=0
2321     exch2_txglobalo(24)=1174
2322     exch2_tyglobalo(24)=1
2323     exch2_isWedge(24)=0
2324     exch2_isNedge(24)=1
2325     exch2_isEedge(24)=0
2326     exch2_isSedge(24)=1
2327     exch2_myFace(24)=3
2328     exch2_mydnx(24)=510
2329     exch2_mydny(24)=510
2330     exch2_nNeighbours(24)=4
2331    
2332     exch2_neighbourId(1,24)=41
2333     exch2_pi(1,1,24)=0
2334     exch2_pi(2,1,24)=-1
2335     exch2_pj(1,1,24)=1
2336     exch2_pj(2,1,24)=0
2337     exch2_oi(1,24)=511
2338     exch2_oi_f(1,24)=512
2339     exch2_oj(1,24)=510
2340     exch2_oj_f(1,24)=510
2341     exch2_itlo_c(1,24)=0
2342     exch2_ithi_c(1,24)=0
2343     exch2_jtlo_c(1,24)=306
2344     exch2_jthi_c(1,24)=358
2345     exch2_opposingSend_record(1,24)=7
2346    
2347     exch2_neighbourId(2,24)=14
2348     exch2_pi(1,2,24)=1
2349     exch2_pi(2,2,24)=0
2350     exch2_pj(1,2,24)=0
2351     exch2_pj(2,2,24)=1
2352     exch2_oi(2,24)=0
2353     exch2_oi_f(2,24)=0
2354     exch2_oj(2,24)=-510
2355     exch2_oj_f(2,24)=-510
2356     exch2_itlo_c(2,24)=0
2357     exch2_ithi_c(2,24)=52
2358     exch2_jtlo_c(2,24)=511
2359     exch2_jthi_c(2,24)=511
2360     exch2_opposingSend_record(2,24)=1
2361    
2362     exch2_neighbourId(3,24)=25
2363     exch2_pi(1,3,24)=1
2364     exch2_pi(2,3,24)=0
2365     exch2_pj(1,3,24)=0
2366     exch2_pj(2,3,24)=1
2367     exch2_oi(3,24)=0
2368     exch2_oi_f(3,24)=0
2369     exch2_oj(3,24)=0
2370     exch2_oj_f(3,24)=0
2371     exch2_itlo_c(3,24)=0
2372     exch2_ithi_c(3,24)=0
2373     exch2_jtlo_c(3,24)=0
2374     exch2_jthi_c(3,24)=511
2375     exch2_opposingSend_record(3,24)=4
2376    
2377     exch2_neighbourId(4,24)=23
2378     exch2_pi(1,4,24)=1
2379     exch2_pi(2,4,24)=0
2380     exch2_pj(1,4,24)=0
2381     exch2_pj(2,4,24)=1
2382     exch2_oi(4,24)=0
2383     exch2_oi_f(4,24)=0
2384     exch2_oj(4,24)=0
2385     exch2_oj_f(4,24)=0
2386     exch2_itlo_c(4,24)=52
2387     exch2_ithi_c(4,24)=52
2388     exch2_jtlo_c(4,24)=0
2389     exch2_jthi_c(4,24)=511
2390     exch2_opposingSend_record(4,24)=3
2391     RETURN
2392     END
2393    
2394     SUBROUTINE W2_E2SETUP_25
2395     C Topology for tile 25
2396     #include "W2_EXCH2_TOPOLOGY.h"
2397     exch2_tnx(25)=51
2398     exch2_tny(25)=510
2399     exch2_tbasex(25)=204
2400     exch2_tbasey(25)=0
2401     exch2_txglobalo(25)=1225
2402     exch2_tyglobalo(25)=1
2403     exch2_isWedge(25)=0
2404     exch2_isNedge(25)=1
2405     exch2_isEedge(25)=0
2406     exch2_isSedge(25)=1
2407     exch2_myFace(25)=3
2408     exch2_mydnx(25)=510
2409     exch2_mydny(25)=510
2410     exch2_nNeighbours(25)=4
2411    
2412     exch2_neighbourId(1,25)=41
2413     exch2_pi(1,1,25)=0
2414     exch2_pi(2,1,25)=-1
2415     exch2_pj(1,1,25)=1
2416     exch2_pj(2,1,25)=0
2417     exch2_oi(1,25)=511
2418     exch2_oi_f(1,25)=512
2419     exch2_oj(1,25)=510
2420     exch2_oj_f(1,25)=510
2421     exch2_itlo_c(1,25)=0
2422     exch2_ithi_c(1,25)=0
2423     exch2_jtlo_c(1,25)=255
2424     exch2_jthi_c(1,25)=307
2425     exch2_opposingSend_record(1,25)=8
2426    
2427     exch2_neighbourId(2,25)=15
2428     exch2_pi(1,2,25)=1
2429     exch2_pi(2,2,25)=0
2430     exch2_pj(1,2,25)=0
2431     exch2_pj(2,2,25)=1
2432     exch2_oi(2,25)=0
2433     exch2_oi_f(2,25)=0
2434     exch2_oj(2,25)=-510
2435     exch2_oj_f(2,25)=-510
2436     exch2_itlo_c(2,25)=0
2437     exch2_ithi_c(2,25)=52
2438     exch2_jtlo_c(2,25)=511
2439     exch2_jthi_c(2,25)=511
2440     exch2_opposingSend_record(2,25)=1
2441    
2442     exch2_neighbourId(3,25)=26
2443     exch2_pi(1,3,25)=1
2444     exch2_pi(2,3,25)=0
2445     exch2_pj(1,3,25)=0
2446     exch2_pj(2,3,25)=1
2447     exch2_oi(3,25)=0
2448     exch2_oi_f(3,25)=0
2449     exch2_oj(3,25)=0
2450     exch2_oj_f(3,25)=0
2451     exch2_itlo_c(3,25)=0
2452     exch2_ithi_c(3,25)=0
2453     exch2_jtlo_c(3,25)=0
2454     exch2_jthi_c(3,25)=511
2455     exch2_opposingSend_record(3,25)=4
2456    
2457     exch2_neighbourId(4,25)=24
2458     exch2_pi(1,4,25)=1
2459     exch2_pi(2,4,25)=0
2460     exch2_pj(1,4,25)=0
2461     exch2_pj(2,4,25)=1
2462     exch2_oi(4,25)=0
2463     exch2_oi_f(4,25)=0
2464     exch2_oj(4,25)=0
2465     exch2_oj_f(4,25)=0
2466     exch2_itlo_c(4,25)=52
2467     exch2_ithi_c(4,25)=52
2468     exch2_jtlo_c(4,25)=0
2469     exch2_jthi_c(4,25)=511
2470     exch2_opposingSend_record(4,25)=3
2471     RETURN
2472     END
2473    
2474     SUBROUTINE W2_E2SETUP_26
2475     C Topology for tile 26
2476     #include "W2_EXCH2_TOPOLOGY.h"
2477     exch2_tnx(26)=51
2478     exch2_tny(26)=510
2479     exch2_tbasex(26)=255
2480     exch2_tbasey(26)=0
2481     exch2_txglobalo(26)=1276
2482     exch2_tyglobalo(26)=1
2483     exch2_isWedge(26)=0
2484     exch2_isNedge(26)=1
2485     exch2_isEedge(26)=0
2486     exch2_isSedge(26)=1
2487     exch2_myFace(26)=3
2488     exch2_mydnx(26)=510
2489     exch2_mydny(26)=510
2490     exch2_nNeighbours(26)=4
2491    
2492     exch2_neighbourId(1,26)=41
2493     exch2_pi(1,1,26)=0
2494     exch2_pi(2,1,26)=-1
2495     exch2_pj(1,1,26)=1
2496     exch2_pj(2,1,26)=0
2497     exch2_oi(1,26)=511
2498     exch2_oi_f(1,26)=512
2499     exch2_oj(1,26)=510
2500     exch2_oj_f(1,26)=510
2501     exch2_itlo_c(1,26)=0
2502     exch2_ithi_c(1,26)=0
2503     exch2_jtlo_c(1,26)=204
2504     exch2_jthi_c(1,26)=256
2505     exch2_opposingSend_record(1,26)=9
2506    
2507     exch2_neighbourId(2,26)=16
2508     exch2_pi(1,2,26)=1
2509     exch2_pi(2,2,26)=0
2510     exch2_pj(1,2,26)=0
2511     exch2_pj(2,2,26)=1
2512     exch2_oi(2,26)=0
2513     exch2_oi_f(2,26)=0
2514     exch2_oj(2,26)=-510
2515     exch2_oj_f(2,26)=-510
2516     exch2_itlo_c(2,26)=0
2517     exch2_ithi_c(2,26)=52
2518     exch2_jtlo_c(2,26)=511
2519     exch2_jthi_c(2,26)=511
2520     exch2_opposingSend_record(2,26)=1
2521    
2522     exch2_neighbourId(3,26)=27
2523     exch2_pi(1,3,26)=1
2524     exch2_pi(2,3,26)=0
2525     exch2_pj(1,3,26)=0
2526     exch2_pj(2,3,26)=1
2527     exch2_oi(3,26)=0
2528     exch2_oi_f(3,26)=0
2529     exch2_oj(3,26)=0
2530     exch2_oj_f(3,26)=0
2531     exch2_itlo_c(3,26)=0
2532     exch2_ithi_c(3,26)=0
2533     exch2_jtlo_c(3,26)=0
2534     exch2_jthi_c(3,26)=511
2535     exch2_opposingSend_record(3,26)=4
2536    
2537     exch2_neighbourId(4,26)=25
2538     exch2_pi(1,4,26)=1
2539     exch2_pi(2,4,26)=0
2540     exch2_pj(1,4,26)=0
2541     exch2_pj(2,4,26)=1
2542     exch2_oi(4,26)=0
2543     exch2_oi_f(4,26)=0
2544     exch2_oj(4,26)=0
2545     exch2_oj_f(4,26)=0
2546     exch2_itlo_c(4,26)=52
2547     exch2_ithi_c(4,26)=52
2548     exch2_jtlo_c(4,26)=0
2549     exch2_jthi_c(4,26)=511
2550     exch2_opposingSend_record(4,26)=3
2551     RETURN
2552     END
2553    
2554     SUBROUTINE W2_E2SETUP_27
2555     C Topology for tile 27
2556     #include "W2_EXCH2_TOPOLOGY.h"
2557     exch2_tnx(27)=51
2558     exch2_tny(27)=510
2559     exch2_tbasex(27)=306
2560     exch2_tbasey(27)=0
2561     exch2_txglobalo(27)=1327
2562     exch2_tyglobalo(27)=1
2563     exch2_isWedge(27)=0
2564     exch2_isNedge(27)=1
2565     exch2_isEedge(27)=0
2566     exch2_isSedge(27)=1
2567     exch2_myFace(27)=3
2568     exch2_mydnx(27)=510
2569     exch2_mydny(27)=510
2570     exch2_nNeighbours(27)=4
2571    
2572     exch2_neighbourId(1,27)=41
2573     exch2_pi(1,1,27)=0
2574     exch2_pi(2,1,27)=-1
2575     exch2_pj(1,1,27)=1
2576     exch2_pj(2,1,27)=0
2577     exch2_oi(1,27)=511
2578     exch2_oi_f(1,27)=512
2579     exch2_oj(1,27)=510
2580     exch2_oj_f(1,27)=510
2581     exch2_itlo_c(1,27)=0
2582     exch2_ithi_c(1,27)=0
2583     exch2_jtlo_c(1,27)=153
2584     exch2_jthi_c(1,27)=205
2585     exch2_opposingSend_record(1,27)=10
2586    
2587     exch2_neighbourId(2,27)=17
2588     exch2_pi(1,2,27)=1
2589     exch2_pi(2,2,27)=0
2590     exch2_pj(1,2,27)=0
2591     exch2_pj(2,2,27)=1
2592     exch2_oi(2,27)=0
2593     exch2_oi_f(2,27)=0
2594     exch2_oj(2,27)=-510
2595     exch2_oj_f(2,27)=-510
2596     exch2_itlo_c(2,27)=0
2597     exch2_ithi_c(2,27)=52
2598     exch2_jtlo_c(2,27)=511
2599     exch2_jthi_c(2,27)=511
2600     exch2_opposingSend_record(2,27)=1
2601    
2602     exch2_neighbourId(3,27)=28
2603     exch2_pi(1,3,27)=1
2604     exch2_pi(2,3,27)=0
2605     exch2_pj(1,3,27)=0
2606     exch2_pj(2,3,27)=1
2607     exch2_oi(3,27)=0
2608     exch2_oi_f(3,27)=0
2609     exch2_oj(3,27)=0
2610     exch2_oj_f(3,27)=0
2611     exch2_itlo_c(3,27)=0
2612     exch2_ithi_c(3,27)=0
2613     exch2_jtlo_c(3,27)=0
2614     exch2_jthi_c(3,27)=511
2615     exch2_opposingSend_record(3,27)=4
2616    
2617     exch2_neighbourId(4,27)=26
2618     exch2_pi(1,4,27)=1
2619     exch2_pi(2,4,27)=0
2620     exch2_pj(1,4,27)=0
2621     exch2_pj(2,4,27)=1
2622     exch2_oi(4,27)=0
2623     exch2_oi_f(4,27)=0
2624     exch2_oj(4,27)=0
2625     exch2_oj_f(4,27)=0
2626     exch2_itlo_c(4,27)=52
2627     exch2_ithi_c(4,27)=52
2628     exch2_jtlo_c(4,27)=0
2629     exch2_jthi_c(4,27)=511
2630     exch2_opposingSend_record(4,27)=3
2631     RETURN
2632     END
2633    
2634     SUBROUTINE W2_E2SETUP_28
2635     C Topology for tile 28
2636     #include "W2_EXCH2_TOPOLOGY.h"
2637     exch2_tnx(28)=51
2638     exch2_tny(28)=510
2639     exch2_tbasex(28)=357
2640     exch2_tbasey(28)=0
2641     exch2_txglobalo(28)=1378
2642     exch2_tyglobalo(28)=1
2643     exch2_isWedge(28)=0
2644     exch2_isNedge(28)=1
2645     exch2_isEedge(28)=0
2646     exch2_isSedge(28)=1
2647     exch2_myFace(28)=3
2648     exch2_mydnx(28)=510
2649     exch2_mydny(28)=510
2650     exch2_nNeighbours(28)=4
2651    
2652     exch2_neighbourId(1,28)=41
2653     exch2_pi(1,1,28)=0
2654     exch2_pi(2,1,28)=-1
2655     exch2_pj(1,1,28)=1
2656     exch2_pj(2,1,28)=0
2657     exch2_oi(1,28)=511
2658     exch2_oi_f(1,28)=512
2659     exch2_oj(1,28)=510
2660     exch2_oj_f(1,28)=510
2661     exch2_itlo_c(1,28)=0
2662     exch2_ithi_c(1,28)=0
2663     exch2_jtlo_c(1,28)=102
2664     exch2_jthi_c(1,28)=154
2665     exch2_opposingSend_record(1,28)=11
2666    
2667     exch2_neighbourId(2,28)=18
2668     exch2_pi(1,2,28)=1
2669     exch2_pi(2,2,28)=0
2670     exch2_pj(1,2,28)=0
2671     exch2_pj(2,2,28)=1
2672     exch2_oi(2,28)=0
2673     exch2_oi_f(2,28)=0
2674     exch2_oj(2,28)=-510
2675     exch2_oj_f(2,28)=-510
2676     exch2_itlo_c(2,28)=0
2677     exch2_ithi_c(2,28)=52
2678     exch2_jtlo_c(2,28)=511
2679     exch2_jthi_c(2,28)=511
2680     exch2_opposingSend_record(2,28)=1
2681    
2682     exch2_neighbourId(3,28)=29
2683     exch2_pi(1,3,28)=1
2684     exch2_pi(2,3,28)=0
2685     exch2_pj(1,3,28)=0
2686     exch2_pj(2,3,28)=1
2687     exch2_oi(3,28)=0
2688     exch2_oi_f(3,28)=0
2689     exch2_oj(3,28)=0
2690     exch2_oj_f(3,28)=0
2691     exch2_itlo_c(3,28)=0
2692     exch2_ithi_c(3,28)=0
2693     exch2_jtlo_c(3,28)=0
2694     exch2_jthi_c(3,28)=511
2695     exch2_opposingSend_record(3,28)=4
2696    
2697     exch2_neighbourId(4,28)=27
2698     exch2_pi(1,4,28)=1
2699     exch2_pi(2,4,28)=0
2700     exch2_pj(1,4,28)=0
2701     exch2_pj(2,4,28)=1
2702     exch2_oi(4,28)=0
2703     exch2_oi_f(4,28)=0
2704     exch2_oj(4,28)=0
2705     exch2_oj_f(4,28)=0
2706     exch2_itlo_c(4,28)=52
2707     exch2_ithi_c(4,28)=52
2708     exch2_jtlo_c(4,28)=0
2709     exch2_jthi_c(4,28)=511
2710     exch2_opposingSend_record(4,28)=3
2711     RETURN
2712     END
2713    
2714     SUBROUTINE W2_E2SETUP_29
2715     C Topology for tile 29
2716     #include "W2_EXCH2_TOPOLOGY.h"
2717     exch2_tnx(29)=51
2718     exch2_tny(29)=510
2719     exch2_tbasex(29)=408
2720     exch2_tbasey(29)=0
2721     exch2_txglobalo(29)=1429
2722     exch2_tyglobalo(29)=1
2723     exch2_isWedge(29)=0
2724     exch2_isNedge(29)=1
2725     exch2_isEedge(29)=0
2726     exch2_isSedge(29)=1
2727     exch2_myFace(29)=3
2728     exch2_mydnx(29)=510
2729     exch2_mydny(29)=510
2730     exch2_nNeighbours(29)=4
2731    
2732     exch2_neighbourId(1,29)=41
2733     exch2_pi(1,1,29)=0
2734     exch2_pi(2,1,29)=-1
2735     exch2_pj(1,1,29)=1
2736     exch2_pj(2,1,29)=0
2737     exch2_oi(1,29)=511
2738     exch2_oi_f(1,29)=512
2739     exch2_oj(1,29)=510
2740     exch2_oj_f(1,29)=510
2741     exch2_itlo_c(1,29)=0
2742     exch2_ithi_c(1,29)=0
2743     exch2_jtlo_c(1,29)=51
2744     exch2_jthi_c(1,29)=103
2745     exch2_opposingSend_record(1,29)=12
2746    
2747     exch2_neighbourId(2,29)=19
2748     exch2_pi(1,2,29)=1
2749     exch2_pi(2,2,29)=0
2750     exch2_pj(1,2,29)=0
2751     exch2_pj(2,2,29)=1
2752     exch2_oi(2,29)=0
2753     exch2_oi_f(2,29)=0
2754     exch2_oj(2,29)=-510
2755     exch2_oj_f(2,29)=-510
2756     exch2_itlo_c(2,29)=0
2757     exch2_ithi_c(2,29)=52
2758     exch2_jtlo_c(2,29)=511
2759     exch2_jthi_c(2,29)=511
2760     exch2_opposingSend_record(2,29)=1
2761    
2762     exch2_neighbourId(3,29)=30
2763     exch2_pi(1,3,29)=1
2764     exch2_pi(2,3,29)=0
2765     exch2_pj(1,3,29)=0
2766     exch2_pj(2,3,29)=1
2767     exch2_oi(3,29)=0
2768     exch2_oi_f(3,29)=0
2769     exch2_oj(3,29)=0
2770     exch2_oj_f(3,29)=0
2771     exch2_itlo_c(3,29)=0
2772     exch2_ithi_c(3,29)=0
2773     exch2_jtlo_c(3,29)=0
2774     exch2_jthi_c(3,29)=511
2775     exch2_opposingSend_record(3,29)=4
2776    
2777     exch2_neighbourId(4,29)=28
2778     exch2_pi(1,4,29)=1
2779     exch2_pi(2,4,29)=0
2780     exch2_pj(1,4,29)=0
2781     exch2_pj(2,4,29)=1
2782     exch2_oi(4,29)=0
2783     exch2_oi_f(4,29)=0
2784     exch2_oj(4,29)=0
2785     exch2_oj_f(4,29)=0
2786     exch2_itlo_c(4,29)=52
2787     exch2_ithi_c(4,29)=52
2788     exch2_jtlo_c(4,29)=0
2789     exch2_jthi_c(4,29)=511
2790     exch2_opposingSend_record(4,29)=3
2791     RETURN
2792     END
2793    
2794     SUBROUTINE W2_E2SETUP_30
2795     C Topology for tile 30
2796     #include "W2_EXCH2_TOPOLOGY.h"
2797     exch2_tnx(30)=51
2798     exch2_tny(30)=510
2799     exch2_tbasex(30)=459
2800     exch2_tbasey(30)=0
2801     exch2_txglobalo(30)=1480
2802     exch2_tyglobalo(30)=1
2803     exch2_isWedge(30)=0
2804     exch2_isNedge(30)=1
2805     exch2_isEedge(30)=1
2806     exch2_isSedge(30)=1
2807     exch2_myFace(30)=3
2808     exch2_mydnx(30)=510
2809     exch2_mydny(30)=510
2810     exch2_nNeighbours(30)=4
2811    
2812     exch2_neighbourId(1,30)=41
2813     exch2_pi(1,1,30)=0
2814     exch2_pi(2,1,30)=-1
2815     exch2_pj(1,1,30)=1
2816     exch2_pj(2,1,30)=0
2817     exch2_oi(1,30)=511
2818     exch2_oi_f(1,30)=512
2819     exch2_oj(1,30)=510
2820     exch2_oj_f(1,30)=510
2821     exch2_itlo_c(1,30)=0
2822     exch2_ithi_c(1,30)=0
2823     exch2_jtlo_c(1,30)=0
2824     exch2_jthi_c(1,30)=52
2825     exch2_opposingSend_record(1,30)=13
2826    
2827     exch2_neighbourId(2,30)=20
2828     exch2_pi(1,2,30)=1
2829     exch2_pi(2,2,30)=0
2830     exch2_pj(1,2,30)=0
2831     exch2_pj(2,2,30)=1
2832     exch2_oi(2,30)=0
2833     exch2_oi_f(2,30)=0
2834     exch2_oj(2,30)=-510
2835     exch2_oj_f(2,30)=-510
2836     exch2_itlo_c(2,30)=0
2837     exch2_ithi_c(2,30)=52
2838     exch2_jtlo_c(2,30)=511
2839     exch2_jthi_c(2,30)=511
2840     exch2_opposingSend_record(2,30)=1
2841    
2842     exch2_neighbourId(3,30)=31
2843     exch2_pi(1,3,30)=1
2844     exch2_pi(2,3,30)=0
2845     exch2_pj(1,3,30)=0
2846     exch2_pj(2,3,30)=1
2847     exch2_oi(3,30)=510
2848     exch2_oi_f(3,30)=510
2849     exch2_oj(3,30)=0
2850     exch2_oj_f(3,30)=0
2851     exch2_itlo_c(3,30)=0
2852     exch2_ithi_c(3,30)=0
2853     exch2_jtlo_c(3,30)=0
2854     exch2_jthi_c(3,30)=511
2855     exch2_opposingSend_record(3,30)=4
2856    
2857     exch2_neighbourId(4,30)=29
2858     exch2_pi(1,4,30)=1
2859     exch2_pi(2,4,30)=0
2860     exch2_pj(1,4,30)=0
2861     exch2_pj(2,4,30)=1
2862     exch2_oi(4,30)=0
2863     exch2_oi_f(4,30)=0
2864     exch2_oj(4,30)=0
2865     exch2_oj_f(4,30)=0
2866     exch2_itlo_c(4,30)=52
2867     exch2_ithi_c(4,30)=52
2868     exch2_jtlo_c(4,30)=0
2869     exch2_jthi_c(4,30)=511
2870     exch2_opposingSend_record(4,30)=3
2871     RETURN
2872     END
2873    
2874     SUBROUTINE W2_E2SETUP_31
2875     C Topology for tile 31
2876     #include "W2_EXCH2_TOPOLOGY.h"
2877     exch2_tnx(31)=51
2878     exch2_tny(31)=510
2879     exch2_tbasex(31)=0
2880     exch2_tbasey(31)=0
2881     exch2_txglobalo(31)=1531
2882     exch2_tyglobalo(31)=1
2883     exch2_isWedge(31)=1
2884     exch2_isNedge(31)=1
2885     exch2_isEedge(31)=0
2886     exch2_isSedge(31)=1
2887     exch2_myFace(31)=4
2888     exch2_mydnx(31)=510
2889     exch2_mydny(31)=510
2890     exch2_nNeighbours(31)=4
2891    
2892     exch2_neighbourId(1,31)=41
2893     exch2_pi(1,1,31)=1
2894     exch2_pi(2,1,31)=0
2895     exch2_pj(1,1,31)=0
2896     exch2_pj(2,1,31)=1
2897     exch2_oi(1,31)=0
2898     exch2_oi_f(1,31)=0
2899     exch2_oj(1,31)=510
2900     exch2_oj_f(1,31)=510
2901     exch2_itlo_c(1,31)=0
2902     exch2_ithi_c(1,31)=52
2903     exch2_jtlo_c(1,31)=0
2904     exch2_jthi_c(1,31)=0
2905     exch2_opposingSend_record(1,31)=2
2906    
2907     exch2_neighbourId(2,31)=20
2908     exch2_pi(1,2,31)=0
2909     exch2_pi(2,2,31)=-1
2910     exch2_pj(1,2,31)=1
2911     exch2_pj(2,2,31)=0
2912     exch2_oi(2,31)=511
2913     exch2_oi_f(2,31)=512
2914     exch2_oj(2,31)=-510
2915     exch2_oj_f(2,31)=-510
2916     exch2_itlo_c(2,31)=52
2917     exch2_ithi_c(2,31)=52
2918     exch2_jtlo_c(2,31)=459
2919     exch2_jthi_c(2,31)=511
2920     exch2_opposingSend_record(2,31)=3
2921    
2922     exch2_neighbourId(3,31)=32
2923     exch2_pi(1,3,31)=1
2924     exch2_pi(2,3,31)=0
2925     exch2_pj(1,3,31)=0
2926     exch2_pj(2,3,31)=1
2927     exch2_oi(3,31)=0
2928     exch2_oi_f(3,31)=0
2929     exch2_oj(3,31)=0
2930     exch2_oj_f(3,31)=0
2931     exch2_itlo_c(3,31)=0
2932     exch2_ithi_c(3,31)=0
2933     exch2_jtlo_c(3,31)=0
2934     exch2_jthi_c(3,31)=511
2935     exch2_opposingSend_record(3,31)=4
2936    
2937     exch2_neighbourId(4,31)=30
2938     exch2_pi(1,4,31)=1
2939     exch2_pi(2,4,31)=0
2940     exch2_pj(1,4,31)=0
2941     exch2_pj(2,4,31)=1
2942     exch2_oi(4,31)=-510
2943     exch2_oi_f(4,31)=-510
2944     exch2_oj(4,31)=0
2945     exch2_oj_f(4,31)=0
2946     exch2_itlo_c(4,31)=52
2947     exch2_ithi_c(4,31)=52
2948     exch2_jtlo_c(4,31)=0
2949     exch2_jthi_c(4,31)=511
2950     exch2_opposingSend_record(4,31)=3
2951     RETURN
2952     END
2953    
2954     SUBROUTINE W2_E2SETUP_32
2955     C Topology for tile 32
2956     #include "W2_EXCH2_TOPOLOGY.h"
2957     exch2_tnx(32)=51
2958     exch2_tny(32)=510
2959     exch2_tbasex(32)=51
2960     exch2_tbasey(32)=0
2961     exch2_txglobalo(32)=1582
2962     exch2_tyglobalo(32)=1
2963     exch2_isWedge(32)=0
2964     exch2_isNedge(32)=1
2965     exch2_isEedge(32)=0
2966     exch2_isSedge(32)=1
2967     exch2_myFace(32)=4
2968     exch2_mydnx(32)=510
2969     exch2_mydny(32)=510
2970     exch2_nNeighbours(32)=4
2971    
2972     exch2_neighbourId(1,32)=42
2973     exch2_pi(1,1,32)=1
2974     exch2_pi(2,1,32)=0
2975     exch2_pj(1,1,32)=0
2976     exch2_pj(2,1,32)=1
2977     exch2_oi(1,32)=0
2978     exch2_oi_f(1,32)=0
2979     exch2_oj(1,32)=510
2980     exch2_oj_f(1,32)=510
2981     exch2_itlo_c(1,32)=0
2982     exch2_ithi_c(1,32)=52
2983     exch2_jtlo_c(1,32)=0
2984     exch2_jthi_c(1,32)=0
2985     exch2_opposingSend_record(1,32)=2
2986    
2987     exch2_neighbourId(2,32)=20
2988     exch2_pi(1,2,32)=0
2989     exch2_pi(2,2,32)=-1
2990     exch2_pj(1,2,32)=1
2991     exch2_pj(2,2,32)=0
2992     exch2_oi(2,32)=511
2993     exch2_oi_f(2,32)=512
2994     exch2_oj(2,32)=-510
2995     exch2_oj_f(2,32)=-510
2996     exch2_itlo_c(2,32)=52
2997     exch2_ithi_c(2,32)=52
2998     exch2_jtlo_c(2,32)=408
2999     exch2_jthi_c(2,32)=460
3000     exch2_opposingSend_record(2,32)=4
3001    
3002     exch2_neighbourId(3,32)=33
3003     exch2_pi(1,3,32)=1
3004     exch2_pi(2,3,32)=0
3005     exch2_pj(1,3,32)=0
3006     exch2_pj(2,3,32)=1
3007     exch2_oi(3,32)=0
3008     exch2_oi_f(3,32)=0
3009     exch2_oj(3,32)=0
3010     exch2_oj_f(3,32)=0
3011     exch2_itlo_c(3,32)=0
3012     exch2_ithi_c(3,32)=0
3013     exch2_jtlo_c(3,32)=0
3014     exch2_jthi_c(3,32)=511
3015     exch2_opposingSend_record(3,32)=4
3016    
3017     exch2_neighbourId(4,32)=31
3018     exch2_pi(1,4,32)=1
3019     exch2_pi(2,4,32)=0
3020     exch2_pj(1,4,32)=0
3021     exch2_pj(2,4,32)=1
3022     exch2_oi(4,32)=0
3023     exch2_oi_f(4,32)=0
3024     exch2_oj(4,32)=0
3025     exch2_oj_f(4,32)=0
3026     exch2_itlo_c(4,32)=52
3027     exch2_ithi_c(4,32)=52
3028     exch2_jtlo_c(4,32)=0
3029     exch2_jthi_c(4,32)=511
3030     exch2_opposingSend_record(4,32)=3
3031     RETURN
3032     END
3033    
3034     SUBROUTINE W2_E2SETUP_33
3035     C Topology for tile 33
3036     #include "W2_EXCH2_TOPOLOGY.h"
3037     exch2_tnx(33)=51
3038     exch2_tny(33)=510
3039     exch2_tbasex(33)=102
3040     exch2_tbasey(33)=0
3041     exch2_txglobalo(33)=1633
3042     exch2_tyglobalo(33)=1
3043     exch2_isWedge(33)=0
3044     exch2_isNedge(33)=1
3045     exch2_isEedge(33)=0
3046     exch2_isSedge(33)=1
3047     exch2_myFace(33)=4
3048     exch2_mydnx(33)=510
3049     exch2_mydny(33)=510
3050     exch2_nNeighbours(33)=4
3051    
3052     exch2_neighbourId(1,33)=43
3053     exch2_pi(1,1,33)=1
3054     exch2_pi(2,1,33)=0
3055     exch2_pj(1,1,33)=0
3056     exch2_pj(2,1,33)=1
3057     exch2_oi(1,33)=0
3058     exch2_oi_f(1,33)=0
3059     exch2_oj(1,33)=510
3060     exch2_oj_f(1,33)=510
3061     exch2_itlo_c(1,33)=0
3062     exch2_ithi_c(1,33)=52
3063     exch2_jtlo_c(1,33)=0
3064     exch2_jthi_c(1,33)=0
3065     exch2_opposingSend_record(1,33)=2
3066    
3067     exch2_neighbourId(2,33)=20
3068     exch2_pi(1,2,33)=0
3069     exch2_pi(2,2,33)=-1
3070     exch2_pj(1,2,33)=1
3071     exch2_pj(2,2,33)=0
3072     exch2_oi(2,33)=511
3073     exch2_oi_f(2,33)=512
3074     exch2_oj(2,33)=-510
3075     exch2_oj_f(2,33)=-510
3076     exch2_itlo_c(2,33)=52
3077     exch2_ithi_c(2,33)=52
3078     exch2_jtlo_c(2,33)=357
3079     exch2_jthi_c(2,33)=409
3080     exch2_opposingSend_record(2,33)=5
3081    
3082     exch2_neighbourId(3,33)=34
3083     exch2_pi(1,3,33)=1
3084     exch2_pi(2,3,33)=0
3085     exch2_pj(1,3,33)=0
3086     exch2_pj(2,3,33)=1
3087     exch2_oi(3,33)=0
3088     exch2_oi_f(3,33)=0
3089     exch2_oj(3,33)=0
3090     exch2_oj_f(3,33)=0
3091     exch2_itlo_c(3,33)=0
3092     exch2_ithi_c(3,33)=0
3093     exch2_jtlo_c(3,33)=0
3094     exch2_jthi_c(3,33)=511
3095     exch2_opposingSend_record(3,33)=4
3096    
3097     exch2_neighbourId(4,33)=32
3098     exch2_pi(1,4,33)=1
3099     exch2_pi(2,4,33)=0
3100     exch2_pj(1,4,33)=0
3101     exch2_pj(2,4,33)=1
3102     exch2_oi(4,33)=0
3103     exch2_oi_f(4,33)=0
3104     exch2_oj(4,33)=0
3105     exch2_oj_f(4,33)=0
3106     exch2_itlo_c(4,33)=52
3107     exch2_ithi_c(4,33)=52
3108     exch2_jtlo_c(4,33)=0
3109     exch2_jthi_c(4,33)=511
3110     exch2_opposingSend_record(4,33)=3
3111     RETURN
3112     END
3113    
3114     SUBROUTINE W2_E2SETUP_34
3115     C Topology for tile 34
3116     #include "W2_EXCH2_TOPOLOGY.h"
3117     exch2_tnx(34)=51
3118     exch2_tny(34)=510
3119     exch2_tbasex(34)=153
3120     exch2_tbasey(34)=0
3121     exch2_txglobalo(34)=1684
3122     exch2_tyglobalo(34)=1
3123     exch2_isWedge(34)=0
3124     exch2_isNedge(34)=1
3125     exch2_isEedge(34)=0
3126     exch2_isSedge(34)=1
3127     exch2_myFace(34)=4
3128     exch2_mydnx(34)=510
3129     exch2_mydny(34)=510
3130     exch2_nNeighbours(34)=4
3131    
3132     exch2_neighbourId(1,34)=44
3133     exch2_pi(1,1,34)=1
3134     exch2_pi(2,1,34)=0
3135     exch2_pj(1,1,34)=0
3136     exch2_pj(2,1,34)=1
3137     exch2_oi(1,34)=0
3138     exch2_oi_f(1,34)=0
3139     exch2_oj(1,34)=510
3140     exch2_oj_f(1,34)=510
3141     exch2_itlo_c(1,34)=0
3142     exch2_ithi_c(1,34)=52
3143     exch2_jtlo_c(1,34)=0
3144     exch2_jthi_c(1,34)=0
3145     exch2_opposingSend_record(1,34)=2
3146    
3147     exch2_neighbourId(2,34)=20
3148     exch2_pi(1,2,34)=0
3149     exch2_pi(2,2,34)=-1
3150     exch2_pj(1,2,34)=1
3151     exch2_pj(2,2,34)=0
3152     exch2_oi(2,34)=511
3153     exch2_oi_f(2,34)=512
3154     exch2_oj(2,34)=-510
3155     exch2_oj_f(2,34)=-510
3156     exch2_itlo_c(2,34)=52
3157     exch2_ithi_c(2,34)=52
3158     exch2_jtlo_c(2,34)=306
3159     exch2_jthi_c(2,34)=358
3160     exch2_opposingSend_record(2,34)=6
3161    
3162     exch2_neighbourId(3,34)=35
3163     exch2_pi(1,3,34)=1
3164     exch2_pi(2,3,34)=0
3165     exch2_pj(1,3,34)=0
3166     exch2_pj(2,3,34)=1
3167     exch2_oi(3,34)=0
3168     exch2_oi_f(3,34)=0
3169     exch2_oj(3,34)=0
3170     exch2_oj_f(3,34)=0
3171     exch2_itlo_c(3,34)=0
3172     exch2_ithi_c(3,34)=0
3173     exch2_jtlo_c(3,34)=0
3174     exch2_jthi_c(3,34)=511
3175     exch2_opposingSend_record(3,34)=4
3176    
3177     exch2_neighbourId(4,34)=33
3178     exch2_pi(1,4,34)=1
3179     exch2_pi(2,4,34)=0
3180     exch2_pj(1,4,34)=0
3181     exch2_pj(2,4,34)=1
3182     exch2_oi(4,34)=0
3183     exch2_oi_f(4,34)=0
3184     exch2_oj(4,34)=0
3185     exch2_oj_f(4,34)=0
3186     exch2_itlo_c(4,34)=52
3187     exch2_ithi_c(4,34)=52
3188     exch2_jtlo_c(4,34)=0
3189     exch2_jthi_c(4,34)=511
3190     exch2_opposingSend_record(4,34)=3
3191     RETURN
3192     END
3193    
3194     SUBROUTINE W2_E2SETUP_35
3195     C Topology for tile 35
3196     #include "W2_EXCH2_TOPOLOGY.h"
3197     exch2_tnx(35)=51
3198     exch2_tny(35)=510
3199     exch2_tbasex(35)=204
3200     exch2_tbasey(35)=0
3201     exch2_txglobalo(35)=1735
3202     exch2_tyglobalo(35)=1
3203     exch2_isWedge(35)=0
3204     exch2_isNedge(35)=1
3205     exch2_isEedge(35)=0
3206     exch2_isSedge(35)=1
3207     exch2_myFace(35)=4
3208     exch2_mydnx(35)=510
3209     exch2_mydny(35)=510
3210     exch2_nNeighbours(35)=4
3211    
3212     exch2_neighbourId(1,35)=45
3213     exch2_pi(1,1,35)=1
3214     exch2_pi(2,1,35)=0
3215     exch2_pj(1,1,35)=0
3216     exch2_pj(2,1,35)=1
3217     exch2_oi(1,35)=0
3218     exch2_oi_f(1,35)=0
3219     exch2_oj(1,35)=510
3220     exch2_oj_f(1,35)=510
3221     exch2_itlo_c(1,35)=0
3222     exch2_ithi_c(1,35)=52
3223     exch2_jtlo_c(1,35)=0
3224     exch2_jthi_c(1,35)=0
3225     exch2_opposingSend_record(1,35)=2
3226    
3227     exch2_neighbourId(2,35)=20
3228     exch2_pi(1,2,35)=0
3229     exch2_pi(2,2,35)=-1
3230     exch2_pj(1,2,35)=1
3231     exch2_pj(2,2,35)=0
3232     exch2_oi(2,35)=511
3233     exch2_oi_f(2,35)=512
3234     exch2_oj(2,35)=-510
3235     exch2_oj_f(2,35)=-510
3236     exch2_itlo_c(2,35)=52
3237     exch2_ithi_c(2,35)=52
3238     exch2_jtlo_c(2,35)=255
3239     exch2_jthi_c(2,35)=307
3240     exch2_opposingSend_record(2,35)=7
3241    
3242     exch2_neighbourId(3,35)=36
3243     exch2_pi(1,3,35)=1
3244     exch2_pi(2,3,35)=0
3245     exch2_pj(1,3,35)=0
3246     exch2_pj(2,3,35)=1
3247     exch2_oi(3,35)=0
3248     exch2_oi_f(3,35)=0
3249     exch2_oj(3,35)=0
3250     exch2_oj_f(3,35)=0
3251     exch2_itlo_c(3,35)=0
3252     exch2_ithi_c(3,35)=0
3253     exch2_jtlo_c(3,35)=0
3254     exch2_jthi_c(3,35)=511
3255     exch2_opposingSend_record(3,35)=4
3256    
3257     exch2_neighbourId(4,35)=34
3258     exch2_pi(1,4,35)=1
3259     exch2_pi(2,4,35)=0
3260     exch2_pj(1,4,35)=0
3261     exch2_pj(2,4,35)=1
3262     exch2_oi(4,35)=0
3263     exch2_oi_f(4,35)=0
3264     exch2_oj(4,35)=0
3265     exch2_oj_f(4,35)=0
3266     exch2_itlo_c(4,35)=52
3267     exch2_ithi_c(4,35)=52
3268     exch2_jtlo_c(4,35)=0
3269     exch2_jthi_c(4,35)=511
3270     exch2_opposingSend_record(4,35)=3
3271     RETURN
3272     END
3273    
3274     SUBROUTINE W2_E2SETUP_36
3275     C Topology for tile 36
3276     #include "W2_EXCH2_TOPOLOGY.h"
3277     exch2_tnx(36)=51
3278     exch2_tny(36)=510
3279     exch2_tbasex(36)=255
3280     exch2_tbasey(36)=0
3281     exch2_txglobalo(36)=1786
3282     exch2_tyglobalo(36)=1
3283     exch2_isWedge(36)=0
3284     exch2_isNedge(36)=1
3285     exch2_isEedge(36)=0
3286     exch2_isSedge(36)=1
3287     exch2_myFace(36)=4
3288     exch2_mydnx(36)=510
3289     exch2_mydny(36)=510
3290     exch2_nNeighbours(36)=4
3291    
3292     exch2_neighbourId(1,36)=46
3293     exch2_pi(1,1,36)=1
3294     exch2_pi(2,1,36)=0
3295     exch2_pj(1,1,36)=0
3296     exch2_pj(2,1,36)=1
3297     exch2_oi(1,36)=0
3298     exch2_oi_f(1,36)=0
3299     exch2_oj(1,36)=510
3300     exch2_oj_f(1,36)=510
3301     exch2_itlo_c(1,36)=0
3302     exch2_ithi_c(1,36)=52
3303     exch2_jtlo_c(1,36)=0
3304     exch2_jthi_c(1,36)=0
3305     exch2_opposingSend_record(1,36)=2
3306    
3307     exch2_neighbourId(2,36)=20
3308     exch2_pi(1,2,36)=0
3309     exch2_pi(2,2,36)=-1
3310     exch2_pj(1,2,36)=1
3311     exch2_pj(2,2,36)=0
3312     exch2_oi(2,36)=511
3313     exch2_oi_f(2,36)=512
3314     exch2_oj(2,36)=-510
3315     exch2_oj_f(2,36)=-510
3316     exch2_itlo_c(2,36)=52
3317     exch2_ithi_c(2,36)=52
3318     exch2_jtlo_c(2,36)=204
3319     exch2_jthi_c(2,36)=256
3320     exch2_opposingSend_record(2,36)=8
3321    
3322     exch2_neighbourId(3,36)=37
3323     exch2_pi(1,3,36)=1
3324     exch2_pi(2,3,36)=0
3325     exch2_pj(1,3,36)=0
3326     exch2_pj(2,3,36)=1
3327     exch2_oi(3,36)=0
3328     exch2_oi_f(3,36)=0
3329     exch2_oj(3,36)=0
3330     exch2_oj_f(3,36)=0
3331     exch2_itlo_c(3,36)=0
3332     exch2_ithi_c(3,36)=0
3333     exch2_jtlo_c(3,36)=0
3334     exch2_jthi_c(3,36)=511
3335     exch2_opposingSend_record(3,36)=4
3336    
3337     exch2_neighbourId(4,36)=35
3338     exch2_pi(1,4,36)=1
3339     exch2_pi(2,4,36)=0
3340     exch2_pj(1,4,36)=0
3341     exch2_pj(2,4,36)=1
3342     exch2_oi(4,36)=0
3343     exch2_oi_f(4,36)=0
3344     exch2_oj(4,36)=0
3345     exch2_oj_f(4,36)=0
3346     exch2_itlo_c(4,36)=52
3347     exch2_ithi_c(4,36)=52
3348     exch2_jtlo_c(4,36)=0
3349     exch2_jthi_c(4,36)=511
3350     exch2_opposingSend_record(4,36)=3
3351     RETURN
3352     END
3353    
3354     SUBROUTINE W2_E2SETUP_37
3355     C Topology for tile 37
3356     #include "W2_EXCH2_TOPOLOGY.h"
3357     exch2_tnx(37)=51
3358     exch2_tny(37)=510
3359     exch2_tbasex(37)=306
3360     exch2_tbasey(37)=0
3361     exch2_txglobalo(37)=1837
3362     exch2_tyglobalo(37)=1
3363     exch2_isWedge(37)=0
3364     exch2_isNedge(37)=1
3365     exch2_isEedge(37)=0
3366     exch2_isSedge(37)=1
3367     exch2_myFace(37)=4
3368     exch2_mydnx(37)=510
3369     exch2_mydny(37)=510
3370     exch2_nNeighbours(37)=4
3371    
3372     exch2_neighbourId(1,37)=47
3373     exch2_pi(1,1,37)=1
3374     exch2_pi(2,1,37)=0
3375     exch2_pj(1,1,37)=0
3376     exch2_pj(2,1,37)=1
3377     exch2_oi(1,37)=0
3378     exch2_oi_f(1,37)=0
3379     exch2_oj(1,37)=510
3380     exch2_oj_f(1,37)=510
3381     exch2_itlo_c(1,37)=0
3382     exch2_ithi_c(1,37)=52
3383     exch2_jtlo_c(1,37)=0
3384     exch2_jthi_c(1,37)=0
3385     exch2_opposingSend_record(1,37)=2
3386    
3387     exch2_neighbourId(2,37)=20
3388     exch2_pi(1,2,37)=0
3389     exch2_pi(2,2,37)=-1
3390     exch2_pj(1,2,37)=1
3391     exch2_pj(2,2,37)=0
3392     exch2_oi(2,37)=511
3393     exch2_oi_f(2,37)=512
3394     exch2_oj(2,37)=-510
3395     exch2_oj_f(2,37)=-510
3396     exch2_itlo_c(2,37)=52
3397     exch2_ithi_c(2,37)=52
3398     exch2_jtlo_c(2,37)=153
3399     exch2_jthi_c(2,37)=205
3400     exch2_opposingSend_record(2,37)=9
3401    
3402     exch2_neighbourId(3,37)=38
3403     exch2_pi(1,3,37)=1
3404     exch2_pi(2,3,37)=0
3405     exch2_pj(1,3,37)=0
3406     exch2_pj(2,3,37)=1
3407     exch2_oi(3,37)=0
3408     exch2_oi_f(3,37)=0
3409     exch2_oj(3,37)=0
3410     exch2_oj_f(3,37)=0
3411     exch2_itlo_c(3,37)=0
3412     exch2_ithi_c(3,37)=0
3413     exch2_jtlo_c(3,37)=0
3414     exch2_jthi_c(3,37)=511
3415     exch2_opposingSend_record(3,37)=4
3416    
3417     exch2_neighbourId(4,37)=36
3418     exch2_pi(1,4,37)=1
3419     exch2_pi(2,4,37)=0
3420     exch2_pj(1,4,37)=0
3421     exch2_pj(2,4,37)=1
3422     exch2_oi(4,37)=0
3423     exch2_oi_f(4,37)=0
3424     exch2_oj(4,37)=0
3425     exch2_oj_f(4,37)=0
3426     exch2_itlo_c(4,37)=52
3427     exch2_ithi_c(4,37)=52
3428     exch2_jtlo_c(4,37)=0
3429     exch2_jthi_c(4,37)=511
3430     exch2_opposingSend_record(4,37)=3
3431     RETURN
3432     END
3433    
3434     SUBROUTINE W2_E2SETUP_38
3435     C Topology for tile 38
3436     #include "W2_EXCH2_TOPOLOGY.h"
3437     exch2_tnx(38)=51
3438     exch2_tny(38)=510
3439     exch2_tbasex(38)=357
3440     exch2_tbasey(38)=0
3441     exch2_txglobalo(38)=1888
3442     exch2_tyglobalo(38)=1
3443     exch2_isWedge(38)=0
3444     exch2_isNedge(38)=1
3445     exch2_isEedge(38)=0
3446     exch2_isSedge(38)=1
3447     exch2_myFace(38)=4
3448     exch2_mydnx(38)=510
3449     exch2_mydny(38)=510
3450     exch2_nNeighbours(38)=4
3451    
3452     exch2_neighbourId(1,38)=48
3453     exch2_pi(1,1,38)=1
3454     exch2_pi(2,1,38)=0
3455     exch2_pj(1,1,38)=0
3456     exch2_pj(2,1,38)=1
3457     exch2_oi(1,38)=0
3458     exch2_oi_f(1,38)=0
3459     exch2_oj(1,38)=510
3460     exch2_oj_f(1,38)=510
3461     exch2_itlo_c(1,38)=0
3462     exch2_ithi_c(1,38)=52
3463     exch2_jtlo_c(1,38)=0
3464     exch2_jthi_c(1,38)=0
3465     exch2_opposingSend_record(1,38)=2
3466    
3467     exch2_neighbourId(2,38)=20
3468     exch2_pi(1,2,38)=0
3469     exch2_pi(2,2,38)=-1
3470     exch2_pj(1,2,38)=1
3471     exch2_pj(2,2,38)=0
3472     exch2_oi(2,38)=511
3473     exch2_oi_f(2,38)=512
3474     exch2_oj(2,38)=-510
3475     exch2_oj_f(2,38)=-510
3476     exch2_itlo_c(2,38)=52
3477     exch2_ithi_c(2,38)=52
3478     exch2_jtlo_c(2,38)=102
3479     exch2_jthi_c(2,38)=154
3480     exch2_opposingSend_record(2,38)=10
3481    
3482     exch2_neighbourId(3,38)=39
3483     exch2_pi(1,3,38)=1
3484     exch2_pi(2,3,38)=0
3485     exch2_pj(1,3,38)=0
3486     exch2_pj(2,3,38)=1
3487     exch2_oi(3,38)=0
3488     exch2_oi_f(3,38)=0
3489     exch2_oj(3,38)=0
3490     exch2_oj_f(3,38)=0
3491     exch2_itlo_c(3,38)=0
3492     exch2_ithi_c(3,38)=0
3493     exch2_jtlo_c(3,38)=0
3494     exch2_jthi_c(3,38)=511
3495     exch2_opposingSend_record(3,38)=4
3496    
3497     exch2_neighbourId(4,38)=37
3498     exch2_pi(1,4,38)=1
3499     exch2_pi(2,4,38)=0
3500     exch2_pj(1,4,38)=0
3501     exch2_pj(2,4,38)=1
3502     exch2_oi(4,38)=0
3503     exch2_oi_f(4,38)=0
3504     exch2_oj(4,38)=0
3505     exch2_oj_f(4,38)=0
3506     exch2_itlo_c(4,38)=52
3507     exch2_ithi_c(4,38)=52
3508     exch2_jtlo_c(4,38)=0
3509     exch2_jthi_c(4,38)=511
3510     exch2_opposingSend_record(4,38)=3
3511     RETURN
3512     END
3513    
3514     SUBROUTINE W2_E2SETUP_39
3515     C Topology for tile 39
3516     #include "W2_EXCH2_TOPOLOGY.h"
3517     exch2_tnx(39)=51
3518     exch2_tny(39)=510
3519     exch2_tbasex(39)=408
3520     exch2_tbasey(39)=0
3521     exch2_txglobalo(39)=1939
3522     exch2_tyglobalo(39)=1
3523     exch2_isWedge(39)=0
3524     exch2_isNedge(39)=1
3525     exch2_isEedge(39)=0
3526     exch2_isSedge(39)=1
3527     exch2_myFace(39)=4
3528     exch2_mydnx(39)=510
3529     exch2_mydny(39)=510
3530     exch2_nNeighbours(39)=4
3531    
3532     exch2_neighbourId(1,39)=49
3533     exch2_pi(1,1,39)=1
3534     exch2_pi(2,1,39)=0
3535     exch2_pj(1,1,39)=0
3536     exch2_pj(2,1,39)=1
3537     exch2_oi(1,39)=0
3538     exch2_oi_f(1,39)=0
3539     exch2_oj(1,39)=510
3540     exch2_oj_f(1,39)=510
3541     exch2_itlo_c(1,39)=0
3542     exch2_ithi_c(1,39)=52
3543     exch2_jtlo_c(1,39)=0
3544     exch2_jthi_c(1,39)=0
3545     exch2_opposingSend_record(1,39)=2
3546    
3547     exch2_neighbourId(2,39)=20
3548     exch2_pi(1,2,39)=0
3549     exch2_pi(2,2,39)=-1
3550     exch2_pj(1,2,39)=1
3551     exch2_pj(2,2,39)=0
3552     exch2_oi(2,39)=511
3553     exch2_oi_f(2,39)=512
3554     exch2_oj(2,39)=-510
3555     exch2_oj_f(2,39)=-510
3556     exch2_itlo_c(2,39)=52
3557     exch2_ithi_c(2,39)=52
3558     exch2_jtlo_c(2,39)=51
3559     exch2_jthi_c(2,39)=103
3560     exch2_opposingSend_record(2,39)=11
3561    
3562     exch2_neighbourId(3,39)=40
3563     exch2_pi(1,3,39)=1
3564     exch2_pi(2,3,39)=0
3565     exch2_pj(1,3,39)=0
3566     exch2_pj(2,3,39)=1
3567     exch2_oi(3,39)=0
3568     exch2_oi_f(3,39)=0
3569     exch2_oj(3,39)=0
3570     exch2_oj_f(3,39)=0
3571     exch2_itlo_c(3,39)=0
3572     exch2_ithi_c(3,39)=0
3573     exch2_jtlo_c(3,39)=0
3574     exch2_jthi_c(3,39)=511
3575     exch2_opposingSend_record(3,39)=13
3576    
3577     exch2_neighbourId(4,39)=38
3578     exch2_pi(1,4,39)=1
3579     exch2_pi(2,4,39)=0
3580     exch2_pj(1,4,39)=0
3581     exch2_pj(2,4,39)=1
3582     exch2_oi(4,39)=0
3583     exch2_oi_f(4,39)=0
3584     exch2_oj(4,39)=0
3585     exch2_oj_f(4,39)=0
3586     exch2_itlo_c(4,39)=52
3587     exch2_ithi_c(4,39)=52
3588     exch2_jtlo_c(4,39)=0
3589     exch2_jthi_c(4,39)=511
3590     exch2_opposingSend_record(4,39)=3
3591     RETURN
3592     END
3593    
3594     SUBROUTINE W2_E2SETUP_40
3595     C Topology for tile 40
3596     #include "W2_EXCH2_TOPOLOGY.h"
3597     exch2_tnx(40)=51
3598     exch2_tny(40)=510
3599     exch2_tbasex(40)=459
3600     exch2_tbasey(40)=0
3601     exch2_txglobalo(40)=1990
3602     exch2_tyglobalo(40)=1
3603     exch2_isWedge(40)=0
3604     exch2_isNedge(40)=1
3605     exch2_isEedge(40)=1
3606     exch2_isSedge(40)=1
3607     exch2_myFace(40)=4
3608     exch2_mydnx(40)=510
3609     exch2_mydny(40)=510
3610     exch2_nNeighbours(40)=13
3611    
3612     exch2_neighbourId(1,40)=50
3613     exch2_pi(1,1,40)=1
3614     exch2_pi(2,1,40)=0
3615     exch2_pj(1,1,40)=0
3616     exch2_pj(2,1,40)=1
3617     exch2_oi(1,40)=0
3618     exch2_oi_f(1,40)=0
3619     exch2_oj(1,40)=510
3620     exch2_oj_f(1,40)=510
3621     exch2_itlo_c(1,40)=0
3622     exch2_ithi_c(1,40)=52
3623     exch2_jtlo_c(1,40)=0
3624     exch2_jthi_c(1,40)=0
3625     exch2_opposingSend_record(1,40)=2
3626    
3627     exch2_neighbourId(2,40)=20
3628     exch2_pi(1,2,40)=0
3629     exch2_pi(2,2,40)=-1
3630     exch2_pj(1,2,40)=1
3631     exch2_pj(2,2,40)=0
3632     exch2_oi(2,40)=511
3633     exch2_oi_f(2,40)=512
3634     exch2_oj(2,40)=-510
3635     exch2_oj_f(2,40)=-510
3636     exch2_itlo_c(2,40)=52
3637     exch2_ithi_c(2,40)=52
3638     exch2_jtlo_c(2,40)=0
3639     exch2_jthi_c(2,40)=52
3640     exch2_opposingSend_record(2,40)=12
3641    
3642     exch2_neighbourId(3,40)=51
3643     exch2_pi(1,3,40)=0
3644     exch2_pi(2,3,40)=1
3645     exch2_pj(1,3,40)=-1
3646     exch2_pj(2,3,40)=0
3647     exch2_oi(3,40)=510
3648     exch2_oi_f(3,40)=510
3649     exch2_oj(3,40)=511
3650     exch2_oj_f(3,40)=512
3651     exch2_itlo_c(3,40)=0
3652     exch2_ithi_c(3,40)=52
3653     exch2_jtlo_c(3,40)=0
3654     exch2_jthi_c(3,40)=0
3655     exch2_opposingSend_record(3,40)=2
3656    
3657     exch2_neighbourId(4,40)=52
3658     exch2_pi(1,4,40)=0
3659     exch2_pi(2,4,40)=1
3660     exch2_pj(1,4,40)=-1
3661     exch2_pj(2,4,40)=0
3662     exch2_oi(4,40)=510
3663     exch2_oi_f(4,40)=510
3664     exch2_oj(4,40)=511
3665     exch2_oj_f(4,40)=512
3666     exch2_itlo_c(4,40)=0
3667     exch2_ithi_c(4,40)=52
3668     exch2_jtlo_c(4,40)=0
3669     exch2_jthi_c(4,40)=0
3670     exch2_opposingSend_record(4,40)=2
3671    
3672     exch2_neighbourId(5,40)=53
3673     exch2_pi(1,5,40)=0
3674     exch2_pi(2,5,40)=1
3675     exch2_pj(1,5,40)=-1
3676     exch2_pj(2,5,40)=0
3677     exch2_oi(5,40)=510
3678     exch2_oi_f(5,40)=510
3679     exch2_oj(5,40)=511
3680     exch2_oj_f(5,40)=512
3681     exch2_itlo_c(5,40)=0
3682     exch2_ithi_c(5,40)=52
3683     exch2_jtlo_c(5,40)=0
3684     exch2_jthi_c(5,40)=0
3685     exch2_opposingSend_record(5,40)=2
3686    
3687     exch2_neighbourId(6,40)=54
3688     exch2_pi(1,6,40)=0
3689     exch2_pi(2,6,40)=1
3690     exch2_pj(1,6,40)=-1
3691     exch2_pj(2,6,40)=0
3692     exch2_oi(6,40)=510
3693     exch2_oi_f(6,40)=510
3694     exch2_oj(6,40)=511
3695     exch2_oj_f(6,40)=512
3696     exch2_itlo_c(6,40)=0
3697     exch2_ithi_c(6,40)=52
3698     exch2_jtlo_c(6,40)=0
3699     exch2_jthi_c(6,40)=0
3700     exch2_opposingSend_record(6,40)=2
3701    
3702     exch2_neighbourId(7,40)=55
3703     exch2_pi(1,7,40)=0
3704     exch2_pi(2,7,40)=1
3705     exch2_pj(1,7,40)=-1
3706     exch2_pj(2,7,40)=0
3707     exch2_oi(7,40)=510
3708     exch2_oi_f(7,40)=510
3709     exch2_oj(7,40)=511
3710     exch2_oj_f(7,40)=512
3711     exch2_itlo_c(7,40)=0
3712     exch2_ithi_c(7,40)=52
3713     exch2_jtlo_c(7,40)=0
3714     exch2_jthi_c(7,40)=0
3715     exch2_opposingSend_record(7,40)=2
3716    
3717     exch2_neighbourId(8,40)=56
3718     exch2_pi(1,8,40)=0
3719     exch2_pi(2,8,40)=1
3720     exch2_pj(1,8,40)=-1
3721     exch2_pj(2,8,40)=0
3722     exch2_oi(8,40)=510
3723     exch2_oi_f(8,40)=510
3724     exch2_oj(8,40)=511
3725     exch2_oj_f(8,40)=512
3726     exch2_itlo_c(8,40)=0
3727     exch2_ithi_c(8,40)=52
3728     exch2_jtlo_c(8,40)=0
3729     exch2_jthi_c(8,40)=0
3730     exch2_opposingSend_record(8,40)=2
3731    
3732     exch2_neighbourId(9,40)=57
3733     exch2_pi(1,9,40)=0
3734     exch2_pi(2,9,40)=1
3735     exch2_pj(1,9,40)=-1
3736     exch2_pj(2,9,40)=0
3737     exch2_oi(9,40)=510
3738     exch2_oi_f(9,40)=510
3739     exch2_oj(9,40)=511
3740     exch2_oj_f(9,40)=512
3741     exch2_itlo_c(9,40)=0
3742     exch2_ithi_c(9,40)=52
3743     exch2_jtlo_c(9,40)=0
3744     exch2_jthi_c(9,40)=0
3745     exch2_opposingSend_record(9,40)=2
3746    
3747     exch2_neighbourId(10,40)=58
3748     exch2_pi(1,10,40)=0
3749     exch2_pi(2,10,40)=1
3750     exch2_pj(1,10,40)=-1
3751     exch2_pj(2,10,40)=0
3752     exch2_oi(10,40)=510
3753     exch2_oi_f(10,40)=510
3754     exch2_oj(10,40)=511
3755     exch2_oj_f(10,40)=512
3756     exch2_itlo_c(10,40)=0
3757     exch2_ithi_c(10,40)=52
3758     exch2_jtlo_c(10,40)=0
3759     exch2_jthi_c(10,40)=0
3760     exch2_opposingSend_record(10,40)=2
3761    
3762     exch2_neighbourId(11,40)=59
3763     exch2_pi(1,11,40)=0
3764     exch2_pi(2,11,40)=1
3765     exch2_pj(1,11,40)=-1
3766     exch2_pj(2,11,40)=0
3767     exch2_oi(11,40)=510
3768     exch2_oi_f(11,40)=510
3769     exch2_oj(11,40)=511
3770     exch2_oj_f(11,40)=512
3771     exch2_itlo_c(11,40)=0
3772     exch2_ithi_c(11,40)=52
3773     exch2_jtlo_c(11,40)=0
3774     exch2_jthi_c(11,40)=0
3775     exch2_opposingSend_record(11,40)=2
3776    
3777     exch2_neighbourId(12,40)=60
3778     exch2_pi(1,12,40)=0
3779     exch2_pi(2,12,40)=1
3780     exch2_pj(1,12,40)=-1
3781     exch2_pj(2,12,40)=0
3782     exch2_oi(12,40)=510
3783     exch2_oi_f(12,40)=510
3784     exch2_oj(12,40)=511
3785     exch2_oj_f(12,40)=512
3786     exch2_itlo_c(12,40)=0
3787     exch2_ithi_c(12,40)=52
3788     exch2_jtlo_c(12,40)=0
3789     exch2_jthi_c(12,40)=0
3790     exch2_opposingSend_record(12,40)=2
3791    
3792     exch2_neighbourId(13,40)=39
3793     exch2_pi(1,13,40)=1
3794     exch2_pi(2,13,40)=0
3795     exch2_pj(1,13,40)=0
3796     exch2_pj(2,13,40)=1
3797     exch2_oi(13,40)=0
3798     exch2_oi_f(13,40)=0
3799     exch2_oj(13,40)=0
3800     exch2_oj_f(13,40)=0
3801     exch2_itlo_c(13,40)=52
3802     exch2_ithi_c(13,40)=52
3803     exch2_jtlo_c(13,40)=0
3804     exch2_jthi_c(13,40)=511
3805     exch2_opposingSend_record(13,40)=3
3806     RETURN
3807     END
3808    
3809     SUBROUTINE W2_E2SETUP_41
3810     C Topology for tile 41
3811     #include "W2_EXCH2_TOPOLOGY.h"
3812     exch2_tnx(41)=51
3813     exch2_tny(41)=510
3814     exch2_tbasex(41)=0
3815     exch2_tbasey(41)=0
3816     exch2_txglobalo(41)=2041
3817     exch2_tyglobalo(41)=1
3818     exch2_isWedge(41)=1
3819     exch2_isNedge(41)=1
3820     exch2_isEedge(41)=0
3821     exch2_isSedge(41)=1
3822     exch2_myFace(41)=5
3823     exch2_mydnx(41)=510
3824     exch2_mydny(41)=510
3825     exch2_nNeighbours(41)=13
3826    
3827     exch2_neighbourId(1,41)=1
3828     exch2_pi(1,1,41)=0
3829     exch2_pi(2,1,41)=-1
3830     exch2_pj(1,1,41)=1
3831     exch2_pj(2,1,41)=0
3832     exch2_oi(1,41)=511
3833     exch2_oi_f(1,41)=512
3834     exch2_oj(1,41)=510
3835     exch2_oj_f(1,41)=510
3836     exch2_itlo_c(1,41)=0
3837     exch2_ithi_c(1,41)=0
3838     exch2_jtlo_c(1,41)=459
3839     exch2_jthi_c(1,41)=511
3840     exch2_opposingSend_record(1,41)=4
3841    
3842     exch2_neighbourId(2,41)=31
3843     exch2_pi(1,2,41)=1
3844     exch2_pi(2,2,41)=0
3845     exch2_pj(1,2,41)=0
3846     exch2_pj(2,2,41)=1
3847     exch2_oi(2,41)=0
3848     exch2_oi_f(2,41)=0
3849     exch2_oj(2,41)=-510
3850     exch2_oj_f(2,41)=-510
3851     exch2_itlo_c(2,41)=0
3852     exch2_ithi_c(2,41)=52
3853     exch2_jtlo_c(2,41)=511
3854     exch2_jthi_c(2,41)=511
3855     exch2_opposingSend_record(2,41)=1
3856    
3857     exch2_neighbourId(3,41)=42
3858     exch2_pi(1,3,41)=1
3859     exch2_pi(2,3,41)=0
3860     exch2_pj(1,3,41)=0
3861     exch2_pj(2,3,41)=1
3862     exch2_oi(3,41)=0
3863     exch2_oi_f(3,41)=0
3864     exch2_oj(3,41)=0
3865     exch2_oj_f(3,41)=0
3866     exch2_itlo_c(3,41)=0
3867     exch2_ithi_c(3,41)=0
3868     exch2_jtlo_c(3,41)=0
3869     exch2_jthi_c(3,41)=511
3870     exch2_opposingSend_record(3,41)=4
3871    
3872     exch2_neighbourId(4,41)=21
3873     exch2_pi(1,4,41)=0
3874     exch2_pi(2,4,41)=1
3875     exch2_pj(1,4,41)=-1
3876     exch2_pj(2,4,41)=0
3877     exch2_oi(4,41)=-510
3878     exch2_oi_f(4,41)=-510
3879     exch2_oj(4,41)=511
3880     exch2_oj_f(4,41)=512
3881     exch2_itlo_c(4,41)=0
3882     exch2_ithi_c(4,41)=52
3883     exch2_jtlo_c(4,41)=511
3884     exch2_jthi_c(4,41)=511
3885     exch2_opposingSend_record(4,41)=1
3886    
3887     exch2_neighbourId(5,41)=22
3888     exch2_pi(1,5,41)=0
3889     exch2_pi(2,5,41)=1
3890     exch2_pj(1,5,41)=-1
3891     exch2_pj(2,5,41)=0
3892     exch2_oi(5,41)=-510
3893     exch2_oi_f(5,41)=-510
3894     exch2_oj(5,41)=511
3895     exch2_oj_f(5,41)=512
3896     exch2_itlo_c(5,41)=0
3897     exch2_ithi_c(5,41)=52
3898     exch2_jtlo_c(5,41)=511
3899     exch2_jthi_c(5,41)=511
3900     exch2_opposingSend_record(5,41)=1
3901    
3902     exch2_neighbourId(6,41)=23
3903     exch2_pi(1,6,41)=0
3904     exch2_pi(2,6,41)=1
3905     exch2_pj(1,6,41)=-1
3906     exch2_pj(2,6,41)=0
3907     exch2_oi(6,41)=-510
3908     exch2_oi_f(6,41)=-510
3909     exch2_oj(6,41)=511
3910     exch2_oj_f(6,41)=512
3911     exch2_itlo_c(6,41)=0
3912     exch2_ithi_c(6,41)=52
3913     exch2_jtlo_c(6,41)=511
3914     exch2_jthi_c(6,41)=511
3915     exch2_opposingSend_record(6,41)=1
3916    
3917     exch2_neighbourId(7,41)=24
3918     exch2_pi(1,7,41)=0
3919     exch2_pi(2,7,41)=1
3920     exch2_pj(1,7,41)=-1
3921     exch2_pj(2,7,41)=0
3922     exch2_oi(7,41)=-510
3923     exch2_oi_f(7,41)=-510
3924     exch2_oj(7,41)=511
3925     exch2_oj_f(7,41)=512
3926     exch2_itlo_c(7,41)=0
3927     exch2_ithi_c(7,41)=52
3928     exch2_jtlo_c(7,41)=511
3929     exch2_jthi_c(7,41)=511
3930     exch2_opposingSend_record(7,41)=1
3931    
3932     exch2_neighbourId(8,41)=25
3933     exch2_pi(1,8,41)=0
3934     exch2_pi(2,8,41)=1
3935     exch2_pj(1,8,41)=-1
3936     exch2_pj(2,8,41)=0
3937     exch2_oi(8,41)=-510
3938     exch2_oi_f(8,41)=-510
3939     exch2_oj(8,41)=511
3940     exch2_oj_f(8,41)=512
3941     exch2_itlo_c(8,41)=0
3942     exch2_ithi_c(8,41)=52
3943     exch2_jtlo_c(8,41)=511
3944     exch2_jthi_c(8,41)=511
3945     exch2_opposingSend_record(8,41)=1
3946    
3947     exch2_neighbourId(9,41)=26
3948     exch2_pi(1,9,41)=0
3949     exch2_pi(2,9,41)=1
3950     exch2_pj(1,9,41)=-1
3951     exch2_pj(2,9,41)=0
3952     exch2_oi(9,41)=-510
3953     exch2_oi_f(9,41)=-510
3954     exch2_oj(9,41)=511
3955     exch2_oj_f(9,41)=512
3956     exch2_itlo_c(9,41)=0
3957     exch2_ithi_c(9,41)=52
3958     exch2_jtlo_c(9,41)=511
3959     exch2_jthi_c(9,41)=511
3960     exch2_opposingSend_record(9,41)=1
3961    
3962     exch2_neighbourId(10,41)=27
3963     exch2_pi(1,10,41)=0
3964     exch2_pi(2,10,41)=1
3965     exch2_pj(1,10,41)=-1
3966     exch2_pj(2,10,41)=0
3967     exch2_oi(10,41)=-510
3968     exch2_oi_f(10,41)=-510
3969     exch2_oj(10,41)=511
3970     exch2_oj_f(10,41)=512
3971     exch2_itlo_c(10,41)=0
3972     exch2_ithi_c(10,41)=52
3973     exch2_jtlo_c(10,41)=511
3974     exch2_jthi_c(10,41)=511
3975     exch2_opposingSend_record(10,41)=1
3976    
3977     exch2_neighbourId(11,41)=28
3978     exch2_pi(1,11,41)=0
3979     exch2_pi(2,11,41)=1
3980     exch2_pj(1,11,41)=-1
3981     exch2_pj(2,11,41)=0
3982     exch2_oi(11,41)=-510
3983     exch2_oi_f(11,41)=-510
3984     exch2_oj(11,41)=511
3985     exch2_oj_f(11,41)=512
3986     exch2_itlo_c(11,41)=0
3987     exch2_ithi_c(11,41)=52
3988     exch2_jtlo_c(11,41)=511
3989     exch2_jthi_c(11,41)=511
3990     exch2_opposingSend_record(11,41)=1
3991    
3992     exch2_neighbourId(12,41)=29
3993     exch2_pi(1,12,41)=0
3994     exch2_pi(2,12,41)=1
3995     exch2_pj(1,12,41)=-1
3996     exch2_pj(2,12,41)=0
3997     exch2_oi(12,41)=-510
3998     exch2_oi_f(12,41)=-510
3999     exch2_oj(12,41)=511
4000     exch2_oj_f(12,41)=512
4001     exch2_itlo_c(12,41)=0
4002     exch2_ithi_c(12,41)=52
4003     exch2_jtlo_c(12,41)=511
4004     exch2_jthi_c(12,41)=511
4005     exch2_opposingSend_record(12,41)=1
4006    
4007     exch2_neighbourId(13,41)=30
4008     exch2_pi(1,13,41)=0
4009     exch2_pi(2,13,41)=1
4010     exch2_pj(1,13,41)=-1
4011     exch2_pj(2,13,41)=0
4012     exch2_oi(13,41)=-510
4013     exch2_oi_f(13,41)=-510
4014     exch2_oj(13,41)=511
4015     exch2_oj_f(13,41)=512
4016     exch2_itlo_c(13,41)=0
4017     exch2_ithi_c(13,41)=52
4018     exch2_jtlo_c(13,41)=511
4019     exch2_jthi_c(13,41)=511
4020     exch2_opposingSend_record(13,41)=1
4021     RETURN
4022     END
4023    
4024     SUBROUTINE W2_E2SETUP_42
4025     C Topology for tile 42
4026     #include "W2_EXCH2_TOPOLOGY.h"
4027     exch2_tnx(42)=51
4028     exch2_tny(42)=510
4029     exch2_tbasex(42)=51
4030     exch2_tbasey(42)=0
4031     exch2_txglobalo(42)=2092
4032     exch2_tyglobalo(42)=1
4033     exch2_isWedge(42)=0
4034     exch2_isNedge(42)=1
4035     exch2_isEedge(42)=0
4036     exch2_isSedge(42)=1
4037     exch2_myFace(42)=5
4038     exch2_mydnx(42)=510
4039     exch2_mydny(42)=510
4040     exch2_nNeighbours(42)=4
4041    
4042     exch2_neighbourId(1,42)=1
4043     exch2_pi(1,1,42)=0
4044     exch2_pi(2,1,42)=-1
4045     exch2_pj(1,1,42)=1
4046     exch2_pj(2,1,42)=0
4047     exch2_oi(1,42)=511
4048     exch2_oi_f(1,42)=512
4049     exch2_oj(1,42)=510
4050     exch2_oj_f(1,42)=510
4051     exch2_itlo_c(1,42)=0
4052     exch2_ithi_c(1,42)=0
4053     exch2_jtlo_c(1,42)=408
4054     exch2_jthi_c(1,42)=460
4055     exch2_opposingSend_record(1,42)=5
4056    
4057     exch2_neighbourId(2,42)=32
4058     exch2_pi(1,2,42)=1
4059     exch2_pi(2,2,42)=0
4060     exch2_pj(1,2,42)=0
4061     exch2_pj(2,2,42)=1
4062     exch2_oi(2,42)=0
4063     exch2_oi_f(2,42)=0
4064     exch2_oj(2,42)=-510
4065     exch2_oj_f(2,42)=-510
4066     exch2_itlo_c(2,42)=0
4067     exch2_ithi_c(2,42)=52
4068     exch2_jtlo_c(2,42)=511
4069     exch2_jthi_c(2,42)=511
4070     exch2_opposingSend_record(2,42)=1
4071    
4072     exch2_neighbourId(3,42)=43
4073     exch2_pi(1,3,42)=1
4074     exch2_pi(2,3,42)=0
4075     exch2_pj(1,3,42)=0
4076     exch2_pj(2,3,42)=1
4077     exch2_oi(3,42)=0
4078     exch2_oi_f(3,42)=0
4079     exch2_oj(3,42)=0
4080     exch2_oj_f(3,42)=0
4081     exch2_itlo_c(3,42)=0
4082     exch2_ithi_c(3,42)=0
4083     exch2_jtlo_c(3,42)=0
4084     exch2_jthi_c(3,42)=511
4085     exch2_opposingSend_record(3,42)=4
4086    
4087     exch2_neighbourId(4,42)=41
4088     exch2_pi(1,4,42)=1
4089     exch2_pi(2,4,42)=0
4090     exch2_pj(1,4,42)=0
4091     exch2_pj(2,4,42)=1
4092     exch2_oi(4,42)=0
4093     exch2_oi_f(4,42)=0
4094     exch2_oj(4,42)=0
4095     exch2_oj_f(4,42)=0
4096     exch2_itlo_c(4,42)=52
4097     exch2_ithi_c(4,42)=52
4098     exch2_jtlo_c(4,42)=0
4099     exch2_jthi_c(4,42)=511
4100     exch2_opposingSend_record(4,42)=3
4101     RETURN
4102     END
4103    
4104     SUBROUTINE W2_E2SETUP_43
4105     C Topology for tile 43
4106     #include "W2_EXCH2_TOPOLOGY.h"
4107     exch2_tnx(43)=51
4108     exch2_tny(43)=510
4109     exch2_tbasex(43)=102
4110     exch2_tbasey(43)=0
4111     exch2_txglobalo(43)=2143
4112     exch2_tyglobalo(43)=1
4113     exch2_isWedge(43)=0
4114     exch2_isNedge(43)=1
4115     exch2_isEedge(43)=0
4116     exch2_isSedge(43)=1
4117     exch2_myFace(43)=5
4118     exch2_mydnx(43)=510
4119     exch2_mydny(43)=510
4120     exch2_nNeighbours(43)=4
4121    
4122     exch2_neighbourId(1,43)=1
4123     exch2_pi(1,1,43)=0
4124     exch2_pi(2,1,43)=-1
4125     exch2_pj(1,1,43)=1
4126     exch2_pj(2,1,43)=0
4127     exch2_oi(1,43)=511
4128     exch2_oi_f(1,43)=512
4129     exch2_oj(1,43)=510
4130     exch2_oj_f(1,43)=510
4131     exch2_itlo_c(1,43)=0
4132     exch2_ithi_c(1,43)=0
4133     exch2_jtlo_c(1,43)=357
4134     exch2_jthi_c(1,43)=409
4135     exch2_opposingSend_record(1,43)=6
4136    
4137     exch2_neighbourId(2,43)=33
4138     exch2_pi(1,2,43)=1
4139     exch2_pi(2,2,43)=0
4140     exch2_pj(1,2,43)=0
4141     exch2_pj(2,2,43)=1
4142     exch2_oi(2,43)=0
4143     exch2_oi_f(2,43)=0
4144     exch2_oj(2,43)=-510
4145     exch2_oj_f(2,43)=-510
4146     exch2_itlo_c(2,43)=0
4147     exch2_ithi_c(2,43)=52
4148     exch2_jtlo_c(2,43)=511
4149     exch2_jthi_c(2,43)=511
4150     exch2_opposingSend_record(2,43)=1
4151    
4152     exch2_neighbourId(3,43)=44
4153     exch2_pi(1,3,43)=1
4154     exch2_pi(2,3,43)=0
4155     exch2_pj(1,3,43)=0
4156     exch2_pj(2,3,43)=1
4157     exch2_oi(3,43)=0
4158     exch2_oi_f(3,43)=0
4159     exch2_oj(3,43)=0
4160     exch2_oj_f(3,43)=0
4161     exch2_itlo_c(3,43)=0
4162     exch2_ithi_c(3,43)=0
4163     exch2_jtlo_c(3,43)=0
4164     exch2_jthi_c(3,43)=511
4165     exch2_opposingSend_record(3,43)=4
4166    
4167     exch2_neighbourId(4,43)=42
4168     exch2_pi(1,4,43)=1
4169     exch2_pi(2,4,43)=0
4170     exch2_pj(1,4,43)=0
4171     exch2_pj(2,4,43)=1
4172     exch2_oi(4,43)=0
4173     exch2_oi_f(4,43)=0
4174     exch2_oj(4,43)=0
4175     exch2_oj_f(4,43)=0
4176     exch2_itlo_c(4,43)=52
4177     exch2_ithi_c(4,43)=52
4178     exch2_jtlo_c(4,43)=0
4179     exch2_jthi_c(4,43)=511
4180     exch2_opposingSend_record(4,43)=3
4181     RETURN
4182     END
4183    
4184     SUBROUTINE W2_E2SETUP_44
4185     C Topology for tile 44
4186     #include "W2_EXCH2_TOPOLOGY.h"
4187     exch2_tnx(44)=51
4188     exch2_tny(44)=510
4189     exch2_tbasex(44)=153
4190     exch2_tbasey(44)=0
4191     exch2_txglobalo(44)=2194
4192     exch2_tyglobalo(44)=1
4193     exch2_isWedge(44)=0
4194     exch2_isNedge(44)=1
4195     exch2_isEedge(44)=0
4196     exch2_isSedge(44)=1
4197     exch2_myFace(44)=5
4198     exch2_mydnx(44)=510
4199     exch2_mydny(44)=510
4200     exch2_nNeighbours(44)=4
4201    
4202     exch2_neighbourId(1,44)=1
4203     exch2_pi(1,1,44)=0
4204     exch2_pi(2,1,44)=-1
4205     exch2_pj(1,1,44)=1
4206     exch2_pj(2,1,44)=0
4207     exch2_oi(1,44)=511
4208     exch2_oi_f(1,44)=512
4209     exch2_oj(1,44)=510
4210     exch2_oj_f(1,44)=510
4211     exch2_itlo_c(1,44)=0
4212     exch2_ithi_c(1,44)=0
4213     exch2_jtlo_c(1,44)=306
4214     exch2_jthi_c(1,44)=358
4215     exch2_opposingSend_record(1,44)=7
4216    
4217     exch2_neighbourId(2,44)=34
4218     exch2_pi(1,2,44)=1
4219     exch2_pi(2,2,44)=0
4220     exch2_pj(1,2,44)=0
4221     exch2_pj(2,2,44)=1
4222     exch2_oi(2,44)=0
4223     exch2_oi_f(2,44)=0
4224     exch2_oj(2,44)=-510
4225     exch2_oj_f(2,44)=-510
4226     exch2_itlo_c(2,44)=0
4227     exch2_ithi_c(2,44)=52
4228     exch2_jtlo_c(2,44)=511
4229     exch2_jthi_c(2,44)=511
4230     exch2_opposingSend_record(2,44)=1
4231    
4232     exch2_neighbourId(3,44)=45
4233     exch2_pi(1,3,44)=1
4234     exch2_pi(2,3,44)=0
4235     exch2_pj(1,3,44)=0
4236     exch2_pj(2,3,44)=1
4237     exch2_oi(3,44)=0
4238     exch2_oi_f(3,44)=0
4239     exch2_oj(3,44)=0
4240     exch2_oj_f(3,44)=0
4241     exch2_itlo_c(3,44)=0
4242     exch2_ithi_c(3,44)=0
4243     exch2_jtlo_c(3,44)=0
4244     exch2_jthi_c(3,44)=511
4245     exch2_opposingSend_record(3,44)=4
4246    
4247     exch2_neighbourId(4,44)=43
4248     exch2_pi(1,4,44)=1
4249     exch2_pi(2,4,44)=0
4250     exch2_pj(1,4,44)=0
4251     exch2_pj(2,4,44)=1
4252     exch2_oi(4,44)=0
4253     exch2_oi_f(4,44)=0
4254     exch2_oj(4,44)=0
4255     exch2_oj_f(4,44)=0
4256     exch2_itlo_c(4,44)=52
4257     exch2_ithi_c(4,44)=52
4258     exch2_jtlo_c(4,44)=0
4259     exch2_jthi_c(4,44)=511
4260     exch2_opposingSend_record(4,44)=3
4261     RETURN
4262     END
4263    
4264     SUBROUTINE W2_E2SETUP_45
4265     C Topology for tile 45
4266     #include "W2_EXCH2_TOPOLOGY.h"
4267     exch2_tnx(45)=51
4268     exch2_tny(45)=510
4269     exch2_tbasex(45)=204
4270     exch2_tbasey(45)=0
4271     exch2_txglobalo(45)=2245
4272     exch2_tyglobalo(45)=1
4273     exch2_isWedge(45)=0
4274     exch2_isNedge(45)=1
4275     exch2_isEedge(45)=0
4276     exch2_isSedge(45)=1
4277     exch2_myFace(45)=5
4278     exch2_mydnx(45)=510
4279     exch2_mydny(45)=510
4280     exch2_nNeighbours(45)=4
4281    
4282     exch2_neighbourId(1,45)=1
4283     exch2_pi(1,1,45)=0
4284     exch2_pi(2,1,45)=-1
4285     exch2_pj(1,1,45)=1
4286     exch2_pj(2,1,45)=0
4287     exch2_oi(1,45)=511
4288     exch2_oi_f(1,45)=512
4289     exch2_oj(1,45)=510
4290     exch2_oj_f(1,45)=510
4291     exch2_itlo_c(1,45)=0
4292     exch2_ithi_c(1,45)=0
4293     exch2_jtlo_c(1,45)=255
4294     exch2_jthi_c(1,45)=307
4295     exch2_opposingSend_record(1,45)=8
4296    
4297     exch2_neighbourId(2,45)=35
4298     exch2_pi(1,2,45)=1
4299     exch2_pi(2,2,45)=0
4300     exch2_pj(1,2,45)=0
4301     exch2_pj(2,2,45)=1
4302     exch2_oi(2,45)=0
4303     exch2_oi_f(2,45)=0
4304     exch2_oj(2,45)=-510
4305     exch2_oj_f(2,45)=-510
4306     exch2_itlo_c(2,45)=0
4307     exch2_ithi_c(2,45)=52
4308     exch2_jtlo_c(2,45)=511
4309     exch2_jthi_c(2,45)=511
4310     exch2_opposingSend_record(2,45)=1
4311    
4312     exch2_neighbourId(3,45)=46
4313     exch2_pi(1,3,45)=1
4314     exch2_pi(2,3,45)=0
4315     exch2_pj(1,3,45)=0
4316     exch2_pj(2,3,45)=1
4317     exch2_oi(3,45)=0
4318     exch2_oi_f(3,45)=0
4319     exch2_oj(3,45)=0
4320     exch2_oj_f(3,45)=0
4321     exch2_itlo_c(3,45)=0
4322     exch2_ithi_c(3,45)=0
4323     exch2_jtlo_c(3,45)=0
4324     exch2_jthi_c(3,45)=511
4325     exch2_opposingSend_record(3,45)=4
4326    
4327     exch2_neighbourId(4,45)=44
4328     exch2_pi(1,4,45)=1
4329     exch2_pi(2,4,45)=0
4330     exch2_pj(1,4,45)=0
4331     exch2_pj(2,4,45)=1
4332     exch2_oi(4,45)=0
4333     exch2_oi_f(4,45)=0
4334     exch2_oj(4,45)=0
4335     exch2_oj_f(4,45)=0
4336     exch2_itlo_c(4,45)=52
4337     exch2_ithi_c(4,45)=52
4338     exch2_jtlo_c(4,45)=0
4339     exch2_jthi_c(4,45)=511
4340     exch2_opposingSend_record(4,45)=3
4341     RETURN
4342     END
4343    
4344     SUBROUTINE W2_E2SETUP_46
4345     C Topology for tile 46
4346     #include "W2_EXCH2_TOPOLOGY.h"
4347     exch2_tnx(46)=51
4348     exch2_tny(46)=510
4349     exch2_tbasex(46)=255
4350     exch2_tbasey(46)=0
4351     exch2_txglobalo(46)=2296
4352     exch2_tyglobalo(46)=1
4353     exch2_isWedge(46)=0
4354     exch2_isNedge(46)=1
4355     exch2_isEedge(46)=0
4356     exch2_isSedge(46)=1
4357     exch2_myFace(46)=5
4358     exch2_mydnx(46)=510
4359     exch2_mydny(46)=510
4360     exch2_nNeighbours(46)=4
4361    
4362     exch2_neighbourId(1,46)=1
4363     exch2_pi(1,1,46)=0
4364     exch2_pi(2,1,46)=-1
4365     exch2_pj(1,1,46)=1
4366     exch2_pj(2,1,46)=0
4367     exch2_oi(1,46)=511
4368     exch2_oi_f(1,46)=512
4369     exch2_oj(1,46)=510
4370     exch2_oj_f(1,46)=510
4371     exch2_itlo_c(1,46)=0
4372     exch2_ithi_c(1,46)=0
4373     exch2_jtlo_c(1,46)=204
4374     exch2_jthi_c(1,46)=256
4375     exch2_opposingSend_record(1,46)=9
4376    
4377     exch2_neighbourId(2,46)=36
4378     exch2_pi(1,2,46)=1
4379     exch2_pi(2,2,46)=0
4380     exch2_pj(1,2,46)=0
4381     exch2_pj(2,2,46)=1
4382     exch2_oi(2,46)=0
4383     exch2_oi_f(2,46)=0
4384     exch2_oj(2,46)=-510
4385     exch2_oj_f(2,46)=-510
4386     exch2_itlo_c(2,46)=0
4387     exch2_ithi_c(2,46)=52
4388     exch2_jtlo_c(2,46)=511
4389     exch2_jthi_c(2,46)=511
4390     exch2_opposingSend_record(2,46)=1
4391    
4392     exch2_neighbourId(3,46)=47
4393     exch2_pi(1,3,46)=1
4394     exch2_pi(2,3,46)=0
4395     exch2_pj(1,3,46)=0
4396     exch2_pj(2,3,46)=1
4397     exch2_oi(3,46)=0
4398     exch2_oi_f(3,46)=0
4399     exch2_oj(3,46)=0
4400     exch2_oj_f(3,46)=0
4401     exch2_itlo_c(3,46)=0
4402     exch2_ithi_c(3,46)=0
4403     exch2_jtlo_c(3,46)=0
4404     exch2_jthi_c(3,46)=511
4405     exch2_opposingSend_record(3,46)=4
4406    
4407     exch2_neighbourId(4,46)=45
4408     exch2_pi(1,4,46)=1
4409     exch2_pi(2,4,46)=0
4410     exch2_pj(1,4,46)=0
4411     exch2_pj(2,4,46)=1
4412     exch2_oi(4,46)=0
4413     exch2_oi_f(4,46)=0
4414     exch2_oj(4,46)=0
4415     exch2_oj_f(4,46)=0
4416     exch2_itlo_c(4,46)=52
4417     exch2_ithi_c(4,46)=52
4418     exch2_jtlo_c(4,46)=0
4419     exch2_jthi_c(4,46)=511
4420     exch2_opposingSend_record(4,46)=3
4421     RETURN
4422     END
4423    
4424     SUBROUTINE W2_E2SETUP_47
4425     C Topology for tile 47
4426     #include "W2_EXCH2_TOPOLOGY.h"
4427     exch2_tnx(47)=51
4428     exch2_tny(47)=510
4429     exch2_tbasex(47)=306
4430     exch2_tbasey(47)=0
4431     exch2_txglobalo(47)=2347
4432     exch2_tyglobalo(47)=1
4433     exch2_isWedge(47)=0
4434     exch2_isNedge(47)=1
4435     exch2_isEedge(47)=0
4436     exch2_isSedge(47)=1
4437     exch2_myFace(47)=5
4438     exch2_mydnx(47)=510
4439     exch2_mydny(47)=510
4440     exch2_nNeighbours(47)=4
4441    
4442     exch2_neighbourId(1,47)=1
4443     exch2_pi(1,1,47)=0
4444     exch2_pi(2,1,47)=-1
4445     exch2_pj(1,1,47)=1
4446     exch2_pj(2,1,47)=0
4447     exch2_oi(1,47)=511
4448     exch2_oi_f(1,47)=512
4449     exch2_oj(1,47)=510
4450     exch2_oj_f(1,47)=510
4451     exch2_itlo_c(1,47)=0
4452     exch2_ithi_c(1,47)=0
4453     exch2_jtlo_c(1,47)=153
4454     exch2_jthi_c(1,47)=205
4455     exch2_opposingSend_record(1,47)=10
4456    
4457     exch2_neighbourId(2,47)=37
4458     exch2_pi(1,2,47)=1
4459     exch2_pi(2,2,47)=0
4460     exch2_pj(1,2,47)=0
4461     exch2_pj(2,2,47)=1
4462     exch2_oi(2,47)=0
4463     exch2_oi_f(2,47)=0
4464     exch2_oj(2,47)=-510
4465     exch2_oj_f(2,47)=-510
4466     exch2_itlo_c(2,47)=0
4467     exch2_ithi_c(2,47)=52
4468     exch2_jtlo_c(2,47)=511
4469     exch2_jthi_c(2,47)=511
4470     exch2_opposingSend_record(2,47)=1
4471    
4472     exch2_neighbourId(3,47)=48
4473     exch2_pi(1,3,47)=1
4474     exch2_pi(2,3,47)=0
4475     exch2_pj(1,3,47)=0
4476     exch2_pj(2,3,47)=1
4477     exch2_oi(3,47)=0
4478     exch2_oi_f(3,47)=0
4479     exch2_oj(3,47)=0
4480     exch2_oj_f(3,47)=0
4481     exch2_itlo_c(3,47)=0
4482     exch2_ithi_c(3,47)=0
4483     exch2_jtlo_c(3,47)=0
4484     exch2_jthi_c(3,47)=511
4485     exch2_opposingSend_record(3,47)=4
4486    
4487     exch2_neighbourId(4,47)=46
4488     exch2_pi(1,4,47)=1
4489     exch2_pi(2,4,47)=0
4490     exch2_pj(1,4,47)=0
4491     exch2_pj(2,4,47)=1
4492     exch2_oi(4,47)=0
4493     exch2_oi_f(4,47)=0
4494     exch2_oj(4,47)=0
4495     exch2_oj_f(4,47)=0
4496     exch2_itlo_c(4,47)=52
4497     exch2_ithi_c(4,47)=52
4498     exch2_jtlo_c(4,47)=0
4499     exch2_jthi_c(4,47)=511
4500     exch2_opposingSend_record(4,47)=3
4501     RETURN
4502     END
4503    
4504     SUBROUTINE W2_E2SETUP_48
4505     C Topology for tile 48
4506     #include "W2_EXCH2_TOPOLOGY.h"
4507     exch2_tnx(48)=51
4508     exch2_tny(48)=510
4509     exch2_tbasex(48)=357
4510     exch2_tbasey(48)=0
4511     exch2_txglobalo(48)=2398
4512     exch2_tyglobalo(48)=1
4513     exch2_isWedge(48)=0
4514     exch2_isNedge(48)=1
4515     exch2_isEedge(48)=0
4516     exch2_isSedge(48)=1
4517     exch2_myFace(48)=5
4518     exch2_mydnx(48)=510
4519     exch2_mydny(48)=510
4520     exch2_nNeighbours(48)=4
4521    
4522     exch2_neighbourId(1,48)=1
4523     exch2_pi(1,1,48)=0
4524     exch2_pi(2,1,48)=-1
4525     exch2_pj(1,1,48)=1
4526     exch2_pj(2,1,48)=0
4527     exch2_oi(1,48)=511
4528     exch2_oi_f(1,48)=512
4529     exch2_oj(1,48)=510
4530     exch2_oj_f(1,48)=510
4531     exch2_itlo_c(1,48)=0
4532     exch2_ithi_c(1,48)=0
4533     exch2_jtlo_c(1,48)=102
4534     exch2_jthi_c(1,48)=154
4535     exch2_opposingSend_record(1,48)=11
4536    
4537     exch2_neighbourId(2,48)=38
4538     exch2_pi(1,2,48)=1
4539     exch2_pi(2,2,48)=0
4540     exch2_pj(1,2,48)=0
4541     exch2_pj(2,2,48)=1
4542     exch2_oi(2,48)=0
4543     exch2_oi_f(2,48)=0
4544     exch2_oj(2,48)=-510
4545     exch2_oj_f(2,48)=-510
4546     exch2_itlo_c(2,48)=0
4547     exch2_ithi_c(2,48)=52
4548     exch2_jtlo_c(2,48)=511
4549     exch2_jthi_c(2,48)=511
4550     exch2_opposingSend_record(2,48)=1
4551    
4552     exch2_neighbourId(3,48)=49
4553     exch2_pi(1,3,48)=1
4554     exch2_pi(2,3,48)=0
4555     exch2_pj(1,3,48)=0
4556     exch2_pj(2,3,48)=1
4557     exch2_oi(3,48)=0
4558     exch2_oi_f(3,48)=0
4559     exch2_oj(3,48)=0
4560     exch2_oj_f(3,48)=0
4561     exch2_itlo_c(3,48)=0
4562     exch2_ithi_c(3,48)=0
4563     exch2_jtlo_c(3,48)=0
4564     exch2_jthi_c(3,48)=511
4565     exch2_opposingSend_record(3,48)=4
4566    
4567     exch2_neighbourId(4,48)=47
4568     exch2_pi(1,4,48)=1
4569     exch2_pi(2,4,48)=0
4570     exch2_pj(1,4,48)=0
4571     exch2_pj(2,4,48)=1
4572     exch2_oi(4,48)=0
4573     exch2_oi_f(4,48)=0
4574     exch2_oj(4,48)=0
4575     exch2_oj_f(4,48)=0
4576     exch2_itlo_c(4,48)=52
4577     exch2_ithi_c(4,48)=52
4578     exch2_jtlo_c(4,48)=0
4579     exch2_jthi_c(4,48)=511
4580     exch2_opposingSend_record(4,48)=3
4581     RETURN
4582     END
4583    
4584     SUBROUTINE W2_E2SETUP_49
4585     C Topology for tile 49
4586     #include "W2_EXCH2_TOPOLOGY.h"
4587     exch2_tnx(49)=51
4588     exch2_tny(49)=510
4589     exch2_tbasex(49)=408
4590     exch2_tbasey(49)=0
4591     exch2_txglobalo(49)=2449
4592     exch2_tyglobalo(49)=1
4593     exch2_isWedge(49)=0
4594     exch2_isNedge(49)=1
4595     exch2_isEedge(49)=0
4596     exch2_isSedge(49)=1
4597     exch2_myFace(49)=5
4598     exch2_mydnx(49)=510
4599     exch2_mydny(49)=510
4600     exch2_nNeighbours(49)=4
4601    
4602     exch2_neighbourId(1,49)=1
4603     exch2_pi(1,1,49)=0
4604     exch2_pi(2,1,49)=-1
4605     exch2_pj(1,1,49)=1
4606     exch2_pj(2,1,49)=0
4607     exch2_oi(1,49)=511
4608     exch2_oi_f(1,49)=512
4609     exch2_oj(1,49)=510
4610     exch2_oj_f(1,49)=510
4611     exch2_itlo_c(1,49)=0
4612     exch2_ithi_c(1,49)=0
4613     exch2_jtlo_c(1,49)=51
4614     exch2_jthi_c(1,49)=103
4615     exch2_opposingSend_record(1,49)=12
4616    
4617     exch2_neighbourId(2,49)=39
4618     exch2_pi(1,2,49)=1
4619     exch2_pi(2,2,49)=0
4620     exch2_pj(1,2,49)=0
4621     exch2_pj(2,2,49)=1
4622     exch2_oi(2,49)=0
4623     exch2_oi_f(2,49)=0
4624     exch2_oj(2,49)=-510
4625     exch2_oj_f(2,49)=-510
4626     exch2_itlo_c(2,49)=0
4627     exch2_ithi_c(2,49)=52
4628     exch2_jtlo_c(2,49)=511
4629     exch2_jthi_c(2,49)=511
4630     exch2_opposingSend_record(2,49)=1
4631    
4632     exch2_neighbourId(3,49)=50
4633     exch2_pi(1,3,49)=1
4634     exch2_pi(2,3,49)=0
4635     exch2_pj(1,3,49)=0
4636     exch2_pj(2,3,49)=1
4637     exch2_oi(3,49)=0
4638     exch2_oi_f(3,49)=0
4639     exch2_oj(3,49)=0
4640     exch2_oj_f(3,49)=0
4641     exch2_itlo_c(3,49)=0
4642     exch2_ithi_c(3,49)=0
4643     exch2_jtlo_c(3,49)=0
4644     exch2_jthi_c(3,49)=511
4645     exch2_opposingSend_record(3,49)=4
4646    
4647     exch2_neighbourId(4,49)=48
4648     exch2_pi(1,4,49)=1
4649     exch2_pi(2,4,49)=0
4650     exch2_pj(1,4,49)=0
4651     exch2_pj(2,4,49)=1
4652     exch2_oi(4,49)=0
4653     exch2_oi_f(4,49)=0
4654     exch2_oj(4,49)=0
4655     exch2_oj_f(4,49)=0
4656     exch2_itlo_c(4,49)=52
4657     exch2_ithi_c(4,49)=52
4658     exch2_jtlo_c(4,49)=0
4659     exch2_jthi_c(4,49)=511
4660     exch2_opposingSend_record(4,49)=3
4661     RETURN
4662     END
4663    
4664     SUBROUTINE W2_E2SETUP_50
4665     C Topology for tile 50
4666     #include "W2_EXCH2_TOPOLOGY.h"
4667     exch2_tnx(50)=51
4668     exch2_tny(50)=510
4669     exch2_tbasex(50)=459
4670     exch2_tbasey(50)=0
4671     exch2_txglobalo(50)=2500
4672     exch2_tyglobalo(50)=1
4673     exch2_isWedge(50)=0
4674     exch2_isNedge(50)=1
4675     exch2_isEedge(50)=1
4676     exch2_isSedge(50)=1
4677     exch2_myFace(50)=5
4678     exch2_mydnx(50)=510
4679     exch2_mydny(50)=510
4680     exch2_nNeighbours(50)=4
4681    
4682     exch2_neighbourId(1,50)=1
4683     exch2_pi(1,1,50)=0
4684     exch2_pi(2,1,50)=-1
4685     exch2_pj(1,1,50)=1
4686     exch2_pj(2,1,50)=0
4687     exch2_oi(1,50)=511
4688     exch2_oi_f(1,50)=512
4689     exch2_oj(1,50)=510
4690     exch2_oj_f(1,50)=510
4691     exch2_itlo_c(1,50)=0
4692     exch2_ithi_c(1,50)=0
4693     exch2_jtlo_c(1,50)=0
4694     exch2_jthi_c(1,50)=52
4695     exch2_opposingSend_record(1,50)=13
4696    
4697     exch2_neighbourId(2,50)=40
4698     exch2_pi(1,2,50)=1
4699     exch2_pi(2,2,50)=0
4700     exch2_pj(1,2,50)=0
4701     exch2_pj(2,2,50)=1
4702     exch2_oi(2,50)=0
4703     exch2_oi_f(2,50)=0
4704     exch2_oj(2,50)=-510
4705     exch2_oj_f(2,50)=-510
4706     exch2_itlo_c(2,50)=0
4707     exch2_ithi_c(2,50)=52
4708     exch2_jtlo_c(2,50)=511
4709     exch2_jthi_c(2,50)=511
4710     exch2_opposingSend_record(2,50)=1
4711    
4712     exch2_neighbourId(3,50)=51
4713     exch2_pi(1,3,50)=1
4714     exch2_pi(2,3,50)=0
4715     exch2_pj(1,3,50)=0
4716     exch2_pj(2,3,50)=1
4717     exch2_oi(3,50)=510
4718     exch2_oi_f(3,50)=510
4719     exch2_oj(3,50)=0
4720     exch2_oj_f(3,50)=0
4721     exch2_itlo_c(3,50)=0
4722     exch2_ithi_c(3,50)=0
4723     exch2_jtlo_c(3,50)=0
4724     exch2_jthi_c(3,50)=511
4725     exch2_opposingSend_record(3,50)=4
4726    
4727     exch2_neighbourId(4,50)=49
4728     exch2_pi(1,4,50)=1
4729     exch2_pi(2,4,50)=0
4730     exch2_pj(1,4,50)=0
4731     exch2_pj(2,4,50)=1
4732     exch2_oi(4,50)=0
4733     exch2_oi_f(4,50)=0
4734     exch2_oj(4,50)=0
4735     exch2_oj_f(4,50)=0
4736     exch2_itlo_c(4,50)=52
4737     exch2_ithi_c(4,50)=52
4738     exch2_jtlo_c(4,50)=0
4739     exch2_jthi_c(4,50)=511
4740     exch2_opposingSend_record(4,50)=3
4741     RETURN
4742     END
4743    
4744     SUBROUTINE W2_E2SETUP_51
4745     C Topology for tile 51
4746     #include "W2_EXCH2_TOPOLOGY.h"
4747     exch2_tnx(51)=51
4748     exch2_tny(51)=510
4749     exch2_tbasex(51)=0
4750     exch2_tbasey(51)=0
4751     exch2_txglobalo(51)=2551
4752     exch2_tyglobalo(51)=1
4753     exch2_isWedge(51)=1
4754     exch2_isNedge(51)=1
4755     exch2_isEedge(51)=0
4756     exch2_isSedge(51)=1
4757     exch2_myFace(51)=6
4758     exch2_mydnx(51)=510
4759     exch2_mydny(51)=510
4760     exch2_nNeighbours(51)=4
4761    
4762     exch2_neighbourId(1,51)=1
4763     exch2_pi(1,1,51)=1
4764     exch2_pi(2,1,51)=0
4765     exch2_pj(1,1,51)=0
4766     exch2_pj(2,1,51)=1
4767     exch2_oi(1,51)=0
4768     exch2_oi_f(1,51)=0
4769     exch2_oj(1,51)=510
4770     exch2_oj_f(1,51)=510
4771     exch2_itlo_c(1,51)=0
4772     exch2_ithi_c(1,51)=52
4773     exch2_jtlo_c(1,51)=0
4774     exch2_jthi_c(1,51)=0
4775     exch2_opposingSend_record(1,51)=2
4776    
4777     exch2_neighbourId(2,51)=40
4778     exch2_pi(1,2,51)=0
4779     exch2_pi(2,2,51)=-1
4780     exch2_pj(1,2,51)=1
4781     exch2_pj(2,2,51)=0
4782     exch2_oi(2,51)=511
4783     exch2_oi_f(2,51)=512
4784     exch2_oj(2,51)=-510
4785     exch2_oj_f(2,51)=-510
4786     exch2_itlo_c(2,51)=52
4787     exch2_ithi_c(2,51)=52
4788     exch2_jtlo_c(2,51)=459
4789     exch2_jthi_c(2,51)=511
4790     exch2_opposingSend_record(2,51)=3
4791    
4792     exch2_neighbourId(3,51)=52
4793     exch2_pi(1,3,51)=1
4794     exch2_pi(2,3,51)=0
4795     exch2_pj(1,3,51)=0
4796     exch2_pj(2,3,51)=1
4797     exch2_oi(3,51)=0
4798     exch2_oi_f(3,51)=0
4799     exch2_oj(3,51)=0
4800     exch2_oj_f(3,51)=0
4801     exch2_itlo_c(3,51)=0
4802     exch2_ithi_c(3,51)=0
4803     exch2_jtlo_c(3,51)=0
4804     exch2_jthi_c(3,51)=511
4805     exch2_opposingSend_record(3,51)=4
4806    
4807     exch2_neighbourId(4,51)=50
4808     exch2_pi(1,4,51)=1
4809     exch2_pi(2,4,51)=0
4810     exch2_pj(1,4,51)=0
4811     exch2_pj(2,4,51)=1
4812     exch2_oi(4,51)=-510
4813     exch2_oi_f(4,51)=-510
4814     exch2_oj(4,51)=0
4815     exch2_oj_f(4,51)=0
4816     exch2_itlo_c(4,51)=52
4817     exch2_ithi_c(4,51)=52
4818     exch2_jtlo_c(4,51)=0
4819     exch2_jthi_c(4,51)=511
4820     exch2_opposingSend_record(4,51)=3
4821     RETURN
4822     END
4823    
4824     SUBROUTINE W2_E2SETUP_52
4825     C Topology for tile 52
4826     #include "W2_EXCH2_TOPOLOGY.h"
4827     exch2_tnx(52)=51
4828     exch2_tny(52)=510
4829     exch2_tbasex(52)=51
4830     exch2_tbasey(52)=0
4831     exch2_txglobalo(52)=2602
4832     exch2_tyglobalo(52)=1
4833     exch2_isWedge(52)=0
4834     exch2_isNedge(52)=1
4835     exch2_isEedge(52)=0
4836     exch2_isSedge(52)=1
4837     exch2_myFace(52)=6
4838     exch2_mydnx(52)=510
4839     exch2_mydny(52)=510
4840     exch2_nNeighbours(52)=4
4841    
4842     exch2_neighbourId(1,52)=2
4843     exch2_pi(1,1,52)=1
4844     exch2_pi(2,1,52)=0
4845     exch2_pj(1,1,52)=0
4846     exch2_pj(2,1,52)=1
4847     exch2_oi(1,52)=0
4848     exch2_oi_f(1,52)=0
4849     exch2_oj(1,52)=510
4850     exch2_oj_f(1,52)=510
4851     exch2_itlo_c(1,52)=0
4852     exch2_ithi_c(1,52)=52
4853     exch2_jtlo_c(1,52)=0
4854     exch2_jthi_c(1,52)=0
4855     exch2_opposingSend_record(1,52)=2
4856    
4857     exch2_neighbourId(2,52)=40
4858     exch2_pi(1,2,52)=0
4859     exch2_pi(2,2,52)=-1
4860     exch2_pj(1,2,52)=1
4861     exch2_pj(2,2,52)=0
4862     exch2_oi(2,52)=511
4863     exch2_oi_f(2,52)=512
4864     exch2_oj(2,52)=-510
4865     exch2_oj_f(2,52)=-510
4866     exch2_itlo_c(2,52)=52
4867     exch2_ithi_c(2,52)=52
4868     exch2_jtlo_c(2,52)=408
4869     exch2_jthi_c(2,52)=460
4870     exch2_opposingSend_record(2,52)=4
4871    
4872     exch2_neighbourId(3,52)=53
4873     exch2_pi(1,3,52)=1
4874     exch2_pi(2,3,52)=0
4875     exch2_pj(1,3,52)=0
4876     exch2_pj(2,3,52)=1
4877     exch2_oi(3,52)=0
4878     exch2_oi_f(3,52)=0
4879     exch2_oj(3,52)=0
4880     exch2_oj_f(3,52)=0
4881     exch2_itlo_c(3,52)=0
4882     exch2_ithi_c(3,52)=0
4883     exch2_jtlo_c(3,52)=0
4884     exch2_jthi_c(3,52)=511
4885     exch2_opposingSend_record(3,52)=4
4886    
4887     exch2_neighbourId(4,52)=51
4888     exch2_pi(1,4,52)=1
4889     exch2_pi(2,4,52)=0
4890     exch2_pj(1,4,52)=0
4891     exch2_pj(2,4,52)=1
4892     exch2_oi(4,52)=0
4893     exch2_oi_f(4,52)=0
4894     exch2_oj(4,52)=0
4895     exch2_oj_f(4,52)=0
4896     exch2_itlo_c(4,52)=52
4897     exch2_ithi_c(4,52)=52
4898     exch2_jtlo_c(4,52)=0
4899     exch2_jthi_c(4,52)=511
4900     exch2_opposingSend_record(4,52)=3
4901     RETURN
4902     END
4903    
4904     SUBROUTINE W2_E2SETUP_53
4905     C Topology for tile 53
4906     #include "W2_EXCH2_TOPOLOGY.h"
4907     exch2_tnx(53)=51
4908     exch2_tny(53)=510
4909     exch2_tbasex(53)=102
4910     exch2_tbasey(53)=0
4911     exch2_txglobalo(53)=2653
4912     exch2_tyglobalo(53)=1
4913     exch2_isWedge(53)=0
4914     exch2_isNedge(53)=1
4915     exch2_isEedge(53)=0
4916     exch2_isSedge(53)=1
4917     exch2_myFace(53)=6
4918     exch2_mydnx(53)=510
4919     exch2_mydny(53)=510
4920     exch2_nNeighbours(53)=4
4921    
4922     exch2_neighbourId(1,53)=3
4923     exch2_pi(1,1,53)=1
4924     exch2_pi(2,1,53)=0
4925     exch2_pj(1,1,53)=0
4926     exch2_pj(2,1,53)=1
4927     exch2_oi(1,53)=0
4928     exch2_oi_f(1,53)=0
4929     exch2_oj(1,53)=510
4930     exch2_oj_f(1,53)=510
4931     exch2_itlo_c(1,53)=0
4932     exch2_ithi_c(1,53)=52
4933     exch2_jtlo_c(1,53)=0
4934     exch2_jthi_c(1,53)=0
4935     exch2_opposingSend_record(1,53)=2
4936    
4937     exch2_neighbourId(2,53)=40
4938     exch2_pi(1,2,53)=0
4939     exch2_pi(2,2,53)=-1
4940     exch2_pj(1,2,53)=1
4941     exch2_pj(2,2,53)=0
4942     exch2_oi(2,53)=511
4943     exch2_oi_f(2,53)=512
4944     exch2_oj(2,53)=-510
4945     exch2_oj_f(2,53)=-510
4946     exch2_itlo_c(2,53)=52
4947     exch2_ithi_c(2,53)=52
4948     exch2_jtlo_c(2,53)=357
4949     exch2_jthi_c(2,53)=409
4950     exch2_opposingSend_record(2,53)=5
4951    
4952     exch2_neighbourId(3,53)=54
4953     exch2_pi(1,3,53)=1
4954     exch2_pi(2,3,53)=0
4955     exch2_pj(1,3,53)=0
4956     exch2_pj(2,3,53)=1
4957     exch2_oi(3,53)=0
4958     exch2_oi_f(3,53)=0
4959     exch2_oj(3,53)=0
4960     exch2_oj_f(3,53)=0
4961     exch2_itlo_c(3,53)=0
4962     exch2_ithi_c(3,53)=0
4963     exch2_jtlo_c(3,53)=0
4964     exch2_jthi_c(3,53)=511
4965     exch2_opposingSend_record(3,53)=4
4966    
4967     exch2_neighbourId(4,53)=52
4968     exch2_pi(1,4,53)=1
4969     exch2_pi(2,4,53)=0
4970     exch2_pj(1,4,53)=0
4971     exch2_pj(2,4,53)=1
4972     exch2_oi(4,53)=0
4973     exch2_oi_f(4,53)=0
4974     exch2_oj(4,53)=0
4975     exch2_oj_f(4,53)=0
4976     exch2_itlo_c(4,53)=52
4977     exch2_ithi_c(4,53)=52
4978     exch2_jtlo_c(4,53)=0
4979     exch2_jthi_c(4,53)=511
4980     exch2_opposingSend_record(4,53)=3
4981     RETURN
4982     END
4983    
4984     SUBROUTINE W2_E2SETUP_54
4985     C Topology for tile 54
4986     #include "W2_EXCH2_TOPOLOGY.h"
4987     exch2_tnx(54)=51
4988     exch2_tny(54)=510
4989     exch2_tbasex(54)=153
4990     exch2_tbasey(54)=0
4991     exch2_txglobalo(54)=2704
4992     exch2_tyglobalo(54)=1
4993     exch2_isWedge(54)=0
4994     exch2_isNedge(54)=1
4995     exch2_isEedge(54)=0
4996     exch2_isSedge(54)=1
4997     exch2_myFace(54)=6
4998     exch2_mydnx(54)=510
4999     exch2_mydny(54)=510
5000     exch2_nNeighbours(54)=4
5001    
5002     exch2_neighbourId(1,54)=4
5003     exch2_pi(1,1,54)=1
5004     exch2_pi(2,1,54)=0
5005     exch2_pj(1,1,54)=0
5006     exch2_pj(2,1,54)=1
5007     exch2_oi(1,54)=0
5008     exch2_oi_f(1,54)=0
5009     exch2_oj(1,54)=510
5010     exch2_oj_f(1,54)=510
5011     exch2_itlo_c(1,54)=0
5012     exch2_ithi_c(1,54)=52
5013     exch2_jtlo_c(1,54)=0
5014     exch2_jthi_c(1,54)=0
5015     exch2_opposingSend_record(1,54)=2
5016    
5017     exch2_neighbourId(2,54)=40
5018     exch2_pi(1,2,54)=0
5019     exch2_pi(2,2,54)=-1
5020     exch2_pj(1,2,54)=1
5021     exch2_pj(2,2,54)=0
5022     exch2_oi(2,54)=511
5023     exch2_oi_f(2,54)=512
5024     exch2_oj(2,54)=-510
5025     exch2_oj_f(2,54)=-510
5026     exch2_itlo_c(2,54)=52
5027     exch2_ithi_c(2,54)=52
5028     exch2_jtlo_c(2,54)=306
5029     exch2_jthi_c(2,54)=358
5030     exch2_opposingSend_record(2,54)=6
5031    
5032     exch2_neighbourId(3,54)=55
5033     exch2_pi(1,3,54)=1
5034     exch2_pi(2,3,54)=0
5035     exch2_pj(1,3,54)=0
5036     exch2_pj(2,3,54)=1
5037     exch2_oi(3,54)=0
5038     exch2_oi_f(3,54)=0
5039     exch2_oj(3,54)=0
5040     exch2_oj_f(3,54)=0
5041     exch2_itlo_c(3,54)=0
5042     exch2_ithi_c(3,54)=0
5043     exch2_jtlo_c(3,54)=0
5044     exch2_jthi_c(3,54)=511
5045     exch2_opposingSend_record(3,54)=4
5046    
5047     exch2_neighbourId(4,54)=53
5048     exch2_pi(1,4,54)=1
5049     exch2_pi(2,4,54)=0
5050     exch2_pj(1,4,54)=0
5051     exch2_pj(2,4,54)=1
5052     exch2_oi(4,54)=0
5053     exch2_oi_f(4,54)=0
5054     exch2_oj(4,54)=0
5055     exch2_oj_f(4,54)=0
5056     exch2_itlo_c(4,54)=52
5057     exch2_ithi_c(4,54)=52
5058     exch2_jtlo_c(4,54)=0
5059     exch2_jthi_c(4,54)=511
5060     exch2_opposingSend_record(4,54)=3
5061     RETURN
5062     END
5063    
5064     SUBROUTINE W2_E2SETUP_55
5065     C Topology for tile 55
5066     #include "W2_EXCH2_TOPOLOGY.h"
5067     exch2_tnx(55)=51
5068     exch2_tny(55)=510
5069     exch2_tbasex(55)=204
5070     exch2_tbasey(55)=0
5071     exch2_txglobalo(55)=2755
5072     exch2_tyglobalo(55)=1
5073     exch2_isWedge(55)=0
5074     exch2_isNedge(55)=1
5075     exch2_isEedge(55)=0
5076     exch2_isSedge(55)=1
5077     exch2_myFace(55)=6
5078     exch2_mydnx(55)=510
5079     exch2_mydny(55)=510
5080     exch2_nNeighbours(55)=4
5081    
5082     exch2_neighbourId(1,55)=5
5083     exch2_pi(1,1,55)=1
5084     exch2_pi(2,1,55)=0
5085     exch2_pj(1,1,55)=0
5086     exch2_pj(2,1,55)=1
5087     exch2_oi(1,55)=0
5088     exch2_oi_f(1,55)=0
5089     exch2_oj(1,55)=510
5090     exch2_oj_f(1,55)=510
5091     exch2_itlo_c(1,55)=0
5092     exch2_ithi_c(1,55)=52
5093     exch2_jtlo_c(1,55)=0
5094     exch2_jthi_c(1,55)=0
5095     exch2_opposingSend_record(1,55)=2
5096    
5097     exch2_neighbourId(2,55)=40
5098     exch2_pi(1,2,55)=0
5099     exch2_pi(2,2,55)=-1
5100     exch2_pj(1,2,55)=1
5101     exch2_pj(2,2,55)=0
5102     exch2_oi(2,55)=511
5103     exch2_oi_f(2,55)=512
5104     exch2_oj(2,55)=-510
5105     exch2_oj_f(2,55)=-510
5106     exch2_itlo_c(2,55)=52
5107     exch2_ithi_c(2,55)=52
5108     exch2_jtlo_c(2,55)=255
5109     exch2_jthi_c(2,55)=307
5110     exch2_opposingSend_record(2,55)=7
5111    
5112     exch2_neighbourId(3,55)=56
5113     exch2_pi(1,3,55)=1
5114     exch2_pi(2,3,55)=0
5115     exch2_pj(1,3,55)=0
5116     exch2_pj(2,3,55)=1
5117     exch2_oi(3,55)=0
5118     exch2_oi_f(3,55)=0
5119     exch2_oj(3,55)=0
5120     exch2_oj_f(3,55)=0
5121     exch2_itlo_c(3,55)=0
5122     exch2_ithi_c(3,55)=0
5123     exch2_jtlo_c(3,55)=0
5124     exch2_jthi_c(3,55)=511
5125     exch2_opposingSend_record(3,55)=4
5126    
5127     exch2_neighbourId(4,55)=54
5128     exch2_pi(1,4,55)=1
5129     exch2_pi(2,4,55)=0
5130     exch2_pj(1,4,55)=0
5131     exch2_pj(2,4,55)=1
5132     exch2_oi(4,55)=0
5133     exch2_oi_f(4,55)=0
5134     exch2_oj(4,55)=0
5135     exch2_oj_f(4,55)=0
5136     exch2_itlo_c(4,55)=52
5137     exch2_ithi_c(4,55)=52
5138     exch2_jtlo_c(4,55)=0
5139     exch2_jthi_c(4,55)=511
5140     exch2_opposingSend_record(4,55)=3
5141     RETURN
5142     END
5143    
5144     SUBROUTINE W2_E2SETUP_56
5145     C Topology for tile 56
5146     #include "W2_EXCH2_TOPOLOGY.h"
5147     exch2_tnx(56)=51
5148     exch2_tny(56)=510
5149     exch2_tbasex(56)=255
5150     exch2_tbasey(56)=0
5151     exch2_txglobalo(56)=2806
5152     exch2_tyglobalo(56)=1
5153     exch2_isWedge(56)=0
5154     exch2_isNedge(56)=1
5155     exch2_isEedge(56)=0
5156     exch2_isSedge(56)=1
5157     exch2_myFace(56)=6
5158     exch2_mydnx(56)=510
5159     exch2_mydny(56)=510
5160     exch2_nNeighbours(56)=4
5161    
5162     exch2_neighbourId(1,56)=6
5163     exch2_pi(1,1,56)=1
5164     exch2_pi(2,1,56)=0
5165     exch2_pj(1,1,56)=0
5166     exch2_pj(2,1,56)=1
5167     exch2_oi(1,56)=0
5168     exch2_oi_f(1,56)=0
5169     exch2_oj(1,56)=510
5170     exch2_oj_f(1,56)=510
5171     exch2_itlo_c(1,56)=0
5172     exch2_ithi_c(1,56)=52
5173     exch2_jtlo_c(1,56)=0
5174     exch2_jthi_c(1,56)=0
5175     exch2_opposingSend_record(1,56)=2
5176    
5177     exch2_neighbourId(2,56)=40
5178     exch2_pi(1,2,56)=0
5179     exch2_pi(2,2,56)=-1
5180     exch2_pj(1,2,56)=1
5181     exch2_pj(2,2,56)=0
5182     exch2_oi(2,56)=511
5183     exch2_oi_f(2,56)=512
5184     exch2_oj(2,56)=-510
5185     exch2_oj_f(2,56)=-510
5186     exch2_itlo_c(2,56)=52
5187     exch2_ithi_c(2,56)=52
5188     exch2_jtlo_c(2,56)=204
5189     exch2_jthi_c(2,56)=256
5190     exch2_opposingSend_record(2,56)=8
5191    
5192     exch2_neighbourId(3,56)=57
5193     exch2_pi(1,3,56)=1
5194     exch2_pi(2,3,56)=0
5195     exch2_pj(1,3,56)=0
5196     exch2_pj(2,3,56)=1
5197     exch2_oi(3,56)=0
5198     exch2_oi_f(3,56)=0
5199     exch2_oj(3,56)=0
5200     exch2_oj_f(3,56)=0
5201     exch2_itlo_c(3,56)=0
5202     exch2_ithi_c(3,56)=0
5203     exch2_jtlo_c(3,56)=0
5204     exch2_jthi_c(3,56)=511
5205     exch2_opposingSend_record(3,56)=4
5206    
5207     exch2_neighbourId(4,56)=55
5208     exch2_pi(1,4,56)=1
5209     exch2_pi(2,4,56)=0
5210     exch2_pj(1,4,56)=0
5211     exch2_pj(2,4,56)=1
5212     exch2_oi(4,56)=0
5213     exch2_oi_f(4,56)=0
5214     exch2_oj(4,56)=0
5215     exch2_oj_f(4,56)=0
5216     exch2_itlo_c(4,56)=52
5217     exch2_ithi_c(4,56)=52
5218     exch2_jtlo_c(4,56)=0
5219     exch2_jthi_c(4,56)=511
5220     exch2_opposingSend_record(4,56)=3
5221     RETURN
5222     END
5223    
5224     SUBROUTINE W2_E2SETUP_57
5225     C Topology for tile 57
5226     #include "W2_EXCH2_TOPOLOGY.h"
5227     exch2_tnx(57)=51
5228     exch2_tny(57)=510
5229     exch2_tbasex(57)=306
5230     exch2_tbasey(57)=0
5231     exch2_txglobalo(57)=2857
5232     exch2_tyglobalo(57)=1
5233     exch2_isWedge(57)=0
5234     exch2_isNedge(57)=1
5235     exch2_isEedge(57)=0
5236     exch2_isSedge(57)=1
5237     exch2_myFace(57)=6
5238     exch2_mydnx(57)=510
5239     exch2_mydny(57)=510
5240     exch2_nNeighbours(57)=4
5241    
5242     exch2_neighbourId(1,57)=7
5243     exch2_pi(1,1,57)=1
5244     exch2_pi(2,1,57)=0
5245     exch2_pj(1,1,57)=0
5246     exch2_pj(2,1,57)=1
5247     exch2_oi(1,57)=0
5248     exch2_oi_f(1,57)=0
5249     exch2_oj(1,57)=510
5250     exch2_oj_f(1,57)=510
5251     exch2_itlo_c(1,57)=0
5252     exch2_ithi_c(1,57)=52
5253     exch2_jtlo_c(1,57)=0
5254     exch2_jthi_c(1,57)=0
5255     exch2_opposingSend_record(1,57)=2
5256    
5257     exch2_neighbourId(2,57)=40
5258     exch2_pi(1,2,57)=0
5259     exch2_pi(2,2,57)=-1
5260     exch2_pj(1,2,57)=1
5261     exch2_pj(2,2,57)=0
5262     exch2_oi(2,57)=511
5263     exch2_oi_f(2,57)=512
5264     exch2_oj(2,57)=-510
5265     exch2_oj_f(2,57)=-510
5266     exch2_itlo_c(2,57)=52
5267     exch2_ithi_c(2,57)=52
5268     exch2_jtlo_c(2,57)=153
5269     exch2_jthi_c(2,57)=205
5270     exch2_opposingSend_record(2,57)=9
5271    
5272     exch2_neighbourId(3,57)=58
5273     exch2_pi(1,3,57)=1
5274     exch2_pi(2,3,57)=0
5275     exch2_pj(1,3,57)=0
5276     exch2_pj(2,3,57)=1
5277     exch2_oi(3,57)=0
5278     exch2_oi_f(3,57)=0
5279     exch2_oj(3,57)=0
5280     exch2_oj_f(3,57)=0
5281     exch2_itlo_c(3,57)=0
5282     exch2_ithi_c(3,57)=0
5283     exch2_jtlo_c(3,57)=0
5284     exch2_jthi_c(3,57)=511
5285     exch2_opposingSend_record(3,57)=4
5286    
5287     exch2_neighbourId(4,57)=56
5288     exch2_pi(1,4,57)=1
5289     exch2_pi(2,4,57)=0
5290     exch2_pj(1,4,57)=0
5291     exch2_pj(2,4,57)=1
5292     exch2_oi(4,57)=0
5293     exch2_oi_f(4,57)=0
5294     exch2_oj(4,57)=0
5295     exch2_oj_f(4,57)=0
5296     exch2_itlo_c(4,57)=52
5297     exch2_ithi_c(4,57)=52
5298     exch2_jtlo_c(4,57)=0
5299     exch2_jthi_c(4,57)=511
5300     exch2_opposingSend_record(4,57)=3
5301     RETURN
5302     END
5303    
5304     SUBROUTINE W2_E2SETUP_58
5305     C Topology for tile 58
5306     #include "W2_EXCH2_TOPOLOGY.h"
5307     exch2_tnx(58)=51
5308     exch2_tny(58)=510
5309     exch2_tbasex(58)=357
5310     exch2_tbasey(58)=0
5311     exch2_txglobalo(58)=2908
5312     exch2_tyglobalo(58)=1
5313     exch2_isWedge(58)=0
5314     exch2_isNedge(58)=1
5315     exch2_isEedge(58)=0
5316     exch2_isSedge(58)=1
5317     exch2_myFace(58)=6
5318     exch2_mydnx(58)=510
5319     exch2_mydny(58)=510
5320     exch2_nNeighbours(58)=4
5321    
5322     exch2_neighbourId(1,58)=8
5323     exch2_pi(1,1,58)=1
5324     exch2_pi(2,1,58)=0
5325     exch2_pj(1,1,58)=0
5326     exch2_pj(2,1,58)=1
5327     exch2_oi(1,58)=0
5328     exch2_oi_f(1,58)=0
5329     exch2_oj(1,58)=510
5330     exch2_oj_f(1,58)=510
5331     exch2_itlo_c(1,58)=0
5332     exch2_ithi_c(1,58)=52
5333     exch2_jtlo_c(1,58)=0
5334     exch2_jthi_c(1,58)=0
5335     exch2_opposingSend_record(1,58)=2
5336    
5337     exch2_neighbourId(2,58)=40
5338     exch2_pi(1,2,58)=0
5339     exch2_pi(2,2,58)=-1
5340     exch2_pj(1,2,58)=1
5341     exch2_pj(2,2,58)=0
5342     exch2_oi(2,58)=511
5343     exch2_oi_f(2,58)=512
5344     exch2_oj(2,58)=-510
5345     exch2_oj_f(2,58)=-510
5346     exch2_itlo_c(2,58)=52
5347     exch2_ithi_c(2,58)=52
5348     exch2_jtlo_c(2,58)=102
5349     exch2_jthi_c(2,58)=154
5350     exch2_opposingSend_record(2,58)=10
5351    
5352     exch2_neighbourId(3,58)=59
5353     exch2_pi(1,3,58)=1
5354     exch2_pi(2,3,58)=0
5355     exch2_pj(1,3,58)=0
5356     exch2_pj(2,3,58)=1
5357     exch2_oi(3,58)=0
5358     exch2_oi_f(3,58)=0
5359     exch2_oj(3,58)=0
5360     exch2_oj_f(3,58)=0
5361     exch2_itlo_c(3,58)=0
5362     exch2_ithi_c(3,58)=0
5363     exch2_jtlo_c(3,58)=0
5364     exch2_jthi_c(3,58)=511
5365     exch2_opposingSend_record(3,58)=4
5366    
5367     exch2_neighbourId(4,58)=57
5368     exch2_pi(1,4,58)=1
5369     exch2_pi(2,4,58)=0
5370     exch2_pj(1,4,58)=0
5371     exch2_pj(2,4,58)=1
5372     exch2_oi(4,58)=0
5373     exch2_oi_f(4,58)=0
5374     exch2_oj(4,58)=0
5375     exch2_oj_f(4,58)=0
5376     exch2_itlo_c(4,58)=52
5377     exch2_ithi_c(4,58)=52
5378     exch2_jtlo_c(4,58)=0
5379     exch2_jthi_c(4,58)=511
5380     exch2_opposingSend_record(4,58)=3
5381     RETURN
5382     END
5383    
5384     SUBROUTINE W2_E2SETUP_59
5385     C Topology for tile 59
5386     #include "W2_EXCH2_TOPOLOGY.h"
5387     exch2_tnx(59)=51
5388     exch2_tny(59)=510
5389     exch2_tbasex(59)=408
5390     exch2_tbasey(59)=0
5391     exch2_txglobalo(59)=2959
5392     exch2_tyglobalo(59)=1
5393     exch2_isWedge(59)=0
5394     exch2_isNedge(59)=1
5395     exch2_isEedge(59)=0
5396     exch2_isSedge(59)=1
5397     exch2_myFace(59)=6
5398     exch2_mydnx(59)=510
5399     exch2_mydny(59)=510
5400     exch2_nNeighbours(59)=4
5401    
5402     exch2_neighbourId(1,59)=9
5403     exch2_pi(1,1,59)=1
5404     exch2_pi(2,1,59)=0
5405     exch2_pj(1,1,59)=0
5406     exch2_pj(2,1,59)=1
5407     exch2_oi(1,59)=0
5408     exch2_oi_f(1,59)=0
5409     exch2_oj(1,59)=510
5410     exch2_oj_f(1,59)=510
5411     exch2_itlo_c(1,59)=0
5412     exch2_ithi_c(1,59)=52
5413     exch2_jtlo_c(1,59)=0
5414     exch2_jthi_c(1,59)=0
5415     exch2_opposingSend_record(1,59)=2
5416    
5417     exch2_neighbourId(2,59)=40
5418     exch2_pi(1,2,59)=0
5419     exch2_pi(2,2,59)=-1
5420     exch2_pj(1,2,59)=1
5421     exch2_pj(2,2,59)=0
5422     exch2_oi(2,59)=511
5423     exch2_oi_f(2,59)=512
5424     exch2_oj(2,59)=-510
5425     exch2_oj_f(2,59)=-510
5426     exch2_itlo_c(2,59)=52
5427     exch2_ithi_c(2,59)=52
5428     exch2_jtlo_c(2,59)=51
5429     exch2_jthi_c(2,59)=103
5430     exch2_opposingSend_record(2,59)=11
5431    
5432     exch2_neighbourId(3,59)=60
5433     exch2_pi(1,3,59)=1
5434     exch2_pi(2,3,59)=0
5435     exch2_pj(1,3,59)=0
5436     exch2_pj(2,3,59)=1
5437     exch2_oi(3,59)=0
5438     exch2_oi_f(3,59)=0
5439     exch2_oj(3,59)=0
5440     exch2_oj_f(3,59)=0
5441     exch2_itlo_c(3,59)=0
5442     exch2_ithi_c(3,59)=0
5443     exch2_jtlo_c(3,59)=0
5444     exch2_jthi_c(3,59)=511
5445     exch2_opposingSend_record(3,59)=13
5446    
5447     exch2_neighbourId(4,59)=58
5448     exch2_pi(1,4,59)=1
5449     exch2_pi(2,4,59)=0
5450     exch2_pj(1,4,59)=0
5451     exch2_pj(2,4,59)=1
5452     exch2_oi(4,59)=0
5453     exch2_oi_f(4,59)=0
5454     exch2_oj(4,59)=0
5455     exch2_oj_f(4,59)=0
5456     exch2_itlo_c(4,59)=52
5457     exch2_ithi_c(4,59)=52
5458     exch2_jtlo_c(4,59)=0
5459     exch2_jthi_c(4,59)=511
5460     exch2_opposingSend_record(4,59)=3
5461     RETURN
5462     END
5463    
5464     SUBROUTINE W2_E2SETUP_60
5465     C Topology for tile 60
5466     #include "W2_EXCH2_TOPOLOGY.h"
5467     exch2_tnx(60)=51
5468     exch2_tny(60)=510
5469     exch2_tbasex(60)=459
5470     exch2_tbasey(60)=0
5471     exch2_txglobalo(60)=3010
5472     exch2_tyglobalo(60)=1
5473     exch2_isWedge(60)=0
5474     exch2_isNedge(60)=1
5475     exch2_isEedge(60)=1
5476     exch2_isSedge(60)=1
5477     exch2_myFace(60)=6
5478     exch2_mydnx(60)=510
5479     exch2_mydny(60)=510
5480     exch2_nNeighbours(60)=13
5481    
5482     exch2_neighbourId(1,60)=10
5483     exch2_pi(1,1,60)=1
5484     exch2_pi(2,1,60)=0
5485     exch2_pj(1,1,60)=0
5486     exch2_pj(2,1,60)=1
5487     exch2_oi(1,60)=0
5488     exch2_oi_f(1,60)=0
5489     exch2_oj(1,60)=510
5490     exch2_oj_f(1,60)=510
5491     exch2_itlo_c(1,60)=0
5492     exch2_ithi_c(1,60)=52
5493     exch2_jtlo_c(1,60)=0
5494     exch2_jthi_c(1,60)=0
5495     exch2_opposingSend_record(1,60)=2
5496    
5497     exch2_neighbourId(2,60)=40
5498     exch2_pi(1,2,60)=0
5499     exch2_pi(2,2,60)=-1
5500     exch2_pj(1,2,60)=1
5501     exch2_pj(2,2,60)=0
5502     exch2_oi(2,60)=511
5503     exch2_oi_f(2,60)=512
5504     exch2_oj(2,60)=-510
5505     exch2_oj_f(2,60)=-510
5506     exch2_itlo_c(2,60)=52
5507     exch2_ithi_c(2,60)=52
5508     exch2_jtlo_c(2,60)=0
5509     exch2_jthi_c(2,60)=52
5510     exch2_opposingSend_record(2,60)=12
5511    
5512     exch2_neighbourId(3,60)=11
5513     exch2_pi(1,3,60)=0
5514     exch2_pi(2,3,60)=1
5515     exch2_pj(1,3,60)=-1
5516     exch2_pj(2,3,60)=0
5517     exch2_oi(3,60)=510
5518     exch2_oi_f(3,60)=510
5519     exch2_oj(3,60)=511
5520     exch2_oj_f(3,60)=512
5521     exch2_itlo_c(3,60)=0
5522     exch2_ithi_c(3,60)=52
5523     exch2_jtlo_c(3,60)=0
5524     exch2_jthi_c(3,60)=0
5525     exch2_opposingSend_record(3,60)=2
5526    
5527     exch2_neighbourId(4,60)=12
5528     exch2_pi(1,4,60)=0
5529     exch2_pi(2,4,60)=1
5530     exch2_pj(1,4,60)=-1
5531     exch2_pj(2,4,60)=0
5532     exch2_oi(4,60)=510
5533     exch2_oi_f(4,60)=510
5534     exch2_oj(4,60)=511
5535     exch2_oj_f(4,60)=512
5536     exch2_itlo_c(4,60)=0
5537     exch2_ithi_c(4,60)=52
5538     exch2_jtlo_c(4,60)=0
5539     exch2_jthi_c(4,60)=0
5540     exch2_opposingSend_record(4,60)=2
5541    
5542     exch2_neighbourId(5,60)=13
5543     exch2_pi(1,5,60)=0
5544     exch2_pi(2,5,60)=1
5545     exch2_pj(1,5,60)=-1
5546     exch2_pj(2,5,60)=0
5547     exch2_oi(5,60)=510
5548     exch2_oi_f(5,60)=510
5549     exch2_oj(5,60)=511
5550     exch2_oj_f(5,60)=512
5551     exch2_itlo_c(5,60)=0
5552     exch2_ithi_c(5,60)=52
5553     exch2_jtlo_c(5,60)=0
5554     exch2_jthi_c(5,60)=0
5555     exch2_opposingSend_record(5,60)=2
5556    
5557     exch2_neighbourId(6,60)=14
5558     exch2_pi(1,6,60)=0
5559     exch2_pi(2,6,60)=1
5560     exch2_pj(1,6,60)=-1
5561     exch2_pj(2,6,60)=0
5562     exch2_oi(6,60)=510
5563     exch2_oi_f(6,60)=510
5564     exch2_oj(6,60)=511
5565     exch2_oj_f(6,60)=512
5566     exch2_itlo_c(6,60)=0
5567     exch2_ithi_c(6,60)=52
5568     exch2_jtlo_c(6,60)=0
5569     exch2_jthi_c(6,60)=0
5570     exch2_opposingSend_record(6,60)=2
5571    
5572     exch2_neighbourId(7,60)=15
5573     exch2_pi(1,7,60)=0
5574     exch2_pi(2,7,60)=1
5575     exch2_pj(1,7,60)=-1
5576     exch2_pj(2,7,60)=0
5577     exch2_oi(7,60)=510
5578     exch2_oi_f(7,60)=510
5579     exch2_oj(7,60)=511
5580     exch2_oj_f(7,60)=512
5581     exch2_itlo_c(7,60)=0
5582     exch2_ithi_c(7,60)=52
5583     exch2_jtlo_c(7,60)=0
5584     exch2_jthi_c(7,60)=0
5585     exch2_opposingSend_record(7,60)=2
5586    
5587     exch2_neighbourId(8,60)=16
5588     exch2_pi(1,8,60)=0
5589     exch2_pi(2,8,60)=1
5590     exch2_pj(1,8,60)=-1
5591     exch2_pj(2,8,60)=0
5592     exch2_oi(8,60)=510
5593     exch2_oi_f(8,60)=510
5594     exch2_oj(8,60)=511
5595     exch2_oj_f(8,60)=512
5596     exch2_itlo_c(8,60)=0
5597     exch2_ithi_c(8,60)=52
5598     exch2_jtlo_c(8,60)=0
5599     exch2_jthi_c(8,60)=0
5600     exch2_opposingSend_record(8,60)=2
5601    
5602     exch2_neighbourId(9,60)=17
5603     exch2_pi(1,9,60)=0
5604     exch2_pi(2,9,60)=1
5605     exch2_pj(1,9,60)=-1
5606     exch2_pj(2,9,60)=0
5607     exch2_oi(9,60)=510
5608     exch2_oi_f(9,60)=510
5609     exch2_oj(9,60)=511
5610     exch2_oj_f(9,60)=512
5611     exch2_itlo_c(9,60)=0
5612     exch2_ithi_c(9,60)=52
5613     exch2_jtlo_c(9,60)=0
5614     exch2_jthi_c(9,60)=0
5615     exch2_opposingSend_record(9,60)=2
5616    
5617     exch2_neighbourId(10,60)=18
5618     exch2_pi(1,10,60)=0
5619     exch2_pi(2,10,60)=1
5620     exch2_pj(1,10,60)=-1
5621     exch2_pj(2,10,60)=0
5622     exch2_oi(10,60)=510
5623     exch2_oi_f(10,60)=510
5624     exch2_oj(10,60)=511
5625     exch2_oj_f(10,60)=512
5626     exch2_itlo_c(10,60)=0
5627     exch2_ithi_c(10,60)=52
5628     exch2_jtlo_c(10,60)=0
5629     exch2_jthi_c(10,60)=0
5630     exch2_opposingSend_record(10,60)=2
5631    
5632     exch2_neighbourId(11,60)=19
5633     exch2_pi(1,11,60)=0
5634     exch2_pi(2,11,60)=1
5635     exch2_pj(1,11,60)=-1
5636     exch2_pj(2,11,60)=0
5637     exch2_oi(11,60)=510
5638     exch2_oi_f(11,60)=510
5639     exch2_oj(11,60)=511
5640     exch2_oj_f(11,60)=512
5641     exch2_itlo_c(11,60)=0
5642     exch2_ithi_c(11,60)=52
5643     exch2_jtlo_c(11,60)=0
5644     exch2_jthi_c(11,60)=0
5645     exch2_opposingSend_record(11,60)=2
5646    
5647     exch2_neighbourId(12,60)=20
5648     exch2_pi(1,12,60)=0
5649     exch2_pi(2,12,60)=1
5650     exch2_pj(1,12,60)=-1
5651     exch2_pj(2,12,60)=0
5652     exch2_oi(12,60)=510
5653     exch2_oi_f(12,60)=510
5654     exch2_oj(12,60)=511
5655     exch2_oj_f(12,60)=512
5656     exch2_itlo_c(12,60)=0
5657     exch2_ithi_c(12,60)=52
5658     exch2_jtlo_c(12,60)=0
5659     exch2_jthi_c(12,60)=0
5660     exch2_opposingSend_record(12,60)=2
5661    
5662     exch2_neighbourId(13,60)=59
5663     exch2_pi(1,13,60)=1
5664     exch2_pi(2,13,60)=0
5665     exch2_pj(1,13,60)=0
5666     exch2_pj(2,13,60)=1
5667     exch2_oi(13,60)=0
5668     exch2_oi_f(13,60)=0
5669     exch2_oj(13,60)=0
5670     exch2_oj_f(13,60)=0
5671     exch2_itlo_c(13,60)=52
5672     exch2_ithi_c(13,60)=52
5673     exch2_jtlo_c(13,60)=0
5674     exch2_jthi_c(13,60)=511
5675     exch2_opposingSend_record(13,60)=3
5676     RETURN
5677     END
5678    
  ViewVC Help
Powered by ViewVC 1.1.22