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

Annotation of /MITgcm_contrib/high_res_cube/code-mods/s24t_8x32/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 15:19:36 2004 UTC (22 years, 7 months ago) by edhill
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED 
 o removing files (as requested by CNH) to fix the recent CVS repository
   corruption (the dead-files-returning problem)
1 cnh 1.1 SUBROUTINE W2_E2SETUP
2    
3     C Tile toplogy settings data structures
4     #include "W2_EXCH2_TOPOLOGY.h"
5    
6     C Tile settings table
7     CALL W2_E2SETUP_1
8     CALL W2_E2SETUP_2
9     CALL W2_E2SETUP_3
10     CALL W2_E2SETUP_4
11     CALL W2_E2SETUP_5
12     CALL W2_E2SETUP_6
13     CALL W2_E2SETUP_7
14     CALL W2_E2SETUP_8
15     CALL W2_E2SETUP_9
16     CALL W2_E2SETUP_10
17     CALL W2_E2SETUP_11
18     CALL W2_E2SETUP_12
19     CALL W2_E2SETUP_13
20     CALL W2_E2SETUP_14
21     CALL W2_E2SETUP_15
22     CALL W2_E2SETUP_16
23     CALL W2_E2SETUP_17
24     CALL W2_E2SETUP_18
25     CALL W2_E2SETUP_19
26     CALL W2_E2SETUP_20
27     CALL W2_E2SETUP_21
28     CALL W2_E2SETUP_22
29     CALL W2_E2SETUP_23
30     CALL W2_E2SETUP_24
31     RETURN
32     END
33     SUBROUTINE W2_E2SETUP_1
34     C Topology for tile 1
35     #include "W2_EXCH2_TOPOLOGY.h"
36     exch2_tnx(1)=8
37     exch2_tny(1)=32
38     exch2_tbasex(1)=0
39     exch2_tbasey(1)=0
40     exch2_txglobalo(1)=1
41     exch2_tyglobalo(1)=1
42     exch2_isWedge(1)=1
43     exch2_isNedge(1)=1
44     exch2_isEedge(1)=0
45     exch2_isSedge(1)=1
46     exch2_myFace(1)=1
47     exch2_mydnx(1)=32
48     exch2_mydny(1)=32
49     exch2_nNeighbours(1)=7
50    
51     exch2_neighbourId(1,1)=9
52     exch2_pi(1,1,1)=0
53     exch2_pi(2,1,1)=-1
54     exch2_pj(1,1,1)=1
55     exch2_pj(2,1,1)=0
56     exch2_oi(1,1)=33
57     exch2_oi_f(1,1)=34
58     exch2_oj(1,1)=32
59     exch2_oj_f(1,1)=32
60     exch2_itlo_c(1,1)=0
61     exch2_ithi_c(1,1)=0
62     exch2_jtlo_c(1,1)=24
63     exch2_jthi_c(1,1)=33
64     exch2_opposingSend_record(1,1)=4
65    
66     exch2_neighbourId(2,1)=21
67     exch2_pi(1,2,1)=1
68     exch2_pi(2,2,1)=0
69     exch2_pj(1,2,1)=0
70     exch2_pj(2,2,1)=1
71     exch2_oi(2,1)=0
72     exch2_oi_f(2,1)=0
73     exch2_oj(2,1)=-32
74     exch2_oj_f(2,1)=-32
75     exch2_itlo_c(2,1)=0
76     exch2_ithi_c(2,1)=9
77     exch2_jtlo_c(2,1)=33
78     exch2_jthi_c(2,1)=33
79     exch2_opposingSend_record(2,1)=1
80    
81     exch2_neighbourId(3,1)=2
82     exch2_pi(1,3,1)=1
83     exch2_pi(2,3,1)=0
84     exch2_pj(1,3,1)=0
85     exch2_pj(2,3,1)=1
86     exch2_oi(3,1)=0
87     exch2_oi_f(3,1)=0
88     exch2_oj(3,1)=0
89     exch2_oj_f(3,1)=0
90     exch2_itlo_c(3,1)=0
91     exch2_ithi_c(3,1)=0
92     exch2_jtlo_c(3,1)=0
93     exch2_jthi_c(3,1)=33
94     exch2_opposingSend_record(3,1)=4
95    
96     exch2_neighbourId(4,1)=17
97     exch2_pi(1,4,1)=0
98     exch2_pi(2,4,1)=1
99     exch2_pj(1,4,1)=-1
100     exch2_pj(2,4,1)=0
101     exch2_oi(4,1)=-32
102     exch2_oi_f(4,1)=-32
103     exch2_oj(4,1)=33
104     exch2_oj_f(4,1)=34
105     exch2_itlo_c(4,1)=0
106     exch2_ithi_c(4,1)=9
107     exch2_jtlo_c(4,1)=33
108     exch2_jthi_c(4,1)=33
109     exch2_opposingSend_record(4,1)=1
110    
111     exch2_neighbourId(5,1)=18
112     exch2_pi(1,5,1)=0
113     exch2_pi(2,5,1)=1
114     exch2_pj(1,5,1)=-1
115     exch2_pj(2,5,1)=0
116     exch2_oi(5,1)=-32
117     exch2_oi_f(5,1)=-32
118     exch2_oj(5,1)=33
119     exch2_oj_f(5,1)=34
120     exch2_itlo_c(5,1)=0
121     exch2_ithi_c(5,1)=9
122     exch2_jtlo_c(5,1)=33
123     exch2_jthi_c(5,1)=33
124     exch2_opposingSend_record(5,1)=1
125    
126     exch2_neighbourId(6,1)=19
127     exch2_pi(1,6,1)=0
128     exch2_pi(2,6,1)=1
129     exch2_pj(1,6,1)=-1
130     exch2_pj(2,6,1)=0
131     exch2_oi(6,1)=-32
132     exch2_oi_f(6,1)=-32
133     exch2_oj(6,1)=33
134     exch2_oj_f(6,1)=34
135     exch2_itlo_c(6,1)=0
136     exch2_ithi_c(6,1)=9
137     exch2_jtlo_c(6,1)=33
138     exch2_jthi_c(6,1)=33
139     exch2_opposingSend_record(6,1)=1
140    
141     exch2_neighbourId(7,1)=20
142     exch2_pi(1,7,1)=0
143     exch2_pi(2,7,1)=1
144     exch2_pj(1,7,1)=-1
145     exch2_pj(2,7,1)=0
146     exch2_oi(7,1)=-32
147     exch2_oi_f(7,1)=-32
148     exch2_oj(7,1)=33
149     exch2_oj_f(7,1)=34
150     exch2_itlo_c(7,1)=0
151     exch2_ithi_c(7,1)=9
152     exch2_jtlo_c(7,1)=33
153     exch2_jthi_c(7,1)=33
154     exch2_opposingSend_record(7,1)=1
155     RETURN
156     END
157    
158     SUBROUTINE W2_E2SETUP_2
159     C Topology for tile 2
160     #include "W2_EXCH2_TOPOLOGY.h"
161     exch2_tnx(2)=8
162     exch2_tny(2)=32
163     exch2_tbasex(2)=8
164     exch2_tbasey(2)=0
165     exch2_txglobalo(2)=9
166     exch2_tyglobalo(2)=1
167     exch2_isWedge(2)=0
168     exch2_isNedge(2)=1
169     exch2_isEedge(2)=0
170     exch2_isSedge(2)=1
171     exch2_myFace(2)=1
172     exch2_mydnx(2)=32
173     exch2_mydny(2)=32
174     exch2_nNeighbours(2)=4
175    
176     exch2_neighbourId(1,2)=9
177     exch2_pi(1,1,2)=0
178     exch2_pi(2,1,2)=-1
179     exch2_pj(1,1,2)=1
180     exch2_pj(2,1,2)=0
181     exch2_oi(1,2)=33
182     exch2_oi_f(1,2)=34
183     exch2_oj(1,2)=32
184     exch2_oj_f(1,2)=32
185     exch2_itlo_c(1,2)=0
186     exch2_ithi_c(1,2)=0
187     exch2_jtlo_c(1,2)=16
188     exch2_jthi_c(1,2)=25
189     exch2_opposingSend_record(1,2)=5
190    
191     exch2_neighbourId(2,2)=22
192     exch2_pi(1,2,2)=1
193     exch2_pi(2,2,2)=0
194     exch2_pj(1,2,2)=0
195     exch2_pj(2,2,2)=1
196     exch2_oi(2,2)=0
197     exch2_oi_f(2,2)=0
198     exch2_oj(2,2)=-32
199     exch2_oj_f(2,2)=-32
200     exch2_itlo_c(2,2)=0
201     exch2_ithi_c(2,2)=9
202     exch2_jtlo_c(2,2)=33
203     exch2_jthi_c(2,2)=33
204     exch2_opposingSend_record(2,2)=1
205    
206     exch2_neighbourId(3,2)=3
207     exch2_pi(1,3,2)=1
208     exch2_pi(2,3,2)=0
209     exch2_pj(1,3,2)=0
210     exch2_pj(2,3,2)=1
211     exch2_oi(3,2)=0
212     exch2_oi_f(3,2)=0
213     exch2_oj(3,2)=0
214     exch2_oj_f(3,2)=0
215     exch2_itlo_c(3,2)=0
216     exch2_ithi_c(3,2)=0
217     exch2_jtlo_c(3,2)=0
218     exch2_jthi_c(3,2)=33
219     exch2_opposingSend_record(3,2)=4
220    
221     exch2_neighbourId(4,2)=1
222     exch2_pi(1,4,2)=1
223     exch2_pi(2,4,2)=0
224     exch2_pj(1,4,2)=0
225     exch2_pj(2,4,2)=1
226     exch2_oi(4,2)=0
227     exch2_oi_f(4,2)=0
228     exch2_oj(4,2)=0
229     exch2_oj_f(4,2)=0
230     exch2_itlo_c(4,2)=9
231     exch2_ithi_c(4,2)=9
232     exch2_jtlo_c(4,2)=0
233     exch2_jthi_c(4,2)=33
234     exch2_opposingSend_record(4,2)=3
235     RETURN
236     END
237    
238     SUBROUTINE W2_E2SETUP_3
239     C Topology for tile 3
240     #include "W2_EXCH2_TOPOLOGY.h"
241     exch2_tnx(3)=8
242     exch2_tny(3)=32
243     exch2_tbasex(3)=16
244     exch2_tbasey(3)=0
245     exch2_txglobalo(3)=17
246     exch2_tyglobalo(3)=1
247     exch2_isWedge(3)=0
248     exch2_isNedge(3)=1
249     exch2_isEedge(3)=0
250     exch2_isSedge(3)=1
251     exch2_myFace(3)=1
252     exch2_mydnx(3)=32
253     exch2_mydny(3)=32
254     exch2_nNeighbours(3)=4
255    
256     exch2_neighbourId(1,3)=9
257     exch2_pi(1,1,3)=0
258     exch2_pi(2,1,3)=-1
259     exch2_pj(1,1,3)=1
260     exch2_pj(2,1,3)=0
261     exch2_oi(1,3)=33
262     exch2_oi_f(1,3)=34
263     exch2_oj(1,3)=32
264     exch2_oj_f(1,3)=32
265     exch2_itlo_c(1,3)=0
266     exch2_ithi_c(1,3)=0
267     exch2_jtlo_c(1,3)=8
268     exch2_jthi_c(1,3)=17
269     exch2_opposingSend_record(1,3)=6
270    
271     exch2_neighbourId(2,3)=23
272     exch2_pi(1,2,3)=1
273     exch2_pi(2,2,3)=0
274     exch2_pj(1,2,3)=0
275     exch2_pj(2,2,3)=1
276     exch2_oi(2,3)=0
277     exch2_oi_f(2,3)=0
278     exch2_oj(2,3)=-32
279     exch2_oj_f(2,3)=-32
280     exch2_itlo_c(2,3)=0
281     exch2_ithi_c(2,3)=9
282     exch2_jtlo_c(2,3)=33
283     exch2_jthi_c(2,3)=33
284     exch2_opposingSend_record(2,3)=1
285    
286     exch2_neighbourId(3,3)=4
287     exch2_pi(1,3,3)=1
288     exch2_pi(2,3,3)=0
289     exch2_pj(1,3,3)=0
290     exch2_pj(2,3,3)=1
291     exch2_oi(3,3)=0
292     exch2_oi_f(3,3)=0
293     exch2_oj(3,3)=0
294     exch2_oj_f(3,3)=0
295     exch2_itlo_c(3,3)=0
296     exch2_ithi_c(3,3)=0
297     exch2_jtlo_c(3,3)=0
298     exch2_jthi_c(3,3)=33
299     exch2_opposingSend_record(3,3)=4
300    
301     exch2_neighbourId(4,3)=2
302     exch2_pi(1,4,3)=1
303     exch2_pi(2,4,3)=0
304     exch2_pj(1,4,3)=0
305     exch2_pj(2,4,3)=1
306     exch2_oi(4,3)=0
307     exch2_oi_f(4,3)=0
308     exch2_oj(4,3)=0
309     exch2_oj_f(4,3)=0
310     exch2_itlo_c(4,3)=9
311     exch2_ithi_c(4,3)=9
312     exch2_jtlo_c(4,3)=0
313     exch2_jthi_c(4,3)=33
314     exch2_opposingSend_record(4,3)=3
315     RETURN
316     END
317    
318     SUBROUTINE W2_E2SETUP_4
319     C Topology for tile 4
320     #include "W2_EXCH2_TOPOLOGY.h"
321     exch2_tnx(4)=8
322     exch2_tny(4)=32
323     exch2_tbasex(4)=24
324     exch2_tbasey(4)=0
325     exch2_txglobalo(4)=25
326     exch2_tyglobalo(4)=1
327     exch2_isWedge(4)=0
328     exch2_isNedge(4)=1
329     exch2_isEedge(4)=1
330     exch2_isSedge(4)=1
331     exch2_myFace(4)=1
332     exch2_mydnx(4)=32
333     exch2_mydny(4)=32
334     exch2_nNeighbours(4)=4
335    
336     exch2_neighbourId(1,4)=9
337     exch2_pi(1,1,4)=0
338     exch2_pi(2,1,4)=-1
339     exch2_pj(1,1,4)=1
340     exch2_pj(2,1,4)=0
341     exch2_oi(1,4)=33
342     exch2_oi_f(1,4)=34
343     exch2_oj(1,4)=32
344     exch2_oj_f(1,4)=32
345     exch2_itlo_c(1,4)=0
346     exch2_ithi_c(1,4)=0
347     exch2_jtlo_c(1,4)=0
348     exch2_jthi_c(1,4)=9
349     exch2_opposingSend_record(1,4)=7
350    
351     exch2_neighbourId(2,4)=24
352     exch2_pi(1,2,4)=1
353     exch2_pi(2,2,4)=0
354     exch2_pj(1,2,4)=0
355     exch2_pj(2,2,4)=1
356     exch2_oi(2,4)=0
357     exch2_oi_f(2,4)=0
358     exch2_oj(2,4)=-32
359     exch2_oj_f(2,4)=-32
360     exch2_itlo_c(2,4)=0
361     exch2_ithi_c(2,4)=9
362     exch2_jtlo_c(2,4)=33
363     exch2_jthi_c(2,4)=33
364     exch2_opposingSend_record(2,4)=1
365    
366     exch2_neighbourId(3,4)=5
367     exch2_pi(1,3,4)=1
368     exch2_pi(2,3,4)=0
369     exch2_pj(1,3,4)=0
370     exch2_pj(2,3,4)=1
371     exch2_oi(3,4)=32
372     exch2_oi_f(3,4)=32
373     exch2_oj(3,4)=0
374     exch2_oj_f(3,4)=0
375     exch2_itlo_c(3,4)=0
376     exch2_ithi_c(3,4)=0
377     exch2_jtlo_c(3,4)=0
378     exch2_jthi_c(3,4)=33
379     exch2_opposingSend_record(3,4)=4
380    
381     exch2_neighbourId(4,4)=3
382     exch2_pi(1,4,4)=1
383     exch2_pi(2,4,4)=0
384     exch2_pj(1,4,4)=0
385     exch2_pj(2,4,4)=1
386     exch2_oi(4,4)=0
387     exch2_oi_f(4,4)=0
388     exch2_oj(4,4)=0
389     exch2_oj_f(4,4)=0
390     exch2_itlo_c(4,4)=9
391     exch2_ithi_c(4,4)=9
392     exch2_jtlo_c(4,4)=0
393     exch2_jthi_c(4,4)=33
394     exch2_opposingSend_record(4,4)=3
395     RETURN
396     END
397    
398     SUBROUTINE W2_E2SETUP_5
399     C Topology for tile 5
400     #include "W2_EXCH2_TOPOLOGY.h"
401     exch2_tnx(5)=8
402     exch2_tny(5)=32
403     exch2_tbasex(5)=0
404     exch2_tbasey(5)=0
405     exch2_txglobalo(5)=33
406     exch2_tyglobalo(5)=1
407     exch2_isWedge(5)=1
408     exch2_isNedge(5)=1
409     exch2_isEedge(5)=0
410     exch2_isSedge(5)=1
411     exch2_myFace(5)=2
412     exch2_mydnx(5)=32
413     exch2_mydny(5)=32
414     exch2_nNeighbours(5)=4
415    
416     exch2_neighbourId(1,5)=9
417     exch2_pi(1,1,5)=1
418     exch2_pi(2,1,5)=0
419     exch2_pj(1,1,5)=0
420     exch2_pj(2,1,5)=1
421     exch2_oi(1,5)=0
422     exch2_oi_f(1,5)=0
423     exch2_oj(1,5)=32
424     exch2_oj_f(1,5)=32
425     exch2_itlo_c(1,5)=0
426     exch2_ithi_c(1,5)=9
427     exch2_jtlo_c(1,5)=0
428     exch2_jthi_c(1,5)=0
429     exch2_opposingSend_record(1,5)=2
430    
431     exch2_neighbourId(2,5)=24
432     exch2_pi(1,2,5)=0
433     exch2_pi(2,2,5)=-1
434     exch2_pj(1,2,5)=1
435     exch2_pj(2,2,5)=0
436     exch2_oi(2,5)=33
437     exch2_oi_f(2,5)=34
438     exch2_oj(2,5)=-32
439     exch2_oj_f(2,5)=-32
440     exch2_itlo_c(2,5)=9
441     exch2_ithi_c(2,5)=9
442     exch2_jtlo_c(2,5)=24
443     exch2_jthi_c(2,5)=33
444     exch2_opposingSend_record(2,5)=3
445    
446     exch2_neighbourId(3,5)=6
447     exch2_pi(1,3,5)=1
448     exch2_pi(2,3,5)=0
449     exch2_pj(1,3,5)=0
450     exch2_pj(2,3,5)=1
451     exch2_oi(3,5)=0
452     exch2_oi_f(3,5)=0
453     exch2_oj(3,5)=0
454     exch2_oj_f(3,5)=0
455     exch2_itlo_c(3,5)=0
456     exch2_ithi_c(3,5)=0
457     exch2_jtlo_c(3,5)=0
458     exch2_jthi_c(3,5)=33
459     exch2_opposingSend_record(3,5)=4
460    
461     exch2_neighbourId(4,5)=4
462     exch2_pi(1,4,5)=1
463     exch2_pi(2,4,5)=0
464     exch2_pj(1,4,5)=0
465     exch2_pj(2,4,5)=1
466     exch2_oi(4,5)=-32
467     exch2_oi_f(4,5)=-32
468     exch2_oj(4,5)=0
469     exch2_oj_f(4,5)=0
470     exch2_itlo_c(4,5)=9
471     exch2_ithi_c(4,5)=9
472     exch2_jtlo_c(4,5)=0
473     exch2_jthi_c(4,5)=33
474     exch2_opposingSend_record(4,5)=3
475     RETURN
476     END
477    
478     SUBROUTINE W2_E2SETUP_6
479     C Topology for tile 6
480     #include "W2_EXCH2_TOPOLOGY.h"
481     exch2_tnx(6)=8
482     exch2_tny(6)=32
483     exch2_tbasex(6)=8
484     exch2_tbasey(6)=0
485     exch2_txglobalo(6)=41
486     exch2_tyglobalo(6)=1
487     exch2_isWedge(6)=0
488     exch2_isNedge(6)=1
489     exch2_isEedge(6)=0
490     exch2_isSedge(6)=1
491     exch2_myFace(6)=2
492     exch2_mydnx(6)=32
493     exch2_mydny(6)=32
494     exch2_nNeighbours(6)=4
495    
496     exch2_neighbourId(1,6)=10
497     exch2_pi(1,1,6)=1
498     exch2_pi(2,1,6)=0
499     exch2_pj(1,1,6)=0
500     exch2_pj(2,1,6)=1
501     exch2_oi(1,6)=0
502     exch2_oi_f(1,6)=0
503     exch2_oj(1,6)=32
504     exch2_oj_f(1,6)=32
505     exch2_itlo_c(1,6)=0
506     exch2_ithi_c(1,6)=9
507     exch2_jtlo_c(1,6)=0
508     exch2_jthi_c(1,6)=0
509     exch2_opposingSend_record(1,6)=2
510    
511     exch2_neighbourId(2,6)=24
512     exch2_pi(1,2,6)=0
513     exch2_pi(2,2,6)=-1
514     exch2_pj(1,2,6)=1
515     exch2_pj(2,2,6)=0
516     exch2_oi(2,6)=33
517     exch2_oi_f(2,6)=34
518     exch2_oj(2,6)=-32
519     exch2_oj_f(2,6)=-32
520     exch2_itlo_c(2,6)=9
521     exch2_ithi_c(2,6)=9
522     exch2_jtlo_c(2,6)=16
523     exch2_jthi_c(2,6)=25
524     exch2_opposingSend_record(2,6)=4
525    
526     exch2_neighbourId(3,6)=7
527     exch2_pi(1,3,6)=1
528     exch2_pi(2,3,6)=0
529     exch2_pj(1,3,6)=0
530     exch2_pj(2,3,6)=1
531     exch2_oi(3,6)=0
532     exch2_oi_f(3,6)=0
533     exch2_oj(3,6)=0
534     exch2_oj_f(3,6)=0
535     exch2_itlo_c(3,6)=0
536     exch2_ithi_c(3,6)=0
537     exch2_jtlo_c(3,6)=0
538     exch2_jthi_c(3,6)=33
539     exch2_opposingSend_record(3,6)=4
540    
541     exch2_neighbourId(4,6)=5
542     exch2_pi(1,4,6)=1
543     exch2_pi(2,4,6)=0
544     exch2_pj(1,4,6)=0
545     exch2_pj(2,4,6)=1
546     exch2_oi(4,6)=0
547     exch2_oi_f(4,6)=0
548     exch2_oj(4,6)=0
549     exch2_oj_f(4,6)=0
550     exch2_itlo_c(4,6)=9
551     exch2_ithi_c(4,6)=9
552     exch2_jtlo_c(4,6)=0
553     exch2_jthi_c(4,6)=33
554     exch2_opposingSend_record(4,6)=3
555     RETURN
556     END
557    
558     SUBROUTINE W2_E2SETUP_7
559     C Topology for tile 7
560     #include "W2_EXCH2_TOPOLOGY.h"
561     exch2_tnx(7)=8
562     exch2_tny(7)=32
563     exch2_tbasex(7)=16
564     exch2_tbasey(7)=0
565     exch2_txglobalo(7)=49
566     exch2_tyglobalo(7)=1
567     exch2_isWedge(7)=0
568     exch2_isNedge(7)=1
569     exch2_isEedge(7)=0
570     exch2_isSedge(7)=1
571     exch2_myFace(7)=2
572     exch2_mydnx(7)=32
573     exch2_mydny(7)=32
574     exch2_nNeighbours(7)=4
575    
576     exch2_neighbourId(1,7)=11
577     exch2_pi(1,1,7)=1
578     exch2_pi(2,1,7)=0
579     exch2_pj(1,1,7)=0
580     exch2_pj(2,1,7)=1
581     exch2_oi(1,7)=0
582     exch2_oi_f(1,7)=0
583     exch2_oj(1,7)=32
584     exch2_oj_f(1,7)=32
585     exch2_itlo_c(1,7)=0
586     exch2_ithi_c(1,7)=9
587     exch2_jtlo_c(1,7)=0
588     exch2_jthi_c(1,7)=0
589     exch2_opposingSend_record(1,7)=2
590    
591     exch2_neighbourId(2,7)=24
592     exch2_pi(1,2,7)=0
593     exch2_pi(2,2,7)=-1
594     exch2_pj(1,2,7)=1
595     exch2_pj(2,2,7)=0
596     exch2_oi(2,7)=33
597     exch2_oi_f(2,7)=34
598     exch2_oj(2,7)=-32
599     exch2_oj_f(2,7)=-32
600     exch2_itlo_c(2,7)=9
601     exch2_ithi_c(2,7)=9
602     exch2_jtlo_c(2,7)=8
603     exch2_jthi_c(2,7)=17
604     exch2_opposingSend_record(2,7)=5
605    
606     exch2_neighbourId(3,7)=8
607     exch2_pi(1,3,7)=1
608     exch2_pi(2,3,7)=0
609     exch2_pj(1,3,7)=0
610     exch2_pj(2,3,7)=1
611     exch2_oi(3,7)=0
612     exch2_oi_f(3,7)=0
613     exch2_oj(3,7)=0
614     exch2_oj_f(3,7)=0
615     exch2_itlo_c(3,7)=0
616     exch2_ithi_c(3,7)=0
617     exch2_jtlo_c(3,7)=0
618     exch2_jthi_c(3,7)=33
619     exch2_opposingSend_record(3,7)=7
620    
621     exch2_neighbourId(4,7)=6
622     exch2_pi(1,4,7)=1
623     exch2_pi(2,4,7)=0
624     exch2_pj(1,4,7)=0
625     exch2_pj(2,4,7)=1
626     exch2_oi(4,7)=0
627     exch2_oi_f(4,7)=0
628     exch2_oj(4,7)=0
629     exch2_oj_f(4,7)=0
630     exch2_itlo_c(4,7)=9
631     exch2_ithi_c(4,7)=9
632     exch2_jtlo_c(4,7)=0
633     exch2_jthi_c(4,7)=33
634     exch2_opposingSend_record(4,7)=3
635     RETURN
636     END
637    
638     SUBROUTINE W2_E2SETUP_8
639     C Topology for tile 8
640     #include "W2_EXCH2_TOPOLOGY.h"
641     exch2_tnx(8)=8
642     exch2_tny(8)=32
643     exch2_tbasex(8)=24
644     exch2_tbasey(8)=0
645     exch2_txglobalo(8)=57
646     exch2_tyglobalo(8)=1
647     exch2_isWedge(8)=0
648     exch2_isNedge(8)=1
649     exch2_isEedge(8)=1
650     exch2_isSedge(8)=1
651     exch2_myFace(8)=2
652     exch2_mydnx(8)=32
653     exch2_mydny(8)=32
654     exch2_nNeighbours(8)=7
655    
656     exch2_neighbourId(1,8)=12
657     exch2_pi(1,1,8)=1
658     exch2_pi(2,1,8)=0
659     exch2_pj(1,1,8)=0
660     exch2_pj(2,1,8)=1
661     exch2_oi(1,8)=0
662     exch2_oi_f(1,8)=0
663     exch2_oj(1,8)=32
664     exch2_oj_f(1,8)=32
665     exch2_itlo_c(1,8)=0
666     exch2_ithi_c(1,8)=9
667     exch2_jtlo_c(1,8)=0
668     exch2_jthi_c(1,8)=0
669     exch2_opposingSend_record(1,8)=2
670    
671     exch2_neighbourId(2,8)=24
672     exch2_pi(1,2,8)=0
673     exch2_pi(2,2,8)=-1
674     exch2_pj(1,2,8)=1
675     exch2_pj(2,2,8)=0
676     exch2_oi(2,8)=33
677     exch2_oi_f(2,8)=34
678     exch2_oj(2,8)=-32
679     exch2_oj_f(2,8)=-32
680     exch2_itlo_c(2,8)=9
681     exch2_ithi_c(2,8)=9
682     exch2_jtlo_c(2,8)=0
683     exch2_jthi_c(2,8)=9
684     exch2_opposingSend_record(2,8)=6
685    
686     exch2_neighbourId(3,8)=13
687     exch2_pi(1,3,8)=0
688     exch2_pi(2,3,8)=1
689     exch2_pj(1,3,8)=-1
690     exch2_pj(2,3,8)=0
691     exch2_oi(3,8)=32
692     exch2_oi_f(3,8)=32
693     exch2_oj(3,8)=33
694     exch2_oj_f(3,8)=34
695     exch2_itlo_c(3,8)=0
696     exch2_ithi_c(3,8)=9
697     exch2_jtlo_c(3,8)=0
698     exch2_jthi_c(3,8)=0
699     exch2_opposingSend_record(3,8)=2
700    
701     exch2_neighbourId(4,8)=14
702     exch2_pi(1,4,8)=0
703     exch2_pi(2,4,8)=1
704     exch2_pj(1,4,8)=-1
705     exch2_pj(2,4,8)=0
706     exch2_oi(4,8)=32
707     exch2_oi_f(4,8)=32
708     exch2_oj(4,8)=33
709     exch2_oj_f(4,8)=34
710     exch2_itlo_c(4,8)=0
711     exch2_ithi_c(4,8)=9
712     exch2_jtlo_c(4,8)=0
713     exch2_jthi_c(4,8)=0
714     exch2_opposingSend_record(4,8)=2
715    
716     exch2_neighbourId(5,8)=15
717     exch2_pi(1,5,8)=0
718     exch2_pi(2,5,8)=1
719     exch2_pj(1,5,8)=-1
720     exch2_pj(2,5,8)=0
721     exch2_oi(5,8)=32
722     exch2_oi_f(5,8)=32
723     exch2_oj(5,8)=33
724     exch2_oj_f(5,8)=34
725     exch2_itlo_c(5,8)=0
726     exch2_ithi_c(5,8)=9
727     exch2_jtlo_c(5,8)=0
728     exch2_jthi_c(5,8)=0
729     exch2_opposingSend_record(5,8)=2
730    
731     exch2_neighbourId(6,8)=16
732     exch2_pi(1,6,8)=0
733     exch2_pi(2,6,8)=1
734     exch2_pj(1,6,8)=-1
735     exch2_pj(2,6,8)=0
736     exch2_oi(6,8)=32
737     exch2_oi_f(6,8)=32
738     exch2_oj(6,8)=33
739     exch2_oj_f(6,8)=34
740     exch2_itlo_c(6,8)=0
741     exch2_ithi_c(6,8)=9
742     exch2_jtlo_c(6,8)=0
743     exch2_jthi_c(6,8)=0
744     exch2_opposingSend_record(6,8)=2
745    
746     exch2_neighbourId(7,8)=7
747     exch2_pi(1,7,8)=1
748     exch2_pi(2,7,8)=0
749     exch2_pj(1,7,8)=0
750     exch2_pj(2,7,8)=1
751     exch2_oi(7,8)=0
752     exch2_oi_f(7,8)=0
753     exch2_oj(7,8)=0
754     exch2_oj_f(7,8)=0
755     exch2_itlo_c(7,8)=9
756     exch2_ithi_c(7,8)=9
757     exch2_jtlo_c(7,8)=0
758     exch2_jthi_c(7,8)=33
759     exch2_opposingSend_record(7,8)=3
760     RETURN
761     END
762    
763     SUBROUTINE W2_E2SETUP_9
764     C Topology for tile 9
765     #include "W2_EXCH2_TOPOLOGY.h"
766     exch2_tnx(9)=8
767     exch2_tny(9)=32
768     exch2_tbasex(9)=0
769     exch2_tbasey(9)=0
770     exch2_txglobalo(9)=65
771     exch2_tyglobalo(9)=1
772     exch2_isWedge(9)=1
773     exch2_isNedge(9)=1
774     exch2_isEedge(9)=0
775     exch2_isSedge(9)=1
776     exch2_myFace(9)=3
777     exch2_mydnx(9)=32
778     exch2_mydny(9)=32
779     exch2_nNeighbours(9)=7
780    
781     exch2_neighbourId(1,9)=17
782     exch2_pi(1,1,9)=0
783     exch2_pi(2,1,9)=-1
784     exch2_pj(1,1,9)=1
785     exch2_pj(2,1,9)=0
786     exch2_oi(1,9)=33
787     exch2_oi_f(1,9)=34
788     exch2_oj(1,9)=32
789     exch2_oj_f(1,9)=32
790     exch2_itlo_c(1,9)=0
791     exch2_ithi_c(1,9)=0
792     exch2_jtlo_c(1,9)=24
793     exch2_jthi_c(1,9)=33
794     exch2_opposingSend_record(1,9)=4
795    
796     exch2_neighbourId(2,9)=5
797     exch2_pi(1,2,9)=1
798     exch2_pi(2,2,9)=0
799     exch2_pj(1,2,9)=0
800     exch2_pj(2,2,9)=1
801     exch2_oi(2,9)=0
802     exch2_oi_f(2,9)=0
803     exch2_oj(2,9)=-32
804     exch2_oj_f(2,9)=-32
805     exch2_itlo_c(2,9)=0
806     exch2_ithi_c(2,9)=9
807     exch2_jtlo_c(2,9)=33
808     exch2_jthi_c(2,9)=33
809     exch2_opposingSend_record(2,9)=1
810    
811     exch2_neighbourId(3,9)=10
812     exch2_pi(1,3,9)=1
813     exch2_pi(2,3,9)=0
814     exch2_pj(1,3,9)=0
815     exch2_pj(2,3,9)=1
816     exch2_oi(3,9)=0
817     exch2_oi_f(3,9)=0
818     exch2_oj(3,9)=0
819     exch2_oj_f(3,9)=0
820     exch2_itlo_c(3,9)=0
821     exch2_ithi_c(3,9)=0
822     exch2_jtlo_c(3,9)=0
823     exch2_jthi_c(3,9)=33
824     exch2_opposingSend_record(3,9)=4
825    
826     exch2_neighbourId(4,9)=1
827     exch2_pi(1,4,9)=0
828     exch2_pi(2,4,9)=1
829     exch2_pj(1,4,9)=-1
830     exch2_pj(2,4,9)=0
831     exch2_oi(4,9)=-32
832     exch2_oi_f(4,9)=-32
833     exch2_oj(4,9)=33
834     exch2_oj_f(4,9)=34
835     exch2_itlo_c(4,9)=0
836     exch2_ithi_c(4,9)=9
837     exch2_jtlo_c(4,9)=33
838     exch2_jthi_c(4,9)=33
839     exch2_opposingSend_record(4,9)=1
840    
841     exch2_neighbourId(5,9)=2
842     exch2_pi(1,5,9)=0
843     exch2_pi(2,5,9)=1
844     exch2_pj(1,5,9)=-1
845     exch2_pj(2,5,9)=0
846     exch2_oi(5,9)=-32
847     exch2_oi_f(5,9)=-32
848     exch2_oj(5,9)=33
849     exch2_oj_f(5,9)=34
850     exch2_itlo_c(5,9)=0
851     exch2_ithi_c(5,9)=9
852     exch2_jtlo_c(5,9)=33
853     exch2_jthi_c(5,9)=33
854     exch2_opposingSend_record(5,9)=1
855    
856     exch2_neighbourId(6,9)=3
857     exch2_pi(1,6,9)=0
858     exch2_pi(2,6,9)=1
859     exch2_pj(1,6,9)=-1
860     exch2_pj(2,6,9)=0
861     exch2_oi(6,9)=-32
862     exch2_oi_f(6,9)=-32
863     exch2_oj(6,9)=33
864     exch2_oj_f(6,9)=34
865     exch2_itlo_c(6,9)=0
866     exch2_ithi_c(6,9)=9
867     exch2_jtlo_c(6,9)=33
868     exch2_jthi_c(6,9)=33
869     exch2_opposingSend_record(6,9)=1
870    
871     exch2_neighbourId(7,9)=4
872     exch2_pi(1,7,9)=0
873     exch2_pi(2,7,9)=1
874     exch2_pj(1,7,9)=-1
875     exch2_pj(2,7,9)=0
876     exch2_oi(7,9)=-32
877     exch2_oi_f(7,9)=-32
878     exch2_oj(7,9)=33
879     exch2_oj_f(7,9)=34
880     exch2_itlo_c(7,9)=0
881     exch2_ithi_c(7,9)=9
882     exch2_jtlo_c(7,9)=33
883     exch2_jthi_c(7,9)=33
884     exch2_opposingSend_record(7,9)=1
885     RETURN
886     END
887    
888     SUBROUTINE W2_E2SETUP_10
889     C Topology for tile 10
890     #include "W2_EXCH2_TOPOLOGY.h"
891     exch2_tnx(10)=8
892     exch2_tny(10)=32
893     exch2_tbasex(10)=8
894     exch2_tbasey(10)=0
895     exch2_txglobalo(10)=73
896     exch2_tyglobalo(10)=1
897     exch2_isWedge(10)=0
898     exch2_isNedge(10)=1
899     exch2_isEedge(10)=0
900     exch2_isSedge(10)=1
901     exch2_myFace(10)=3
902     exch2_mydnx(10)=32
903     exch2_mydny(10)=32
904     exch2_nNeighbours(10)=4
905    
906     exch2_neighbourId(1,10)=17
907     exch2_pi(1,1,10)=0
908     exch2_pi(2,1,10)=-1
909     exch2_pj(1,1,10)=1
910     exch2_pj(2,1,10)=0
911     exch2_oi(1,10)=33
912     exch2_oi_f(1,10)=34
913     exch2_oj(1,10)=32
914     exch2_oj_f(1,10)=32
915     exch2_itlo_c(1,10)=0
916     exch2_ithi_c(1,10)=0
917     exch2_jtlo_c(1,10)=16
918     exch2_jthi_c(1,10)=25
919     exch2_opposingSend_record(1,10)=5
920    
921     exch2_neighbourId(2,10)=6
922     exch2_pi(1,2,10)=1
923     exch2_pi(2,2,10)=0
924     exch2_pj(1,2,10)=0
925     exch2_pj(2,2,10)=1
926     exch2_oi(2,10)=0
927     exch2_oi_f(2,10)=0
928     exch2_oj(2,10)=-32
929     exch2_oj_f(2,10)=-32
930     exch2_itlo_c(2,10)=0
931     exch2_ithi_c(2,10)=9
932     exch2_jtlo_c(2,10)=33
933     exch2_jthi_c(2,10)=33
934     exch2_opposingSend_record(2,10)=1
935    
936     exch2_neighbourId(3,10)=11
937     exch2_pi(1,3,10)=1
938     exch2_pi(2,3,10)=0
939     exch2_pj(1,3,10)=0
940     exch2_pj(2,3,10)=1
941     exch2_oi(3,10)=0
942     exch2_oi_f(3,10)=0
943     exch2_oj(3,10)=0
944     exch2_oj_f(3,10)=0
945     exch2_itlo_c(3,10)=0
946     exch2_ithi_c(3,10)=0
947     exch2_jtlo_c(3,10)=0
948     exch2_jthi_c(3,10)=33
949     exch2_opposingSend_record(3,10)=4
950    
951     exch2_neighbourId(4,10)=9
952     exch2_pi(1,4,10)=1
953     exch2_pi(2,4,10)=0
954     exch2_pj(1,4,10)=0
955     exch2_pj(2,4,10)=1
956     exch2_oi(4,10)=0
957     exch2_oi_f(4,10)=0
958     exch2_oj(4,10)=0
959     exch2_oj_f(4,10)=0
960     exch2_itlo_c(4,10)=9
961     exch2_ithi_c(4,10)=9
962     exch2_jtlo_c(4,10)=0
963     exch2_jthi_c(4,10)=33
964     exch2_opposingSend_record(4,10)=3
965     RETURN
966     END
967    
968     SUBROUTINE W2_E2SETUP_11
969     C Topology for tile 11
970     #include "W2_EXCH2_TOPOLOGY.h"
971     exch2_tnx(11)=8
972     exch2_tny(11)=32
973     exch2_tbasex(11)=16
974     exch2_tbasey(11)=0
975     exch2_txglobalo(11)=81
976     exch2_tyglobalo(11)=1
977     exch2_isWedge(11)=0
978     exch2_isNedge(11)=1
979     exch2_isEedge(11)=0
980     exch2_isSedge(11)=1
981     exch2_myFace(11)=3
982     exch2_mydnx(11)=32
983     exch2_mydny(11)=32
984     exch2_nNeighbours(11)=4
985    
986     exch2_neighbourId(1,11)=17
987     exch2_pi(1,1,11)=0
988     exch2_pi(2,1,11)=-1
989     exch2_pj(1,1,11)=1
990     exch2_pj(2,1,11)=0
991     exch2_oi(1,11)=33
992     exch2_oi_f(1,11)=34
993     exch2_oj(1,11)=32
994     exch2_oj_f(1,11)=32
995     exch2_itlo_c(1,11)=0
996     exch2_ithi_c(1,11)=0
997     exch2_jtlo_c(1,11)=8
998     exch2_jthi_c(1,11)=17
999     exch2_opposingSend_record(1,11)=6
1000    
1001     exch2_neighbourId(2,11)=7
1002     exch2_pi(1,2,11)=1
1003     exch2_pi(2,2,11)=0
1004     exch2_pj(1,2,11)=0
1005     exch2_pj(2,2,11)=1
1006     exch2_oi(2,11)=0
1007     exch2_oi_f(2,11)=0
1008     exch2_oj(2,11)=-32
1009     exch2_oj_f(2,11)=-32
1010     exch2_itlo_c(2,11)=0
1011     exch2_ithi_c(2,11)=9
1012     exch2_jtlo_c(2,11)=33
1013     exch2_jthi_c(2,11)=33
1014     exch2_opposingSend_record(2,11)=1
1015    
1016     exch2_neighbourId(3,11)=12
1017     exch2_pi(1,3,11)=1
1018     exch2_pi(2,3,11)=0
1019     exch2_pj(1,3,11)=0
1020     exch2_pj(2,3,11)=1
1021     exch2_oi(3,11)=0
1022     exch2_oi_f(3,11)=0
1023     exch2_oj(3,11)=0
1024     exch2_oj_f(3,11)=0
1025     exch2_itlo_c(3,11)=0
1026     exch2_ithi_c(3,11)=0
1027     exch2_jtlo_c(3,11)=0
1028     exch2_jthi_c(3,11)=33
1029     exch2_opposingSend_record(3,11)=4
1030    
1031     exch2_neighbourId(4,11)=10
1032     exch2_pi(1,4,11)=1
1033     exch2_pi(2,4,11)=0
1034     exch2_pj(1,4,11)=0
1035     exch2_pj(2,4,11)=1
1036     exch2_oi(4,11)=0
1037     exch2_oi_f(4,11)=0
1038     exch2_oj(4,11)=0
1039     exch2_oj_f(4,11)=0
1040     exch2_itlo_c(4,11)=9
1041     exch2_ithi_c(4,11)=9
1042     exch2_jtlo_c(4,11)=0
1043     exch2_jthi_c(4,11)=33
1044     exch2_opposingSend_record(4,11)=3
1045     RETURN
1046     END
1047    
1048     SUBROUTINE W2_E2SETUP_12
1049     C Topology for tile 12
1050     #include "W2_EXCH2_TOPOLOGY.h"
1051     exch2_tnx(12)=8
1052     exch2_tny(12)=32
1053     exch2_tbasex(12)=24
1054     exch2_tbasey(12)=0
1055     exch2_txglobalo(12)=89
1056     exch2_tyglobalo(12)=1
1057     exch2_isWedge(12)=0
1058     exch2_isNedge(12)=1
1059     exch2_isEedge(12)=1
1060     exch2_isSedge(12)=1
1061     exch2_myFace(12)=3
1062     exch2_mydnx(12)=32
1063     exch2_mydny(12)=32
1064     exch2_nNeighbours(12)=4
1065    
1066     exch2_neighbourId(1,12)=17
1067     exch2_pi(1,1,12)=0
1068     exch2_pi(2,1,12)=-1
1069     exch2_pj(1,1,12)=1
1070     exch2_pj(2,1,12)=0
1071     exch2_oi(1,12)=33
1072     exch2_oi_f(1,12)=34
1073     exch2_oj(1,12)=32
1074     exch2_oj_f(1,12)=32
1075     exch2_itlo_c(1,12)=0
1076     exch2_ithi_c(1,12)=0
1077     exch2_jtlo_c(1,12)=0
1078     exch2_jthi_c(1,12)=9
1079     exch2_opposingSend_record(1,12)=7
1080    
1081     exch2_neighbourId(2,12)=8
1082     exch2_pi(1,2,12)=1
1083     exch2_pi(2,2,12)=0
1084     exch2_pj(1,2,12)=0
1085     exch2_pj(2,2,12)=1
1086     exch2_oi(2,12)=0
1087     exch2_oi_f(2,12)=0
1088     exch2_oj(2,12)=-32
1089     exch2_oj_f(2,12)=-32
1090     exch2_itlo_c(2,12)=0
1091     exch2_ithi_c(2,12)=9
1092     exch2_jtlo_c(2,12)=33
1093     exch2_jthi_c(2,12)=33
1094     exch2_opposingSend_record(2,12)=1
1095    
1096     exch2_neighbourId(3,12)=13
1097     exch2_pi(1,3,12)=1
1098     exch2_pi(2,3,12)=0
1099     exch2_pj(1,3,12)=0
1100     exch2_pj(2,3,12)=1
1101     exch2_oi(3,12)=32
1102     exch2_oi_f(3,12)=32
1103     exch2_oj(3,12)=0
1104     exch2_oj_f(3,12)=0
1105     exch2_itlo_c(3,12)=0
1106     exch2_ithi_c(3,12)=0
1107     exch2_jtlo_c(3,12)=0
1108     exch2_jthi_c(3,12)=33
1109     exch2_opposingSend_record(3,12)=4
1110    
1111     exch2_neighbourId(4,12)=11
1112     exch2_pi(1,4,12)=1
1113     exch2_pi(2,4,12)=0
1114     exch2_pj(1,4,12)=0
1115     exch2_pj(2,4,12)=1
1116     exch2_oi(4,12)=0
1117     exch2_oi_f(4,12)=0
1118     exch2_oj(4,12)=0
1119     exch2_oj_f(4,12)=0
1120     exch2_itlo_c(4,12)=9
1121     exch2_ithi_c(4,12)=9
1122     exch2_jtlo_c(4,12)=0
1123     exch2_jthi_c(4,12)=33
1124     exch2_opposingSend_record(4,12)=3
1125     RETURN
1126     END
1127    
1128     SUBROUTINE W2_E2SETUP_13
1129     C Topology for tile 13
1130     #include "W2_EXCH2_TOPOLOGY.h"
1131     exch2_tnx(13)=8
1132     exch2_tny(13)=32
1133     exch2_tbasex(13)=0
1134     exch2_tbasey(13)=0
1135     exch2_txglobalo(13)=97
1136     exch2_tyglobalo(13)=1
1137     exch2_isWedge(13)=1
1138     exch2_isNedge(13)=1
1139     exch2_isEedge(13)=0
1140     exch2_isSedge(13)=1
1141     exch2_myFace(13)=4
1142     exch2_mydnx(13)=32
1143     exch2_mydny(13)=32
1144     exch2_nNeighbours(13)=4
1145    
1146     exch2_neighbourId(1,13)=17
1147     exch2_pi(1,1,13)=1
1148     exch2_pi(2,1,13)=0
1149     exch2_pj(1,1,13)=0
1150     exch2_pj(2,1,13)=1
1151     exch2_oi(1,13)=0
1152     exch2_oi_f(1,13)=0
1153     exch2_oj(1,13)=32
1154     exch2_oj_f(1,13)=32
1155     exch2_itlo_c(1,13)=0
1156     exch2_ithi_c(1,13)=9
1157     exch2_jtlo_c(1,13)=0
1158     exch2_jthi_c(1,13)=0
1159     exch2_opposingSend_record(1,13)=2
1160    
1161     exch2_neighbourId(2,13)=8
1162     exch2_pi(1,2,13)=0
1163     exch2_pi(2,2,13)=-1
1164     exch2_pj(1,2,13)=1
1165     exch2_pj(2,2,13)=0
1166     exch2_oi(2,13)=33
1167     exch2_oi_f(2,13)=34
1168     exch2_oj(2,13)=-32
1169     exch2_oj_f(2,13)=-32
1170     exch2_itlo_c(2,13)=9
1171     exch2_ithi_c(2,13)=9
1172     exch2_jtlo_c(2,13)=24
1173     exch2_jthi_c(2,13)=33
1174     exch2_opposingSend_record(2,13)=3
1175    
1176     exch2_neighbourId(3,13)=14
1177     exch2_pi(1,3,13)=1
1178     exch2_pi(2,3,13)=0
1179     exch2_pj(1,3,13)=0
1180     exch2_pj(2,3,13)=1
1181     exch2_oi(3,13)=0
1182     exch2_oi_f(3,13)=0
1183     exch2_oj(3,13)=0
1184     exch2_oj_f(3,13)=0
1185     exch2_itlo_c(3,13)=0
1186     exch2_ithi_c(3,13)=0
1187     exch2_jtlo_c(3,13)=0
1188     exch2_jthi_c(3,13)=33
1189     exch2_opposingSend_record(3,13)=4
1190    
1191     exch2_neighbourId(4,13)=12
1192     exch2_pi(1,4,13)=1
1193     exch2_pi(2,4,13)=0
1194     exch2_pj(1,4,13)=0
1195     exch2_pj(2,4,13)=1
1196     exch2_oi(4,13)=-32
1197     exch2_oi_f(4,13)=-32
1198     exch2_oj(4,13)=0
1199     exch2_oj_f(4,13)=0
1200     exch2_itlo_c(4,13)=9
1201     exch2_ithi_c(4,13)=9
1202     exch2_jtlo_c(4,13)=0
1203     exch2_jthi_c(4,13)=33
1204     exch2_opposingSend_record(4,13)=3
1205     RETURN
1206     END
1207    
1208     SUBROUTINE W2_E2SETUP_14
1209     C Topology for tile 14
1210     #include "W2_EXCH2_TOPOLOGY.h"
1211     exch2_tnx(14)=8
1212     exch2_tny(14)=32
1213     exch2_tbasex(14)=8
1214     exch2_tbasey(14)=0
1215     exch2_txglobalo(14)=105
1216     exch2_tyglobalo(14)=1
1217     exch2_isWedge(14)=0
1218     exch2_isNedge(14)=1
1219     exch2_isEedge(14)=0
1220     exch2_isSedge(14)=1
1221     exch2_myFace(14)=4
1222     exch2_mydnx(14)=32
1223     exch2_mydny(14)=32
1224     exch2_nNeighbours(14)=4
1225    
1226     exch2_neighbourId(1,14)=18
1227     exch2_pi(1,1,14)=1
1228     exch2_pi(2,1,14)=0
1229     exch2_pj(1,1,14)=0
1230     exch2_pj(2,1,14)=1
1231     exch2_oi(1,14)=0
1232     exch2_oi_f(1,14)=0
1233     exch2_oj(1,14)=32
1234     exch2_oj_f(1,14)=32
1235     exch2_itlo_c(1,14)=0
1236     exch2_ithi_c(1,14)=9
1237     exch2_jtlo_c(1,14)=0
1238     exch2_jthi_c(1,14)=0
1239     exch2_opposingSend_record(1,14)=2
1240    
1241     exch2_neighbourId(2,14)=8
1242     exch2_pi(1,2,14)=0
1243     exch2_pi(2,2,14)=-1
1244     exch2_pj(1,2,14)=1
1245     exch2_pj(2,2,14)=0
1246     exch2_oi(2,14)=33
1247     exch2_oi_f(2,14)=34
1248     exch2_oj(2,14)=-32
1249     exch2_oj_f(2,14)=-32
1250     exch2_itlo_c(2,14)=9
1251     exch2_ithi_c(2,14)=9
1252     exch2_jtlo_c(2,14)=16
1253     exch2_jthi_c(2,14)=25
1254     exch2_opposingSend_record(2,14)=4
1255    
1256     exch2_neighbourId(3,14)=15
1257     exch2_pi(1,3,14)=1
1258     exch2_pi(2,3,14)=0
1259     exch2_pj(1,3,14)=0
1260     exch2_pj(2,3,14)=1
1261     exch2_oi(3,14)=0
1262     exch2_oi_f(3,14)=0
1263     exch2_oj(3,14)=0
1264     exch2_oj_f(3,14)=0
1265     exch2_itlo_c(3,14)=0
1266     exch2_ithi_c(3,14)=0
1267     exch2_jtlo_c(3,14)=0
1268     exch2_jthi_c(3,14)=33
1269     exch2_opposingSend_record(3,14)=4
1270    
1271     exch2_neighbourId(4,14)=13
1272     exch2_pi(1,4,14)=1
1273     exch2_pi(2,4,14)=0
1274     exch2_pj(1,4,14)=0
1275     exch2_pj(2,4,14)=1
1276     exch2_oi(4,14)=0
1277     exch2_oi_f(4,14)=0
1278     exch2_oj(4,14)=0
1279     exch2_oj_f(4,14)=0
1280     exch2_itlo_c(4,14)=9
1281     exch2_ithi_c(4,14)=9
1282     exch2_jtlo_c(4,14)=0
1283     exch2_jthi_c(4,14)=33
1284     exch2_opposingSend_record(4,14)=3
1285     RETURN
1286     END
1287    
1288     SUBROUTINE W2_E2SETUP_15
1289     C Topology for tile 15
1290     #include "W2_EXCH2_TOPOLOGY.h"
1291     exch2_tnx(15)=8
1292     exch2_tny(15)=32
1293     exch2_tbasex(15)=16
1294     exch2_tbasey(15)=0
1295     exch2_txglobalo(15)=113
1296     exch2_tyglobalo(15)=1
1297     exch2_isWedge(15)=0
1298     exch2_isNedge(15)=1
1299     exch2_isEedge(15)=0
1300     exch2_isSedge(15)=1
1301     exch2_myFace(15)=4
1302     exch2_mydnx(15)=32
1303     exch2_mydny(15)=32
1304     exch2_nNeighbours(15)=4
1305    
1306     exch2_neighbourId(1,15)=19
1307     exch2_pi(1,1,15)=1
1308     exch2_pi(2,1,15)=0
1309     exch2_pj(1,1,15)=0
1310     exch2_pj(2,1,15)=1
1311     exch2_oi(1,15)=0
1312     exch2_oi_f(1,15)=0
1313     exch2_oj(1,15)=32
1314     exch2_oj_f(1,15)=32
1315     exch2_itlo_c(1,15)=0
1316     exch2_ithi_c(1,15)=9
1317     exch2_jtlo_c(1,15)=0
1318     exch2_jthi_c(1,15)=0
1319     exch2_opposingSend_record(1,15)=2
1320    
1321     exch2_neighbourId(2,15)=8
1322     exch2_pi(1,2,15)=0
1323     exch2_pi(2,2,15)=-1
1324     exch2_pj(1,2,15)=1
1325     exch2_pj(2,2,15)=0
1326     exch2_oi(2,15)=33
1327     exch2_oi_f(2,15)=34
1328     exch2_oj(2,15)=-32
1329     exch2_oj_f(2,15)=-32
1330     exch2_itlo_c(2,15)=9
1331     exch2_ithi_c(2,15)=9
1332     exch2_jtlo_c(2,15)=8
1333     exch2_jthi_c(2,15)=17
1334     exch2_opposingSend_record(2,15)=5
1335    
1336     exch2_neighbourId(3,15)=16
1337     exch2_pi(1,3,15)=1
1338     exch2_pi(2,3,15)=0
1339     exch2_pj(1,3,15)=0
1340     exch2_pj(2,3,15)=1
1341     exch2_oi(3,15)=0
1342     exch2_oi_f(3,15)=0
1343     exch2_oj(3,15)=0
1344     exch2_oj_f(3,15)=0
1345     exch2_itlo_c(3,15)=0
1346     exch2_ithi_c(3,15)=0
1347     exch2_jtlo_c(3,15)=0
1348     exch2_jthi_c(3,15)=33
1349     exch2_opposingSend_record(3,15)=7
1350    
1351     exch2_neighbourId(4,15)=14
1352     exch2_pi(1,4,15)=1
1353     exch2_pi(2,4,15)=0
1354     exch2_pj(1,4,15)=0
1355     exch2_pj(2,4,15)=1
1356     exch2_oi(4,15)=0
1357     exch2_oi_f(4,15)=0
1358     exch2_oj(4,15)=0
1359     exch2_oj_f(4,15)=0
1360     exch2_itlo_c(4,15)=9
1361     exch2_ithi_c(4,15)=9
1362     exch2_jtlo_c(4,15)=0
1363     exch2_jthi_c(4,15)=33
1364     exch2_opposingSend_record(4,15)=3
1365     RETURN
1366     END
1367    
1368     SUBROUTINE W2_E2SETUP_16
1369     C Topology for tile 16
1370     #include "W2_EXCH2_TOPOLOGY.h"
1371     exch2_tnx(16)=8
1372     exch2_tny(16)=32
1373     exch2_tbasex(16)=24
1374     exch2_tbasey(16)=0
1375     exch2_txglobalo(16)=121
1376     exch2_tyglobalo(16)=1
1377     exch2_isWedge(16)=0
1378     exch2_isNedge(16)=1
1379     exch2_isEedge(16)=1
1380     exch2_isSedge(16)=1
1381     exch2_myFace(16)=4
1382     exch2_mydnx(16)=32
1383     exch2_mydny(16)=32
1384     exch2_nNeighbours(16)=7
1385    
1386     exch2_neighbourId(1,16)=20
1387     exch2_pi(1,1,16)=1
1388     exch2_pi(2,1,16)=0
1389     exch2_pj(1,1,16)=0
1390     exch2_pj(2,1,16)=1
1391     exch2_oi(1,16)=0
1392     exch2_oi_f(1,16)=0
1393     exch2_oj(1,16)=32
1394     exch2_oj_f(1,16)=32
1395     exch2_itlo_c(1,16)=0
1396     exch2_ithi_c(1,16)=9
1397     exch2_jtlo_c(1,16)=0
1398     exch2_jthi_c(1,16)=0
1399     exch2_opposingSend_record(1,16)=2
1400    
1401     exch2_neighbourId(2,16)=8
1402     exch2_pi(1,2,16)=0
1403     exch2_pi(2,2,16)=-1
1404     exch2_pj(1,2,16)=1
1405     exch2_pj(2,2,16)=0
1406     exch2_oi(2,16)=33
1407     exch2_oi_f(2,16)=34
1408     exch2_oj(2,16)=-32
1409     exch2_oj_f(2,16)=-32
1410     exch2_itlo_c(2,16)=9
1411     exch2_ithi_c(2,16)=9
1412     exch2_jtlo_c(2,16)=0
1413     exch2_jthi_c(2,16)=9
1414     exch2_opposingSend_record(2,16)=6
1415    
1416     exch2_neighbourId(3,16)=21
1417     exch2_pi(1,3,16)=0
1418     exch2_pi(2,3,16)=1
1419     exch2_pj(1,3,16)=-1
1420     exch2_pj(2,3,16)=0
1421     exch2_oi(3,16)=32
1422     exch2_oi_f(3,16)=32
1423     exch2_oj(3,16)=33
1424     exch2_oj_f(3,16)=34
1425     exch2_itlo_c(3,16)=0
1426     exch2_ithi_c(3,16)=9
1427     exch2_jtlo_c(3,16)=0
1428     exch2_jthi_c(3,16)=0
1429     exch2_opposingSend_record(3,16)=2
1430    
1431     exch2_neighbourId(4,16)=22
1432     exch2_pi(1,4,16)=0
1433     exch2_pi(2,4,16)=1
1434     exch2_pj(1,4,16)=-1
1435     exch2_pj(2,4,16)=0
1436     exch2_oi(4,16)=32
1437     exch2_oi_f(4,16)=32
1438     exch2_oj(4,16)=33
1439     exch2_oj_f(4,16)=34
1440     exch2_itlo_c(4,16)=0
1441     exch2_ithi_c(4,16)=9
1442     exch2_jtlo_c(4,16)=0
1443     exch2_jthi_c(4,16)=0
1444     exch2_opposingSend_record(4,16)=2
1445    
1446     exch2_neighbourId(5,16)=23
1447     exch2_pi(1,5,16)=0
1448     exch2_pi(2,5,16)=1
1449     exch2_pj(1,5,16)=-1
1450     exch2_pj(2,5,16)=0
1451     exch2_oi(5,16)=32
1452     exch2_oi_f(5,16)=32
1453     exch2_oj(5,16)=33
1454     exch2_oj_f(5,16)=34
1455     exch2_itlo_c(5,16)=0
1456     exch2_ithi_c(5,16)=9
1457     exch2_jtlo_c(5,16)=0
1458     exch2_jthi_c(5,16)=0
1459     exch2_opposingSend_record(5,16)=2
1460    
1461     exch2_neighbourId(6,16)=24
1462     exch2_pi(1,6,16)=0
1463     exch2_pi(2,6,16)=1
1464     exch2_pj(1,6,16)=-1
1465     exch2_pj(2,6,16)=0
1466     exch2_oi(6,16)=32
1467     exch2_oi_f(6,16)=32
1468     exch2_oj(6,16)=33
1469     exch2_oj_f(6,16)=34
1470     exch2_itlo_c(6,16)=0
1471     exch2_ithi_c(6,16)=9
1472     exch2_jtlo_c(6,16)=0
1473     exch2_jthi_c(6,16)=0
1474     exch2_opposingSend_record(6,16)=2
1475    
1476     exch2_neighbourId(7,16)=15
1477     exch2_pi(1,7,16)=1
1478     exch2_pi(2,7,16)=0
1479     exch2_pj(1,7,16)=0
1480     exch2_pj(2,7,16)=1
1481     exch2_oi(7,16)=0
1482     exch2_oi_f(7,16)=0
1483     exch2_oj(7,16)=0
1484     exch2_oj_f(7,16)=0
1485     exch2_itlo_c(7,16)=9
1486     exch2_ithi_c(7,16)=9
1487     exch2_jtlo_c(7,16)=0
1488     exch2_jthi_c(7,16)=33
1489     exch2_opposingSend_record(7,16)=3
1490     RETURN
1491     END
1492    
1493     SUBROUTINE W2_E2SETUP_17
1494     C Topology for tile 17
1495     #include "W2_EXCH2_TOPOLOGY.h"
1496     exch2_tnx(17)=8
1497     exch2_tny(17)=32
1498     exch2_tbasex(17)=0
1499     exch2_tbasey(17)=0
1500     exch2_txglobalo(17)=129
1501     exch2_tyglobalo(17)=1
1502     exch2_isWedge(17)=1
1503     exch2_isNedge(17)=1
1504     exch2_isEedge(17)=0
1505     exch2_isSedge(17)=1
1506     exch2_myFace(17)=5
1507     exch2_mydnx(17)=32
1508     exch2_mydny(17)=32
1509     exch2_nNeighbours(17)=7
1510    
1511     exch2_neighbourId(1,17)=1
1512     exch2_pi(1,1,17)=0
1513     exch2_pi(2,1,17)=-1
1514     exch2_pj(1,1,17)=1
1515     exch2_pj(2,1,17)=0
1516     exch2_oi(1,17)=33
1517     exch2_oi_f(1,17)=34
1518     exch2_oj(1,17)=32
1519     exch2_oj_f(1,17)=32
1520     exch2_itlo_c(1,17)=0
1521     exch2_ithi_c(1,17)=0
1522     exch2_jtlo_c(1,17)=24
1523     exch2_jthi_c(1,17)=33
1524     exch2_opposingSend_record(1,17)=4
1525    
1526     exch2_neighbourId(2,17)=13
1527     exch2_pi(1,2,17)=1
1528     exch2_pi(2,2,17)=0
1529     exch2_pj(1,2,17)=0
1530     exch2_pj(2,2,17)=1
1531     exch2_oi(2,17)=0
1532     exch2_oi_f(2,17)=0
1533     exch2_oj(2,17)=-32
1534     exch2_oj_f(2,17)=-32
1535     exch2_itlo_c(2,17)=0
1536     exch2_ithi_c(2,17)=9
1537     exch2_jtlo_c(2,17)=33
1538     exch2_jthi_c(2,17)=33
1539     exch2_opposingSend_record(2,17)=1
1540    
1541     exch2_neighbourId(3,17)=18
1542     exch2_pi(1,3,17)=1
1543     exch2_pi(2,3,17)=0
1544     exch2_pj(1,3,17)=0
1545     exch2_pj(2,3,17)=1
1546     exch2_oi(3,17)=0
1547     exch2_oi_f(3,17)=0
1548     exch2_oj(3,17)=0
1549     exch2_oj_f(3,17)=0
1550     exch2_itlo_c(3,17)=0
1551     exch2_ithi_c(3,17)=0
1552     exch2_jtlo_c(3,17)=0
1553     exch2_jthi_c(3,17)=33
1554     exch2_opposingSend_record(3,17)=4
1555    
1556     exch2_neighbourId(4,17)=9
1557     exch2_pi(1,4,17)=0
1558     exch2_pi(2,4,17)=1
1559     exch2_pj(1,4,17)=-1
1560     exch2_pj(2,4,17)=0
1561     exch2_oi(4,17)=-32
1562     exch2_oi_f(4,17)=-32
1563     exch2_oj(4,17)=33
1564     exch2_oj_f(4,17)=34
1565     exch2_itlo_c(4,17)=0
1566     exch2_ithi_c(4,17)=9
1567     exch2_jtlo_c(4,17)=33
1568     exch2_jthi_c(4,17)=33
1569     exch2_opposingSend_record(4,17)=1
1570    
1571     exch2_neighbourId(5,17)=10
1572     exch2_pi(1,5,17)=0
1573     exch2_pi(2,5,17)=1
1574     exch2_pj(1,5,17)=-1
1575     exch2_pj(2,5,17)=0
1576     exch2_oi(5,17)=-32
1577     exch2_oi_f(5,17)=-32
1578     exch2_oj(5,17)=33
1579     exch2_oj_f(5,17)=34
1580     exch2_itlo_c(5,17)=0
1581     exch2_ithi_c(5,17)=9
1582     exch2_jtlo_c(5,17)=33
1583     exch2_jthi_c(5,17)=33
1584     exch2_opposingSend_record(5,17)=1
1585    
1586     exch2_neighbourId(6,17)=11
1587     exch2_pi(1,6,17)=0
1588     exch2_pi(2,6,17)=1
1589     exch2_pj(1,6,17)=-1
1590     exch2_pj(2,6,17)=0
1591     exch2_oi(6,17)=-32
1592     exch2_oi_f(6,17)=-32
1593     exch2_oj(6,17)=33
1594     exch2_oj_f(6,17)=34
1595     exch2_itlo_c(6,17)=0
1596     exch2_ithi_c(6,17)=9
1597     exch2_jtlo_c(6,17)=33
1598     exch2_jthi_c(6,17)=33
1599     exch2_opposingSend_record(6,17)=1
1600    
1601     exch2_neighbourId(7,17)=12
1602     exch2_pi(1,7,17)=0
1603     exch2_pi(2,7,17)=1
1604     exch2_pj(1,7,17)=-1
1605     exch2_pj(2,7,17)=0
1606     exch2_oi(7,17)=-32
1607     exch2_oi_f(7,17)=-32
1608     exch2_oj(7,17)=33
1609     exch2_oj_f(7,17)=34
1610     exch2_itlo_c(7,17)=0
1611     exch2_ithi_c(7,17)=9
1612     exch2_jtlo_c(7,17)=33
1613     exch2_jthi_c(7,17)=33
1614     exch2_opposingSend_record(7,17)=1
1615     RETURN
1616     END
1617    
1618     SUBROUTINE W2_E2SETUP_18
1619     C Topology for tile 18
1620     #include "W2_EXCH2_TOPOLOGY.h"
1621     exch2_tnx(18)=8
1622     exch2_tny(18)=32
1623     exch2_tbasex(18)=8
1624     exch2_tbasey(18)=0
1625     exch2_txglobalo(18)=137
1626     exch2_tyglobalo(18)=1
1627     exch2_isWedge(18)=0
1628     exch2_isNedge(18)=1
1629     exch2_isEedge(18)=0
1630     exch2_isSedge(18)=1
1631     exch2_myFace(18)=5
1632     exch2_mydnx(18)=32
1633     exch2_mydny(18)=32
1634     exch2_nNeighbours(18)=4
1635    
1636     exch2_neighbourId(1,18)=1
1637     exch2_pi(1,1,18)=0
1638     exch2_pi(2,1,18)=-1
1639     exch2_pj(1,1,18)=1
1640     exch2_pj(2,1,18)=0
1641     exch2_oi(1,18)=33
1642     exch2_oi_f(1,18)=34
1643     exch2_oj(1,18)=32
1644     exch2_oj_f(1,18)=32
1645     exch2_itlo_c(1,18)=0
1646     exch2_ithi_c(1,18)=0
1647     exch2_jtlo_c(1,18)=16
1648     exch2_jthi_c(1,18)=25
1649     exch2_opposingSend_record(1,18)=5
1650    
1651     exch2_neighbourId(2,18)=14
1652     exch2_pi(1,2,18)=1
1653     exch2_pi(2,2,18)=0
1654     exch2_pj(1,2,18)=0
1655     exch2_pj(2,2,18)=1
1656     exch2_oi(2,18)=0
1657     exch2_oi_f(2,18)=0
1658     exch2_oj(2,18)=-32
1659     exch2_oj_f(2,18)=-32
1660     exch2_itlo_c(2,18)=0
1661     exch2_ithi_c(2,18)=9
1662     exch2_jtlo_c(2,18)=33
1663     exch2_jthi_c(2,18)=33
1664     exch2_opposingSend_record(2,18)=1
1665    
1666     exch2_neighbourId(3,18)=19
1667     exch2_pi(1,3,18)=1
1668     exch2_pi(2,3,18)=0
1669     exch2_pj(1,3,18)=0
1670     exch2_pj(2,3,18)=1
1671     exch2_oi(3,18)=0
1672     exch2_oi_f(3,18)=0
1673     exch2_oj(3,18)=0
1674     exch2_oj_f(3,18)=0
1675     exch2_itlo_c(3,18)=0
1676     exch2_ithi_c(3,18)=0
1677     exch2_jtlo_c(3,18)=0
1678     exch2_jthi_c(3,18)=33
1679     exch2_opposingSend_record(3,18)=4
1680    
1681     exch2_neighbourId(4,18)=17
1682     exch2_pi(1,4,18)=1
1683     exch2_pi(2,4,18)=0
1684     exch2_pj(1,4,18)=0
1685     exch2_pj(2,4,18)=1
1686     exch2_oi(4,18)=0
1687     exch2_oi_f(4,18)=0
1688     exch2_oj(4,18)=0
1689     exch2_oj_f(4,18)=0
1690     exch2_itlo_c(4,18)=9
1691     exch2_ithi_c(4,18)=9
1692     exch2_jtlo_c(4,18)=0
1693     exch2_jthi_c(4,18)=33
1694     exch2_opposingSend_record(4,18)=3
1695     RETURN
1696     END
1697    
1698     SUBROUTINE W2_E2SETUP_19
1699     C Topology for tile 19
1700     #include "W2_EXCH2_TOPOLOGY.h"
1701     exch2_tnx(19)=8
1702     exch2_tny(19)=32
1703     exch2_tbasex(19)=16
1704     exch2_tbasey(19)=0
1705     exch2_txglobalo(19)=145
1706     exch2_tyglobalo(19)=1
1707     exch2_isWedge(19)=0
1708     exch2_isNedge(19)=1
1709     exch2_isEedge(19)=0
1710     exch2_isSedge(19)=1
1711     exch2_myFace(19)=5
1712     exch2_mydnx(19)=32
1713     exch2_mydny(19)=32
1714     exch2_nNeighbours(19)=4
1715    
1716     exch2_neighbourId(1,19)=1
1717     exch2_pi(1,1,19)=0
1718     exch2_pi(2,1,19)=-1
1719     exch2_pj(1,1,19)=1
1720     exch2_pj(2,1,19)=0
1721     exch2_oi(1,19)=33
1722     exch2_oi_f(1,19)=34
1723     exch2_oj(1,19)=32
1724     exch2_oj_f(1,19)=32
1725     exch2_itlo_c(1,19)=0
1726     exch2_ithi_c(1,19)=0
1727     exch2_jtlo_c(1,19)=8
1728     exch2_jthi_c(1,19)=17
1729     exch2_opposingSend_record(1,19)=6
1730    
1731     exch2_neighbourId(2,19)=15
1732     exch2_pi(1,2,19)=1
1733     exch2_pi(2,2,19)=0
1734     exch2_pj(1,2,19)=0
1735     exch2_pj(2,2,19)=1
1736     exch2_oi(2,19)=0
1737     exch2_oi_f(2,19)=0
1738     exch2_oj(2,19)=-32
1739     exch2_oj_f(2,19)=-32
1740     exch2_itlo_c(2,19)=0
1741     exch2_ithi_c(2,19)=9
1742     exch2_jtlo_c(2,19)=33
1743     exch2_jthi_c(2,19)=33
1744     exch2_opposingSend_record(2,19)=1
1745    
1746     exch2_neighbourId(3,19)=20
1747     exch2_pi(1,3,19)=1
1748     exch2_pi(2,3,19)=0
1749     exch2_pj(1,3,19)=0
1750     exch2_pj(2,3,19)=1
1751     exch2_oi(3,19)=0
1752     exch2_oi_f(3,19)=0
1753     exch2_oj(3,19)=0
1754     exch2_oj_f(3,19)=0
1755     exch2_itlo_c(3,19)=0
1756     exch2_ithi_c(3,19)=0
1757     exch2_jtlo_c(3,19)=0
1758     exch2_jthi_c(3,19)=33
1759     exch2_opposingSend_record(3,19)=4
1760    
1761     exch2_neighbourId(4,19)=18
1762     exch2_pi(1,4,19)=1
1763     exch2_pi(2,4,19)=0
1764     exch2_pj(1,4,19)=0
1765     exch2_pj(2,4,19)=1
1766     exch2_oi(4,19)=0
1767     exch2_oi_f(4,19)=0
1768     exch2_oj(4,19)=0
1769     exch2_oj_f(4,19)=0
1770     exch2_itlo_c(4,19)=9
1771     exch2_ithi_c(4,19)=9
1772     exch2_jtlo_c(4,19)=0
1773     exch2_jthi_c(4,19)=33
1774     exch2_opposingSend_record(4,19)=3
1775     RETURN
1776     END
1777    
1778     SUBROUTINE W2_E2SETUP_20
1779     C Topology for tile 20
1780     #include "W2_EXCH2_TOPOLOGY.h"
1781     exch2_tnx(20)=8
1782     exch2_tny(20)=32
1783     exch2_tbasex(20)=24
1784     exch2_tbasey(20)=0
1785     exch2_txglobalo(20)=153
1786     exch2_tyglobalo(20)=1
1787     exch2_isWedge(20)=0
1788     exch2_isNedge(20)=1
1789     exch2_isEedge(20)=1
1790     exch2_isSedge(20)=1
1791     exch2_myFace(20)=5
1792     exch2_mydnx(20)=32
1793     exch2_mydny(20)=32
1794     exch2_nNeighbours(20)=4
1795    
1796     exch2_neighbourId(1,20)=1
1797     exch2_pi(1,1,20)=0
1798     exch2_pi(2,1,20)=-1
1799     exch2_pj(1,1,20)=1
1800     exch2_pj(2,1,20)=0
1801     exch2_oi(1,20)=33
1802     exch2_oi_f(1,20)=34
1803     exch2_oj(1,20)=32
1804     exch2_oj_f(1,20)=32
1805     exch2_itlo_c(1,20)=0
1806     exch2_ithi_c(1,20)=0
1807     exch2_jtlo_c(1,20)=0
1808     exch2_jthi_c(1,20)=9
1809     exch2_opposingSend_record(1,20)=7
1810    
1811     exch2_neighbourId(2,20)=16
1812     exch2_pi(1,2,20)=1
1813     exch2_pi(2,2,20)=0
1814     exch2_pj(1,2,20)=0
1815     exch2_pj(2,2,20)=1
1816     exch2_oi(2,20)=0
1817     exch2_oi_f(2,20)=0
1818     exch2_oj(2,20)=-32
1819     exch2_oj_f(2,20)=-32
1820     exch2_itlo_c(2,20)=0
1821     exch2_ithi_c(2,20)=9
1822     exch2_jtlo_c(2,20)=33
1823     exch2_jthi_c(2,20)=33
1824     exch2_opposingSend_record(2,20)=1
1825    
1826     exch2_neighbourId(3,20)=21
1827     exch2_pi(1,3,20)=1
1828     exch2_pi(2,3,20)=0
1829     exch2_pj(1,3,20)=0
1830     exch2_pj(2,3,20)=1
1831     exch2_oi(3,20)=32
1832     exch2_oi_f(3,20)=32
1833     exch2_oj(3,20)=0
1834     exch2_oj_f(3,20)=0
1835     exch2_itlo_c(3,20)=0
1836     exch2_ithi_c(3,20)=0
1837     exch2_jtlo_c(3,20)=0
1838     exch2_jthi_c(3,20)=33
1839     exch2_opposingSend_record(3,20)=4
1840    
1841     exch2_neighbourId(4,20)=19
1842     exch2_pi(1,4,20)=1
1843     exch2_pi(2,4,20)=0
1844     exch2_pj(1,4,20)=0
1845     exch2_pj(2,4,20)=1
1846     exch2_oi(4,20)=0
1847     exch2_oi_f(4,20)=0
1848     exch2_oj(4,20)=0
1849     exch2_oj_f(4,20)=0
1850     exch2_itlo_c(4,20)=9
1851     exch2_ithi_c(4,20)=9
1852     exch2_jtlo_c(4,20)=0
1853     exch2_jthi_c(4,20)=33
1854     exch2_opposingSend_record(4,20)=3
1855     RETURN
1856     END
1857    
1858     SUBROUTINE W2_E2SETUP_21
1859     C Topology for tile 21
1860     #include "W2_EXCH2_TOPOLOGY.h"
1861     exch2_tnx(21)=8
1862     exch2_tny(21)=32
1863     exch2_tbasex(21)=0
1864     exch2_tbasey(21)=0
1865     exch2_txglobalo(21)=161
1866     exch2_tyglobalo(21)=1
1867     exch2_isWedge(21)=1
1868     exch2_isNedge(21)=1
1869     exch2_isEedge(21)=0
1870     exch2_isSedge(21)=1
1871     exch2_myFace(21)=6
1872     exch2_mydnx(21)=32
1873     exch2_mydny(21)=32
1874     exch2_nNeighbours(21)=4
1875    
1876     exch2_neighbourId(1,21)=1
1877     exch2_pi(1,1,21)=1
1878     exch2_pi(2,1,21)=0
1879     exch2_pj(1,1,21)=0
1880     exch2_pj(2,1,21)=1
1881     exch2_oi(1,21)=0
1882     exch2_oi_f(1,21)=0
1883     exch2_oj(1,21)=32
1884     exch2_oj_f(1,21)=32
1885     exch2_itlo_c(1,21)=0
1886     exch2_ithi_c(1,21)=9
1887     exch2_jtlo_c(1,21)=0
1888     exch2_jthi_c(1,21)=0
1889     exch2_opposingSend_record(1,21)=2
1890    
1891     exch2_neighbourId(2,21)=16
1892     exch2_pi(1,2,21)=0
1893     exch2_pi(2,2,21)=-1
1894     exch2_pj(1,2,21)=1
1895     exch2_pj(2,2,21)=0
1896     exch2_oi(2,21)=33
1897     exch2_oi_f(2,21)=34
1898     exch2_oj(2,21)=-32
1899     exch2_oj_f(2,21)=-32
1900     exch2_itlo_c(2,21)=9
1901     exch2_ithi_c(2,21)=9
1902     exch2_jtlo_c(2,21)=24
1903     exch2_jthi_c(2,21)=33
1904     exch2_opposingSend_record(2,21)=3
1905    
1906     exch2_neighbourId(3,21)=22
1907     exch2_pi(1,3,21)=1
1908     exch2_pi(2,3,21)=0
1909     exch2_pj(1,3,21)=0
1910     exch2_pj(2,3,21)=1
1911     exch2_oi(3,21)=0
1912     exch2_oi_f(3,21)=0
1913     exch2_oj(3,21)=0
1914     exch2_oj_f(3,21)=0
1915     exch2_itlo_c(3,21)=0
1916     exch2_ithi_c(3,21)=0
1917     exch2_jtlo_c(3,21)=0
1918     exch2_jthi_c(3,21)=33
1919     exch2_opposingSend_record(3,21)=4
1920    
1921     exch2_neighbourId(4,21)=20
1922     exch2_pi(1,4,21)=1
1923     exch2_pi(2,4,21)=0
1924     exch2_pj(1,4,21)=0
1925     exch2_pj(2,4,21)=1
1926     exch2_oi(4,21)=-32
1927     exch2_oi_f(4,21)=-32
1928     exch2_oj(4,21)=0
1929     exch2_oj_f(4,21)=0
1930     exch2_itlo_c(4,21)=9
1931     exch2_ithi_c(4,21)=9
1932     exch2_jtlo_c(4,21)=0
1933     exch2_jthi_c(4,21)=33
1934     exch2_opposingSend_record(4,21)=3
1935     RETURN
1936     END
1937    
1938     SUBROUTINE W2_E2SETUP_22
1939     C Topology for tile 22
1940     #include "W2_EXCH2_TOPOLOGY.h"
1941     exch2_tnx(22)=8
1942     exch2_tny(22)=32
1943     exch2_tbasex(22)=8
1944     exch2_tbasey(22)=0
1945     exch2_txglobalo(22)=169
1946     exch2_tyglobalo(22)=1
1947     exch2_isWedge(22)=0
1948     exch2_isNedge(22)=1
1949     exch2_isEedge(22)=0
1950     exch2_isSedge(22)=1
1951     exch2_myFace(22)=6
1952     exch2_mydnx(22)=32
1953     exch2_mydny(22)=32
1954     exch2_nNeighbours(22)=4
1955    
1956     exch2_neighbourId(1,22)=2
1957     exch2_pi(1,1,22)=1
1958     exch2_pi(2,1,22)=0
1959     exch2_pj(1,1,22)=0
1960     exch2_pj(2,1,22)=1
1961     exch2_oi(1,22)=0
1962     exch2_oi_f(1,22)=0
1963     exch2_oj(1,22)=32
1964     exch2_oj_f(1,22)=32
1965     exch2_itlo_c(1,22)=0
1966     exch2_ithi_c(1,22)=9
1967     exch2_jtlo_c(1,22)=0
1968     exch2_jthi_c(1,22)=0
1969     exch2_opposingSend_record(1,22)=2
1970    
1971     exch2_neighbourId(2,22)=16
1972     exch2_pi(1,2,22)=0
1973     exch2_pi(2,2,22)=-1
1974     exch2_pj(1,2,22)=1
1975     exch2_pj(2,2,22)=0
1976     exch2_oi(2,22)=33
1977     exch2_oi_f(2,22)=34
1978     exch2_oj(2,22)=-32
1979     exch2_oj_f(2,22)=-32
1980     exch2_itlo_c(2,22)=9
1981     exch2_ithi_c(2,22)=9
1982     exch2_jtlo_c(2,22)=16
1983     exch2_jthi_c(2,22)=25
1984     exch2_opposingSend_record(2,22)=4
1985    
1986     exch2_neighbourId(3,22)=23
1987     exch2_pi(1,3,22)=1
1988     exch2_pi(2,3,22)=0
1989     exch2_pj(1,3,22)=0
1990     exch2_pj(2,3,22)=1
1991     exch2_oi(3,22)=0
1992     exch2_oi_f(3,22)=0
1993     exch2_oj(3,22)=0
1994     exch2_oj_f(3,22)=0
1995     exch2_itlo_c(3,22)=0
1996     exch2_ithi_c(3,22)=0
1997     exch2_jtlo_c(3,22)=0
1998     exch2_jthi_c(3,22)=33
1999     exch2_opposingSend_record(3,22)=4
2000    
2001     exch2_neighbourId(4,22)=21
2002     exch2_pi(1,4,22)=1
2003     exch2_pi(2,4,22)=0
2004     exch2_pj(1,4,22)=0
2005     exch2_pj(2,4,22)=1
2006     exch2_oi(4,22)=0
2007     exch2_oi_f(4,22)=0
2008     exch2_oj(4,22)=0
2009     exch2_oj_f(4,22)=0
2010     exch2_itlo_c(4,22)=9
2011     exch2_ithi_c(4,22)=9
2012     exch2_jtlo_c(4,22)=0
2013     exch2_jthi_c(4,22)=33
2014     exch2_opposingSend_record(4,22)=3
2015     RETURN
2016     END
2017    
2018     SUBROUTINE W2_E2SETUP_23
2019     C Topology for tile 23
2020     #include "W2_EXCH2_TOPOLOGY.h"
2021     exch2_tnx(23)=8
2022     exch2_tny(23)=32
2023     exch2_tbasex(23)=16
2024     exch2_tbasey(23)=0
2025     exch2_txglobalo(23)=177
2026     exch2_tyglobalo(23)=1
2027     exch2_isWedge(23)=0
2028     exch2_isNedge(23)=1
2029     exch2_isEedge(23)=0
2030     exch2_isSedge(23)=1
2031     exch2_myFace(23)=6
2032     exch2_mydnx(23)=32
2033     exch2_mydny(23)=32
2034     exch2_nNeighbours(23)=4
2035    
2036     exch2_neighbourId(1,23)=3
2037     exch2_pi(1,1,23)=1
2038     exch2_pi(2,1,23)=0
2039     exch2_pj(1,1,23)=0
2040     exch2_pj(2,1,23)=1
2041     exch2_oi(1,23)=0
2042     exch2_oi_f(1,23)=0
2043     exch2_oj(1,23)=32
2044     exch2_oj_f(1,23)=32
2045     exch2_itlo_c(1,23)=0
2046     exch2_ithi_c(1,23)=9
2047     exch2_jtlo_c(1,23)=0
2048     exch2_jthi_c(1,23)=0
2049     exch2_opposingSend_record(1,23)=2
2050    
2051     exch2_neighbourId(2,23)=16
2052     exch2_pi(1,2,23)=0
2053     exch2_pi(2,2,23)=-1
2054     exch2_pj(1,2,23)=1
2055     exch2_pj(2,2,23)=0
2056     exch2_oi(2,23)=33
2057     exch2_oi_f(2,23)=34
2058     exch2_oj(2,23)=-32
2059     exch2_oj_f(2,23)=-32
2060     exch2_itlo_c(2,23)=9
2061     exch2_ithi_c(2,23)=9
2062     exch2_jtlo_c(2,23)=8
2063     exch2_jthi_c(2,23)=17
2064     exch2_opposingSend_record(2,23)=5
2065    
2066     exch2_neighbourId(3,23)=24
2067     exch2_pi(1,3,23)=1
2068     exch2_pi(2,3,23)=0
2069     exch2_pj(1,3,23)=0
2070     exch2_pj(2,3,23)=1
2071     exch2_oi(3,23)=0
2072     exch2_oi_f(3,23)=0
2073     exch2_oj(3,23)=0
2074     exch2_oj_f(3,23)=0
2075     exch2_itlo_c(3,23)=0
2076     exch2_ithi_c(3,23)=0
2077     exch2_jtlo_c(3,23)=0
2078     exch2_jthi_c(3,23)=33
2079     exch2_opposingSend_record(3,23)=7
2080    
2081     exch2_neighbourId(4,23)=22
2082     exch2_pi(1,4,23)=1
2083     exch2_pi(2,4,23)=0
2084     exch2_pj(1,4,23)=0
2085     exch2_pj(2,4,23)=1
2086     exch2_oi(4,23)=0
2087     exch2_oi_f(4,23)=0
2088     exch2_oj(4,23)=0
2089     exch2_oj_f(4,23)=0
2090     exch2_itlo_c(4,23)=9
2091     exch2_ithi_c(4,23)=9
2092     exch2_jtlo_c(4,23)=0
2093     exch2_jthi_c(4,23)=33
2094     exch2_opposingSend_record(4,23)=3
2095     RETURN
2096     END
2097    
2098     SUBROUTINE W2_E2SETUP_24
2099     C Topology for tile 24
2100     #include "W2_EXCH2_TOPOLOGY.h"
2101     exch2_tnx(24)=8
2102     exch2_tny(24)=32
2103     exch2_tbasex(24)=24
2104     exch2_tbasey(24)=0
2105     exch2_txglobalo(24)=185
2106     exch2_tyglobalo(24)=1
2107     exch2_isWedge(24)=0
2108     exch2_isNedge(24)=1
2109     exch2_isEedge(24)=1
2110     exch2_isSedge(24)=1
2111     exch2_myFace(24)=6
2112     exch2_mydnx(24)=32
2113     exch2_mydny(24)=32
2114     exch2_nNeighbours(24)=7
2115    
2116     exch2_neighbourId(1,24)=4
2117     exch2_pi(1,1,24)=1
2118     exch2_pi(2,1,24)=0
2119     exch2_pj(1,1,24)=0
2120     exch2_pj(2,1,24)=1
2121     exch2_oi(1,24)=0
2122     exch2_oi_f(1,24)=0
2123     exch2_oj(1,24)=32
2124     exch2_oj_f(1,24)=32
2125     exch2_itlo_c(1,24)=0
2126     exch2_ithi_c(1,24)=9
2127     exch2_jtlo_c(1,24)=0
2128     exch2_jthi_c(1,24)=0
2129     exch2_opposingSend_record(1,24)=2
2130    
2131     exch2_neighbourId(2,24)=16
2132     exch2_pi(1,2,24)=0
2133     exch2_pi(2,2,24)=-1
2134     exch2_pj(1,2,24)=1
2135     exch2_pj(2,2,24)=0
2136     exch2_oi(2,24)=33
2137     exch2_oi_f(2,24)=34
2138     exch2_oj(2,24)=-32
2139     exch2_oj_f(2,24)=-32
2140     exch2_itlo_c(2,24)=9
2141     exch2_ithi_c(2,24)=9
2142     exch2_jtlo_c(2,24)=0
2143     exch2_jthi_c(2,24)=9
2144     exch2_opposingSend_record(2,24)=6
2145    
2146     exch2_neighbourId(3,24)=5
2147     exch2_pi(1,3,24)=0
2148     exch2_pi(2,3,24)=1
2149     exch2_pj(1,3,24)=-1
2150     exch2_pj(2,3,24)=0
2151     exch2_oi(3,24)=32
2152     exch2_oi_f(3,24)=32
2153     exch2_oj(3,24)=33
2154     exch2_oj_f(3,24)=34
2155     exch2_itlo_c(3,24)=0
2156     exch2_ithi_c(3,24)=9
2157     exch2_jtlo_c(3,24)=0
2158     exch2_jthi_c(3,24)=0
2159     exch2_opposingSend_record(3,24)=2
2160    
2161     exch2_neighbourId(4,24)=6
2162     exch2_pi(1,4,24)=0
2163     exch2_pi(2,4,24)=1
2164     exch2_pj(1,4,24)=-1
2165     exch2_pj(2,4,24)=0
2166     exch2_oi(4,24)=32
2167     exch2_oi_f(4,24)=32
2168     exch2_oj(4,24)=33
2169     exch2_oj_f(4,24)=34
2170     exch2_itlo_c(4,24)=0
2171     exch2_ithi_c(4,24)=9
2172     exch2_jtlo_c(4,24)=0
2173     exch2_jthi_c(4,24)=0
2174     exch2_opposingSend_record(4,24)=2
2175    
2176     exch2_neighbourId(5,24)=7
2177     exch2_pi(1,5,24)=0
2178     exch2_pi(2,5,24)=1
2179     exch2_pj(1,5,24)=-1
2180     exch2_pj(2,5,24)=0
2181     exch2_oi(5,24)=32
2182     exch2_oi_f(5,24)=32
2183     exch2_oj(5,24)=33
2184     exch2_oj_f(5,24)=34
2185     exch2_itlo_c(5,24)=0
2186     exch2_ithi_c(5,24)=9
2187     exch2_jtlo_c(5,24)=0
2188     exch2_jthi_c(5,24)=0
2189     exch2_opposingSend_record(5,24)=2
2190    
2191     exch2_neighbourId(6,24)=8
2192     exch2_pi(1,6,24)=0
2193     exch2_pi(2,6,24)=1
2194     exch2_pj(1,6,24)=-1
2195     exch2_pj(2,6,24)=0
2196     exch2_oi(6,24)=32
2197     exch2_oi_f(6,24)=32
2198     exch2_oj(6,24)=33
2199     exch2_oj_f(6,24)=34
2200     exch2_itlo_c(6,24)=0
2201     exch2_ithi_c(6,24)=9
2202     exch2_jtlo_c(6,24)=0
2203     exch2_jthi_c(6,24)=0
2204     exch2_opposingSend_record(6,24)=2
2205    
2206     exch2_neighbourId(7,24)=23
2207     exch2_pi(1,7,24)=1
2208     exch2_pi(2,7,24)=0
2209     exch2_pj(1,7,24)=0
2210     exch2_pj(2,7,24)=1
2211     exch2_oi(7,24)=0
2212     exch2_oi_f(7,24)=0
2213     exch2_oj(7,24)=0
2214     exch2_oj_f(7,24)=0
2215     exch2_itlo_c(7,24)=9
2216     exch2_ithi_c(7,24)=9
2217     exch2_jtlo_c(7,24)=0
2218     exch2_jthi_c(7,24)=33
2219     exch2_opposingSend_record(7,24)=3
2220     RETURN
2221     END
2222    
  ViewVC Help
Powered by ViewVC 1.1.22