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

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

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

Revision 1.1 - (hide annotations) (download)
Fri Mar 26 19:02:13 2004 UTC (22 years, 7 months ago) by dimitri
Branch: MAIN 
Added MITgcm_contrib/high_res_cube/code-mods/s54t_170x170/*
1 dimitri 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     RETURN
58     END
59     SUBROUTINE W2_E2SETUP_1
60     C Topology for tile 1
61     #include "W2_EXCH2_TOPOLOGY.h"
62     exch2_tnx(1)=170
63     exch2_tny(1)=170
64     exch2_tbasex(1)=0
65     exch2_tbasey(1)=0
66     exch2_txglobalo(1)=1
67     exch2_tyglobalo(1)=1
68     exch2_isWedge(1)=1
69     exch2_isNedge(1)=0
70     exch2_isEedge(1)=0
71     exch2_isSedge(1)=1
72     exch2_myFace(1)=1
73     exch2_mydnx(1)=510
74     exch2_mydny(1)=510
75     exch2_nNeighbours(1)=4
76    
77     exch2_neighbourId(1,1)=4
78     exch2_pi(1,1,1)=1
79     exch2_pi(2,1,1)=0
80     exch2_pj(1,1,1)=0
81     exch2_pj(2,1,1)=1
82     exch2_oi(1,1)=0
83     exch2_oi_f(1,1)=0
84     exch2_oj(1,1)=0
85     exch2_oj_f(1,1)=0
86     exch2_itlo_c(1,1)=0
87     exch2_ithi_c(1,1)=171
88     exch2_jtlo_c(1,1)=0
89     exch2_jthi_c(1,1)=0
90     exch2_opposingSend_record(1,1)=2
91    
92     exch2_neighbourId(2,1)=48
93     exch2_pi(1,2,1)=1
94     exch2_pi(2,2,1)=0
95     exch2_pj(1,2,1)=0
96     exch2_pj(2,2,1)=1
97     exch2_oi(2,1)=0
98     exch2_oi_f(2,1)=0
99     exch2_oj(2,1)=-510
100     exch2_oj_f(2,1)=-510
101     exch2_itlo_c(2,1)=0
102     exch2_ithi_c(2,1)=171
103     exch2_jtlo_c(2,1)=171
104     exch2_jthi_c(2,1)=171
105     exch2_opposingSend_record(2,1)=1
106    
107     exch2_neighbourId(3,1)=2
108     exch2_pi(1,3,1)=1
109     exch2_pi(2,3,1)=0
110     exch2_pj(1,3,1)=0
111     exch2_pj(2,3,1)=1
112     exch2_oi(3,1)=0
113     exch2_oi_f(3,1)=0
114     exch2_oj(3,1)=0
115     exch2_oj_f(3,1)=0
116     exch2_itlo_c(3,1)=0
117     exch2_ithi_c(3,1)=0
118     exch2_jtlo_c(3,1)=0
119     exch2_jthi_c(3,1)=171
120     exch2_opposingSend_record(3,1)=4
121    
122     exch2_neighbourId(4,1)=41
123     exch2_pi(1,4,1)=0
124     exch2_pi(2,4,1)=1
125     exch2_pj(1,4,1)=-1
126     exch2_pj(2,4,1)=0
127     exch2_oi(4,1)=-510
128     exch2_oi_f(4,1)=-510
129     exch2_oj(4,1)=511
130     exch2_oj_f(4,1)=512
131     exch2_itlo_c(4,1)=0
132     exch2_ithi_c(4,1)=171
133     exch2_jtlo_c(4,1)=171
134     exch2_jthi_c(4,1)=171
135     exch2_opposingSend_record(4,1)=1
136     RETURN
137     END
138    
139     SUBROUTINE W2_E2SETUP_2
140     C Topology for tile 2
141     #include "W2_EXCH2_TOPOLOGY.h"
142     exch2_tnx(2)=170
143     exch2_tny(2)=170
144     exch2_tbasex(2)=170
145     exch2_tbasey(2)=0
146     exch2_txglobalo(2)=171
147     exch2_tyglobalo(2)=1
148     exch2_isWedge(2)=0
149     exch2_isNedge(2)=0
150     exch2_isEedge(2)=0
151     exch2_isSedge(2)=1
152     exch2_myFace(2)=1
153     exch2_mydnx(2)=510
154     exch2_mydny(2)=510
155     exch2_nNeighbours(2)=4
156    
157     exch2_neighbourId(1,2)=5
158     exch2_pi(1,1,2)=1
159     exch2_pi(2,1,2)=0
160     exch2_pj(1,1,2)=0
161     exch2_pj(2,1,2)=1
162     exch2_oi(1,2)=0
163     exch2_oi_f(1,2)=0
164     exch2_oj(1,2)=0
165     exch2_oj_f(1,2)=0
166     exch2_itlo_c(1,2)=0
167     exch2_ithi_c(1,2)=171
168     exch2_jtlo_c(1,2)=0
169     exch2_jthi_c(1,2)=0
170     exch2_opposingSend_record(1,2)=2
171    
172     exch2_neighbourId(2,2)=49
173     exch2_pi(1,2,2)=1
174     exch2_pi(2,2,2)=0
175     exch2_pj(1,2,2)=0
176     exch2_pj(2,2,2)=1
177     exch2_oi(2,2)=0
178     exch2_oi_f(2,2)=0
179     exch2_oj(2,2)=-510
180     exch2_oj_f(2,2)=-510
181     exch2_itlo_c(2,2)=0
182     exch2_ithi_c(2,2)=171
183     exch2_jtlo_c(2,2)=171
184     exch2_jthi_c(2,2)=171
185     exch2_opposingSend_record(2,2)=1
186    
187     exch2_neighbourId(3,2)=3
188     exch2_pi(1,3,2)=1
189     exch2_pi(2,3,2)=0
190     exch2_pj(1,3,2)=0
191     exch2_pj(2,3,2)=1
192     exch2_oi(3,2)=0
193     exch2_oi_f(3,2)=0
194     exch2_oj(3,2)=0
195     exch2_oj_f(3,2)=0
196     exch2_itlo_c(3,2)=0
197     exch2_ithi_c(3,2)=0
198     exch2_jtlo_c(3,2)=0
199     exch2_jthi_c(3,2)=171
200     exch2_opposingSend_record(3,2)=4
201    
202     exch2_neighbourId(4,2)=1
203     exch2_pi(1,4,2)=1
204     exch2_pi(2,4,2)=0
205     exch2_pj(1,4,2)=0
206     exch2_pj(2,4,2)=1
207     exch2_oi(4,2)=0
208     exch2_oi_f(4,2)=0
209     exch2_oj(4,2)=0
210     exch2_oj_f(4,2)=0
211     exch2_itlo_c(4,2)=171
212     exch2_ithi_c(4,2)=171
213     exch2_jtlo_c(4,2)=0
214     exch2_jthi_c(4,2)=171
215     exch2_opposingSend_record(4,2)=3
216     RETURN
217     END
218    
219     SUBROUTINE W2_E2SETUP_3
220     C Topology for tile 3
221     #include "W2_EXCH2_TOPOLOGY.h"
222     exch2_tnx(3)=170
223     exch2_tny(3)=170
224     exch2_tbasex(3)=340
225     exch2_tbasey(3)=0
226     exch2_txglobalo(3)=341
227     exch2_tyglobalo(3)=1
228     exch2_isWedge(3)=0
229     exch2_isNedge(3)=0
230     exch2_isEedge(3)=1
231     exch2_isSedge(3)=1
232     exch2_myFace(3)=1
233     exch2_mydnx(3)=510
234     exch2_mydny(3)=510
235     exch2_nNeighbours(3)=4
236    
237     exch2_neighbourId(1,3)=6
238     exch2_pi(1,1,3)=1
239     exch2_pi(2,1,3)=0
240     exch2_pj(1,1,3)=0
241     exch2_pj(2,1,3)=1
242     exch2_oi(1,3)=0
243     exch2_oi_f(1,3)=0
244     exch2_oj(1,3)=0
245     exch2_oj_f(1,3)=0
246     exch2_itlo_c(1,3)=0
247     exch2_ithi_c(1,3)=171
248     exch2_jtlo_c(1,3)=0
249     exch2_jthi_c(1,3)=0
250     exch2_opposingSend_record(1,3)=2
251    
252     exch2_neighbourId(2,3)=50
253     exch2_pi(1,2,3)=1
254     exch2_pi(2,2,3)=0
255     exch2_pj(1,2,3)=0
256     exch2_pj(2,2,3)=1
257     exch2_oi(2,3)=0
258     exch2_oi_f(2,3)=0
259     exch2_oj(2,3)=-510
260     exch2_oj_f(2,3)=-510
261     exch2_itlo_c(2,3)=0
262     exch2_ithi_c(2,3)=171
263     exch2_jtlo_c(2,3)=171
264     exch2_jthi_c(2,3)=171
265     exch2_opposingSend_record(2,3)=1
266    
267     exch2_neighbourId(3,3)=10
268     exch2_pi(1,3,3)=1
269     exch2_pi(2,3,3)=0
270     exch2_pj(1,3,3)=0
271     exch2_pj(2,3,3)=1
272     exch2_oi(3,3)=510
273     exch2_oi_f(3,3)=510
274     exch2_oj(3,3)=0
275     exch2_oj_f(3,3)=0
276     exch2_itlo_c(3,3)=0
277     exch2_ithi_c(3,3)=0
278     exch2_jtlo_c(3,3)=0
279     exch2_jthi_c(3,3)=171
280     exch2_opposingSend_record(3,3)=4
281    
282     exch2_neighbourId(4,3)=2
283     exch2_pi(1,4,3)=1
284     exch2_pi(2,4,3)=0
285     exch2_pj(1,4,3)=0
286     exch2_pj(2,4,3)=1
287     exch2_oi(4,3)=0
288     exch2_oi_f(4,3)=0
289     exch2_oj(4,3)=0
290     exch2_oj_f(4,3)=0
291     exch2_itlo_c(4,3)=171
292     exch2_ithi_c(4,3)=171
293     exch2_jtlo_c(4,3)=0
294     exch2_jthi_c(4,3)=171
295     exch2_opposingSend_record(4,3)=3
296     RETURN
297     END
298    
299     SUBROUTINE W2_E2SETUP_4
300     C Topology for tile 4
301     #include "W2_EXCH2_TOPOLOGY.h"
302     exch2_tnx(4)=170
303     exch2_tny(4)=170
304     exch2_tbasex(4)=0
305     exch2_tbasey(4)=170
306     exch2_txglobalo(4)=1
307     exch2_tyglobalo(4)=171
308     exch2_isWedge(4)=1
309     exch2_isNedge(4)=0
310     exch2_isEedge(4)=0
311     exch2_isSedge(4)=0
312     exch2_myFace(4)=1
313     exch2_mydnx(4)=510
314     exch2_mydny(4)=510
315     exch2_nNeighbours(4)=4
316    
317     exch2_neighbourId(1,4)=7
318     exch2_pi(1,1,4)=1
319     exch2_pi(2,1,4)=0
320     exch2_pj(1,1,4)=0
321     exch2_pj(2,1,4)=1
322     exch2_oi(1,4)=0
323     exch2_oi_f(1,4)=0
324     exch2_oj(1,4)=0
325     exch2_oj_f(1,4)=0
326     exch2_itlo_c(1,4)=0
327     exch2_ithi_c(1,4)=171
328     exch2_jtlo_c(1,4)=0
329     exch2_jthi_c(1,4)=0
330     exch2_opposingSend_record(1,4)=2
331    
332     exch2_neighbourId(2,4)=1
333     exch2_pi(1,2,4)=1
334     exch2_pi(2,2,4)=0
335     exch2_pj(1,2,4)=0
336     exch2_pj(2,2,4)=1
337     exch2_oi(2,4)=0
338     exch2_oi_f(2,4)=0
339     exch2_oj(2,4)=0
340     exch2_oj_f(2,4)=0
341     exch2_itlo_c(2,4)=1
342     exch2_ithi_c(2,4)=170
343     exch2_jtlo_c(2,4)=171
344     exch2_jthi_c(2,4)=171
345     exch2_opposingSend_record(2,4)=1
346    
347     exch2_neighbourId(3,4)=5
348     exch2_pi(1,3,4)=1
349     exch2_pi(2,3,4)=0
350     exch2_pj(1,3,4)=0
351     exch2_pj(2,3,4)=1
352     exch2_oi(3,4)=0
353     exch2_oi_f(3,4)=0
354     exch2_oj(3,4)=0
355     exch2_oj_f(3,4)=0
356     exch2_itlo_c(3,4)=0
357     exch2_ithi_c(3,4)=0
358     exch2_jtlo_c(3,4)=0
359     exch2_jthi_c(3,4)=171
360     exch2_opposingSend_record(3,4)=4
361    
362     exch2_neighbourId(4,4)=40
363     exch2_pi(1,4,4)=0
364     exch2_pi(2,4,4)=1
365     exch2_pj(1,4,4)=-1
366     exch2_pj(2,4,4)=0
367     exch2_oi(4,4)=-510
368     exch2_oi_f(4,4)=-510
369     exch2_oj(4,4)=511
370     exch2_oj_f(4,4)=512
371     exch2_itlo_c(4,4)=0
372     exch2_ithi_c(4,4)=171
373     exch2_jtlo_c(4,4)=171
374     exch2_jthi_c(4,4)=171
375     exch2_opposingSend_record(4,4)=1
376     RETURN
377     END
378    
379     SUBROUTINE W2_E2SETUP_5
380     C Topology for tile 5
381     #include "W2_EXCH2_TOPOLOGY.h"
382     exch2_tnx(5)=170
383     exch2_tny(5)=170
384     exch2_tbasex(5)=170
385     exch2_tbasey(5)=170
386     exch2_txglobalo(5)=171
387     exch2_tyglobalo(5)=171
388     exch2_isWedge(5)=0
389     exch2_isNedge(5)=0
390     exch2_isEedge(5)=0
391     exch2_isSedge(5)=0
392     exch2_myFace(5)=1
393     exch2_mydnx(5)=510
394     exch2_mydny(5)=510
395     exch2_nNeighbours(5)=4
396    
397     exch2_neighbourId(1,5)=8
398     exch2_pi(1,1,5)=1
399     exch2_pi(2,1,5)=0
400     exch2_pj(1,1,5)=0
401     exch2_pj(2,1,5)=1
402     exch2_oi(1,5)=0
403     exch2_oi_f(1,5)=0
404     exch2_oj(1,5)=0
405     exch2_oj_f(1,5)=0
406     exch2_itlo_c(1,5)=0
407     exch2_ithi_c(1,5)=171
408     exch2_jtlo_c(1,5)=0
409     exch2_jthi_c(1,5)=0
410     exch2_opposingSend_record(1,5)=2
411    
412     exch2_neighbourId(2,5)=2
413     exch2_pi(1,2,5)=1
414     exch2_pi(2,2,5)=0
415     exch2_pj(1,2,5)=0
416     exch2_pj(2,2,5)=1
417     exch2_oi(2,5)=0
418     exch2_oi_f(2,5)=0
419     exch2_oj(2,5)=0
420     exch2_oj_f(2,5)=0
421     exch2_itlo_c(2,5)=1
422     exch2_ithi_c(2,5)=170
423     exch2_jtlo_c(2,5)=171
424     exch2_jthi_c(2,5)=171
425     exch2_opposingSend_record(2,5)=1
426    
427     exch2_neighbourId(3,5)=6
428     exch2_pi(1,3,5)=1
429     exch2_pi(2,3,5)=0
430     exch2_pj(1,3,5)=0
431     exch2_pj(2,3,5)=1
432     exch2_oi(3,5)=0
433     exch2_oi_f(3,5)=0
434     exch2_oj(3,5)=0
435     exch2_oj_f(3,5)=0
436     exch2_itlo_c(3,5)=0
437     exch2_ithi_c(3,5)=0
438     exch2_jtlo_c(3,5)=0
439     exch2_jthi_c(3,5)=171
440     exch2_opposingSend_record(3,5)=4
441    
442     exch2_neighbourId(4,5)=4
443     exch2_pi(1,4,5)=1
444     exch2_pi(2,4,5)=0
445     exch2_pj(1,4,5)=0
446     exch2_pj(2,4,5)=1
447     exch2_oi(4,5)=0
448     exch2_oi_f(4,5)=0
449     exch2_oj(4,5)=0
450     exch2_oj_f(4,5)=0
451     exch2_itlo_c(4,5)=171
452     exch2_ithi_c(4,5)=171
453     exch2_jtlo_c(4,5)=0
454     exch2_jthi_c(4,5)=171
455     exch2_opposingSend_record(4,5)=3
456     RETURN
457     END
458    
459     SUBROUTINE W2_E2SETUP_6
460     C Topology for tile 6
461     #include "W2_EXCH2_TOPOLOGY.h"
462     exch2_tnx(6)=170
463     exch2_tny(6)=170
464     exch2_tbasex(6)=340
465     exch2_tbasey(6)=170
466     exch2_txglobalo(6)=341
467     exch2_tyglobalo(6)=171
468     exch2_isWedge(6)=0
469     exch2_isNedge(6)=0
470     exch2_isEedge(6)=1
471     exch2_isSedge(6)=0
472     exch2_myFace(6)=1
473     exch2_mydnx(6)=510
474     exch2_mydny(6)=510
475     exch2_nNeighbours(6)=4
476    
477     exch2_neighbourId(1,6)=9
478     exch2_pi(1,1,6)=1
479     exch2_pi(2,1,6)=0
480     exch2_pj(1,1,6)=0
481     exch2_pj(2,1,6)=1
482     exch2_oi(1,6)=0
483     exch2_oi_f(1,6)=0
484     exch2_oj(1,6)=0
485     exch2_oj_f(1,6)=0
486     exch2_itlo_c(1,6)=0
487     exch2_ithi_c(1,6)=171
488     exch2_jtlo_c(1,6)=0
489     exch2_jthi_c(1,6)=0
490     exch2_opposingSend_record(1,6)=2
491    
492     exch2_neighbourId(2,6)=3
493     exch2_pi(1,2,6)=1
494     exch2_pi(2,2,6)=0
495     exch2_pj(1,2,6)=0
496     exch2_pj(2,2,6)=1
497     exch2_oi(2,6)=0
498     exch2_oi_f(2,6)=0
499     exch2_oj(2,6)=0
500     exch2_oj_f(2,6)=0
501     exch2_itlo_c(2,6)=1
502     exch2_ithi_c(2,6)=170
503     exch2_jtlo_c(2,6)=171
504     exch2_jthi_c(2,6)=171
505     exch2_opposingSend_record(2,6)=1
506    
507     exch2_neighbourId(3,6)=13
508     exch2_pi(1,3,6)=1
509     exch2_pi(2,3,6)=0
510     exch2_pj(1,3,6)=0
511     exch2_pj(2,3,6)=1
512     exch2_oi(3,6)=510
513     exch2_oi_f(3,6)=510
514     exch2_oj(3,6)=0
515     exch2_oj_f(3,6)=0
516     exch2_itlo_c(3,6)=0
517     exch2_ithi_c(3,6)=0
518     exch2_jtlo_c(3,6)=0
519     exch2_jthi_c(3,6)=171
520     exch2_opposingSend_record(3,6)=4
521    
522     exch2_neighbourId(4,6)=5
523     exch2_pi(1,4,6)=1
524     exch2_pi(2,4,6)=0
525     exch2_pj(1,4,6)=0
526     exch2_pj(2,4,6)=1
527     exch2_oi(4,6)=0
528     exch2_oi_f(4,6)=0
529     exch2_oj(4,6)=0
530     exch2_oj_f(4,6)=0
531     exch2_itlo_c(4,6)=171
532     exch2_ithi_c(4,6)=171
533     exch2_jtlo_c(4,6)=0
534     exch2_jthi_c(4,6)=171
535     exch2_opposingSend_record(4,6)=3
536     RETURN
537     END
538    
539     SUBROUTINE W2_E2SETUP_7
540     C Topology for tile 7
541     #include "W2_EXCH2_TOPOLOGY.h"
542     exch2_tnx(7)=170
543     exch2_tny(7)=170
544     exch2_tbasex(7)=0
545     exch2_tbasey(7)=340
546     exch2_txglobalo(7)=1
547     exch2_tyglobalo(7)=341
548     exch2_isWedge(7)=1
549     exch2_isNedge(7)=1
550     exch2_isEedge(7)=0
551     exch2_isSedge(7)=0
552     exch2_myFace(7)=1
553     exch2_mydnx(7)=510
554     exch2_mydny(7)=510
555     exch2_nNeighbours(7)=4
556    
557     exch2_neighbourId(1,7)=23
558     exch2_pi(1,1,7)=0
559     exch2_pi(2,1,7)=-1
560     exch2_pj(1,1,7)=1
561     exch2_pj(2,1,7)=0
562     exch2_oi(1,7)=511
563     exch2_oi_f(1,7)=512
564     exch2_oj(1,7)=510
565     exch2_oj_f(1,7)=510
566     exch2_itlo_c(1,7)=0
567     exch2_ithi_c(1,7)=0
568     exch2_jtlo_c(1,7)=0
569     exch2_jthi_c(1,7)=171
570     exch2_opposingSend_record(1,7)=4
571    
572     exch2_neighbourId(2,7)=4
573     exch2_pi(1,2,7)=1
574     exch2_pi(2,2,7)=0
575     exch2_pj(1,2,7)=0
576     exch2_pj(2,2,7)=1
577     exch2_oi(2,7)=0
578     exch2_oi_f(2,7)=0
579     exch2_oj(2,7)=0
580     exch2_oj_f(2,7)=0
581     exch2_itlo_c(2,7)=1
582     exch2_ithi_c(2,7)=170
583     exch2_jtlo_c(2,7)=171
584     exch2_jthi_c(2,7)=171
585     exch2_opposingSend_record(2,7)=1
586    
587     exch2_neighbourId(3,7)=8
588     exch2_pi(1,3,7)=1
589     exch2_pi(2,3,7)=0
590     exch2_pj(1,3,7)=0
591     exch2_pj(2,3,7)=1
592     exch2_oi(3,7)=0
593     exch2_oi_f(3,7)=0
594     exch2_oj(3,7)=0
595     exch2_oj_f(3,7)=0
596     exch2_itlo_c(3,7)=0
597     exch2_ithi_c(3,7)=0
598     exch2_jtlo_c(3,7)=0
599     exch2_jthi_c(3,7)=171
600     exch2_opposingSend_record(3,7)=4
601    
602     exch2_neighbourId(4,7)=39
603     exch2_pi(1,4,7)=0
604     exch2_pi(2,4,7)=1
605     exch2_pj(1,4,7)=-1
606     exch2_pj(2,4,7)=0
607     exch2_oi(4,7)=-510
608     exch2_oi_f(4,7)=-510
609     exch2_oj(4,7)=511
610     exch2_oj_f(4,7)=512
611     exch2_itlo_c(4,7)=0
612     exch2_ithi_c(4,7)=171
613     exch2_jtlo_c(4,7)=171
614     exch2_jthi_c(4,7)=171
615     exch2_opposingSend_record(4,7)=1
616     RETURN
617     END
618    
619     SUBROUTINE W2_E2SETUP_8
620     C Topology for tile 8
621     #include "W2_EXCH2_TOPOLOGY.h"
622     exch2_tnx(8)=170
623     exch2_tny(8)=170
624     exch2_tbasex(8)=170
625     exch2_tbasey(8)=340
626     exch2_txglobalo(8)=171
627     exch2_tyglobalo(8)=341
628     exch2_isWedge(8)=0
629     exch2_isNedge(8)=1
630     exch2_isEedge(8)=0
631     exch2_isSedge(8)=0
632     exch2_myFace(8)=1
633     exch2_mydnx(8)=510
634     exch2_mydny(8)=510
635     exch2_nNeighbours(8)=4
636    
637     exch2_neighbourId(1,8)=21
638     exch2_pi(1,1,8)=0
639     exch2_pi(2,1,8)=-1
640     exch2_pj(1,1,8)=1
641     exch2_pj(2,1,8)=0
642     exch2_oi(1,8)=511
643     exch2_oi_f(1,8)=512
644     exch2_oj(1,8)=510
645     exch2_oj_f(1,8)=510
646     exch2_itlo_c(1,8)=0
647     exch2_ithi_c(1,8)=0
648     exch2_jtlo_c(1,8)=0
649     exch2_jthi_c(1,8)=171
650     exch2_opposingSend_record(1,8)=3
651    
652     exch2_neighbourId(2,8)=5
653     exch2_pi(1,2,8)=1
654     exch2_pi(2,2,8)=0
655     exch2_pj(1,2,8)=0
656     exch2_pj(2,2,8)=1
657     exch2_oi(2,8)=0
658     exch2_oi_f(2,8)=0
659     exch2_oj(2,8)=0
660     exch2_oj_f(2,8)=0
661     exch2_itlo_c(2,8)=1
662     exch2_ithi_c(2,8)=170
663     exch2_jtlo_c(2,8)=171
664     exch2_jthi_c(2,8)=171
665     exch2_opposingSend_record(2,8)=1
666    
667     exch2_neighbourId(3,8)=9
668     exch2_pi(1,3,8)=1
669     exch2_pi(2,3,8)=0
670     exch2_pj(1,3,8)=0
671     exch2_pj(2,3,8)=1
672     exch2_oi(3,8)=0
673     exch2_oi_f(3,8)=0
674     exch2_oj(3,8)=0
675     exch2_oj_f(3,8)=0
676     exch2_itlo_c(3,8)=0
677     exch2_ithi_c(3,8)=0
678     exch2_jtlo_c(3,8)=0
679     exch2_jthi_c(3,8)=171
680     exch2_opposingSend_record(3,8)=4
681    
682     exch2_neighbourId(4,8)=7
683     exch2_pi(1,4,8)=1
684     exch2_pi(2,4,8)=0
685     exch2_pj(1,4,8)=0
686     exch2_pj(2,4,8)=1
687     exch2_oi(4,8)=0
688     exch2_oi_f(4,8)=0
689     exch2_oj(4,8)=0
690     exch2_oj_f(4,8)=0
691     exch2_itlo_c(4,8)=171
692     exch2_ithi_c(4,8)=171
693     exch2_jtlo_c(4,8)=0
694     exch2_jthi_c(4,8)=171
695     exch2_opposingSend_record(4,8)=3
696     RETURN
697     END
698    
699     SUBROUTINE W2_E2SETUP_9
700     C Topology for tile 9
701     #include "W2_EXCH2_TOPOLOGY.h"
702     exch2_tnx(9)=170
703     exch2_tny(9)=170
704     exch2_tbasex(9)=340
705     exch2_tbasey(9)=340
706     exch2_txglobalo(9)=341
707     exch2_tyglobalo(9)=341
708     exch2_isWedge(9)=0
709     exch2_isNedge(9)=1
710     exch2_isEedge(9)=1
711     exch2_isSedge(9)=0
712     exch2_myFace(9)=1
713     exch2_mydnx(9)=510
714     exch2_mydny(9)=510
715     exch2_nNeighbours(9)=4
716    
717     exch2_neighbourId(1,9)=19
718     exch2_pi(1,1,9)=0
719     exch2_pi(2,1,9)=-1
720     exch2_pj(1,1,9)=1
721     exch2_pj(2,1,9)=0
722     exch2_oi(1,9)=511
723     exch2_oi_f(1,9)=512
724     exch2_oj(1,9)=510
725     exch2_oj_f(1,9)=510
726     exch2_itlo_c(1,9)=0
727     exch2_ithi_c(1,9)=0
728     exch2_jtlo_c(1,9)=0
729     exch2_jthi_c(1,9)=171
730     exch2_opposingSend_record(1,9)=3
731    
732     exch2_neighbourId(2,9)=6
733     exch2_pi(1,2,9)=1
734     exch2_pi(2,2,9)=0
735     exch2_pj(1,2,9)=0
736     exch2_pj(2,2,9)=1
737     exch2_oi(2,9)=0
738     exch2_oi_f(2,9)=0
739     exch2_oj(2,9)=0
740     exch2_oj_f(2,9)=0
741     exch2_itlo_c(2,9)=1
742     exch2_ithi_c(2,9)=170
743     exch2_jtlo_c(2,9)=171
744     exch2_jthi_c(2,9)=171
745     exch2_opposingSend_record(2,9)=1
746    
747     exch2_neighbourId(3,9)=16
748     exch2_pi(1,3,9)=1
749     exch2_pi(2,3,9)=0
750     exch2_pj(1,3,9)=0
751     exch2_pj(2,3,9)=1
752     exch2_oi(3,9)=510
753     exch2_oi_f(3,9)=510
754     exch2_oj(3,9)=0
755     exch2_oj_f(3,9)=0
756     exch2_itlo_c(3,9)=0
757     exch2_ithi_c(3,9)=0
758     exch2_jtlo_c(3,9)=0
759     exch2_jthi_c(3,9)=171
760     exch2_opposingSend_record(3,9)=4
761    
762     exch2_neighbourId(4,9)=8
763     exch2_pi(1,4,9)=1
764     exch2_pi(2,4,9)=0
765     exch2_pj(1,4,9)=0
766     exch2_pj(2,4,9)=1
767     exch2_oi(4,9)=0
768     exch2_oi_f(4,9)=0
769     exch2_oj(4,9)=0
770     exch2_oj_f(4,9)=0
771     exch2_itlo_c(4,9)=171
772     exch2_ithi_c(4,9)=171
773     exch2_jtlo_c(4,9)=0
774     exch2_jthi_c(4,9)=171
775     exch2_opposingSend_record(4,9)=3
776     RETURN
777     END
778    
779     SUBROUTINE W2_E2SETUP_10
780     C Topology for tile 10
781     #include "W2_EXCH2_TOPOLOGY.h"
782     exch2_tnx(10)=170
783     exch2_tny(10)=170
784     exch2_tbasex(10)=0
785     exch2_tbasey(10)=0
786     exch2_txglobalo(10)=511
787     exch2_tyglobalo(10)=1
788     exch2_isWedge(10)=1
789     exch2_isNedge(10)=0
790     exch2_isEedge(10)=0
791     exch2_isSedge(10)=1
792     exch2_myFace(10)=2
793     exch2_mydnx(10)=510
794     exch2_mydny(10)=510
795     exch2_nNeighbours(10)=4
796    
797     exch2_neighbourId(1,10)=13
798     exch2_pi(1,1,10)=1
799     exch2_pi(2,1,10)=0
800     exch2_pj(1,1,10)=0
801     exch2_pj(2,1,10)=1
802     exch2_oi(1,10)=0
803     exch2_oi_f(1,10)=0
804     exch2_oj(1,10)=0
805     exch2_oj_f(1,10)=0
806     exch2_itlo_c(1,10)=0
807     exch2_ithi_c(1,10)=171
808     exch2_jtlo_c(1,10)=0
809     exch2_jthi_c(1,10)=0
810     exch2_opposingSend_record(1,10)=2
811    
812     exch2_neighbourId(2,10)=50
813     exch2_pi(1,2,10)=0
814     exch2_pi(2,2,10)=-1
815     exch2_pj(1,2,10)=1
816     exch2_pj(2,2,10)=0
817     exch2_oi(2,10)=511
818     exch2_oi_f(2,10)=512
819     exch2_oj(2,10)=-510
820     exch2_oj_f(2,10)=-510
821     exch2_itlo_c(2,10)=171
822     exch2_ithi_c(2,10)=171
823     exch2_jtlo_c(2,10)=0
824     exch2_jthi_c(2,10)=171
825     exch2_opposingSend_record(2,10)=3
826    
827     exch2_neighbourId(3,10)=11
828     exch2_pi(1,3,10)=1
829     exch2_pi(2,3,10)=0
830     exch2_pj(1,3,10)=0
831     exch2_pj(2,3,10)=1
832     exch2_oi(3,10)=0
833     exch2_oi_f(3,10)=0
834     exch2_oj(3,10)=0
835     exch2_oj_f(3,10)=0
836     exch2_itlo_c(3,10)=0
837     exch2_ithi_c(3,10)=0
838     exch2_jtlo_c(3,10)=0
839     exch2_jthi_c(3,10)=171
840     exch2_opposingSend_record(3,10)=4
841    
842     exch2_neighbourId(4,10)=3
843     exch2_pi(1,4,10)=1
844     exch2_pi(2,4,10)=0
845     exch2_pj(1,4,10)=0
846     exch2_pj(2,4,10)=1
847     exch2_oi(4,10)=-510
848     exch2_oi_f(4,10)=-510
849     exch2_oj(4,10)=0
850     exch2_oj_f(4,10)=0
851     exch2_itlo_c(4,10)=171
852     exch2_ithi_c(4,10)=171
853     exch2_jtlo_c(4,10)=0
854     exch2_jthi_c(4,10)=171
855     exch2_opposingSend_record(4,10)=3
856     RETURN
857     END
858    
859     SUBROUTINE W2_E2SETUP_11
860     C Topology for tile 11
861     #include "W2_EXCH2_TOPOLOGY.h"
862     exch2_tnx(11)=170
863     exch2_tny(11)=170
864     exch2_tbasex(11)=170
865     exch2_tbasey(11)=0
866     exch2_txglobalo(11)=681
867     exch2_tyglobalo(11)=1
868     exch2_isWedge(11)=0
869     exch2_isNedge(11)=0
870     exch2_isEedge(11)=0
871     exch2_isSedge(11)=1
872     exch2_myFace(11)=2
873     exch2_mydnx(11)=510
874     exch2_mydny(11)=510
875     exch2_nNeighbours(11)=4
876    
877     exch2_neighbourId(1,11)=14
878     exch2_pi(1,1,11)=1
879     exch2_pi(2,1,11)=0
880     exch2_pj(1,1,11)=0
881     exch2_pj(2,1,11)=1
882     exch2_oi(1,11)=0
883     exch2_oi_f(1,11)=0
884     exch2_oj(1,11)=0
885     exch2_oj_f(1,11)=0
886     exch2_itlo_c(1,11)=0
887     exch2_ithi_c(1,11)=171
888     exch2_jtlo_c(1,11)=0
889     exch2_jthi_c(1,11)=0
890     exch2_opposingSend_record(1,11)=2
891    
892     exch2_neighbourId(2,11)=47
893     exch2_pi(1,2,11)=0
894     exch2_pi(2,2,11)=-1
895     exch2_pj(1,2,11)=1
896     exch2_pj(2,2,11)=0
897     exch2_oi(2,11)=511
898     exch2_oi_f(2,11)=512
899     exch2_oj(2,11)=-510
900     exch2_oj_f(2,11)=-510
901     exch2_itlo_c(2,11)=171
902     exch2_ithi_c(2,11)=171
903     exch2_jtlo_c(2,11)=0
904     exch2_jthi_c(2,11)=171
905     exch2_opposingSend_record(2,11)=3
906    
907     exch2_neighbourId(3,11)=12
908     exch2_pi(1,3,11)=1
909     exch2_pi(2,3,11)=0
910     exch2_pj(1,3,11)=0
911     exch2_pj(2,3,11)=1
912     exch2_oi(3,11)=0
913     exch2_oi_f(3,11)=0
914     exch2_oj(3,11)=0
915     exch2_oj_f(3,11)=0
916     exch2_itlo_c(3,11)=0
917     exch2_ithi_c(3,11)=0
918     exch2_jtlo_c(3,11)=0
919     exch2_jthi_c(3,11)=171
920     exch2_opposingSend_record(3,11)=4
921    
922     exch2_neighbourId(4,11)=10
923     exch2_pi(1,4,11)=1
924     exch2_pi(2,4,11)=0
925     exch2_pj(1,4,11)=0
926     exch2_pj(2,4,11)=1
927     exch2_oi(4,11)=0
928     exch2_oi_f(4,11)=0
929     exch2_oj(4,11)=0
930     exch2_oj_f(4,11)=0
931     exch2_itlo_c(4,11)=171
932     exch2_ithi_c(4,11)=171
933     exch2_jtlo_c(4,11)=0
934     exch2_jthi_c(4,11)=171
935     exch2_opposingSend_record(4,11)=3
936     RETURN
937     END
938    
939     SUBROUTINE W2_E2SETUP_12
940     C Topology for tile 12
941     #include "W2_EXCH2_TOPOLOGY.h"
942     exch2_tnx(12)=170
943     exch2_tny(12)=170
944     exch2_tbasex(12)=340
945     exch2_tbasey(12)=0
946     exch2_txglobalo(12)=851
947     exch2_tyglobalo(12)=1
948     exch2_isWedge(12)=0
949     exch2_isNedge(12)=0
950     exch2_isEedge(12)=1
951     exch2_isSedge(12)=1
952     exch2_myFace(12)=2
953     exch2_mydnx(12)=510
954     exch2_mydny(12)=510
955     exch2_nNeighbours(12)=4
956    
957     exch2_neighbourId(1,12)=15
958     exch2_pi(1,1,12)=1
959     exch2_pi(2,1,12)=0
960     exch2_pj(1,1,12)=0
961     exch2_pj(2,1,12)=1
962     exch2_oi(1,12)=0
963     exch2_oi_f(1,12)=0
964     exch2_oj(1,12)=0
965     exch2_oj_f(1,12)=0
966     exch2_itlo_c(1,12)=0
967     exch2_ithi_c(1,12)=171
968     exch2_jtlo_c(1,12)=0
969     exch2_jthi_c(1,12)=0
970     exch2_opposingSend_record(1,12)=2
971    
972     exch2_neighbourId(2,12)=44
973     exch2_pi(1,2,12)=0
974     exch2_pi(2,2,12)=-1
975     exch2_pj(1,2,12)=1
976     exch2_pj(2,2,12)=0
977     exch2_oi(2,12)=511
978     exch2_oi_f(2,12)=512
979     exch2_oj(2,12)=-510
980     exch2_oj_f(2,12)=-510
981     exch2_itlo_c(2,12)=171
982     exch2_ithi_c(2,12)=171
983     exch2_jtlo_c(2,12)=0
984     exch2_jthi_c(2,12)=171
985     exch2_opposingSend_record(2,12)=3
986    
987     exch2_neighbourId(3,12)=27
988     exch2_pi(1,3,12)=0
989     exch2_pi(2,3,12)=1
990     exch2_pj(1,3,12)=-1
991     exch2_pj(2,3,12)=0
992     exch2_oi(3,12)=510
993     exch2_oi_f(3,12)=510
994     exch2_oj(3,12)=511
995     exch2_oj_f(3,12)=512
996     exch2_itlo_c(3,12)=0
997     exch2_ithi_c(3,12)=171
998     exch2_jtlo_c(3,12)=0
999     exch2_jthi_c(3,12)=0
1000     exch2_opposingSend_record(3,12)=2
1001    
1002     exch2_neighbourId(4,12)=11
1003     exch2_pi(1,4,12)=1
1004     exch2_pi(2,4,12)=0
1005     exch2_pj(1,4,12)=0
1006     exch2_pj(2,4,12)=1
1007     exch2_oi(4,12)=0
1008     exch2_oi_f(4,12)=0
1009     exch2_oj(4,12)=0
1010     exch2_oj_f(4,12)=0
1011     exch2_itlo_c(4,12)=171
1012     exch2_ithi_c(4,12)=171
1013     exch2_jtlo_c(4,12)=0
1014     exch2_jthi_c(4,12)=171
1015     exch2_opposingSend_record(4,12)=3
1016     RETURN
1017     END
1018    
1019     SUBROUTINE W2_E2SETUP_13
1020     C Topology for tile 13
1021     #include "W2_EXCH2_TOPOLOGY.h"
1022     exch2_tnx(13)=170
1023     exch2_tny(13)=170
1024     exch2_tbasex(13)=0
1025     exch2_tbasey(13)=170
1026     exch2_txglobalo(13)=511
1027     exch2_tyglobalo(13)=171
1028     exch2_isWedge(13)=1
1029     exch2_isNedge(13)=0
1030     exch2_isEedge(13)=0
1031     exch2_isSedge(13)=0
1032     exch2_myFace(13)=2
1033     exch2_mydnx(13)=510
1034     exch2_mydny(13)=510
1035     exch2_nNeighbours(13)=4
1036    
1037     exch2_neighbourId(1,13)=16
1038     exch2_pi(1,1,13)=1
1039     exch2_pi(2,1,13)=0
1040     exch2_pj(1,1,13)=0
1041     exch2_pj(2,1,13)=1
1042     exch2_oi(1,13)=0
1043     exch2_oi_f(1,13)=0
1044     exch2_oj(1,13)=0
1045     exch2_oj_f(1,13)=0
1046     exch2_itlo_c(1,13)=0
1047     exch2_ithi_c(1,13)=171
1048     exch2_jtlo_c(1,13)=0
1049     exch2_jthi_c(1,13)=0
1050     exch2_opposingSend_record(1,13)=2
1051    
1052     exch2_neighbourId(2,13)=10
1053     exch2_pi(1,2,13)=1
1054     exch2_pi(2,2,13)=0
1055     exch2_pj(1,2,13)=0
1056     exch2_pj(2,2,13)=1
1057     exch2_oi(2,13)=0
1058     exch2_oi_f(2,13)=0
1059     exch2_oj(2,13)=0
1060     exch2_oj_f(2,13)=0
1061     exch2_itlo_c(2,13)=1
1062     exch2_ithi_c(2,13)=170
1063     exch2_jtlo_c(2,13)=171
1064     exch2_jthi_c(2,13)=171
1065     exch2_opposingSend_record(2,13)=1
1066    
1067     exch2_neighbourId(3,13)=14
1068     exch2_pi(1,3,13)=1
1069     exch2_pi(2,3,13)=0
1070     exch2_pj(1,3,13)=0
1071     exch2_pj(2,3,13)=1
1072     exch2_oi(3,13)=0
1073     exch2_oi_f(3,13)=0
1074     exch2_oj(3,13)=0
1075     exch2_oj_f(3,13)=0
1076     exch2_itlo_c(3,13)=0
1077     exch2_ithi_c(3,13)=0
1078     exch2_jtlo_c(3,13)=0
1079     exch2_jthi_c(3,13)=171
1080     exch2_opposingSend_record(3,13)=4
1081    
1082     exch2_neighbourId(4,13)=6
1083     exch2_pi(1,4,13)=1
1084     exch2_pi(2,4,13)=0
1085     exch2_pj(1,4,13)=0
1086     exch2_pj(2,4,13)=1
1087     exch2_oi(4,13)=-510
1088     exch2_oi_f(4,13)=-510
1089     exch2_oj(4,13)=0
1090     exch2_oj_f(4,13)=0
1091     exch2_itlo_c(4,13)=171
1092     exch2_ithi_c(4,13)=171
1093     exch2_jtlo_c(4,13)=0
1094     exch2_jthi_c(4,13)=171
1095     exch2_opposingSend_record(4,13)=3
1096     RETURN
1097     END
1098    
1099     SUBROUTINE W2_E2SETUP_14
1100     C Topology for tile 14
1101     #include "W2_EXCH2_TOPOLOGY.h"
1102     exch2_tnx(14)=170
1103     exch2_tny(14)=170
1104     exch2_tbasex(14)=170
1105     exch2_tbasey(14)=170
1106     exch2_txglobalo(14)=681
1107     exch2_tyglobalo(14)=171
1108     exch2_isWedge(14)=0
1109     exch2_isNedge(14)=0
1110     exch2_isEedge(14)=0
1111     exch2_isSedge(14)=0
1112     exch2_myFace(14)=2
1113     exch2_mydnx(14)=510
1114     exch2_mydny(14)=510
1115     exch2_nNeighbours(14)=4
1116    
1117     exch2_neighbourId(1,14)=17
1118     exch2_pi(1,1,14)=1
1119     exch2_pi(2,1,14)=0
1120     exch2_pj(1,1,14)=0
1121     exch2_pj(2,1,14)=1
1122     exch2_oi(1,14)=0
1123     exch2_oi_f(1,14)=0
1124     exch2_oj(1,14)=0
1125     exch2_oj_f(1,14)=0
1126     exch2_itlo_c(1,14)=0
1127     exch2_ithi_c(1,14)=171
1128     exch2_jtlo_c(1,14)=0
1129     exch2_jthi_c(1,14)=0
1130     exch2_opposingSend_record(1,14)=1
1131    
1132     exch2_neighbourId(2,14)=11
1133     exch2_pi(1,2,14)=1
1134     exch2_pi(2,2,14)=0
1135     exch2_pj(1,2,14)=0
1136     exch2_pj(2,2,14)=1
1137     exch2_oi(2,14)=0
1138     exch2_oi_f(2,14)=0
1139     exch2_oj(2,14)=0
1140     exch2_oj_f(2,14)=0
1141     exch2_itlo_c(2,14)=1
1142     exch2_ithi_c(2,14)=170
1143     exch2_jtlo_c(2,14)=171
1144     exch2_jthi_c(2,14)=171
1145     exch2_opposingSend_record(2,14)=1
1146    
1147     exch2_neighbourId(3,14)=15
1148     exch2_pi(1,3,14)=1
1149     exch2_pi(2,3,14)=0
1150     exch2_pj(1,3,14)=0
1151     exch2_pj(2,3,14)=1
1152     exch2_oi(3,14)=0
1153     exch2_oi_f(3,14)=0
1154     exch2_oj(3,14)=0
1155     exch2_oj_f(3,14)=0
1156     exch2_itlo_c(3,14)=0
1157     exch2_ithi_c(3,14)=0
1158     exch2_jtlo_c(3,14)=0
1159     exch2_jthi_c(3,14)=171
1160     exch2_opposingSend_record(3,14)=4
1161    
1162     exch2_neighbourId(4,14)=13
1163     exch2_pi(1,4,14)=1
1164     exch2_pi(2,4,14)=0
1165     exch2_pj(1,4,14)=0
1166     exch2_pj(2,4,14)=1
1167     exch2_oi(4,14)=0
1168     exch2_oi_f(4,14)=0
1169     exch2_oj(4,14)=0
1170     exch2_oj_f(4,14)=0
1171     exch2_itlo_c(4,14)=171
1172     exch2_ithi_c(4,14)=171
1173     exch2_jtlo_c(4,14)=0
1174     exch2_jthi_c(4,14)=171
1175     exch2_opposingSend_record(4,14)=3
1176     RETURN
1177     END
1178    
1179     SUBROUTINE W2_E2SETUP_15
1180     C Topology for tile 15
1181     #include "W2_EXCH2_TOPOLOGY.h"
1182     exch2_tnx(15)=170
1183     exch2_tny(15)=170
1184     exch2_tbasex(15)=340
1185     exch2_tbasey(15)=170
1186     exch2_txglobalo(15)=851
1187     exch2_tyglobalo(15)=171
1188     exch2_isWedge(15)=0
1189     exch2_isNedge(15)=0
1190     exch2_isEedge(15)=1
1191     exch2_isSedge(15)=0
1192     exch2_myFace(15)=2
1193     exch2_mydnx(15)=510
1194     exch2_mydny(15)=510
1195     exch2_nNeighbours(15)=4
1196    
1197     exch2_neighbourId(1,15)=18
1198     exch2_pi(1,1,15)=1
1199     exch2_pi(2,1,15)=0
1200     exch2_pj(1,1,15)=0
1201     exch2_pj(2,1,15)=1
1202     exch2_oi(1,15)=0
1203     exch2_oi_f(1,15)=0
1204     exch2_oj(1,15)=0
1205     exch2_oj_f(1,15)=0
1206     exch2_itlo_c(1,15)=0
1207     exch2_ithi_c(1,15)=171
1208     exch2_jtlo_c(1,15)=0
1209     exch2_jthi_c(1,15)=0
1210     exch2_opposingSend_record(1,15)=2
1211    
1212     exch2_neighbourId(2,15)=12
1213     exch2_pi(1,2,15)=1
1214     exch2_pi(2,2,15)=0
1215     exch2_pj(1,2,15)=0
1216     exch2_pj(2,2,15)=1
1217     exch2_oi(2,15)=0
1218     exch2_oi_f(2,15)=0
1219     exch2_oj(2,15)=0
1220     exch2_oj_f(2,15)=0
1221     exch2_itlo_c(2,15)=1
1222     exch2_ithi_c(2,15)=170
1223     exch2_jtlo_c(2,15)=171
1224     exch2_jthi_c(2,15)=171
1225     exch2_opposingSend_record(2,15)=1
1226    
1227     exch2_neighbourId(3,15)=26
1228     exch2_pi(1,3,15)=0
1229     exch2_pi(2,3,15)=1
1230     exch2_pj(1,3,15)=-1
1231     exch2_pj(2,3,15)=0
1232     exch2_oi(3,15)=510
1233     exch2_oi_f(3,15)=510
1234     exch2_oj(3,15)=511
1235     exch2_oj_f(3,15)=512
1236     exch2_itlo_c(3,15)=0
1237     exch2_ithi_c(3,15)=171
1238     exch2_jtlo_c(3,15)=0
1239     exch2_jthi_c(3,15)=0
1240     exch2_opposingSend_record(3,15)=2
1241    
1242     exch2_neighbourId(4,15)=14
1243     exch2_pi(1,4,15)=1
1244     exch2_pi(2,4,15)=0
1245     exch2_pj(1,4,15)=0
1246     exch2_pj(2,4,15)=1
1247     exch2_oi(4,15)=0
1248     exch2_oi_f(4,15)=0
1249     exch2_oj(4,15)=0
1250     exch2_oj_f(4,15)=0
1251     exch2_itlo_c(4,15)=171
1252     exch2_ithi_c(4,15)=171
1253     exch2_jtlo_c(4,15)=0
1254     exch2_jthi_c(4,15)=171
1255     exch2_opposingSend_record(4,15)=3
1256     RETURN
1257     END
1258    
1259     SUBROUTINE W2_E2SETUP_16
1260     C Topology for tile 16
1261     #include "W2_EXCH2_TOPOLOGY.h"
1262     exch2_tnx(16)=170
1263     exch2_tny(16)=170
1264     exch2_tbasex(16)=0
1265     exch2_tbasey(16)=340
1266     exch2_txglobalo(16)=511
1267     exch2_tyglobalo(16)=341
1268     exch2_isWedge(16)=1
1269     exch2_isNedge(16)=1
1270     exch2_isEedge(16)=0
1271     exch2_isSedge(16)=0
1272     exch2_myFace(16)=2
1273     exch2_mydnx(16)=510
1274     exch2_mydny(16)=510
1275     exch2_nNeighbours(16)=4
1276    
1277     exch2_neighbourId(1,16)=19
1278     exch2_pi(1,1,16)=1
1279     exch2_pi(2,1,16)=0
1280     exch2_pj(1,1,16)=0
1281     exch2_pj(2,1,16)=1
1282     exch2_oi(1,16)=0
1283     exch2_oi_f(1,16)=0
1284     exch2_oj(1,16)=510
1285     exch2_oj_f(1,16)=510
1286     exch2_itlo_c(1,16)=0
1287     exch2_ithi_c(1,16)=171
1288     exch2_jtlo_c(1,16)=0
1289     exch2_jthi_c(1,16)=0
1290     exch2_opposingSend_record(1,16)=2
1291    
1292     exch2_neighbourId(2,16)=13
1293     exch2_pi(1,2,16)=1
1294     exch2_pi(2,2,16)=0
1295     exch2_pj(1,2,16)=0
1296     exch2_pj(2,2,16)=1
1297     exch2_oi(2,16)=0
1298     exch2_oi_f(2,16)=0
1299     exch2_oj(2,16)=0
1300     exch2_oj_f(2,16)=0
1301     exch2_itlo_c(2,16)=1
1302     exch2_ithi_c(2,16)=170
1303     exch2_jtlo_c(2,16)=171
1304     exch2_jthi_c(2,16)=171
1305     exch2_opposingSend_record(2,16)=1
1306    
1307     exch2_neighbourId(3,16)=17
1308     exch2_pi(1,3,16)=1
1309     exch2_pi(2,3,16)=0
1310     exch2_pj(1,3,16)=0
1311     exch2_pj(2,3,16)=1
1312     exch2_oi(3,16)=0
1313     exch2_oi_f(3,16)=0
1314     exch2_oj(3,16)=0
1315     exch2_oj_f(3,16)=0
1316     exch2_itlo_c(3,16)=0
1317     exch2_ithi_c(3,16)=0
1318     exch2_jtlo_c(3,16)=0
1319     exch2_jthi_c(3,16)=171
1320     exch2_opposingSend_record(3,16)=3
1321    
1322     exch2_neighbourId(4,16)=9
1323     exch2_pi(1,4,16)=1
1324     exch2_pi(2,4,16)=0
1325     exch2_pj(1,4,16)=0
1326     exch2_pj(2,4,16)=1
1327     exch2_oi(4,16)=-510
1328     exch2_oi_f(4,16)=-510
1329     exch2_oj(4,16)=0
1330     exch2_oj_f(4,16)=0
1331     exch2_itlo_c(4,16)=171
1332     exch2_ithi_c(4,16)=171
1333     exch2_jtlo_c(4,16)=0
1334     exch2_jthi_c(4,16)=171
1335     exch2_opposingSend_record(4,16)=3
1336     RETURN
1337     END
1338    
1339     SUBROUTINE W2_E2SETUP_17
1340     C Topology for tile 17
1341     #include "W2_EXCH2_TOPOLOGY.h"
1342     exch2_tnx(17)=170
1343     exch2_tny(17)=170
1344     exch2_tbasex(17)=170
1345     exch2_tbasey(17)=340
1346     exch2_txglobalo(17)=681
1347     exch2_tyglobalo(17)=341
1348     exch2_isWedge(17)=0
1349     exch2_isNedge(17)=1
1350     exch2_isEedge(17)=0
1351     exch2_isSedge(17)=0
1352     exch2_myFace(17)=2
1353     exch2_mydnx(17)=510
1354     exch2_mydny(17)=510
1355     exch2_nNeighbours(17)=3
1356    
1357     exch2_neighbourId(1,17)=14
1358     exch2_pi(1,1,17)=1
1359     exch2_pi(2,1,17)=0
1360     exch2_pj(1,1,17)=0
1361     exch2_pj(2,1,17)=1
1362     exch2_oi(1,17)=0
1363     exch2_oi_f(1,17)=0
1364     exch2_oj(1,17)=0
1365     exch2_oj_f(1,17)=0
1366     exch2_itlo_c(1,17)=1
1367     exch2_ithi_c(1,17)=170
1368     exch2_jtlo_c(1,17)=171
1369     exch2_jthi_c(1,17)=171
1370     exch2_opposingSend_record(1,17)=1
1371    
1372     exch2_neighbourId(2,17)=18
1373     exch2_pi(1,2,17)=1
1374     exch2_pi(2,2,17)=0
1375     exch2_pj(1,2,17)=0
1376     exch2_pj(2,2,17)=1
1377     exch2_oi(2,17)=0
1378     exch2_oi_f(2,17)=0
1379     exch2_oj(2,17)=0
1380     exch2_oj_f(2,17)=0
1381     exch2_itlo_c(2,17)=0
1382     exch2_ithi_c(2,17)=0
1383     exch2_jtlo_c(2,17)=0
1384     exch2_jthi_c(2,17)=171
1385     exch2_opposingSend_record(2,17)=4
1386    
1387     exch2_neighbourId(3,17)=16
1388     exch2_pi(1,3,17)=1
1389     exch2_pi(2,3,17)=0
1390     exch2_pj(1,3,17)=0
1391     exch2_pj(2,3,17)=1
1392     exch2_oi(3,17)=0
1393     exch2_oi_f(3,17)=0
1394     exch2_oj(3,17)=0
1395     exch2_oj_f(3,17)=0
1396     exch2_itlo_c(3,17)=171
1397     exch2_ithi_c(3,17)=171
1398     exch2_jtlo_c(3,17)=0
1399     exch2_jthi_c(3,17)=171
1400     exch2_opposingSend_record(3,17)=3
1401     RETURN
1402     END
1403    
1404     SUBROUTINE W2_E2SETUP_18
1405     C Topology for tile 18
1406     #include "W2_EXCH2_TOPOLOGY.h"
1407     exch2_tnx(18)=170
1408     exch2_tny(18)=170
1409     exch2_tbasex(18)=340
1410     exch2_tbasey(18)=340
1411     exch2_txglobalo(18)=851
1412     exch2_tyglobalo(18)=341
1413     exch2_isWedge(18)=0
1414     exch2_isNedge(18)=1
1415     exch2_isEedge(18)=1
1416     exch2_isSedge(18)=0
1417     exch2_myFace(18)=2
1418     exch2_mydnx(18)=510
1419     exch2_mydny(18)=510
1420     exch2_nNeighbours(18)=4
1421    
1422     exch2_neighbourId(1,18)=20
1423     exch2_pi(1,1,18)=1
1424     exch2_pi(2,1,18)=0
1425     exch2_pj(1,1,18)=0
1426     exch2_pj(2,1,18)=1
1427     exch2_oi(1,18)=0
1428     exch2_oi_f(1,18)=0
1429     exch2_oj(1,18)=510
1430     exch2_oj_f(1,18)=510
1431     exch2_itlo_c(1,18)=0
1432     exch2_ithi_c(1,18)=171
1433     exch2_jtlo_c(1,18)=0
1434     exch2_jthi_c(1,18)=0
1435     exch2_opposingSend_record(1,18)=2
1436    
1437     exch2_neighbourId(2,18)=15
1438     exch2_pi(1,2,18)=1
1439     exch2_pi(2,2,18)=0
1440     exch2_pj(1,2,18)=0
1441     exch2_pj(2,2,18)=1
1442     exch2_oi(2,18)=0
1443     exch2_oi_f(2,18)=0
1444     exch2_oj(2,18)=0
1445     exch2_oj_f(2,18)=0
1446     exch2_itlo_c(2,18)=1
1447     exch2_ithi_c(2,18)=170
1448     exch2_jtlo_c(2,18)=171
1449     exch2_jthi_c(2,18)=171
1450     exch2_opposingSend_record(2,18)=1
1451    
1452     exch2_neighbourId(3,18)=25
1453     exch2_pi(1,3,18)=0
1454     exch2_pi(2,3,18)=1
1455     exch2_pj(1,3,18)=-1
1456     exch2_pj(2,3,18)=0
1457     exch2_oi(3,18)=510
1458     exch2_oi_f(3,18)=510
1459     exch2_oj(3,18)=511
1460     exch2_oj_f(3,18)=512
1461     exch2_itlo_c(3,18)=0
1462     exch2_ithi_c(3,18)=171
1463     exch2_jtlo_c(3,18)=0
1464     exch2_jthi_c(3,18)=0
1465     exch2_opposingSend_record(3,18)=2
1466    
1467     exch2_neighbourId(4,18)=17
1468     exch2_pi(1,4,18)=1
1469     exch2_pi(2,4,18)=0
1470     exch2_pj(1,4,18)=0
1471     exch2_pj(2,4,18)=1
1472     exch2_oi(4,18)=0
1473     exch2_oi_f(4,18)=0
1474     exch2_oj(4,18)=0
1475     exch2_oj_f(4,18)=0
1476     exch2_itlo_c(4,18)=171
1477     exch2_ithi_c(4,18)=171
1478     exch2_jtlo_c(4,18)=0
1479     exch2_jthi_c(4,18)=171
1480     exch2_opposingSend_record(4,18)=2
1481     RETURN
1482     END
1483    
1484     SUBROUTINE W2_E2SETUP_19
1485     C Topology for tile 19
1486     #include "W2_EXCH2_TOPOLOGY.h"
1487     exch2_tnx(19)=170
1488     exch2_tny(19)=170
1489     exch2_tbasex(19)=0
1490     exch2_tbasey(19)=0
1491     exch2_txglobalo(19)=1021
1492     exch2_tyglobalo(19)=1
1493     exch2_isWedge(19)=1
1494     exch2_isNedge(19)=0
1495     exch2_isEedge(19)=0
1496     exch2_isSedge(19)=1
1497     exch2_myFace(19)=3
1498     exch2_mydnx(19)=510
1499     exch2_mydny(19)=510
1500     exch2_nNeighbours(19)=3
1501    
1502     exch2_neighbourId(1,19)=21
1503     exch2_pi(1,1,19)=1
1504     exch2_pi(2,1,19)=0
1505     exch2_pj(1,1,19)=0
1506     exch2_pj(2,1,19)=1
1507     exch2_oi(1,19)=0
1508     exch2_oi_f(1,19)=0
1509     exch2_oj(1,19)=0
1510     exch2_oj_f(1,19)=0
1511     exch2_itlo_c(1,19)=0
1512     exch2_ithi_c(1,19)=171
1513     exch2_jtlo_c(1,19)=0
1514     exch2_jthi_c(1,19)=0
1515     exch2_opposingSend_record(1,19)=2
1516    
1517     exch2_neighbourId(2,19)=16
1518     exch2_pi(1,2,19)=1
1519     exch2_pi(2,2,19)=0
1520     exch2_pj(1,2,19)=0
1521     exch2_pj(2,2,19)=1
1522     exch2_oi(2,19)=0
1523     exch2_oi_f(2,19)=0
1524     exch2_oj(2,19)=-510
1525     exch2_oj_f(2,19)=-510
1526     exch2_itlo_c(2,19)=0
1527     exch2_ithi_c(2,19)=171
1528     exch2_jtlo_c(2,19)=171
1529     exch2_jthi_c(2,19)=171
1530     exch2_opposingSend_record(2,19)=1
1531    
1532     exch2_neighbourId(3,19)=9
1533     exch2_pi(1,3,19)=0
1534     exch2_pi(2,3,19)=1
1535     exch2_pj(1,3,19)=-1
1536     exch2_pj(2,3,19)=0
1537     exch2_oi(3,19)=-510
1538     exch2_oi_f(3,19)=-510
1539     exch2_oj(3,19)=511
1540     exch2_oj_f(3,19)=512
1541     exch2_itlo_c(3,19)=0
1542     exch2_ithi_c(3,19)=171
1543     exch2_jtlo_c(3,19)=171
1544     exch2_jthi_c(3,19)=171
1545     exch2_opposingSend_record(3,19)=1
1546     RETURN
1547     END
1548    
1549     SUBROUTINE W2_E2SETUP_20
1550     C Topology for tile 20
1551     #include "W2_EXCH2_TOPOLOGY.h"
1552     exch2_tnx(20)=170
1553     exch2_tny(20)=170
1554     exch2_tbasex(20)=340
1555     exch2_tbasey(20)=0
1556     exch2_txglobalo(20)=1361
1557     exch2_tyglobalo(20)=1
1558     exch2_isWedge(20)=0
1559     exch2_isNedge(20)=0
1560     exch2_isEedge(20)=1
1561     exch2_isSedge(20)=1
1562     exch2_myFace(20)=3
1563     exch2_mydnx(20)=510
1564     exch2_mydny(20)=510
1565     exch2_nNeighbours(20)=3
1566    
1567     exch2_neighbourId(1,20)=22
1568     exch2_pi(1,1,20)=1
1569     exch2_pi(2,1,20)=0
1570     exch2_pj(1,1,20)=0
1571     exch2_pj(2,1,20)=1
1572     exch2_oi(1,20)=0
1573     exch2_oi_f(1,20)=0
1574     exch2_oj(1,20)=0
1575     exch2_oj_f(1,20)=0
1576     exch2_itlo_c(1,20)=0
1577     exch2_ithi_c(1,20)=171
1578     exch2_jtlo_c(1,20)=0
1579     exch2_jthi_c(1,20)=0
1580     exch2_opposingSend_record(1,20)=1
1581    
1582     exch2_neighbourId(2,20)=18
1583     exch2_pi(1,2,20)=1
1584     exch2_pi(2,2,20)=0
1585     exch2_pj(1,2,20)=0
1586     exch2_pj(2,2,20)=1
1587     exch2_oi(2,20)=0
1588     exch2_oi_f(2,20)=0
1589     exch2_oj(2,20)=-510
1590     exch2_oj_f(2,20)=-510
1591     exch2_itlo_c(2,20)=0
1592     exch2_ithi_c(2,20)=171
1593     exch2_jtlo_c(2,20)=171
1594     exch2_jthi_c(2,20)=171
1595     exch2_opposingSend_record(2,20)=1
1596    
1597     exch2_neighbourId(3,20)=25
1598     exch2_pi(1,3,20)=1
1599     exch2_pi(2,3,20)=0
1600     exch2_pj(1,3,20)=0
1601     exch2_pj(2,3,20)=1
1602     exch2_oi(3,20)=510
1603     exch2_oi_f(3,20)=510
1604     exch2_oj(3,20)=0
1605     exch2_oj_f(3,20)=0
1606     exch2_itlo_c(3,20)=0
1607     exch2_ithi_c(3,20)=0
1608     exch2_jtlo_c(3,20)=0
1609     exch2_jthi_c(3,20)=171
1610     exch2_opposingSend_record(3,20)=4
1611     RETURN
1612     END
1613    
1614     SUBROUTINE W2_E2SETUP_21
1615     C Topology for tile 21
1616     #include "W2_EXCH2_TOPOLOGY.h"
1617     exch2_tnx(21)=170
1618     exch2_tny(21)=170
1619     exch2_tbasex(21)=0
1620     exch2_tbasey(21)=170
1621     exch2_txglobalo(21)=1021
1622     exch2_tyglobalo(21)=171
1623     exch2_isWedge(21)=1
1624     exch2_isNedge(21)=0
1625     exch2_isEedge(21)=0
1626     exch2_isSedge(21)=0
1627     exch2_myFace(21)=3
1628     exch2_mydnx(21)=510
1629     exch2_mydny(21)=510
1630     exch2_nNeighbours(21)=3
1631    
1632     exch2_neighbourId(1,21)=23
1633     exch2_pi(1,1,21)=1
1634     exch2_pi(2,1,21)=0
1635     exch2_pj(1,1,21)=0
1636     exch2_pj(2,1,21)=1
1637     exch2_oi(1,21)=0
1638     exch2_oi_f(1,21)=0
1639     exch2_oj(1,21)=0
1640     exch2_oj_f(1,21)=0
1641     exch2_itlo_c(1,21)=0
1642     exch2_ithi_c(1,21)=171
1643     exch2_jtlo_c(1,21)=0
1644     exch2_jthi_c(1,21)=0
1645     exch2_opposingSend_record(1,21)=2
1646    
1647     exch2_neighbourId(2,21)=19
1648     exch2_pi(1,2,21)=1
1649     exch2_pi(2,2,21)=0
1650     exch2_pj(1,2,21)=0
1651     exch2_pj(2,2,21)=1
1652     exch2_oi(2,21)=0
1653     exch2_oi_f(2,21)=0
1654     exch2_oj(2,21)=0
1655     exch2_oj_f(2,21)=0
1656     exch2_itlo_c(2,21)=1
1657     exch2_ithi_c(2,21)=170
1658     exch2_jtlo_c(2,21)=171
1659     exch2_jthi_c(2,21)=171
1660     exch2_opposingSend_record(2,21)=1
1661    
1662     exch2_neighbourId(3,21)=8
1663     exch2_pi(1,3,21)=0
1664     exch2_pi(2,3,21)=1
1665     exch2_pj(1,3,21)=-1
1666     exch2_pj(2,3,21)=0
1667     exch2_oi(3,21)=-510
1668     exch2_oi_f(3,21)=-510
1669     exch2_oj(3,21)=511
1670     exch2_oj_f(3,21)=512
1671     exch2_itlo_c(3,21)=0
1672     exch2_ithi_c(3,21)=171
1673     exch2_jtlo_c(3,21)=171
1674     exch2_jthi_c(3,21)=171
1675     exch2_opposingSend_record(3,21)=1
1676     RETURN
1677     END
1678    
1679     SUBROUTINE W2_E2SETUP_22
1680     C Topology for tile 22
1681     #include "W2_EXCH2_TOPOLOGY.h"
1682     exch2_tnx(22)=170
1683     exch2_tny(22)=170
1684     exch2_tbasex(22)=340
1685     exch2_tbasey(22)=170
1686     exch2_txglobalo(22)=1361
1687     exch2_tyglobalo(22)=171
1688     exch2_isWedge(22)=0
1689     exch2_isNedge(22)=0
1690     exch2_isEedge(22)=1
1691     exch2_isSedge(22)=0
1692     exch2_myFace(22)=3
1693     exch2_mydnx(22)=510
1694     exch2_mydny(22)=510
1695     exch2_nNeighbours(22)=2
1696    
1697     exch2_neighbourId(1,22)=20
1698     exch2_pi(1,1,22)=1
1699     exch2_pi(2,1,22)=0
1700     exch2_pj(1,1,22)=0
1701     exch2_pj(2,1,22)=1
1702     exch2_oi(1,22)=0
1703     exch2_oi_f(1,22)=0
1704     exch2_oj(1,22)=0
1705     exch2_oj_f(1,22)=0
1706     exch2_itlo_c(1,22)=1
1707     exch2_ithi_c(1,22)=170
1708     exch2_jtlo_c(1,22)=171
1709     exch2_jthi_c(1,22)=171
1710     exch2_opposingSend_record(1,22)=1
1711    
1712     exch2_neighbourId(2,22)=28
1713     exch2_pi(1,2,22)=1
1714     exch2_pi(2,2,22)=0
1715     exch2_pj(1,2,22)=0
1716     exch2_pj(2,2,22)=1
1717     exch2_oi(2,22)=510
1718     exch2_oi_f(2,22)=510
1719     exch2_oj(2,22)=0
1720     exch2_oj_f(2,22)=0
1721     exch2_itlo_c(2,22)=0
1722     exch2_ithi_c(2,22)=0
1723     exch2_jtlo_c(2,22)=0
1724     exch2_jthi_c(2,22)=171
1725     exch2_opposingSend_record(2,22)=4
1726     RETURN
1727     END
1728    
1729     SUBROUTINE W2_E2SETUP_23
1730     C Topology for tile 23
1731     #include "W2_EXCH2_TOPOLOGY.h"
1732     exch2_tnx(23)=170
1733     exch2_tny(23)=170
1734     exch2_tbasex(23)=0
1735     exch2_tbasey(23)=340
1736     exch2_txglobalo(23)=1021
1737     exch2_tyglobalo(23)=341
1738     exch2_isWedge(23)=1
1739     exch2_isNedge(23)=1
1740     exch2_isEedge(23)=0
1741     exch2_isSedge(23)=0
1742     exch2_myFace(23)=3
1743     exch2_mydnx(23)=510
1744     exch2_mydny(23)=510
1745     exch2_nNeighbours(23)=4
1746    
1747     exch2_neighbourId(1,23)=39
1748     exch2_pi(1,1,23)=0
1749     exch2_pi(2,1,23)=-1
1750     exch2_pj(1,1,23)=1
1751     exch2_pj(2,1,23)=0
1752     exch2_oi(1,23)=511
1753     exch2_oi_f(1,23)=512
1754     exch2_oj(1,23)=510
1755     exch2_oj_f(1,23)=510
1756     exch2_itlo_c(1,23)=0
1757     exch2_ithi_c(1,23)=0
1758     exch2_jtlo_c(1,23)=0
1759     exch2_jthi_c(1,23)=171
1760     exch2_opposingSend_record(1,23)=3
1761    
1762     exch2_neighbourId(2,23)=21
1763     exch2_pi(1,2,23)=1
1764     exch2_pi(2,2,23)=0
1765     exch2_pj(1,2,23)=0
1766     exch2_pj(2,2,23)=1
1767     exch2_oi(2,23)=0
1768     exch2_oi_f(2,23)=0
1769     exch2_oj(2,23)=0
1770     exch2_oj_f(2,23)=0
1771     exch2_itlo_c(2,23)=1
1772     exch2_ithi_c(2,23)=170
1773     exch2_jtlo_c(2,23)=171
1774     exch2_jthi_c(2,23)=171
1775     exch2_opposingSend_record(2,23)=1
1776    
1777     exch2_neighbourId(3,23)=24
1778     exch2_pi(1,3,23)=1
1779     exch2_pi(2,3,23)=0
1780     exch2_pj(1,3,23)=0
1781     exch2_pj(2,3,23)=1
1782     exch2_oi(3,23)=0
1783     exch2_oi_f(3,23)=0
1784     exch2_oj(3,23)=0
1785     exch2_oj_f(3,23)=0
1786     exch2_itlo_c(3,23)=0
1787     exch2_ithi_c(3,23)=0
1788     exch2_jtlo_c(3,23)=0
1789     exch2_jthi_c(3,23)=171
1790     exch2_opposingSend_record(3,23)=1
1791    
1792     exch2_neighbourId(4,23)=7
1793     exch2_pi(1,4,23)=0
1794     exch2_pi(2,4,23)=1
1795     exch2_pj(1,4,23)=-1
1796     exch2_pj(2,4,23)=0
1797     exch2_oi(4,23)=-510
1798     exch2_oi_f(4,23)=-510
1799     exch2_oj(4,23)=511
1800     exch2_oj_f(4,23)=512
1801     exch2_itlo_c(4,23)=0
1802     exch2_ithi_c(4,23)=171
1803     exch2_jtlo_c(4,23)=171
1804     exch2_jthi_c(4,23)=171
1805     exch2_opposingSend_record(4,23)=1
1806     RETURN
1807     END
1808    
1809     SUBROUTINE W2_E2SETUP_24
1810     C Topology for tile 24
1811     #include "W2_EXCH2_TOPOLOGY.h"
1812     exch2_tnx(24)=170
1813     exch2_tny(24)=170
1814     exch2_tbasex(24)=170
1815     exch2_tbasey(24)=340
1816     exch2_txglobalo(24)=1191
1817     exch2_tyglobalo(24)=341
1818     exch2_isWedge(24)=0
1819     exch2_isNedge(24)=1
1820     exch2_isEedge(24)=0
1821     exch2_isSedge(24)=0
1822     exch2_myFace(24)=3
1823     exch2_mydnx(24)=510
1824     exch2_mydny(24)=510
1825     exch2_nNeighbours(24)=1
1826    
1827     exch2_neighbourId(1,24)=23
1828     exch2_pi(1,1,24)=1
1829     exch2_pi(2,1,24)=0
1830     exch2_pj(1,1,24)=0
1831     exch2_pj(2,1,24)=1
1832     exch2_oi(1,24)=0
1833     exch2_oi_f(1,24)=0
1834     exch2_oj(1,24)=0
1835     exch2_oj_f(1,24)=0
1836     exch2_itlo_c(1,24)=171
1837     exch2_ithi_c(1,24)=171
1838     exch2_jtlo_c(1,24)=0
1839     exch2_jthi_c(1,24)=171
1840     exch2_opposingSend_record(1,24)=3
1841     RETURN
1842     END
1843    
1844     SUBROUTINE W2_E2SETUP_25
1845     C Topology for tile 25
1846     #include "W2_EXCH2_TOPOLOGY.h"
1847     exch2_tnx(25)=170
1848     exch2_tny(25)=170
1849     exch2_tbasex(25)=0
1850     exch2_tbasey(25)=0
1851     exch2_txglobalo(25)=1531
1852     exch2_tyglobalo(25)=1
1853     exch2_isWedge(25)=1
1854     exch2_isNedge(25)=0
1855     exch2_isEedge(25)=0
1856     exch2_isSedge(25)=1
1857     exch2_myFace(25)=4
1858     exch2_mydnx(25)=510
1859     exch2_mydny(25)=510
1860     exch2_nNeighbours(25)=4
1861    
1862     exch2_neighbourId(1,25)=28
1863     exch2_pi(1,1,25)=1
1864     exch2_pi(2,1,25)=0
1865     exch2_pj(1,1,25)=0
1866     exch2_pj(2,1,25)=1
1867     exch2_oi(1,25)=0
1868     exch2_oi_f(1,25)=0
1869     exch2_oj(1,25)=0
1870     exch2_oj_f(1,25)=0
1871     exch2_itlo_c(1,25)=0
1872     exch2_ithi_c(1,25)=171
1873     exch2_jtlo_c(1,25)=0
1874     exch2_jthi_c(1,25)=0
1875     exch2_opposingSend_record(1,25)=2
1876    
1877     exch2_neighbourId(2,25)=18
1878     exch2_pi(1,2,25)=0
1879     exch2_pi(2,2,25)=-1
1880     exch2_pj(1,2,25)=1
1881     exch2_pj(2,2,25)=0
1882     exch2_oi(2,25)=511
1883     exch2_oi_f(2,25)=512
1884     exch2_oj(2,25)=-510
1885     exch2_oj_f(2,25)=-510
1886     exch2_itlo_c(2,25)=171
1887     exch2_ithi_c(2,25)=171
1888     exch2_jtlo_c(2,25)=0
1889     exch2_jthi_c(2,25)=171
1890     exch2_opposingSend_record(2,25)=3
1891    
1892     exch2_neighbourId(3,25)=26
1893     exch2_pi(1,3,25)=1
1894     exch2_pi(2,3,25)=0
1895     exch2_pj(1,3,25)=0
1896     exch2_pj(2,3,25)=1
1897     exch2_oi(3,25)=0
1898     exch2_oi_f(3,25)=0
1899     exch2_oj(3,25)=0
1900     exch2_oj_f(3,25)=0
1901     exch2_itlo_c(3,25)=0
1902     exch2_ithi_c(3,25)=0
1903     exch2_jtlo_c(3,25)=0
1904     exch2_jthi_c(3,25)=171
1905     exch2_opposingSend_record(3,25)=4
1906    
1907     exch2_neighbourId(4,25)=20
1908     exch2_pi(1,4,25)=1
1909     exch2_pi(2,4,25)=0
1910     exch2_pj(1,4,25)=0
1911     exch2_pj(2,4,25)=1
1912     exch2_oi(4,25)=-510
1913     exch2_oi_f(4,25)=-510
1914     exch2_oj(4,25)=0
1915     exch2_oj_f(4,25)=0
1916     exch2_itlo_c(4,25)=171
1917     exch2_ithi_c(4,25)=171
1918     exch2_jtlo_c(4,25)=0
1919     exch2_jthi_c(4,25)=171
1920     exch2_opposingSend_record(4,25)=3
1921     RETURN
1922     END
1923    
1924     SUBROUTINE W2_E2SETUP_26
1925     C Topology for tile 26
1926     #include "W2_EXCH2_TOPOLOGY.h"
1927     exch2_tnx(26)=170
1928     exch2_tny(26)=170
1929     exch2_tbasex(26)=170
1930     exch2_tbasey(26)=0
1931     exch2_txglobalo(26)=1701
1932     exch2_tyglobalo(26)=1
1933     exch2_isWedge(26)=0
1934     exch2_isNedge(26)=0
1935     exch2_isEedge(26)=0
1936     exch2_isSedge(26)=1
1937     exch2_myFace(26)=4
1938     exch2_mydnx(26)=510
1939     exch2_mydny(26)=510
1940     exch2_nNeighbours(26)=4
1941    
1942     exch2_neighbourId(1,26)=29
1943     exch2_pi(1,1,26)=1
1944     exch2_pi(2,1,26)=0
1945     exch2_pj(1,1,26)=0
1946     exch2_pj(2,1,26)=1
1947     exch2_oi(1,26)=0
1948     exch2_oi_f(1,26)=0
1949     exch2_oj(1,26)=0
1950     exch2_oj_f(1,26)=0
1951     exch2_itlo_c(1,26)=0
1952     exch2_ithi_c(1,26)=171
1953     exch2_jtlo_c(1,26)=0
1954     exch2_jthi_c(1,26)=0
1955     exch2_opposingSend_record(1,26)=2
1956    
1957     exch2_neighbourId(2,26)=15
1958     exch2_pi(1,2,26)=0
1959     exch2_pi(2,2,26)=-1
1960     exch2_pj(1,2,26)=1
1961     exch2_pj(2,2,26)=0
1962     exch2_oi(2,26)=511
1963     exch2_oi_f(2,26)=512
1964     exch2_oj(2,26)=-510
1965     exch2_oj_f(2,26)=-510
1966     exch2_itlo_c(2,26)=171
1967     exch2_ithi_c(2,26)=171
1968     exch2_jtlo_c(2,26)=0
1969     exch2_jthi_c(2,26)=171
1970     exch2_opposingSend_record(2,26)=3
1971    
1972     exch2_neighbourId(3,26)=27
1973     exch2_pi(1,3,26)=1
1974     exch2_pi(2,3,26)=0
1975     exch2_pj(1,3,26)=0
1976     exch2_pj(2,3,26)=1
1977     exch2_oi(3,26)=0
1978     exch2_oi_f(3,26)=0
1979     exch2_oj(3,26)=0
1980     exch2_oj_f(3,26)=0
1981     exch2_itlo_c(3,26)=0
1982     exch2_ithi_c(3,26)=0
1983     exch2_jtlo_c(3,26)=0
1984     exch2_jthi_c(3,26)=171
1985     exch2_opposingSend_record(3,26)=4
1986    
1987     exch2_neighbourId(4,26)=25
1988     exch2_pi(1,4,26)=1
1989     exch2_pi(2,4,26)=0
1990     exch2_pj(1,4,26)=0
1991     exch2_pj(2,4,26)=1
1992     exch2_oi(4,26)=0
1993     exch2_oi_f(4,26)=0
1994     exch2_oj(4,26)=0
1995     exch2_oj_f(4,26)=0
1996     exch2_itlo_c(4,26)=171
1997     exch2_ithi_c(4,26)=171
1998     exch2_jtlo_c(4,26)=0
1999     exch2_jthi_c(4,26)=171
2000     exch2_opposingSend_record(4,26)=3
2001     RETURN
2002     END
2003    
2004     SUBROUTINE W2_E2SETUP_27
2005     C Topology for tile 27
2006     #include "W2_EXCH2_TOPOLOGY.h"
2007     exch2_tnx(27)=170
2008     exch2_tny(27)=170
2009     exch2_tbasex(27)=340
2010     exch2_tbasey(27)=0
2011     exch2_txglobalo(27)=1871
2012     exch2_tyglobalo(27)=1
2013     exch2_isWedge(27)=0
2014     exch2_isNedge(27)=0
2015     exch2_isEedge(27)=1
2016     exch2_isSedge(27)=1
2017     exch2_myFace(27)=4
2018     exch2_mydnx(27)=510
2019     exch2_mydny(27)=510
2020     exch2_nNeighbours(27)=4
2021    
2022     exch2_neighbourId(1,27)=30
2023     exch2_pi(1,1,27)=1
2024     exch2_pi(2,1,27)=0
2025     exch2_pj(1,1,27)=0
2026     exch2_pj(2,1,27)=1
2027     exch2_oi(1,27)=0
2028     exch2_oi_f(1,27)=0
2029     exch2_oj(1,27)=0
2030     exch2_oj_f(1,27)=0
2031     exch2_itlo_c(1,27)=0
2032     exch2_ithi_c(1,27)=171
2033     exch2_jtlo_c(1,27)=0
2034     exch2_jthi_c(1,27)=0
2035     exch2_opposingSend_record(1,27)=2
2036    
2037     exch2_neighbourId(2,27)=12
2038     exch2_pi(1,2,27)=0
2039     exch2_pi(2,2,27)=-1
2040     exch2_pj(1,2,27)=1
2041     exch2_pj(2,2,27)=0
2042     exch2_oi(2,27)=511
2043     exch2_oi_f(2,27)=512
2044     exch2_oj(2,27)=-510
2045     exch2_oj_f(2,27)=-510
2046     exch2_itlo_c(2,27)=171
2047     exch2_ithi_c(2,27)=171
2048     exch2_jtlo_c(2,27)=0
2049     exch2_jthi_c(2,27)=171
2050     exch2_opposingSend_record(2,27)=3
2051    
2052     exch2_neighbourId(3,27)=44
2053     exch2_pi(1,3,27)=0
2054     exch2_pi(2,3,27)=1
2055     exch2_pj(1,3,27)=-1
2056     exch2_pj(2,3,27)=0
2057     exch2_oi(3,27)=510
2058     exch2_oi_f(3,27)=510
2059     exch2_oj(3,27)=511
2060     exch2_oj_f(3,27)=512
2061     exch2_itlo_c(3,27)=0
2062     exch2_ithi_c(3,27)=171
2063     exch2_jtlo_c(3,27)=0
2064     exch2_jthi_c(3,27)=0
2065     exch2_opposingSend_record(3,27)=2
2066    
2067     exch2_neighbourId(4,27)=26
2068     exch2_pi(1,4,27)=1
2069     exch2_pi(2,4,27)=0
2070     exch2_pj(1,4,27)=0
2071     exch2_pj(2,4,27)=1
2072     exch2_oi(4,27)=0
2073     exch2_oi_f(4,27)=0
2074     exch2_oj(4,27)=0
2075     exch2_oj_f(4,27)=0
2076     exch2_itlo_c(4,27)=171
2077     exch2_ithi_c(4,27)=171
2078     exch2_jtlo_c(4,27)=0
2079     exch2_jthi_c(4,27)=171
2080     exch2_opposingSend_record(4,27)=3
2081     RETURN
2082     END
2083    
2084     SUBROUTINE W2_E2SETUP_28
2085     C Topology for tile 28
2086     #include "W2_EXCH2_TOPOLOGY.h"
2087     exch2_tnx(28)=170
2088     exch2_tny(28)=170
2089     exch2_tbasex(28)=0
2090     exch2_tbasey(28)=170
2091     exch2_txglobalo(28)=1531
2092     exch2_tyglobalo(28)=171
2093     exch2_isWedge(28)=1
2094     exch2_isNedge(28)=0
2095     exch2_isEedge(28)=0
2096     exch2_isSedge(28)=0
2097     exch2_myFace(28)=4
2098     exch2_mydnx(28)=510
2099     exch2_mydny(28)=510
2100     exch2_nNeighbours(28)=4
2101    
2102     exch2_neighbourId(1,28)=31
2103     exch2_pi(1,1,28)=1
2104     exch2_pi(2,1,28)=0
2105     exch2_pj(1,1,28)=0
2106     exch2_pj(2,1,28)=1
2107     exch2_oi(1,28)=0
2108     exch2_oi_f(1,28)=0
2109     exch2_oj(1,28)=0
2110     exch2_oj_f(1,28)=0
2111     exch2_itlo_c(1,28)=0
2112     exch2_ithi_c(1,28)=171
2113     exch2_jtlo_c(1,28)=0
2114     exch2_jthi_c(1,28)=0
2115     exch2_opposingSend_record(1,28)=2
2116    
2117     exch2_neighbourId(2,28)=25
2118     exch2_pi(1,2,28)=1
2119     exch2_pi(2,2,28)=0
2120     exch2_pj(1,2,28)=0
2121     exch2_pj(2,2,28)=1
2122     exch2_oi(2,28)=0
2123     exch2_oi_f(2,28)=0
2124     exch2_oj(2,28)=0
2125     exch2_oj_f(2,28)=0
2126     exch2_itlo_c(2,28)=1
2127     exch2_ithi_c(2,28)=170
2128     exch2_jtlo_c(2,28)=171
2129     exch2_jthi_c(2,28)=171
2130     exch2_opposingSend_record(2,28)=1
2131    
2132     exch2_neighbourId(3,28)=29
2133     exch2_pi(1,3,28)=1
2134     exch2_pi(2,3,28)=0
2135     exch2_pj(1,3,28)=0
2136     exch2_pj(2,3,28)=1
2137     exch2_oi(3,28)=0
2138     exch2_oi_f(3,28)=0
2139     exch2_oj(3,28)=0
2140     exch2_oj_f(3,28)=0
2141     exch2_itlo_c(3,28)=0
2142     exch2_ithi_c(3,28)=0
2143     exch2_jtlo_c(3,28)=0
2144     exch2_jthi_c(3,28)=171
2145     exch2_opposingSend_record(3,28)=4
2146    
2147     exch2_neighbourId(4,28)=22
2148     exch2_pi(1,4,28)=1
2149     exch2_pi(2,4,28)=0
2150     exch2_pj(1,4,28)=0
2151     exch2_pj(2,4,28)=1
2152     exch2_oi(4,28)=-510
2153     exch2_oi_f(4,28)=-510
2154     exch2_oj(4,28)=0
2155     exch2_oj_f(4,28)=0
2156     exch2_itlo_c(4,28)=171
2157     exch2_ithi_c(4,28)=171
2158     exch2_jtlo_c(4,28)=0
2159     exch2_jthi_c(4,28)=171
2160     exch2_opposingSend_record(4,28)=2
2161     RETURN
2162     END
2163    
2164     SUBROUTINE W2_E2SETUP_29
2165     C Topology for tile 29
2166     #include "W2_EXCH2_TOPOLOGY.h"
2167     exch2_tnx(29)=170
2168     exch2_tny(29)=170
2169     exch2_tbasex(29)=170
2170     exch2_tbasey(29)=170
2171     exch2_txglobalo(29)=1701
2172     exch2_tyglobalo(29)=171
2173     exch2_isWedge(29)=0
2174     exch2_isNedge(29)=0
2175     exch2_isEedge(29)=0
2176     exch2_isSedge(29)=0
2177     exch2_myFace(29)=4
2178     exch2_mydnx(29)=510
2179     exch2_mydny(29)=510
2180     exch2_nNeighbours(29)=4
2181    
2182     exch2_neighbourId(1,29)=32
2183     exch2_pi(1,1,29)=1
2184     exch2_pi(2,1,29)=0
2185     exch2_pj(1,1,29)=0
2186     exch2_pj(2,1,29)=1
2187     exch2_oi(1,29)=0
2188     exch2_oi_f(1,29)=0
2189     exch2_oj(1,29)=0
2190     exch2_oj_f(1,29)=0
2191     exch2_itlo_c(1,29)=0
2192     exch2_ithi_c(1,29)=171
2193     exch2_jtlo_c(1,29)=0
2194     exch2_jthi_c(1,29)=0
2195     exch2_opposingSend_record(1,29)=2
2196    
2197     exch2_neighbourId(2,29)=26
2198     exch2_pi(1,2,29)=1
2199     exch2_pi(2,2,29)=0
2200     exch2_pj(1,2,29)=0
2201     exch2_pj(2,2,29)=1
2202     exch2_oi(2,29)=0
2203     exch2_oi_f(2,29)=0
2204     exch2_oj(2,29)=0
2205     exch2_oj_f(2,29)=0
2206     exch2_itlo_c(2,29)=1
2207     exch2_ithi_c(2,29)=170
2208     exch2_jtlo_c(2,29)=171
2209     exch2_jthi_c(2,29)=171
2210     exch2_opposingSend_record(2,29)=1
2211    
2212     exch2_neighbourId(3,29)=30
2213     exch2_pi(1,3,29)=1
2214     exch2_pi(2,3,29)=0
2215     exch2_pj(1,3,29)=0
2216     exch2_pj(2,3,29)=1
2217     exch2_oi(3,29)=0
2218     exch2_oi_f(3,29)=0
2219     exch2_oj(3,29)=0
2220     exch2_oj_f(3,29)=0
2221     exch2_itlo_c(3,29)=0
2222     exch2_ithi_c(3,29)=0
2223     exch2_jtlo_c(3,29)=0
2224     exch2_jthi_c(3,29)=171
2225     exch2_opposingSend_record(3,29)=4
2226    
2227     exch2_neighbourId(4,29)=28
2228     exch2_pi(1,4,29)=1
2229     exch2_pi(2,4,29)=0
2230     exch2_pj(1,4,29)=0
2231     exch2_pj(2,4,29)=1
2232     exch2_oi(4,29)=0
2233     exch2_oi_f(4,29)=0
2234     exch2_oj(4,29)=0
2235     exch2_oj_f(4,29)=0
2236     exch2_itlo_c(4,29)=171
2237     exch2_ithi_c(4,29)=171
2238     exch2_jtlo_c(4,29)=0
2239     exch2_jthi_c(4,29)=171
2240     exch2_opposingSend_record(4,29)=3
2241     RETURN
2242     END
2243    
2244     SUBROUTINE W2_E2SETUP_30
2245     C Topology for tile 30
2246     #include "W2_EXCH2_TOPOLOGY.h"
2247     exch2_tnx(30)=170
2248     exch2_tny(30)=170
2249     exch2_tbasex(30)=340
2250     exch2_tbasey(30)=170
2251     exch2_txglobalo(30)=1871
2252     exch2_tyglobalo(30)=171
2253     exch2_isWedge(30)=0
2254     exch2_isNedge(30)=0
2255     exch2_isEedge(30)=1
2256     exch2_isSedge(30)=0
2257     exch2_myFace(30)=4
2258     exch2_mydnx(30)=510
2259     exch2_mydny(30)=510
2260     exch2_nNeighbours(30)=4
2261    
2262     exch2_neighbourId(1,30)=33
2263     exch2_pi(1,1,30)=1
2264     exch2_pi(2,1,30)=0
2265     exch2_pj(1,1,30)=0
2266     exch2_pj(2,1,30)=1
2267     exch2_oi(1,30)=0
2268     exch2_oi_f(1,30)=0
2269     exch2_oj(1,30)=0
2270     exch2_oj_f(1,30)=0
2271     exch2_itlo_c(1,30)=0
2272     exch2_ithi_c(1,30)=171
2273     exch2_jtlo_c(1,30)=0
2274     exch2_jthi_c(1,30)=0
2275     exch2_opposingSend_record(1,30)=2
2276    
2277     exch2_neighbourId(2,30)=27
2278     exch2_pi(1,2,30)=1
2279     exch2_pi(2,2,30)=0
2280     exch2_pj(1,2,30)=0
2281     exch2_pj(2,2,30)=1
2282     exch2_oi(2,30)=0
2283     exch2_oi_f(2,30)=0
2284     exch2_oj(2,30)=0
2285     exch2_oj_f(2,30)=0
2286     exch2_itlo_c(2,30)=1
2287     exch2_ithi_c(2,30)=170
2288     exch2_jtlo_c(2,30)=171
2289     exch2_jthi_c(2,30)=171
2290     exch2_opposingSend_record(2,30)=1
2291    
2292     exch2_neighbourId(3,30)=43
2293     exch2_pi(1,3,30)=0
2294     exch2_pi(2,3,30)=1
2295     exch2_pj(1,3,30)=-1
2296     exch2_pj(2,3,30)=0
2297     exch2_oi(3,30)=510
2298     exch2_oi_f(3,30)=510
2299     exch2_oj(3,30)=511
2300     exch2_oj_f(3,30)=512
2301     exch2_itlo_c(3,30)=0
2302     exch2_ithi_c(3,30)=171
2303     exch2_jtlo_c(3,30)=0
2304     exch2_jthi_c(3,30)=0
2305     exch2_opposingSend_record(3,30)=2
2306    
2307     exch2_neighbourId(4,30)=29
2308     exch2_pi(1,4,30)=1
2309     exch2_pi(2,4,30)=0
2310     exch2_pj(1,4,30)=0
2311     exch2_pj(2,4,30)=1
2312     exch2_oi(4,30)=0
2313     exch2_oi_f(4,30)=0
2314     exch2_oj(4,30)=0
2315     exch2_oj_f(4,30)=0
2316     exch2_itlo_c(4,30)=171
2317     exch2_ithi_c(4,30)=171
2318     exch2_jtlo_c(4,30)=0
2319     exch2_jthi_c(4,30)=171
2320     exch2_opposingSend_record(4,30)=3
2321     RETURN
2322     END
2323    
2324     SUBROUTINE W2_E2SETUP_31
2325     C Topology for tile 31
2326     #include "W2_EXCH2_TOPOLOGY.h"
2327     exch2_tnx(31)=170
2328     exch2_tny(31)=170
2329     exch2_tbasex(31)=0
2330     exch2_tbasey(31)=340
2331     exch2_txglobalo(31)=1531
2332     exch2_tyglobalo(31)=341
2333     exch2_isWedge(31)=1
2334     exch2_isNedge(31)=1
2335     exch2_isEedge(31)=0
2336     exch2_isSedge(31)=0
2337     exch2_myFace(31)=4
2338     exch2_mydnx(31)=510
2339     exch2_mydny(31)=510
2340     exch2_nNeighbours(31)=3
2341    
2342     exch2_neighbourId(1,31)=34
2343     exch2_pi(1,1,31)=1
2344     exch2_pi(2,1,31)=0
2345     exch2_pj(1,1,31)=0
2346     exch2_pj(2,1,31)=1
2347     exch2_oi(1,31)=0
2348     exch2_oi_f(1,31)=0
2349     exch2_oj(1,31)=510
2350     exch2_oj_f(1,31)=510
2351     exch2_itlo_c(1,31)=0
2352     exch2_ithi_c(1,31)=171
2353     exch2_jtlo_c(1,31)=0
2354     exch2_jthi_c(1,31)=0
2355     exch2_opposingSend_record(1,31)=1
2356    
2357     exch2_neighbourId(2,31)=28
2358     exch2_pi(1,2,31)=1
2359     exch2_pi(2,2,31)=0
2360     exch2_pj(1,2,31)=0
2361     exch2_pj(2,2,31)=1
2362     exch2_oi(2,31)=0
2363     exch2_oi_f(2,31)=0
2364     exch2_oj(2,31)=0
2365     exch2_oj_f(2,31)=0
2366     exch2_itlo_c(2,31)=1
2367     exch2_ithi_c(2,31)=170
2368     exch2_jtlo_c(2,31)=171
2369     exch2_jthi_c(2,31)=171
2370     exch2_opposingSend_record(2,31)=1
2371    
2372     exch2_neighbourId(3,31)=32
2373     exch2_pi(1,3,31)=1
2374     exch2_pi(2,3,31)=0
2375     exch2_pj(1,3,31)=0
2376     exch2_pj(2,3,31)=1
2377     exch2_oi(3,31)=0
2378     exch2_oi_f(3,31)=0
2379     exch2_oj(3,31)=0
2380     exch2_oj_f(3,31)=0
2381     exch2_itlo_c(3,31)=0
2382     exch2_ithi_c(3,31)=0
2383     exch2_jtlo_c(3,31)=0
2384     exch2_jthi_c(3,31)=171
2385     exch2_opposingSend_record(3,31)=4
2386     RETURN
2387     END
2388    
2389     SUBROUTINE W2_E2SETUP_32
2390     C Topology for tile 32
2391     #include "W2_EXCH2_TOPOLOGY.h"
2392     exch2_tnx(32)=170
2393     exch2_tny(32)=170
2394     exch2_tbasex(32)=170
2395     exch2_tbasey(32)=340
2396     exch2_txglobalo(32)=1701
2397     exch2_tyglobalo(32)=341
2398     exch2_isWedge(32)=0
2399     exch2_isNedge(32)=1
2400     exch2_isEedge(32)=0
2401     exch2_isSedge(32)=0
2402     exch2_myFace(32)=4
2403     exch2_mydnx(32)=510
2404     exch2_mydny(32)=510
2405     exch2_nNeighbours(32)=4
2406    
2407     exch2_neighbourId(1,32)=35
2408     exch2_pi(1,1,32)=1
2409     exch2_pi(2,1,32)=0
2410     exch2_pj(1,1,32)=0
2411     exch2_pj(2,1,32)=1
2412     exch2_oi(1,32)=0
2413     exch2_oi_f(1,32)=0
2414     exch2_oj(1,32)=510
2415     exch2_oj_f(1,32)=510
2416     exch2_itlo_c(1,32)=0
2417     exch2_ithi_c(1,32)=171
2418     exch2_jtlo_c(1,32)=0
2419     exch2_jthi_c(1,32)=0
2420     exch2_opposingSend_record(1,32)=2
2421    
2422     exch2_neighbourId(2,32)=29
2423     exch2_pi(1,2,32)=1
2424     exch2_pi(2,2,32)=0
2425     exch2_pj(1,2,32)=0
2426     exch2_pj(2,2,32)=1
2427     exch2_oi(2,32)=0
2428     exch2_oi_f(2,32)=0
2429     exch2_oj(2,32)=0
2430     exch2_oj_f(2,32)=0
2431     exch2_itlo_c(2,32)=1
2432     exch2_ithi_c(2,32)=170
2433     exch2_jtlo_c(2,32)=171
2434     exch2_jthi_c(2,32)=171
2435     exch2_opposingSend_record(2,32)=1
2436    
2437     exch2_neighbourId(3,32)=33
2438     exch2_pi(1,3,32)=1
2439     exch2_pi(2,3,32)=0
2440     exch2_pj(1,3,32)=0
2441     exch2_pj(2,3,32)=1
2442     exch2_oi(3,32)=0
2443     exch2_oi_f(3,32)=0
2444     exch2_oj(3,32)=0
2445     exch2_oj_f(3,32)=0
2446     exch2_itlo_c(3,32)=0
2447     exch2_ithi_c(3,32)=0
2448     exch2_jtlo_c(3,32)=0
2449     exch2_jthi_c(3,32)=171
2450     exch2_opposingSend_record(3,32)=4
2451    
2452     exch2_neighbourId(4,32)=31
2453     exch2_pi(1,4,32)=1
2454     exch2_pi(2,4,32)=0
2455     exch2_pj(1,4,32)=0
2456     exch2_pj(2,4,32)=1
2457     exch2_oi(4,32)=0
2458     exch2_oi_f(4,32)=0
2459     exch2_oj(4,32)=0
2460     exch2_oj_f(4,32)=0
2461     exch2_itlo_c(4,32)=171
2462     exch2_ithi_c(4,32)=171
2463     exch2_jtlo_c(4,32)=0
2464     exch2_jthi_c(4,32)=171
2465     exch2_opposingSend_record(4,32)=3
2466     RETURN
2467     END
2468    
2469     SUBROUTINE W2_E2SETUP_33
2470     C Topology for tile 33
2471     #include "W2_EXCH2_TOPOLOGY.h"
2472     exch2_tnx(33)=170
2473     exch2_tny(33)=170
2474     exch2_tbasex(33)=340
2475     exch2_tbasey(33)=340
2476     exch2_txglobalo(33)=1871
2477     exch2_tyglobalo(33)=341
2478     exch2_isWedge(33)=0
2479     exch2_isNedge(33)=1
2480     exch2_isEedge(33)=1
2481     exch2_isSedge(33)=0
2482     exch2_myFace(33)=4
2483     exch2_mydnx(33)=510
2484     exch2_mydny(33)=510
2485     exch2_nNeighbours(33)=4
2486    
2487     exch2_neighbourId(1,33)=36
2488     exch2_pi(1,1,33)=1
2489     exch2_pi(2,1,33)=0
2490     exch2_pj(1,1,33)=0
2491     exch2_pj(2,1,33)=1
2492     exch2_oi(1,33)=0
2493     exch2_oi_f(1,33)=0
2494     exch2_oj(1,33)=510
2495     exch2_oj_f(1,33)=510
2496     exch2_itlo_c(1,33)=0
2497     exch2_ithi_c(1,33)=171
2498     exch2_jtlo_c(1,33)=0
2499     exch2_jthi_c(1,33)=0
2500     exch2_opposingSend_record(1,33)=2
2501    
2502     exch2_neighbourId(2,33)=30
2503     exch2_pi(1,2,33)=1
2504     exch2_pi(2,2,33)=0
2505     exch2_pj(1,2,33)=0
2506     exch2_pj(2,2,33)=1
2507     exch2_oi(2,33)=0
2508     exch2_oi_f(2,33)=0
2509     exch2_oj(2,33)=0
2510     exch2_oj_f(2,33)=0
2511     exch2_itlo_c(2,33)=1
2512     exch2_ithi_c(2,33)=170
2513     exch2_jtlo_c(2,33)=171
2514     exch2_jthi_c(2,33)=171
2515     exch2_opposingSend_record(2,33)=1
2516    
2517     exch2_neighbourId(3,33)=42
2518     exch2_pi(1,3,33)=0
2519     exch2_pi(2,3,33)=1
2520     exch2_pj(1,3,33)=-1
2521     exch2_pj(2,3,33)=0
2522     exch2_oi(3,33)=510
2523     exch2_oi_f(3,33)=510
2524     exch2_oj(3,33)=511
2525     exch2_oj_f(3,33)=512
2526     exch2_itlo_c(3,33)=0
2527     exch2_ithi_c(3,33)=171
2528     exch2_jtlo_c(3,33)=0
2529     exch2_jthi_c(3,33)=0
2530     exch2_opposingSend_record(3,33)=2
2531    
2532     exch2_neighbourId(4,33)=32
2533     exch2_pi(1,4,33)=1
2534     exch2_pi(2,4,33)=0
2535     exch2_pj(1,4,33)=0
2536     exch2_pj(2,4,33)=1
2537     exch2_oi(4,33)=0
2538     exch2_oi_f(4,33)=0
2539     exch2_oj(4,33)=0
2540     exch2_oj_f(4,33)=0
2541     exch2_itlo_c(4,33)=171
2542     exch2_ithi_c(4,33)=171
2543     exch2_jtlo_c(4,33)=0
2544     exch2_jthi_c(4,33)=171
2545     exch2_opposingSend_record(4,33)=3
2546     RETURN
2547     END
2548    
2549     SUBROUTINE W2_E2SETUP_34
2550     C Topology for tile 34
2551     #include "W2_EXCH2_TOPOLOGY.h"
2552     exch2_tnx(34)=170
2553     exch2_tny(34)=170
2554     exch2_tbasex(34)=0
2555     exch2_tbasey(34)=0
2556     exch2_txglobalo(34)=2041
2557     exch2_tyglobalo(34)=1
2558     exch2_isWedge(34)=1
2559     exch2_isNedge(34)=0
2560     exch2_isEedge(34)=0
2561     exch2_isSedge(34)=1
2562     exch2_myFace(34)=5
2563     exch2_mydnx(34)=510
2564     exch2_mydny(34)=510
2565     exch2_nNeighbours(34)=2
2566    
2567     exch2_neighbourId(1,34)=31
2568     exch2_pi(1,1,34)=1
2569     exch2_pi(2,1,34)=0
2570     exch2_pj(1,1,34)=0
2571     exch2_pj(2,1,34)=1
2572     exch2_oi(1,34)=0
2573     exch2_oi_f(1,34)=0
2574     exch2_oj(1,34)=-510
2575     exch2_oj_f(1,34)=-510
2576     exch2_itlo_c(1,34)=0
2577     exch2_ithi_c(1,34)=171
2578     exch2_jtlo_c(1,34)=171
2579     exch2_jthi_c(1,34)=171
2580     exch2_opposingSend_record(1,34)=1
2581    
2582     exch2_neighbourId(2,34)=35
2583     exch2_pi(1,2,34)=1
2584     exch2_pi(2,2,34)=0
2585     exch2_pj(1,2,34)=0
2586     exch2_pj(2,2,34)=1
2587     exch2_oi(2,34)=0
2588     exch2_oi_f(2,34)=0
2589     exch2_oj(2,34)=0
2590     exch2_oj_f(2,34)=0
2591     exch2_itlo_c(2,34)=0
2592     exch2_ithi_c(2,34)=0
2593     exch2_jtlo_c(2,34)=0
2594     exch2_jthi_c(2,34)=171
2595     exch2_opposingSend_record(2,34)=4
2596     RETURN
2597     END
2598    
2599     SUBROUTINE W2_E2SETUP_35
2600     C Topology for tile 35
2601     #include "W2_EXCH2_TOPOLOGY.h"
2602     exch2_tnx(35)=170
2603     exch2_tny(35)=170
2604     exch2_tbasex(35)=170
2605     exch2_tbasey(35)=0
2606     exch2_txglobalo(35)=2211
2607     exch2_tyglobalo(35)=1
2608     exch2_isWedge(35)=0
2609     exch2_isNedge(35)=0
2610     exch2_isEedge(35)=0
2611     exch2_isSedge(35)=1
2612     exch2_myFace(35)=5
2613     exch2_mydnx(35)=510
2614     exch2_mydny(35)=510
2615     exch2_nNeighbours(35)=4
2616    
2617     exch2_neighbourId(1,35)=37
2618     exch2_pi(1,1,35)=1
2619     exch2_pi(2,1,35)=0
2620     exch2_pj(1,1,35)=0
2621     exch2_pj(2,1,35)=1
2622     exch2_oi(1,35)=0
2623     exch2_oi_f(1,35)=0
2624     exch2_oj(1,35)=0
2625     exch2_oj_f(1,35)=0
2626     exch2_itlo_c(1,35)=0
2627     exch2_ithi_c(1,35)=171
2628     exch2_jtlo_c(1,35)=0
2629     exch2_jthi_c(1,35)=0
2630     exch2_opposingSend_record(1,35)=2
2631    
2632     exch2_neighbourId(2,35)=32
2633     exch2_pi(1,2,35)=1
2634     exch2_pi(2,2,35)=0
2635     exch2_pj(1,2,35)=0
2636     exch2_pj(2,2,35)=1
2637     exch2_oi(2,35)=0
2638     exch2_oi_f(2,35)=0
2639     exch2_oj(2,35)=-510
2640     exch2_oj_f(2,35)=-510
2641     exch2_itlo_c(2,35)=0
2642     exch2_ithi_c(2,35)=171
2643     exch2_jtlo_c(2,35)=171
2644     exch2_jthi_c(2,35)=171
2645     exch2_opposingSend_record(2,35)=1
2646    
2647     exch2_neighbourId(3,35)=36
2648     exch2_pi(1,3,35)=1
2649     exch2_pi(2,3,35)=0
2650     exch2_pj(1,3,35)=0
2651     exch2_pj(2,3,35)=1
2652     exch2_oi(3,35)=0
2653     exch2_oi_f(3,35)=0
2654     exch2_oj(3,35)=0
2655     exch2_oj_f(3,35)=0
2656     exch2_itlo_c(3,35)=0
2657     exch2_ithi_c(3,35)=0
2658     exch2_jtlo_c(3,35)=0
2659     exch2_jthi_c(3,35)=171
2660     exch2_opposingSend_record(3,35)=4
2661    
2662     exch2_neighbourId(4,35)=34
2663     exch2_pi(1,4,35)=1
2664     exch2_pi(2,4,35)=0
2665     exch2_pj(1,4,35)=0
2666     exch2_pj(2,4,35)=1
2667     exch2_oi(4,35)=0
2668     exch2_oi_f(4,35)=0
2669     exch2_oj(4,35)=0
2670     exch2_oj_f(4,35)=0
2671     exch2_itlo_c(4,35)=171
2672     exch2_ithi_c(4,35)=171
2673     exch2_jtlo_c(4,35)=0
2674     exch2_jthi_c(4,35)=171
2675     exch2_opposingSend_record(4,35)=2
2676     RETURN
2677     END
2678    
2679     SUBROUTINE W2_E2SETUP_36
2680     C Topology for tile 36
2681     #include "W2_EXCH2_TOPOLOGY.h"
2682     exch2_tnx(36)=170
2683     exch2_tny(36)=170
2684     exch2_tbasex(36)=340
2685     exch2_tbasey(36)=0
2686     exch2_txglobalo(36)=2381
2687     exch2_tyglobalo(36)=1
2688     exch2_isWedge(36)=0
2689     exch2_isNedge(36)=0
2690     exch2_isEedge(36)=1
2691     exch2_isSedge(36)=1
2692     exch2_myFace(36)=5
2693     exch2_mydnx(36)=510
2694     exch2_mydny(36)=510
2695     exch2_nNeighbours(36)=4
2696    
2697     exch2_neighbourId(1,36)=38
2698     exch2_pi(1,1,36)=1
2699     exch2_pi(2,1,36)=0
2700     exch2_pj(1,1,36)=0
2701     exch2_pj(2,1,36)=1
2702     exch2_oi(1,36)=0
2703     exch2_oi_f(1,36)=0
2704     exch2_oj(1,36)=0
2705     exch2_oj_f(1,36)=0
2706     exch2_itlo_c(1,36)=0
2707     exch2_ithi_c(1,36)=171
2708     exch2_jtlo_c(1,36)=0
2709     exch2_jthi_c(1,36)=0
2710     exch2_opposingSend_record(1,36)=2
2711    
2712     exch2_neighbourId(2,36)=33
2713     exch2_pi(1,2,36)=1
2714     exch2_pi(2,2,36)=0
2715     exch2_pj(1,2,36)=0
2716     exch2_pj(2,2,36)=1
2717     exch2_oi(2,36)=0
2718     exch2_oi_f(2,36)=0
2719     exch2_oj(2,36)=-510
2720     exch2_oj_f(2,36)=-510
2721     exch2_itlo_c(2,36)=0
2722     exch2_ithi_c(2,36)=171
2723     exch2_jtlo_c(2,36)=171
2724     exch2_jthi_c(2,36)=171
2725     exch2_opposingSend_record(2,36)=1
2726    
2727     exch2_neighbourId(3,36)=42
2728     exch2_pi(1,3,36)=1
2729     exch2_pi(2,3,36)=0
2730     exch2_pj(1,3,36)=0
2731     exch2_pj(2,3,36)=1
2732     exch2_oi(3,36)=510
2733     exch2_oi_f(3,36)=510
2734     exch2_oj(3,36)=0
2735     exch2_oj_f(3,36)=0
2736     exch2_itlo_c(3,36)=0
2737     exch2_ithi_c(3,36)=0
2738     exch2_jtlo_c(3,36)=0
2739     exch2_jthi_c(3,36)=171
2740     exch2_opposingSend_record(3,36)=4
2741    
2742     exch2_neighbourId(4,36)=35
2743     exch2_pi(1,4,36)=1
2744     exch2_pi(2,4,36)=0
2745     exch2_pj(1,4,36)=0
2746     exch2_pj(2,4,36)=1
2747     exch2_oi(4,36)=0
2748     exch2_oi_f(4,36)=0
2749     exch2_oj(4,36)=0
2750     exch2_oj_f(4,36)=0
2751     exch2_itlo_c(4,36)=171
2752     exch2_ithi_c(4,36)=171
2753     exch2_jtlo_c(4,36)=0
2754     exch2_jthi_c(4,36)=171
2755     exch2_opposingSend_record(4,36)=3
2756     RETURN
2757     END
2758    
2759     SUBROUTINE W2_E2SETUP_37
2760     C Topology for tile 37
2761     #include "W2_EXCH2_TOPOLOGY.h"
2762     exch2_tnx(37)=170
2763     exch2_tny(37)=170
2764     exch2_tbasex(37)=170
2765     exch2_tbasey(37)=170
2766     exch2_txglobalo(37)=2211
2767     exch2_tyglobalo(37)=171
2768     exch2_isWedge(37)=0
2769     exch2_isNedge(37)=0
2770     exch2_isEedge(37)=0
2771     exch2_isSedge(37)=0
2772     exch2_myFace(37)=5
2773     exch2_mydnx(37)=510
2774     exch2_mydny(37)=510
2775     exch2_nNeighbours(37)=3
2776    
2777     exch2_neighbourId(1,37)=40
2778     exch2_pi(1,1,37)=1
2779     exch2_pi(2,1,37)=0
2780     exch2_pj(1,1,37)=0
2781     exch2_pj(2,1,37)=1
2782     exch2_oi(1,37)=0
2783     exch2_oi_f(1,37)=0
2784     exch2_oj(1,37)=0
2785     exch2_oj_f(1,37)=0
2786     exch2_itlo_c(1,37)=0
2787     exch2_ithi_c(1,37)=171
2788     exch2_jtlo_c(1,37)=0
2789     exch2_jthi_c(1,37)=0
2790     exch2_opposingSend_record(1,37)=2
2791    
2792     exch2_neighbourId(2,37)=35
2793     exch2_pi(1,2,37)=1
2794     exch2_pi(2,2,37)=0
2795     exch2_pj(1,2,37)=0
2796     exch2_pj(2,2,37)=1
2797     exch2_oi(2,37)=0
2798     exch2_oi_f(2,37)=0
2799     exch2_oj(2,37)=0
2800     exch2_oj_f(2,37)=0
2801     exch2_itlo_c(2,37)=1
2802     exch2_ithi_c(2,37)=170
2803     exch2_jtlo_c(2,37)=171
2804     exch2_jthi_c(2,37)=171
2805     exch2_opposingSend_record(2,37)=1
2806    
2807     exch2_neighbourId(3,37)=38
2808     exch2_pi(1,3,37)=1
2809     exch2_pi(2,3,37)=0
2810     exch2_pj(1,3,37)=0
2811     exch2_pj(2,3,37)=1
2812     exch2_oi(3,37)=0
2813     exch2_oi_f(3,37)=0
2814     exch2_oj(3,37)=0
2815     exch2_oj_f(3,37)=0
2816     exch2_itlo_c(3,37)=0
2817     exch2_ithi_c(3,37)=0
2818     exch2_jtlo_c(3,37)=0
2819     exch2_jthi_c(3,37)=171
2820     exch2_opposingSend_record(3,37)=4
2821     RETURN
2822     END
2823    
2824     SUBROUTINE W2_E2SETUP_38
2825     C Topology for tile 38
2826     #include "W2_EXCH2_TOPOLOGY.h"
2827     exch2_tnx(38)=170
2828     exch2_tny(38)=170
2829     exch2_tbasex(38)=340
2830     exch2_tbasey(38)=170
2831     exch2_txglobalo(38)=2381
2832     exch2_tyglobalo(38)=171
2833     exch2_isWedge(38)=0
2834     exch2_isNedge(38)=0
2835     exch2_isEedge(38)=1
2836     exch2_isSedge(38)=0
2837     exch2_myFace(38)=5
2838     exch2_mydnx(38)=510
2839     exch2_mydny(38)=510
2840     exch2_nNeighbours(38)=4
2841    
2842     exch2_neighbourId(1,38)=41
2843     exch2_pi(1,1,38)=1
2844     exch2_pi(2,1,38)=0
2845     exch2_pj(1,1,38)=0
2846     exch2_pj(2,1,38)=1
2847     exch2_oi(1,38)=0
2848     exch2_oi_f(1,38)=0
2849     exch2_oj(1,38)=0
2850     exch2_oj_f(1,38)=0
2851     exch2_itlo_c(1,38)=0
2852     exch2_ithi_c(1,38)=171
2853     exch2_jtlo_c(1,38)=0
2854     exch2_jthi_c(1,38)=0
2855     exch2_opposingSend_record(1,38)=2
2856    
2857     exch2_neighbourId(2,38)=36
2858     exch2_pi(1,2,38)=1
2859     exch2_pi(2,2,38)=0
2860     exch2_pj(1,2,38)=0
2861     exch2_pj(2,2,38)=1
2862     exch2_oi(2,38)=0
2863     exch2_oi_f(2,38)=0
2864     exch2_oj(2,38)=0
2865     exch2_oj_f(2,38)=0
2866     exch2_itlo_c(2,38)=1
2867     exch2_ithi_c(2,38)=170
2868     exch2_jtlo_c(2,38)=171
2869     exch2_jthi_c(2,38)=171
2870     exch2_opposingSend_record(2,38)=1
2871    
2872     exch2_neighbourId(3,38)=45
2873     exch2_pi(1,3,38)=1
2874     exch2_pi(2,3,38)=0
2875     exch2_pj(1,3,38)=0
2876     exch2_pj(2,3,38)=1
2877     exch2_oi(3,38)=510
2878     exch2_oi_f(3,38)=510
2879     exch2_oj(3,38)=0
2880     exch2_oj_f(3,38)=0
2881     exch2_itlo_c(3,38)=0
2882     exch2_ithi_c(3,38)=0
2883     exch2_jtlo_c(3,38)=0
2884     exch2_jthi_c(3,38)=171
2885     exch2_opposingSend_record(3,38)=4
2886    
2887     exch2_neighbourId(4,38)=37
2888     exch2_pi(1,4,38)=1
2889     exch2_pi(2,4,38)=0
2890     exch2_pj(1,4,38)=0
2891     exch2_pj(2,4,38)=1
2892     exch2_oi(4,38)=0
2893     exch2_oi_f(4,38)=0
2894     exch2_oj(4,38)=0
2895     exch2_oj_f(4,38)=0
2896     exch2_itlo_c(4,38)=171
2897     exch2_ithi_c(4,38)=171
2898     exch2_jtlo_c(4,38)=0
2899     exch2_jthi_c(4,38)=171
2900     exch2_opposingSend_record(4,38)=3
2901     RETURN
2902     END
2903    
2904     SUBROUTINE W2_E2SETUP_39
2905     C Topology for tile 39
2906     #include "W2_EXCH2_TOPOLOGY.h"
2907     exch2_tnx(39)=170
2908     exch2_tny(39)=170
2909     exch2_tbasex(39)=0
2910     exch2_tbasey(39)=340
2911     exch2_txglobalo(39)=2041
2912     exch2_tyglobalo(39)=341
2913     exch2_isWedge(39)=1
2914     exch2_isNedge(39)=1
2915     exch2_isEedge(39)=0
2916     exch2_isSedge(39)=0
2917     exch2_myFace(39)=5
2918     exch2_mydnx(39)=510
2919     exch2_mydny(39)=510
2920     exch2_nNeighbours(39)=3
2921    
2922     exch2_neighbourId(1,39)=7
2923     exch2_pi(1,1,39)=0
2924     exch2_pi(2,1,39)=-1
2925     exch2_pj(1,1,39)=1
2926     exch2_pj(2,1,39)=0
2927     exch2_oi(1,39)=511
2928     exch2_oi_f(1,39)=512
2929     exch2_oj(1,39)=510
2930     exch2_oj_f(1,39)=510
2931     exch2_itlo_c(1,39)=0
2932     exch2_ithi_c(1,39)=0
2933     exch2_jtlo_c(1,39)=0
2934     exch2_jthi_c(1,39)=171
2935     exch2_opposingSend_record(1,39)=4
2936    
2937     exch2_neighbourId(2,39)=40
2938     exch2_pi(1,2,39)=1
2939     exch2_pi(2,2,39)=0
2940     exch2_pj(1,2,39)=0
2941     exch2_pj(2,2,39)=1
2942     exch2_oi(2,39)=0
2943     exch2_oi_f(2,39)=0
2944     exch2_oj(2,39)=0
2945     exch2_oj_f(2,39)=0
2946     exch2_itlo_c(2,39)=0
2947     exch2_ithi_c(2,39)=0
2948     exch2_jtlo_c(2,39)=0
2949     exch2_jthi_c(2,39)=171
2950     exch2_opposingSend_record(2,39)=4
2951    
2952     exch2_neighbourId(3,39)=23
2953     exch2_pi(1,3,39)=0
2954     exch2_pi(2,3,39)=1
2955     exch2_pj(1,3,39)=-1
2956     exch2_pj(2,3,39)=0
2957     exch2_oi(3,39)=-510
2958     exch2_oi_f(3,39)=-510
2959     exch2_oj(3,39)=511
2960     exch2_oj_f(3,39)=512
2961     exch2_itlo_c(3,39)=0
2962     exch2_ithi_c(3,39)=171
2963     exch2_jtlo_c(3,39)=171
2964     exch2_jthi_c(3,39)=171
2965     exch2_opposingSend_record(3,39)=1
2966     RETURN
2967     END
2968    
2969     SUBROUTINE W2_E2SETUP_40
2970     C Topology for tile 40
2971     #include "W2_EXCH2_TOPOLOGY.h"
2972     exch2_tnx(40)=170
2973     exch2_tny(40)=170
2974     exch2_tbasex(40)=170
2975     exch2_tbasey(40)=340
2976     exch2_txglobalo(40)=2211
2977     exch2_tyglobalo(40)=341
2978     exch2_isWedge(40)=0
2979     exch2_isNedge(40)=1
2980     exch2_isEedge(40)=0
2981     exch2_isSedge(40)=0
2982     exch2_myFace(40)=5
2983     exch2_mydnx(40)=510
2984     exch2_mydny(40)=510
2985     exch2_nNeighbours(40)=4
2986    
2987     exch2_neighbourId(1,40)=4
2988     exch2_pi(1,1,40)=0
2989     exch2_pi(2,1,40)=-1
2990     exch2_pj(1,1,40)=1
2991     exch2_pj(2,1,40)=0
2992     exch2_oi(1,40)=511
2993     exch2_oi_f(1,40)=512
2994     exch2_oj(1,40)=510
2995     exch2_oj_f(1,40)=510
2996     exch2_itlo_c(1,40)=0
2997     exch2_ithi_c(1,40)=0
2998     exch2_jtlo_c(1,40)=0
2999     exch2_jthi_c(1,40)=171
3000     exch2_opposingSend_record(1,40)=4
3001    
3002     exch2_neighbourId(2,40)=37
3003     exch2_pi(1,2,40)=1
3004     exch2_pi(2,2,40)=0
3005     exch2_pj(1,2,40)=0
3006     exch2_pj(2,2,40)=1
3007     exch2_oi(2,40)=0
3008     exch2_oi_f(2,40)=0
3009     exch2_oj(2,40)=0
3010     exch2_oj_f(2,40)=0
3011     exch2_itlo_c(2,40)=1
3012     exch2_ithi_c(2,40)=170
3013     exch2_jtlo_c(2,40)=171
3014     exch2_jthi_c(2,40)=171
3015     exch2_opposingSend_record(2,40)=1
3016    
3017     exch2_neighbourId(3,40)=41
3018     exch2_pi(1,3,40)=1
3019     exch2_pi(2,3,40)=0
3020     exch2_pj(1,3,40)=0
3021     exch2_pj(2,3,40)=1
3022     exch2_oi(3,40)=0
3023     exch2_oi_f(3,40)=0
3024     exch2_oj(3,40)=0
3025     exch2_oj_f(3,40)=0
3026     exch2_itlo_c(3,40)=0
3027     exch2_ithi_c(3,40)=0
3028     exch2_jtlo_c(3,40)=0
3029     exch2_jthi_c(3,40)=171
3030     exch2_opposingSend_record(3,40)=4
3031    
3032     exch2_neighbourId(4,40)=39
3033     exch2_pi(1,4,40)=1
3034     exch2_pi(2,4,40)=0
3035     exch2_pj(1,4,40)=0
3036     exch2_pj(2,4,40)=1
3037     exch2_oi(4,40)=0
3038     exch2_oi_f(4,40)=0
3039     exch2_oj(4,40)=0
3040     exch2_oj_f(4,40)=0
3041     exch2_itlo_c(4,40)=171
3042     exch2_ithi_c(4,40)=171
3043     exch2_jtlo_c(4,40)=0
3044     exch2_jthi_c(4,40)=171
3045     exch2_opposingSend_record(4,40)=2
3046     RETURN
3047     END
3048    
3049     SUBROUTINE W2_E2SETUP_41
3050     C Topology for tile 41
3051     #include "W2_EXCH2_TOPOLOGY.h"
3052     exch2_tnx(41)=170
3053     exch2_tny(41)=170
3054     exch2_tbasex(41)=340
3055     exch2_tbasey(41)=340
3056     exch2_txglobalo(41)=2381
3057     exch2_tyglobalo(41)=341
3058     exch2_isWedge(41)=0
3059     exch2_isNedge(41)=1
3060     exch2_isEedge(41)=1
3061     exch2_isSedge(41)=0
3062     exch2_myFace(41)=5
3063     exch2_mydnx(41)=510
3064     exch2_mydny(41)=510
3065     exch2_nNeighbours(41)=4
3066    
3067     exch2_neighbourId(1,41)=1
3068     exch2_pi(1,1,41)=0
3069     exch2_pi(2,1,41)=-1
3070     exch2_pj(1,1,41)=1
3071     exch2_pj(2,1,41)=0
3072     exch2_oi(1,41)=511
3073     exch2_oi_f(1,41)=512
3074     exch2_oj(1,41)=510
3075     exch2_oj_f(1,41)=510
3076     exch2_itlo_c(1,41)=0
3077     exch2_ithi_c(1,41)=0
3078     exch2_jtlo_c(1,41)=0
3079     exch2_jthi_c(1,41)=171
3080     exch2_opposingSend_record(1,41)=4
3081    
3082     exch2_neighbourId(2,41)=38
3083     exch2_pi(1,2,41)=1
3084     exch2_pi(2,2,41)=0
3085     exch2_pj(1,2,41)=0
3086     exch2_pj(2,2,41)=1
3087     exch2_oi(2,41)=0
3088     exch2_oi_f(2,41)=0
3089     exch2_oj(2,41)=0
3090     exch2_oj_f(2,41)=0
3091     exch2_itlo_c(2,41)=1
3092     exch2_ithi_c(2,41)=170
3093     exch2_jtlo_c(2,41)=171
3094     exch2_jthi_c(2,41)=171
3095     exch2_opposingSend_record(2,41)=1
3096    
3097     exch2_neighbourId(3,41)=48
3098     exch2_pi(1,3,41)=1
3099     exch2_pi(2,3,41)=0
3100     exch2_pj(1,3,41)=0
3101     exch2_pj(2,3,41)=1
3102     exch2_oi(3,41)=510
3103     exch2_oi_f(3,41)=510
3104     exch2_oj(3,41)=0
3105     exch2_oj_f(3,41)=0
3106     exch2_itlo_c(3,41)=0
3107     exch2_ithi_c(3,41)=0
3108     exch2_jtlo_c(3,41)=0
3109     exch2_jthi_c(3,41)=171
3110     exch2_opposingSend_record(3,41)=4
3111    
3112     exch2_neighbourId(4,41)=40
3113     exch2_pi(1,4,41)=1
3114     exch2_pi(2,4,41)=0
3115     exch2_pj(1,4,41)=0
3116     exch2_pj(2,4,41)=1
3117     exch2_oi(4,41)=0
3118     exch2_oi_f(4,41)=0
3119     exch2_oj(4,41)=0
3120     exch2_oj_f(4,41)=0
3121     exch2_itlo_c(4,41)=171
3122     exch2_ithi_c(4,41)=171
3123     exch2_jtlo_c(4,41)=0
3124     exch2_jthi_c(4,41)=171
3125     exch2_opposingSend_record(4,41)=3
3126     RETURN
3127     END
3128    
3129     SUBROUTINE W2_E2SETUP_42
3130     C Topology for tile 42
3131     #include "W2_EXCH2_TOPOLOGY.h"
3132     exch2_tnx(42)=170
3133     exch2_tny(42)=170
3134     exch2_tbasex(42)=0
3135     exch2_tbasey(42)=0
3136     exch2_txglobalo(42)=2551
3137     exch2_tyglobalo(42)=1
3138     exch2_isWedge(42)=1
3139     exch2_isNedge(42)=0
3140     exch2_isEedge(42)=0
3141     exch2_isSedge(42)=1
3142     exch2_myFace(42)=6
3143     exch2_mydnx(42)=510
3144     exch2_mydny(42)=510
3145     exch2_nNeighbours(42)=4
3146    
3147     exch2_neighbourId(1,42)=45
3148     exch2_pi(1,1,42)=1
3149     exch2_pi(2,1,42)=0
3150     exch2_pj(1,1,42)=0
3151     exch2_pj(2,1,42)=1
3152     exch2_oi(1,42)=0
3153     exch2_oi_f(1,42)=0
3154     exch2_oj(1,42)=0
3155     exch2_oj_f(1,42)=0
3156     exch2_itlo_c(1,42)=0
3157     exch2_ithi_c(1,42)=171
3158     exch2_jtlo_c(1,42)=0
3159     exch2_jthi_c(1,42)=0
3160     exch2_opposingSend_record(1,42)=2
3161    
3162     exch2_neighbourId(2,42)=33
3163     exch2_pi(1,2,42)=0
3164     exch2_pi(2,2,42)=-1
3165     exch2_pj(1,2,42)=1
3166     exch2_pj(2,2,42)=0
3167     exch2_oi(2,42)=511
3168     exch2_oi_f(2,42)=512
3169     exch2_oj(2,42)=-510
3170     exch2_oj_f(2,42)=-510
3171     exch2_itlo_c(2,42)=171
3172     exch2_ithi_c(2,42)=171
3173     exch2_jtlo_c(2,42)=0
3174     exch2_jthi_c(2,42)=171
3175     exch2_opposingSend_record(2,42)=3
3176    
3177     exch2_neighbourId(3,42)=43
3178     exch2_pi(1,3,42)=1
3179     exch2_pi(2,3,42)=0
3180     exch2_pj(1,3,42)=0
3181     exch2_pj(2,3,42)=1
3182     exch2_oi(3,42)=0
3183     exch2_oi_f(3,42)=0
3184     exch2_oj(3,42)=0
3185     exch2_oj_f(3,42)=0
3186     exch2_itlo_c(3,42)=0
3187     exch2_ithi_c(3,42)=0
3188     exch2_jtlo_c(3,42)=0
3189     exch2_jthi_c(3,42)=171
3190     exch2_opposingSend_record(3,42)=4
3191    
3192     exch2_neighbourId(4,42)=36
3193     exch2_pi(1,4,42)=1
3194     exch2_pi(2,4,42)=0
3195     exch2_pj(1,4,42)=0
3196     exch2_pj(2,4,42)=1
3197     exch2_oi(4,42)=-510
3198     exch2_oi_f(4,42)=-510
3199     exch2_oj(4,42)=0
3200     exch2_oj_f(4,42)=0
3201     exch2_itlo_c(4,42)=171
3202     exch2_ithi_c(4,42)=171
3203     exch2_jtlo_c(4,42)=0
3204     exch2_jthi_c(4,42)=171
3205     exch2_opposingSend_record(4,42)=3
3206     RETURN
3207     END
3208    
3209     SUBROUTINE W2_E2SETUP_43
3210     C Topology for tile 43
3211     #include "W2_EXCH2_TOPOLOGY.h"
3212     exch2_tnx(43)=170
3213     exch2_tny(43)=170
3214     exch2_tbasex(43)=170
3215     exch2_tbasey(43)=0
3216     exch2_txglobalo(43)=2721
3217     exch2_tyglobalo(43)=1
3218     exch2_isWedge(43)=0
3219     exch2_isNedge(43)=0
3220     exch2_isEedge(43)=0
3221     exch2_isSedge(43)=1
3222     exch2_myFace(43)=6
3223     exch2_mydnx(43)=510
3224     exch2_mydny(43)=510
3225     exch2_nNeighbours(43)=4
3226    
3227     exch2_neighbourId(1,43)=46
3228     exch2_pi(1,1,43)=1
3229     exch2_pi(2,1,43)=0
3230     exch2_pj(1,1,43)=0
3231     exch2_pj(2,1,43)=1
3232     exch2_oi(1,43)=0
3233     exch2_oi_f(1,43)=0
3234     exch2_oj(1,43)=0
3235     exch2_oj_f(1,43)=0
3236     exch2_itlo_c(1,43)=0
3237     exch2_ithi_c(1,43)=171
3238     exch2_jtlo_c(1,43)=0
3239     exch2_jthi_c(1,43)=0
3240     exch2_opposingSend_record(1,43)=2
3241    
3242     exch2_neighbourId(2,43)=30
3243     exch2_pi(1,2,43)=0
3244     exch2_pi(2,2,43)=-1
3245     exch2_pj(1,2,43)=1
3246     exch2_pj(2,2,43)=0
3247     exch2_oi(2,43)=511
3248     exch2_oi_f(2,43)=512
3249     exch2_oj(2,43)=-510
3250     exch2_oj_f(2,43)=-510
3251     exch2_itlo_c(2,43)=171
3252     exch2_ithi_c(2,43)=171
3253     exch2_jtlo_c(2,43)=0
3254     exch2_jthi_c(2,43)=171
3255     exch2_opposingSend_record(2,43)=3
3256    
3257     exch2_neighbourId(3,43)=44
3258     exch2_pi(1,3,43)=1
3259     exch2_pi(2,3,43)=0
3260     exch2_pj(1,3,43)=0
3261     exch2_pj(2,3,43)=1
3262     exch2_oi(3,43)=0
3263     exch2_oi_f(3,43)=0
3264     exch2_oj(3,43)=0
3265     exch2_oj_f(3,43)=0
3266     exch2_itlo_c(3,43)=0
3267     exch2_ithi_c(3,43)=0
3268     exch2_jtlo_c(3,43)=0
3269     exch2_jthi_c(3,43)=171
3270     exch2_opposingSend_record(3,43)=4
3271    
3272     exch2_neighbourId(4,43)=42
3273     exch2_pi(1,4,43)=1
3274     exch2_pi(2,4,43)=0
3275     exch2_pj(1,4,43)=0
3276     exch2_pj(2,4,43)=1
3277     exch2_oi(4,43)=0
3278     exch2_oi_f(4,43)=0
3279     exch2_oj(4,43)=0
3280     exch2_oj_f(4,43)=0
3281     exch2_itlo_c(4,43)=171
3282     exch2_ithi_c(4,43)=171
3283     exch2_jtlo_c(4,43)=0
3284     exch2_jthi_c(4,43)=171
3285     exch2_opposingSend_record(4,43)=3
3286     RETURN
3287     END
3288    
3289     SUBROUTINE W2_E2SETUP_44
3290     C Topology for tile 44
3291     #include "W2_EXCH2_TOPOLOGY.h"
3292     exch2_tnx(44)=170
3293     exch2_tny(44)=170
3294     exch2_tbasex(44)=340
3295     exch2_tbasey(44)=0
3296     exch2_txglobalo(44)=2891
3297     exch2_tyglobalo(44)=1
3298     exch2_isWedge(44)=0
3299     exch2_isNedge(44)=0
3300     exch2_isEedge(44)=1
3301     exch2_isSedge(44)=1
3302     exch2_myFace(44)=6
3303     exch2_mydnx(44)=510
3304     exch2_mydny(44)=510
3305     exch2_nNeighbours(44)=4
3306    
3307     exch2_neighbourId(1,44)=47
3308     exch2_pi(1,1,44)=1
3309     exch2_pi(2,1,44)=0
3310     exch2_pj(1,1,44)=0
3311     exch2_pj(2,1,44)=1
3312     exch2_oi(1,44)=0
3313     exch2_oi_f(1,44)=0
3314     exch2_oj(1,44)=0
3315     exch2_oj_f(1,44)=0
3316     exch2_itlo_c(1,44)=0
3317     exch2_ithi_c(1,44)=171
3318     exch2_jtlo_c(1,44)=0
3319     exch2_jthi_c(1,44)=0
3320     exch2_opposingSend_record(1,44)=2
3321    
3322     exch2_neighbourId(2,44)=27
3323     exch2_pi(1,2,44)=0
3324     exch2_pi(2,2,44)=-1
3325     exch2_pj(1,2,44)=1
3326     exch2_pj(2,2,44)=0
3327     exch2_oi(2,44)=511
3328     exch2_oi_f(2,44)=512
3329     exch2_oj(2,44)=-510
3330     exch2_oj_f(2,44)=-510
3331     exch2_itlo_c(2,44)=171
3332     exch2_ithi_c(2,44)=171
3333     exch2_jtlo_c(2,44)=0
3334     exch2_jthi_c(2,44)=171
3335     exch2_opposingSend_record(2,44)=3
3336    
3337     exch2_neighbourId(3,44)=12
3338     exch2_pi(1,3,44)=0
3339     exch2_pi(2,3,44)=1
3340     exch2_pj(1,3,44)=-1
3341     exch2_pj(2,3,44)=0
3342     exch2_oi(3,44)=510
3343     exch2_oi_f(3,44)=510
3344     exch2_oj(3,44)=511
3345     exch2_oj_f(3,44)=512
3346     exch2_itlo_c(3,44)=0
3347     exch2_ithi_c(3,44)=171
3348     exch2_jtlo_c(3,44)=0
3349     exch2_jthi_c(3,44)=0
3350     exch2_opposingSend_record(3,44)=2
3351    
3352     exch2_neighbourId(4,44)=43
3353     exch2_pi(1,4,44)=1
3354     exch2_pi(2,4,44)=0
3355     exch2_pj(1,4,44)=0
3356     exch2_pj(2,4,44)=1
3357     exch2_oi(4,44)=0
3358     exch2_oi_f(4,44)=0
3359     exch2_oj(4,44)=0
3360     exch2_oj_f(4,44)=0
3361     exch2_itlo_c(4,44)=171
3362     exch2_ithi_c(4,44)=171
3363     exch2_jtlo_c(4,44)=0
3364     exch2_jthi_c(4,44)=171
3365     exch2_opposingSend_record(4,44)=3
3366     RETURN
3367     END
3368    
3369     SUBROUTINE W2_E2SETUP_45
3370     C Topology for tile 45
3371     #include "W2_EXCH2_TOPOLOGY.h"
3372     exch2_tnx(45)=170
3373     exch2_tny(45)=170
3374     exch2_tbasex(45)=0
3375     exch2_tbasey(45)=170
3376     exch2_txglobalo(45)=2551
3377     exch2_tyglobalo(45)=171
3378     exch2_isWedge(45)=1
3379     exch2_isNedge(45)=0
3380     exch2_isEedge(45)=0
3381     exch2_isSedge(45)=0
3382     exch2_myFace(45)=6
3383     exch2_mydnx(45)=510
3384     exch2_mydny(45)=510
3385     exch2_nNeighbours(45)=4
3386    
3387     exch2_neighbourId(1,45)=48
3388     exch2_pi(1,1,45)=1
3389     exch2_pi(2,1,45)=0
3390     exch2_pj(1,1,45)=0
3391     exch2_pj(2,1,45)=1
3392     exch2_oi(1,45)=0
3393     exch2_oi_f(1,45)=0
3394     exch2_oj(1,45)=0
3395     exch2_oj_f(1,45)=0
3396     exch2_itlo_c(1,45)=0
3397     exch2_ithi_c(1,45)=171
3398     exch2_jtlo_c(1,45)=0
3399     exch2_jthi_c(1,45)=0
3400     exch2_opposingSend_record(1,45)=2
3401    
3402     exch2_neighbourId(2,45)=42
3403     exch2_pi(1,2,45)=1
3404     exch2_pi(2,2,45)=0
3405     exch2_pj(1,2,45)=0
3406     exch2_pj(2,2,45)=1
3407     exch2_oi(2,45)=0
3408     exch2_oi_f(2,45)=0
3409     exch2_oj(2,45)=0
3410     exch2_oj_f(2,45)=0
3411     exch2_itlo_c(2,45)=1
3412     exch2_ithi_c(2,45)=170
3413     exch2_jtlo_c(2,45)=171
3414     exch2_jthi_c(2,45)=171
3415     exch2_opposingSend_record(2,45)=1
3416    
3417     exch2_neighbourId(3,45)=46
3418     exch2_pi(1,3,45)=1
3419     exch2_pi(2,3,45)=0
3420     exch2_pj(1,3,45)=0
3421     exch2_pj(2,3,45)=1
3422     exch2_oi(3,45)=0
3423     exch2_oi_f(3,45)=0
3424     exch2_oj(3,45)=0
3425     exch2_oj_f(3,45)=0
3426     exch2_itlo_c(3,45)=0
3427     exch2_ithi_c(3,45)=0
3428     exch2_jtlo_c(3,45)=0
3429     exch2_jthi_c(3,45)=171
3430     exch2_opposingSend_record(3,45)=4
3431    
3432     exch2_neighbourId(4,45)=38
3433     exch2_pi(1,4,45)=1
3434     exch2_pi(2,4,45)=0
3435     exch2_pj(1,4,45)=0
3436     exch2_pj(2,4,45)=1
3437     exch2_oi(4,45)=-510
3438     exch2_oi_f(4,45)=-510
3439     exch2_oj(4,45)=0
3440     exch2_oj_f(4,45)=0
3441     exch2_itlo_c(4,45)=171
3442     exch2_ithi_c(4,45)=171
3443     exch2_jtlo_c(4,45)=0
3444     exch2_jthi_c(4,45)=171
3445     exch2_opposingSend_record(4,45)=3
3446     RETURN
3447     END
3448    
3449     SUBROUTINE W2_E2SETUP_46
3450     C Topology for tile 46
3451     #include "W2_EXCH2_TOPOLOGY.h"
3452     exch2_tnx(46)=170
3453     exch2_tny(46)=170
3454     exch2_tbasex(46)=170
3455     exch2_tbasey(46)=170
3456     exch2_txglobalo(46)=2721
3457     exch2_tyglobalo(46)=171
3458     exch2_isWedge(46)=0
3459     exch2_isNedge(46)=0
3460     exch2_isEedge(46)=0
3461     exch2_isSedge(46)=0
3462     exch2_myFace(46)=6
3463     exch2_mydnx(46)=510
3464     exch2_mydny(46)=510
3465     exch2_nNeighbours(46)=4
3466    
3467     exch2_neighbourId(1,46)=49
3468     exch2_pi(1,1,46)=1
3469     exch2_pi(2,1,46)=0
3470     exch2_pj(1,1,46)=0
3471     exch2_pj(2,1,46)=1
3472     exch2_oi(1,46)=0
3473     exch2_oi_f(1,46)=0
3474     exch2_oj(1,46)=0
3475     exch2_oj_f(1,46)=0
3476     exch2_itlo_c(1,46)=0
3477     exch2_ithi_c(1,46)=171
3478     exch2_jtlo_c(1,46)=0
3479     exch2_jthi_c(1,46)=0
3480     exch2_opposingSend_record(1,46)=2
3481    
3482     exch2_neighbourId(2,46)=43
3483     exch2_pi(1,2,46)=1
3484     exch2_pi(2,2,46)=0
3485     exch2_pj(1,2,46)=0
3486     exch2_pj(2,2,46)=1
3487     exch2_oi(2,46)=0
3488     exch2_oi_f(2,46)=0
3489     exch2_oj(2,46)=0
3490     exch2_oj_f(2,46)=0
3491     exch2_itlo_c(2,46)=1
3492     exch2_ithi_c(2,46)=170
3493     exch2_jtlo_c(2,46)=171
3494     exch2_jthi_c(2,46)=171
3495     exch2_opposingSend_record(2,46)=1
3496    
3497     exch2_neighbourId(3,46)=47
3498     exch2_pi(1,3,46)=1
3499     exch2_pi(2,3,46)=0
3500     exch2_pj(1,3,46)=0
3501     exch2_pj(2,3,46)=1
3502     exch2_oi(3,46)=0
3503     exch2_oi_f(3,46)=0
3504     exch2_oj(3,46)=0
3505     exch2_oj_f(3,46)=0
3506     exch2_itlo_c(3,46)=0
3507     exch2_ithi_c(3,46)=0
3508     exch2_jtlo_c(3,46)=0
3509     exch2_jthi_c(3,46)=171
3510     exch2_opposingSend_record(3,46)=4
3511    
3512     exch2_neighbourId(4,46)=45
3513     exch2_pi(1,4,46)=1
3514     exch2_pi(2,4,46)=0
3515     exch2_pj(1,4,46)=0
3516     exch2_pj(2,4,46)=1
3517     exch2_oi(4,46)=0
3518     exch2_oi_f(4,46)=0
3519     exch2_oj(4,46)=0
3520     exch2_oj_f(4,46)=0
3521     exch2_itlo_c(4,46)=171
3522     exch2_ithi_c(4,46)=171
3523     exch2_jtlo_c(4,46)=0
3524     exch2_jthi_c(4,46)=171
3525     exch2_opposingSend_record(4,46)=3
3526     RETURN
3527     END
3528    
3529     SUBROUTINE W2_E2SETUP_47
3530     C Topology for tile 47
3531     #include "W2_EXCH2_TOPOLOGY.h"
3532     exch2_tnx(47)=170
3533     exch2_tny(47)=170
3534     exch2_tbasex(47)=340
3535     exch2_tbasey(47)=170
3536     exch2_txglobalo(47)=2891
3537     exch2_tyglobalo(47)=171
3538     exch2_isWedge(47)=0
3539     exch2_isNedge(47)=0
3540     exch2_isEedge(47)=1
3541     exch2_isSedge(47)=0
3542     exch2_myFace(47)=6
3543     exch2_mydnx(47)=510
3544     exch2_mydny(47)=510
3545     exch2_nNeighbours(47)=4
3546    
3547     exch2_neighbourId(1,47)=50
3548     exch2_pi(1,1,47)=1
3549     exch2_pi(2,1,47)=0
3550     exch2_pj(1,1,47)=0
3551     exch2_pj(2,1,47)=1
3552     exch2_oi(1,47)=0
3553     exch2_oi_f(1,47)=0
3554     exch2_oj(1,47)=0
3555     exch2_oj_f(1,47)=0
3556     exch2_itlo_c(1,47)=0
3557     exch2_ithi_c(1,47)=171
3558     exch2_jtlo_c(1,47)=0
3559     exch2_jthi_c(1,47)=0
3560     exch2_opposingSend_record(1,47)=2
3561    
3562     exch2_neighbourId(2,47)=44
3563     exch2_pi(1,2,47)=1
3564     exch2_pi(2,2,47)=0
3565     exch2_pj(1,2,47)=0
3566     exch2_pj(2,2,47)=1
3567     exch2_oi(2,47)=0
3568     exch2_oi_f(2,47)=0
3569     exch2_oj(2,47)=0
3570     exch2_oj_f(2,47)=0
3571     exch2_itlo_c(2,47)=1
3572     exch2_ithi_c(2,47)=170
3573     exch2_jtlo_c(2,47)=171
3574     exch2_jthi_c(2,47)=171
3575     exch2_opposingSend_record(2,47)=1
3576    
3577     exch2_neighbourId(3,47)=11
3578     exch2_pi(1,3,47)=0
3579     exch2_pi(2,3,47)=1
3580     exch2_pj(1,3,47)=-1
3581     exch2_pj(2,3,47)=0
3582     exch2_oi(3,47)=510
3583     exch2_oi_f(3,47)=510
3584     exch2_oj(3,47)=511
3585     exch2_oj_f(3,47)=512
3586     exch2_itlo_c(3,47)=0
3587     exch2_ithi_c(3,47)=171
3588     exch2_jtlo_c(3,47)=0
3589     exch2_jthi_c(3,47)=0
3590     exch2_opposingSend_record(3,47)=2
3591    
3592     exch2_neighbourId(4,47)=46
3593     exch2_pi(1,4,47)=1
3594     exch2_pi(2,4,47)=0
3595     exch2_pj(1,4,47)=0
3596     exch2_pj(2,4,47)=1
3597     exch2_oi(4,47)=0
3598     exch2_oi_f(4,47)=0
3599     exch2_oj(4,47)=0
3600     exch2_oj_f(4,47)=0
3601     exch2_itlo_c(4,47)=171
3602     exch2_ithi_c(4,47)=171
3603     exch2_jtlo_c(4,47)=0
3604     exch2_jthi_c(4,47)=171
3605     exch2_opposingSend_record(4,47)=3
3606     RETURN
3607     END
3608    
3609     SUBROUTINE W2_E2SETUP_48
3610     C Topology for tile 48
3611     #include "W2_EXCH2_TOPOLOGY.h"
3612     exch2_tnx(48)=170
3613     exch2_tny(48)=170
3614     exch2_tbasex(48)=0
3615     exch2_tbasey(48)=340
3616     exch2_txglobalo(48)=2551
3617     exch2_tyglobalo(48)=341
3618     exch2_isWedge(48)=1
3619     exch2_isNedge(48)=1
3620     exch2_isEedge(48)=0
3621     exch2_isSedge(48)=0
3622     exch2_myFace(48)=6
3623     exch2_mydnx(48)=510
3624     exch2_mydny(48)=510
3625     exch2_nNeighbours(48)=4
3626    
3627     exch2_neighbourId(1,48)=1
3628     exch2_pi(1,1,48)=1
3629     exch2_pi(2,1,48)=0
3630     exch2_pj(1,1,48)=0
3631     exch2_pj(2,1,48)=1
3632     exch2_oi(1,48)=0
3633     exch2_oi_f(1,48)=0
3634     exch2_oj(1,48)=510
3635     exch2_oj_f(1,48)=510
3636     exch2_itlo_c(1,48)=0
3637     exch2_ithi_c(1,48)=171
3638     exch2_jtlo_c(1,48)=0
3639     exch2_jthi_c(1,48)=0
3640     exch2_opposingSend_record(1,48)=2
3641    
3642     exch2_neighbourId(2,48)=45
3643     exch2_pi(1,2,48)=1
3644     exch2_pi(2,2,48)=0
3645     exch2_pj(1,2,48)=0
3646     exch2_pj(2,2,48)=1
3647     exch2_oi(2,48)=0
3648     exch2_oi_f(2,48)=0
3649     exch2_oj(2,48)=0
3650     exch2_oj_f(2,48)=0
3651     exch2_itlo_c(2,48)=1
3652     exch2_ithi_c(2,48)=170
3653     exch2_jtlo_c(2,48)=171
3654     exch2_jthi_c(2,48)=171
3655     exch2_opposingSend_record(2,48)=1
3656    
3657     exch2_neighbourId(3,48)=49
3658     exch2_pi(1,3,48)=1
3659     exch2_pi(2,3,48)=0
3660     exch2_pj(1,3,48)=0
3661     exch2_pj(2,3,48)=1
3662     exch2_oi(3,48)=0
3663     exch2_oi_f(3,48)=0
3664     exch2_oj(3,48)=0
3665     exch2_oj_f(3,48)=0
3666     exch2_itlo_c(3,48)=0
3667     exch2_ithi_c(3,48)=0
3668     exch2_jtlo_c(3,48)=0
3669     exch2_jthi_c(3,48)=171
3670     exch2_opposingSend_record(3,48)=4
3671    
3672     exch2_neighbourId(4,48)=41
3673     exch2_pi(1,4,48)=1
3674     exch2_pi(2,4,48)=0
3675     exch2_pj(1,4,48)=0
3676     exch2_pj(2,4,48)=1
3677     exch2_oi(4,48)=-510
3678     exch2_oi_f(4,48)=-510
3679     exch2_oj(4,48)=0
3680     exch2_oj_f(4,48)=0
3681     exch2_itlo_c(4,48)=171
3682     exch2_ithi_c(4,48)=171
3683     exch2_jtlo_c(4,48)=0
3684     exch2_jthi_c(4,48)=171
3685     exch2_opposingSend_record(4,48)=3
3686     RETURN
3687     END
3688    
3689     SUBROUTINE W2_E2SETUP_49
3690     C Topology for tile 49
3691     #include "W2_EXCH2_TOPOLOGY.h"
3692     exch2_tnx(49)=170
3693     exch2_tny(49)=170
3694     exch2_tbasex(49)=170
3695     exch2_tbasey(49)=340
3696     exch2_txglobalo(49)=2721
3697     exch2_tyglobalo(49)=341
3698     exch2_isWedge(49)=0
3699     exch2_isNedge(49)=1
3700     exch2_isEedge(49)=0
3701     exch2_isSedge(49)=0
3702     exch2_myFace(49)=6
3703     exch2_mydnx(49)=510
3704     exch2_mydny(49)=510
3705     exch2_nNeighbours(49)=4
3706    
3707     exch2_neighbourId(1,49)=2
3708     exch2_pi(1,1,49)=1
3709     exch2_pi(2,1,49)=0
3710     exch2_pj(1,1,49)=0
3711     exch2_pj(2,1,49)=1
3712     exch2_oi(1,49)=0
3713     exch2_oi_f(1,49)=0
3714     exch2_oj(1,49)=510
3715     exch2_oj_f(1,49)=510
3716     exch2_itlo_c(1,49)=0
3717     exch2_ithi_c(1,49)=171
3718     exch2_jtlo_c(1,49)=0
3719     exch2_jthi_c(1,49)=0
3720     exch2_opposingSend_record(1,49)=2
3721    
3722     exch2_neighbourId(2,49)=46
3723     exch2_pi(1,2,49)=1
3724     exch2_pi(2,2,49)=0
3725     exch2_pj(1,2,49)=0
3726     exch2_pj(2,2,49)=1
3727     exch2_oi(2,49)=0
3728     exch2_oi_f(2,49)=0
3729     exch2_oj(2,49)=0
3730     exch2_oj_f(2,49)=0
3731     exch2_itlo_c(2,49)=1
3732     exch2_ithi_c(2,49)=170
3733     exch2_jtlo_c(2,49)=171
3734     exch2_jthi_c(2,49)=171
3735     exch2_opposingSend_record(2,49)=1
3736    
3737     exch2_neighbourId(3,49)=50
3738     exch2_pi(1,3,49)=1
3739     exch2_pi(2,3,49)=0
3740     exch2_pj(1,3,49)=0
3741     exch2_pj(2,3,49)=1
3742     exch2_oi(3,49)=0
3743     exch2_oi_f(3,49)=0
3744     exch2_oj(3,49)=0
3745     exch2_oj_f(3,49)=0
3746     exch2_itlo_c(3,49)=0
3747     exch2_ithi_c(3,49)=0
3748     exch2_jtlo_c(3,49)=0
3749     exch2_jthi_c(3,49)=171
3750     exch2_opposingSend_record(3,49)=4
3751    
3752     exch2_neighbourId(4,49)=48
3753     exch2_pi(1,4,49)=1
3754     exch2_pi(2,4,49)=0
3755     exch2_pj(1,4,49)=0
3756     exch2_pj(2,4,49)=1
3757     exch2_oi(4,49)=0
3758     exch2_oi_f(4,49)=0
3759     exch2_oj(4,49)=0
3760     exch2_oj_f(4,49)=0
3761     exch2_itlo_c(4,49)=171
3762     exch2_ithi_c(4,49)=171
3763     exch2_jtlo_c(4,49)=0
3764     exch2_jthi_c(4,49)=171
3765     exch2_opposingSend_record(4,49)=3
3766     RETURN
3767     END
3768    
3769     SUBROUTINE W2_E2SETUP_50
3770     C Topology for tile 50
3771     #include "W2_EXCH2_TOPOLOGY.h"
3772     exch2_tnx(50)=170
3773     exch2_tny(50)=170
3774     exch2_tbasex(50)=340
3775     exch2_tbasey(50)=340
3776     exch2_txglobalo(50)=2891
3777     exch2_tyglobalo(50)=341
3778     exch2_isWedge(50)=0
3779     exch2_isNedge(50)=1
3780     exch2_isEedge(50)=1
3781     exch2_isSedge(50)=0
3782     exch2_myFace(50)=6
3783     exch2_mydnx(50)=510
3784     exch2_mydny(50)=510
3785     exch2_nNeighbours(50)=4
3786    
3787     exch2_neighbourId(1,50)=3
3788     exch2_pi(1,1,50)=1
3789     exch2_pi(2,1,50)=0
3790     exch2_pj(1,1,50)=0
3791     exch2_pj(2,1,50)=1
3792     exch2_oi(1,50)=0
3793     exch2_oi_f(1,50)=0
3794     exch2_oj(1,50)=510
3795     exch2_oj_f(1,50)=510
3796     exch2_itlo_c(1,50)=0
3797     exch2_ithi_c(1,50)=171
3798     exch2_jtlo_c(1,50)=0
3799     exch2_jthi_c(1,50)=0
3800     exch2_opposingSend_record(1,50)=2
3801    
3802     exch2_neighbourId(2,50)=47
3803     exch2_pi(1,2,50)=1
3804     exch2_pi(2,2,50)=0
3805     exch2_pj(1,2,50)=0
3806     exch2_pj(2,2,50)=1
3807     exch2_oi(2,50)=0
3808     exch2_oi_f(2,50)=0
3809     exch2_oj(2,50)=0
3810     exch2_oj_f(2,50)=0
3811     exch2_itlo_c(2,50)=1
3812     exch2_ithi_c(2,50)=170
3813     exch2_jtlo_c(2,50)=171
3814     exch2_jthi_c(2,50)=171
3815     exch2_opposingSend_record(2,50)=1
3816    
3817     exch2_neighbourId(3,50)=10
3818     exch2_pi(1,3,50)=0
3819     exch2_pi(2,3,50)=1
3820     exch2_pj(1,3,50)=-1
3821     exch2_pj(2,3,50)=0
3822     exch2_oi(3,50)=510
3823     exch2_oi_f(3,50)=510
3824     exch2_oj(3,50)=511
3825     exch2_oj_f(3,50)=512
3826     exch2_itlo_c(3,50)=0
3827     exch2_ithi_c(3,50)=171
3828     exch2_jtlo_c(3,50)=0
3829     exch2_jthi_c(3,50)=0
3830     exch2_opposingSend_record(3,50)=2
3831    
3832     exch2_neighbourId(4,50)=49
3833     exch2_pi(1,4,50)=1
3834     exch2_pi(2,4,50)=0
3835     exch2_pj(1,4,50)=0
3836     exch2_pj(2,4,50)=1
3837     exch2_oi(4,50)=0
3838     exch2_oi_f(4,50)=0
3839     exch2_oj(4,50)=0
3840     exch2_oj_f(4,50)=0
3841     exch2_itlo_c(4,50)=171
3842     exch2_ithi_c(4,50)=171
3843     exch2_jtlo_c(4,50)=0
3844     exch2_jthi_c(4,50)=171
3845     exch2_opposingSend_record(4,50)=3
3846     RETURN
3847     END
3848    
  ViewVC Help
Powered by ViewVC 1.1.22