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

Contents of /MITgcm_contrib/high_res_cube/code-mods/s24t_32x8/w2_e2setup.F

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

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