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