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

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

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

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