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

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

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

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