/[MITgcm]/MITgcm/verification/fizhi-cs-32x32x40/code_24t/w2_e2setup.F
ViewVC logotype

Contents of /MITgcm/verification/fizhi-cs-32x32x40/code_24t/w2_e2setup.F

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

Revision 1.2 - (show annotations) (download)
Fri Aug 1 21:33:32 2008 UTC (15 years, 9 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED 
no longer up to date ; new version in utils/exch2/code-mod
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)=16
37 exch2_tny(1)=16
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)=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)=4
50
51 exch2_neighbourId(1,1)=3
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)=17
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)=23
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)=17
77 exch2_jtlo_c(2,1)=17
78 exch2_jthi_c(2,1)=17
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)=17
94 exch2_opposingSend_record(3,1)=4
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)=0
106 exch2_ithi_c(4,1)=17
107 exch2_jtlo_c(4,1)=17
108 exch2_jthi_c(4,1)=17
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)=16
117 exch2_tny(2)=16
118 exch2_tbasex(2)=16
119 exch2_tbasey(2)=0
120 exch2_txglobalo(2)=17
121 exch2_tyglobalo(2)=1
122 exch2_isWedge(2)=0
123 exch2_isNedge(2)=0
124 exch2_isEedge(2)=1
125 exch2_isSedge(2)=1
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)=4
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)=17
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)=24
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)=-32
154 exch2_oj_f(2,2)=-32
155 exch2_itlo_c(2,2)=0
156 exch2_ithi_c(2,2)=17
157 exch2_jtlo_c(2,2)=17
158 exch2_jthi_c(2,2)=17
159 exch2_opposingSend_record(2,2)=1
160
161 exch2_neighbourId(3,2)=5
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)=17
174 exch2_opposingSend_record(3,2)=4
175
176 exch2_neighbourId(4,2)=1
177 exch2_pi(1,4,2)=1
178 exch2_pi(2,4,2)=0
179 exch2_pj(1,4,2)=0
180 exch2_pj(2,4,2)=1
181 exch2_oi(4,2)=0
182 exch2_oi_f(4,2)=0
183 exch2_oj(4,2)=0
184 exch2_oj_f(4,2)=0
185 exch2_itlo_c(4,2)=17
186 exch2_ithi_c(4,2)=17
187 exch2_jtlo_c(4,2)=0
188 exch2_jthi_c(4,2)=17
189 exch2_opposingSend_record(4,2)=3
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)=16
197 exch2_tny(3)=16
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)=1
204 exch2_isEedge(3)=0
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)=11
212 exch2_pi(1,1,3)=0
213 exch2_pi(2,1,3)=-1
214 exch2_pj(1,1,3)=1
215 exch2_pj(2,1,3)=0
216 exch2_oi(1,3)=33
217 exch2_oi_f(1,3)=34
218 exch2_oj(1,3)=32
219 exch2_oj_f(1,3)=32
220 exch2_itlo_c(1,3)=0
221 exch2_ithi_c(1,3)=0
222 exch2_jtlo_c(1,3)=0
223 exch2_jthi_c(1,3)=17
224 exch2_opposingSend_record(1,3)=4
225
226 exch2_neighbourId(2,3)=1
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)=16
237 exch2_jtlo_c(2,3)=17
238 exch2_jthi_c(2,3)=17
239 exch2_opposingSend_record(2,3)=1
240
241 exch2_neighbourId(3,3)=4
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)=0
247 exch2_oi_f(3,3)=0
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)=17
254 exch2_opposingSend_record(3,3)=4
255
256 exch2_neighbourId(4,3)=19
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)=0
266 exch2_ithi_c(4,3)=17
267 exch2_jtlo_c(4,3)=17
268 exch2_jthi_c(4,3)=17
269 exch2_opposingSend_record(4,3)=1
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)=16
277 exch2_tny(4)=16
278 exch2_tbasex(4)=16
279 exch2_tbasey(4)=16
280 exch2_txglobalo(4)=17
281 exch2_tyglobalo(4)=17
282 exch2_isWedge(4)=0
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)=4
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)=17
304 exch2_opposingSend_record(1,4)=4
305
306 exch2_neighbourId(2,4)=2
307 exch2_pi(1,2,4)=1
308 exch2_pi(2,2,4)=0
309 exch2_pj(1,2,4)=0
310 exch2_pj(2,2,4)=1
311 exch2_oi(2,4)=0
312 exch2_oi_f(2,4)=0
313 exch2_oj(2,4)=0
314 exch2_oj_f(2,4)=0
315 exch2_itlo_c(2,4)=1
316 exch2_ithi_c(2,4)=16
317 exch2_jtlo_c(2,4)=17
318 exch2_jthi_c(2,4)=17
319 exch2_opposingSend_record(2,4)=1
320
321 exch2_neighbourId(3,4)=7
322 exch2_pi(1,3,4)=1
323 exch2_pi(2,3,4)=0
324 exch2_pj(1,3,4)=0
325 exch2_pj(2,3,4)=1
326 exch2_oi(3,4)=32
327 exch2_oi_f(3,4)=32
328 exch2_oj(3,4)=0
329 exch2_oj_f(3,4)=0
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)=17
334 exch2_opposingSend_record(3,4)=4
335
336 exch2_neighbourId(4,4)=3
337 exch2_pi(1,4,4)=1
338 exch2_pi(2,4,4)=0
339 exch2_pj(1,4,4)=0
340 exch2_pj(2,4,4)=1
341 exch2_oi(4,4)=0
342 exch2_oi_f(4,4)=0
343 exch2_oj(4,4)=0
344 exch2_oj_f(4,4)=0
345 exch2_itlo_c(4,4)=17
346 exch2_ithi_c(4,4)=17
347 exch2_jtlo_c(4,4)=0
348 exch2_jthi_c(4,4)=17
349 exch2_opposingSend_record(4,4)=3
350 RETURN
351 END
352
353 SUBROUTINE W2_E2SETUP_5
354 C Topology for tile 5
355 #include "W2_EXCH2_TOPOLOGY.h"
356 exch2_tnx(5)=16
357 exch2_tny(5)=16
358 exch2_tbasex(5)=0
359 exch2_tbasey(5)=0
360 exch2_txglobalo(5)=33
361 exch2_tyglobalo(5)=1
362 exch2_isWedge(5)=1
363 exch2_isNedge(5)=0
364 exch2_isEedge(5)=0
365 exch2_isSedge(5)=1
366 exch2_myFace(5)=2
367 exch2_mydnx(5)=32
368 exch2_mydny(5)=32
369 exch2_nNeighbours(5)=4
370
371 exch2_neighbourId(1,5)=7
372 exch2_pi(1,1,5)=1
373 exch2_pi(2,1,5)=0
374 exch2_pj(1,1,5)=0
375 exch2_pj(2,1,5)=1
376 exch2_oi(1,5)=0
377 exch2_oi_f(1,5)=0
378 exch2_oj(1,5)=0
379 exch2_oj_f(1,5)=0
380 exch2_itlo_c(1,5)=0
381 exch2_ithi_c(1,5)=17
382 exch2_jtlo_c(1,5)=0
383 exch2_jthi_c(1,5)=0
384 exch2_opposingSend_record(1,5)=2
385
386 exch2_neighbourId(2,5)=24
387 exch2_pi(1,2,5)=0
388 exch2_pi(2,2,5)=-1
389 exch2_pj(1,2,5)=1
390 exch2_pj(2,2,5)=0
391 exch2_oi(2,5)=33
392 exch2_oi_f(2,5)=34
393 exch2_oj(2,5)=-32
394 exch2_oj_f(2,5)=-32
395 exch2_itlo_c(2,5)=17
396 exch2_ithi_c(2,5)=17
397 exch2_jtlo_c(2,5)=0
398 exch2_jthi_c(2,5)=17
399 exch2_opposingSend_record(2,5)=3
400
401 exch2_neighbourId(3,5)=6
402 exch2_pi(1,3,5)=1
403 exch2_pi(2,3,5)=0
404 exch2_pj(1,3,5)=0
405 exch2_pj(2,3,5)=1
406 exch2_oi(3,5)=0
407 exch2_oi_f(3,5)=0
408 exch2_oj(3,5)=0
409 exch2_oj_f(3,5)=0
410 exch2_itlo_c(3,5)=0
411 exch2_ithi_c(3,5)=0
412 exch2_jtlo_c(3,5)=0
413 exch2_jthi_c(3,5)=17
414 exch2_opposingSend_record(3,5)=4
415
416 exch2_neighbourId(4,5)=2
417 exch2_pi(1,4,5)=1
418 exch2_pi(2,4,5)=0
419 exch2_pj(1,4,5)=0
420 exch2_pj(2,4,5)=1
421 exch2_oi(4,5)=-32
422 exch2_oi_f(4,5)=-32
423 exch2_oj(4,5)=0
424 exch2_oj_f(4,5)=0
425 exch2_itlo_c(4,5)=17
426 exch2_ithi_c(4,5)=17
427 exch2_jtlo_c(4,5)=0
428 exch2_jthi_c(4,5)=17
429 exch2_opposingSend_record(4,5)=3
430 RETURN
431 END
432
433 SUBROUTINE W2_E2SETUP_6
434 C Topology for tile 6
435 #include "W2_EXCH2_TOPOLOGY.h"
436 exch2_tnx(6)=16
437 exch2_tny(6)=16
438 exch2_tbasex(6)=16
439 exch2_tbasey(6)=0
440 exch2_txglobalo(6)=49
441 exch2_tyglobalo(6)=1
442 exch2_isWedge(6)=0
443 exch2_isNedge(6)=0
444 exch2_isEedge(6)=1
445 exch2_isSedge(6)=1
446 exch2_myFace(6)=2
447 exch2_mydnx(6)=32
448 exch2_mydny(6)=32
449 exch2_nNeighbours(6)=4
450
451 exch2_neighbourId(1,6)=8
452 exch2_pi(1,1,6)=1
453 exch2_pi(2,1,6)=0
454 exch2_pj(1,1,6)=0
455 exch2_pj(2,1,6)=1
456 exch2_oi(1,6)=0
457 exch2_oi_f(1,6)=0
458 exch2_oj(1,6)=0
459 exch2_oj_f(1,6)=0
460 exch2_itlo_c(1,6)=0
461 exch2_ithi_c(1,6)=17
462 exch2_jtlo_c(1,6)=0
463 exch2_jthi_c(1,6)=0
464 exch2_opposingSend_record(1,6)=2
465
466 exch2_neighbourId(2,6)=22
467 exch2_pi(1,2,6)=0
468 exch2_pi(2,2,6)=-1
469 exch2_pj(1,2,6)=1
470 exch2_pj(2,2,6)=0
471 exch2_oi(2,6)=33
472 exch2_oi_f(2,6)=34
473 exch2_oj(2,6)=-32
474 exch2_oj_f(2,6)=-32
475 exch2_itlo_c(2,6)=17
476 exch2_ithi_c(2,6)=17
477 exch2_jtlo_c(2,6)=0
478 exch2_jthi_c(2,6)=17
479 exch2_opposingSend_record(2,6)=3
480
481 exch2_neighbourId(3,6)=14
482 exch2_pi(1,3,6)=0
483 exch2_pi(2,3,6)=1
484 exch2_pj(1,3,6)=-1
485 exch2_pj(2,3,6)=0
486 exch2_oi(3,6)=32
487 exch2_oi_f(3,6)=32
488 exch2_oj(3,6)=33
489 exch2_oj_f(3,6)=34
490 exch2_itlo_c(3,6)=0
491 exch2_ithi_c(3,6)=17
492 exch2_jtlo_c(3,6)=0
493 exch2_jthi_c(3,6)=0
494 exch2_opposingSend_record(3,6)=2
495
496 exch2_neighbourId(4,6)=5
497 exch2_pi(1,4,6)=1
498 exch2_pi(2,4,6)=0
499 exch2_pj(1,4,6)=0
500 exch2_pj(2,4,6)=1
501 exch2_oi(4,6)=0
502 exch2_oi_f(4,6)=0
503 exch2_oj(4,6)=0
504 exch2_oj_f(4,6)=0
505 exch2_itlo_c(4,6)=17
506 exch2_ithi_c(4,6)=17
507 exch2_jtlo_c(4,6)=0
508 exch2_jthi_c(4,6)=17
509 exch2_opposingSend_record(4,6)=3
510 RETURN
511 END
512
513 SUBROUTINE W2_E2SETUP_7
514 C Topology for tile 7
515 #include "W2_EXCH2_TOPOLOGY.h"
516 exch2_tnx(7)=16
517 exch2_tny(7)=16
518 exch2_tbasex(7)=0
519 exch2_tbasey(7)=16
520 exch2_txglobalo(7)=33
521 exch2_tyglobalo(7)=17
522 exch2_isWedge(7)=1
523 exch2_isNedge(7)=1
524 exch2_isEedge(7)=0
525 exch2_isSedge(7)=0
526 exch2_myFace(7)=2
527 exch2_mydnx(7)=32
528 exch2_mydny(7)=32
529 exch2_nNeighbours(7)=4
530
531 exch2_neighbourId(1,7)=9
532 exch2_pi(1,1,7)=1
533 exch2_pi(2,1,7)=0
534 exch2_pj(1,1,7)=0
535 exch2_pj(2,1,7)=1
536 exch2_oi(1,7)=0
537 exch2_oi_f(1,7)=0
538 exch2_oj(1,7)=32
539 exch2_oj_f(1,7)=32
540 exch2_itlo_c(1,7)=0
541 exch2_ithi_c(1,7)=17
542 exch2_jtlo_c(1,7)=0
543 exch2_jthi_c(1,7)=0
544 exch2_opposingSend_record(1,7)=2
545
546 exch2_neighbourId(2,7)=5
547 exch2_pi(1,2,7)=1
548 exch2_pi(2,2,7)=0
549 exch2_pj(1,2,7)=0
550 exch2_pj(2,2,7)=1
551 exch2_oi(2,7)=0
552 exch2_oi_f(2,7)=0
553 exch2_oj(2,7)=0
554 exch2_oj_f(2,7)=0
555 exch2_itlo_c(2,7)=1
556 exch2_ithi_c(2,7)=16
557 exch2_jtlo_c(2,7)=17
558 exch2_jthi_c(2,7)=17
559 exch2_opposingSend_record(2,7)=1
560
561 exch2_neighbourId(3,7)=8
562 exch2_pi(1,3,7)=1
563 exch2_pi(2,3,7)=0
564 exch2_pj(1,3,7)=0
565 exch2_pj(2,3,7)=1
566 exch2_oi(3,7)=0
567 exch2_oi_f(3,7)=0
568 exch2_oj(3,7)=0
569 exch2_oj_f(3,7)=0
570 exch2_itlo_c(3,7)=0
571 exch2_ithi_c(3,7)=0
572 exch2_jtlo_c(3,7)=0
573 exch2_jthi_c(3,7)=17
574 exch2_opposingSend_record(3,7)=4
575
576 exch2_neighbourId(4,7)=4
577 exch2_pi(1,4,7)=1
578 exch2_pi(2,4,7)=0
579 exch2_pj(1,4,7)=0
580 exch2_pj(2,4,7)=1
581 exch2_oi(4,7)=-32
582 exch2_oi_f(4,7)=-32
583 exch2_oj(4,7)=0
584 exch2_oj_f(4,7)=0
585 exch2_itlo_c(4,7)=17
586 exch2_ithi_c(4,7)=17
587 exch2_jtlo_c(4,7)=0
588 exch2_jthi_c(4,7)=17
589 exch2_opposingSend_record(4,7)=3
590 RETURN
591 END
592
593 SUBROUTINE W2_E2SETUP_8
594 C Topology for tile 8
595 #include "W2_EXCH2_TOPOLOGY.h"
596 exch2_tnx(8)=16
597 exch2_tny(8)=16
598 exch2_tbasex(8)=16
599 exch2_tbasey(8)=16
600 exch2_txglobalo(8)=49
601 exch2_tyglobalo(8)=17
602 exch2_isWedge(8)=0
603 exch2_isNedge(8)=1
604 exch2_isEedge(8)=1
605 exch2_isSedge(8)=0
606 exch2_myFace(8)=2
607 exch2_mydnx(8)=32
608 exch2_mydny(8)=32
609 exch2_nNeighbours(8)=4
610
611 exch2_neighbourId(1,8)=10
612 exch2_pi(1,1,8)=1
613 exch2_pi(2,1,8)=0
614 exch2_pj(1,1,8)=0
615 exch2_pj(2,1,8)=1
616 exch2_oi(1,8)=0
617 exch2_oi_f(1,8)=0
618 exch2_oj(1,8)=32
619 exch2_oj_f(1,8)=32
620 exch2_itlo_c(1,8)=0
621 exch2_ithi_c(1,8)=17
622 exch2_jtlo_c(1,8)=0
623 exch2_jthi_c(1,8)=0
624 exch2_opposingSend_record(1,8)=2
625
626 exch2_neighbourId(2,8)=6
627 exch2_pi(1,2,8)=1
628 exch2_pi(2,2,8)=0
629 exch2_pj(1,2,8)=0
630 exch2_pj(2,2,8)=1
631 exch2_oi(2,8)=0
632 exch2_oi_f(2,8)=0
633 exch2_oj(2,8)=0
634 exch2_oj_f(2,8)=0
635 exch2_itlo_c(2,8)=1
636 exch2_ithi_c(2,8)=16
637 exch2_jtlo_c(2,8)=17
638 exch2_jthi_c(2,8)=17
639 exch2_opposingSend_record(2,8)=1
640
641 exch2_neighbourId(3,8)=13
642 exch2_pi(1,3,8)=0
643 exch2_pi(2,3,8)=1
644 exch2_pj(1,3,8)=-1
645 exch2_pj(2,3,8)=0
646 exch2_oi(3,8)=32
647 exch2_oi_f(3,8)=32
648 exch2_oj(3,8)=33
649 exch2_oj_f(3,8)=34
650 exch2_itlo_c(3,8)=0
651 exch2_ithi_c(3,8)=17
652 exch2_jtlo_c(3,8)=0
653 exch2_jthi_c(3,8)=0
654 exch2_opposingSend_record(3,8)=2
655
656 exch2_neighbourId(4,8)=7
657 exch2_pi(1,4,8)=1
658 exch2_pi(2,4,8)=0
659 exch2_pj(1,4,8)=0
660 exch2_pj(2,4,8)=1
661 exch2_oi(4,8)=0
662 exch2_oi_f(4,8)=0
663 exch2_oj(4,8)=0
664 exch2_oj_f(4,8)=0
665 exch2_itlo_c(4,8)=17
666 exch2_ithi_c(4,8)=17
667 exch2_jtlo_c(4,8)=0
668 exch2_jthi_c(4,8)=17
669 exch2_opposingSend_record(4,8)=3
670 RETURN
671 END
672
673 SUBROUTINE W2_E2SETUP_9
674 C Topology for tile 9
675 #include "W2_EXCH2_TOPOLOGY.h"
676 exch2_tnx(9)=16
677 exch2_tny(9)=16
678 exch2_tbasex(9)=0
679 exch2_tbasey(9)=0
680 exch2_txglobalo(9)=65
681 exch2_tyglobalo(9)=1
682 exch2_isWedge(9)=1
683 exch2_isNedge(9)=0
684 exch2_isEedge(9)=0
685 exch2_isSedge(9)=1
686 exch2_myFace(9)=3
687 exch2_mydnx(9)=32
688 exch2_mydny(9)=32
689 exch2_nNeighbours(9)=4
690
691 exch2_neighbourId(1,9)=11
692 exch2_pi(1,1,9)=1
693 exch2_pi(2,1,9)=0
694 exch2_pj(1,1,9)=0
695 exch2_pj(2,1,9)=1
696 exch2_oi(1,9)=0
697 exch2_oi_f(1,9)=0
698 exch2_oj(1,9)=0
699 exch2_oj_f(1,9)=0
700 exch2_itlo_c(1,9)=0
701 exch2_ithi_c(1,9)=17
702 exch2_jtlo_c(1,9)=0
703 exch2_jthi_c(1,9)=0
704 exch2_opposingSend_record(1,9)=2
705
706 exch2_neighbourId(2,9)=7
707 exch2_pi(1,2,9)=1
708 exch2_pi(2,2,9)=0
709 exch2_pj(1,2,9)=0
710 exch2_pj(2,2,9)=1
711 exch2_oi(2,9)=0
712 exch2_oi_f(2,9)=0
713 exch2_oj(2,9)=-32
714 exch2_oj_f(2,9)=-32
715 exch2_itlo_c(2,9)=0
716 exch2_ithi_c(2,9)=17
717 exch2_jtlo_c(2,9)=17
718 exch2_jthi_c(2,9)=17
719 exch2_opposingSend_record(2,9)=1
720
721 exch2_neighbourId(3,9)=10
722 exch2_pi(1,3,9)=1
723 exch2_pi(2,3,9)=0
724 exch2_pj(1,3,9)=0
725 exch2_pj(2,3,9)=1
726 exch2_oi(3,9)=0
727 exch2_oi_f(3,9)=0
728 exch2_oj(3,9)=0
729 exch2_oj_f(3,9)=0
730 exch2_itlo_c(3,9)=0
731 exch2_ithi_c(3,9)=0
732 exch2_jtlo_c(3,9)=0
733 exch2_jthi_c(3,9)=17
734 exch2_opposingSend_record(3,9)=4
735
736 exch2_neighbourId(4,9)=4
737 exch2_pi(1,4,9)=0
738 exch2_pi(2,4,9)=1
739 exch2_pj(1,4,9)=-1
740 exch2_pj(2,4,9)=0
741 exch2_oi(4,9)=-32
742 exch2_oi_f(4,9)=-32
743 exch2_oj(4,9)=33
744 exch2_oj_f(4,9)=34
745 exch2_itlo_c(4,9)=0
746 exch2_ithi_c(4,9)=17
747 exch2_jtlo_c(4,9)=17
748 exch2_jthi_c(4,9)=17
749 exch2_opposingSend_record(4,9)=1
750 RETURN
751 END
752
753 SUBROUTINE W2_E2SETUP_10
754 C Topology for tile 10
755 #include "W2_EXCH2_TOPOLOGY.h"
756 exch2_tnx(10)=16
757 exch2_tny(10)=16
758 exch2_tbasex(10)=16
759 exch2_tbasey(10)=0
760 exch2_txglobalo(10)=81
761 exch2_tyglobalo(10)=1
762 exch2_isWedge(10)=0
763 exch2_isNedge(10)=0
764 exch2_isEedge(10)=1
765 exch2_isSedge(10)=1
766 exch2_myFace(10)=3
767 exch2_mydnx(10)=32
768 exch2_mydny(10)=32
769 exch2_nNeighbours(10)=4
770
771 exch2_neighbourId(1,10)=12
772 exch2_pi(1,1,10)=1
773 exch2_pi(2,1,10)=0
774 exch2_pj(1,1,10)=0
775 exch2_pj(2,1,10)=1
776 exch2_oi(1,10)=0
777 exch2_oi_f(1,10)=0
778 exch2_oj(1,10)=0
779 exch2_oj_f(1,10)=0
780 exch2_itlo_c(1,10)=0
781 exch2_ithi_c(1,10)=17
782 exch2_jtlo_c(1,10)=0
783 exch2_jthi_c(1,10)=0
784 exch2_opposingSend_record(1,10)=2
785
786 exch2_neighbourId(2,10)=8
787 exch2_pi(1,2,10)=1
788 exch2_pi(2,2,10)=0
789 exch2_pj(1,2,10)=0
790 exch2_pj(2,2,10)=1
791 exch2_oi(2,10)=0
792 exch2_oi_f(2,10)=0
793 exch2_oj(2,10)=-32
794 exch2_oj_f(2,10)=-32
795 exch2_itlo_c(2,10)=0
796 exch2_ithi_c(2,10)=17
797 exch2_jtlo_c(2,10)=17
798 exch2_jthi_c(2,10)=17
799 exch2_opposingSend_record(2,10)=1
800
801 exch2_neighbourId(3,10)=13
802 exch2_pi(1,3,10)=1
803 exch2_pi(2,3,10)=0
804 exch2_pj(1,3,10)=0
805 exch2_pj(2,3,10)=1
806 exch2_oi(3,10)=32
807 exch2_oi_f(3,10)=32
808 exch2_oj(3,10)=0
809 exch2_oj_f(3,10)=0
810 exch2_itlo_c(3,10)=0
811 exch2_ithi_c(3,10)=0
812 exch2_jtlo_c(3,10)=0
813 exch2_jthi_c(3,10)=17
814 exch2_opposingSend_record(3,10)=4
815
816 exch2_neighbourId(4,10)=9
817 exch2_pi(1,4,10)=1
818 exch2_pi(2,4,10)=0
819 exch2_pj(1,4,10)=0
820 exch2_pj(2,4,10)=1
821 exch2_oi(4,10)=0
822 exch2_oi_f(4,10)=0
823 exch2_oj(4,10)=0
824 exch2_oj_f(4,10)=0
825 exch2_itlo_c(4,10)=17
826 exch2_ithi_c(4,10)=17
827 exch2_jtlo_c(4,10)=0
828 exch2_jthi_c(4,10)=17
829 exch2_opposingSend_record(4,10)=3
830 RETURN
831 END
832
833 SUBROUTINE W2_E2SETUP_11
834 C Topology for tile 11
835 #include "W2_EXCH2_TOPOLOGY.h"
836 exch2_tnx(11)=16
837 exch2_tny(11)=16
838 exch2_tbasex(11)=0
839 exch2_tbasey(11)=16
840 exch2_txglobalo(11)=65
841 exch2_tyglobalo(11)=17
842 exch2_isWedge(11)=1
843 exch2_isNedge(11)=1
844 exch2_isEedge(11)=0
845 exch2_isSedge(11)=0
846 exch2_myFace(11)=3
847 exch2_mydnx(11)=32
848 exch2_mydny(11)=32
849 exch2_nNeighbours(11)=4
850
851 exch2_neighbourId(1,11)=19
852 exch2_pi(1,1,11)=0
853 exch2_pi(2,1,11)=-1
854 exch2_pj(1,1,11)=1
855 exch2_pj(2,1,11)=0
856 exch2_oi(1,11)=33
857 exch2_oi_f(1,11)=34
858 exch2_oj(1,11)=32
859 exch2_oj_f(1,11)=32
860 exch2_itlo_c(1,11)=0
861 exch2_ithi_c(1,11)=0
862 exch2_jtlo_c(1,11)=0
863 exch2_jthi_c(1,11)=17
864 exch2_opposingSend_record(1,11)=4
865
866 exch2_neighbourId(2,11)=9
867 exch2_pi(1,2,11)=1
868 exch2_pi(2,2,11)=0
869 exch2_pj(1,2,11)=0
870 exch2_pj(2,2,11)=1
871 exch2_oi(2,11)=0
872 exch2_oi_f(2,11)=0
873 exch2_oj(2,11)=0
874 exch2_oj_f(2,11)=0
875 exch2_itlo_c(2,11)=1
876 exch2_ithi_c(2,11)=16
877 exch2_jtlo_c(2,11)=17
878 exch2_jthi_c(2,11)=17
879 exch2_opposingSend_record(2,11)=1
880
881 exch2_neighbourId(3,11)=12
882 exch2_pi(1,3,11)=1
883 exch2_pi(2,3,11)=0
884 exch2_pj(1,3,11)=0
885 exch2_pj(2,3,11)=1
886 exch2_oi(3,11)=0
887 exch2_oi_f(3,11)=0
888 exch2_oj(3,11)=0
889 exch2_oj_f(3,11)=0
890 exch2_itlo_c(3,11)=0
891 exch2_ithi_c(3,11)=0
892 exch2_jtlo_c(3,11)=0
893 exch2_jthi_c(3,11)=17
894 exch2_opposingSend_record(3,11)=4
895
896 exch2_neighbourId(4,11)=3
897 exch2_pi(1,4,11)=0
898 exch2_pi(2,4,11)=1
899 exch2_pj(1,4,11)=-1
900 exch2_pj(2,4,11)=0
901 exch2_oi(4,11)=-32
902 exch2_oi_f(4,11)=-32
903 exch2_oj(4,11)=33
904 exch2_oj_f(4,11)=34
905 exch2_itlo_c(4,11)=0
906 exch2_ithi_c(4,11)=17
907 exch2_jtlo_c(4,11)=17
908 exch2_jthi_c(4,11)=17
909 exch2_opposingSend_record(4,11)=1
910 RETURN
911 END
912
913 SUBROUTINE W2_E2SETUP_12
914 C Topology for tile 12
915 #include "W2_EXCH2_TOPOLOGY.h"
916 exch2_tnx(12)=16
917 exch2_tny(12)=16
918 exch2_tbasex(12)=16
919 exch2_tbasey(12)=16
920 exch2_txglobalo(12)=81
921 exch2_tyglobalo(12)=17
922 exch2_isWedge(12)=0
923 exch2_isNedge(12)=1
924 exch2_isEedge(12)=1
925 exch2_isSedge(12)=0
926 exch2_myFace(12)=3
927 exch2_mydnx(12)=32
928 exch2_mydny(12)=32
929 exch2_nNeighbours(12)=4
930
931 exch2_neighbourId(1,12)=17
932 exch2_pi(1,1,12)=0
933 exch2_pi(2,1,12)=-1
934 exch2_pj(1,1,12)=1
935 exch2_pj(2,1,12)=0
936 exch2_oi(1,12)=33
937 exch2_oi_f(1,12)=34
938 exch2_oj(1,12)=32
939 exch2_oj_f(1,12)=32
940 exch2_itlo_c(1,12)=0
941 exch2_ithi_c(1,12)=0
942 exch2_jtlo_c(1,12)=0
943 exch2_jthi_c(1,12)=17
944 exch2_opposingSend_record(1,12)=4
945
946 exch2_neighbourId(2,12)=10
947 exch2_pi(1,2,12)=1
948 exch2_pi(2,2,12)=0
949 exch2_pj(1,2,12)=0
950 exch2_pj(2,2,12)=1
951 exch2_oi(2,12)=0
952 exch2_oi_f(2,12)=0
953 exch2_oj(2,12)=0
954 exch2_oj_f(2,12)=0
955 exch2_itlo_c(2,12)=1
956 exch2_ithi_c(2,12)=16
957 exch2_jtlo_c(2,12)=17
958 exch2_jthi_c(2,12)=17
959 exch2_opposingSend_record(2,12)=1
960
961 exch2_neighbourId(3,12)=15
962 exch2_pi(1,3,12)=1
963 exch2_pi(2,3,12)=0
964 exch2_pj(1,3,12)=0
965 exch2_pj(2,3,12)=1
966 exch2_oi(3,12)=32
967 exch2_oi_f(3,12)=32
968 exch2_oj(3,12)=0
969 exch2_oj_f(3,12)=0
970 exch2_itlo_c(3,12)=0
971 exch2_ithi_c(3,12)=0
972 exch2_jtlo_c(3,12)=0
973 exch2_jthi_c(3,12)=17
974 exch2_opposingSend_record(3,12)=4
975
976 exch2_neighbourId(4,12)=11
977 exch2_pi(1,4,12)=1
978 exch2_pi(2,4,12)=0
979 exch2_pj(1,4,12)=0
980 exch2_pj(2,4,12)=1
981 exch2_oi(4,12)=0
982 exch2_oi_f(4,12)=0
983 exch2_oj(4,12)=0
984 exch2_oj_f(4,12)=0
985 exch2_itlo_c(4,12)=17
986 exch2_ithi_c(4,12)=17
987 exch2_jtlo_c(4,12)=0
988 exch2_jthi_c(4,12)=17
989 exch2_opposingSend_record(4,12)=3
990 RETURN
991 END
992
993 SUBROUTINE W2_E2SETUP_13
994 C Topology for tile 13
995 #include "W2_EXCH2_TOPOLOGY.h"
996 exch2_tnx(13)=16
997 exch2_tny(13)=16
998 exch2_tbasex(13)=0
999 exch2_tbasey(13)=0
1000 exch2_txglobalo(13)=97
1001 exch2_tyglobalo(13)=1
1002 exch2_isWedge(13)=1
1003 exch2_isNedge(13)=0
1004 exch2_isEedge(13)=0
1005 exch2_isSedge(13)=1
1006 exch2_myFace(13)=4
1007 exch2_mydnx(13)=32
1008 exch2_mydny(13)=32
1009 exch2_nNeighbours(13)=4
1010
1011 exch2_neighbourId(1,13)=15
1012 exch2_pi(1,1,13)=1
1013 exch2_pi(2,1,13)=0
1014 exch2_pj(1,1,13)=0
1015 exch2_pj(2,1,13)=1
1016 exch2_oi(1,13)=0
1017 exch2_oi_f(1,13)=0
1018 exch2_oj(1,13)=0
1019 exch2_oj_f(1,13)=0
1020 exch2_itlo_c(1,13)=0
1021 exch2_ithi_c(1,13)=17
1022 exch2_jtlo_c(1,13)=0
1023 exch2_jthi_c(1,13)=0
1024 exch2_opposingSend_record(1,13)=2
1025
1026 exch2_neighbourId(2,13)=8
1027 exch2_pi(1,2,13)=0
1028 exch2_pi(2,2,13)=-1
1029 exch2_pj(1,2,13)=1
1030 exch2_pj(2,2,13)=0
1031 exch2_oi(2,13)=33
1032 exch2_oi_f(2,13)=34
1033 exch2_oj(2,13)=-32
1034 exch2_oj_f(2,13)=-32
1035 exch2_itlo_c(2,13)=17
1036 exch2_ithi_c(2,13)=17
1037 exch2_jtlo_c(2,13)=0
1038 exch2_jthi_c(2,13)=17
1039 exch2_opposingSend_record(2,13)=3
1040
1041 exch2_neighbourId(3,13)=14
1042 exch2_pi(1,3,13)=1
1043 exch2_pi(2,3,13)=0
1044 exch2_pj(1,3,13)=0
1045 exch2_pj(2,3,13)=1
1046 exch2_oi(3,13)=0
1047 exch2_oi_f(3,13)=0
1048 exch2_oj(3,13)=0
1049 exch2_oj_f(3,13)=0
1050 exch2_itlo_c(3,13)=0
1051 exch2_ithi_c(3,13)=0
1052 exch2_jtlo_c(3,13)=0
1053 exch2_jthi_c(3,13)=17
1054 exch2_opposingSend_record(3,13)=4
1055
1056 exch2_neighbourId(4,13)=10
1057 exch2_pi(1,4,13)=1
1058 exch2_pi(2,4,13)=0
1059 exch2_pj(1,4,13)=0
1060 exch2_pj(2,4,13)=1
1061 exch2_oi(4,13)=-32
1062 exch2_oi_f(4,13)=-32
1063 exch2_oj(4,13)=0
1064 exch2_oj_f(4,13)=0
1065 exch2_itlo_c(4,13)=17
1066 exch2_ithi_c(4,13)=17
1067 exch2_jtlo_c(4,13)=0
1068 exch2_jthi_c(4,13)=17
1069 exch2_opposingSend_record(4,13)=3
1070 RETURN
1071 END
1072
1073 SUBROUTINE W2_E2SETUP_14
1074 C Topology for tile 14
1075 #include "W2_EXCH2_TOPOLOGY.h"
1076 exch2_tnx(14)=16
1077 exch2_tny(14)=16
1078 exch2_tbasex(14)=16
1079 exch2_tbasey(14)=0
1080 exch2_txglobalo(14)=113
1081 exch2_tyglobalo(14)=1
1082 exch2_isWedge(14)=0
1083 exch2_isNedge(14)=0
1084 exch2_isEedge(14)=1
1085 exch2_isSedge(14)=1
1086 exch2_myFace(14)=4
1087 exch2_mydnx(14)=32
1088 exch2_mydny(14)=32
1089 exch2_nNeighbours(14)=4
1090
1091 exch2_neighbourId(1,14)=16
1092 exch2_pi(1,1,14)=1
1093 exch2_pi(2,1,14)=0
1094 exch2_pj(1,1,14)=0
1095 exch2_pj(2,1,14)=1
1096 exch2_oi(1,14)=0
1097 exch2_oi_f(1,14)=0
1098 exch2_oj(1,14)=0
1099 exch2_oj_f(1,14)=0
1100 exch2_itlo_c(1,14)=0
1101 exch2_ithi_c(1,14)=17
1102 exch2_jtlo_c(1,14)=0
1103 exch2_jthi_c(1,14)=0
1104 exch2_opposingSend_record(1,14)=2
1105
1106 exch2_neighbourId(2,14)=6
1107 exch2_pi(1,2,14)=0
1108 exch2_pi(2,2,14)=-1
1109 exch2_pj(1,2,14)=1
1110 exch2_pj(2,2,14)=0
1111 exch2_oi(2,14)=33
1112 exch2_oi_f(2,14)=34
1113 exch2_oj(2,14)=-32
1114 exch2_oj_f(2,14)=-32
1115 exch2_itlo_c(2,14)=17
1116 exch2_ithi_c(2,14)=17
1117 exch2_jtlo_c(2,14)=0
1118 exch2_jthi_c(2,14)=17
1119 exch2_opposingSend_record(2,14)=3
1120
1121 exch2_neighbourId(3,14)=22
1122 exch2_pi(1,3,14)=0
1123 exch2_pi(2,3,14)=1
1124 exch2_pj(1,3,14)=-1
1125 exch2_pj(2,3,14)=0
1126 exch2_oi(3,14)=32
1127 exch2_oi_f(3,14)=32
1128 exch2_oj(3,14)=33
1129 exch2_oj_f(3,14)=34
1130 exch2_itlo_c(3,14)=0
1131 exch2_ithi_c(3,14)=17
1132 exch2_jtlo_c(3,14)=0
1133 exch2_jthi_c(3,14)=0
1134 exch2_opposingSend_record(3,14)=2
1135
1136 exch2_neighbourId(4,14)=13
1137 exch2_pi(1,4,14)=1
1138 exch2_pi(2,4,14)=0
1139 exch2_pj(1,4,14)=0
1140 exch2_pj(2,4,14)=1
1141 exch2_oi(4,14)=0
1142 exch2_oi_f(4,14)=0
1143 exch2_oj(4,14)=0
1144 exch2_oj_f(4,14)=0
1145 exch2_itlo_c(4,14)=17
1146 exch2_ithi_c(4,14)=17
1147 exch2_jtlo_c(4,14)=0
1148 exch2_jthi_c(4,14)=17
1149 exch2_opposingSend_record(4,14)=3
1150 RETURN
1151 END
1152
1153 SUBROUTINE W2_E2SETUP_15
1154 C Topology for tile 15
1155 #include "W2_EXCH2_TOPOLOGY.h"
1156 exch2_tnx(15)=16
1157 exch2_tny(15)=16
1158 exch2_tbasex(15)=0
1159 exch2_tbasey(15)=16
1160 exch2_txglobalo(15)=97
1161 exch2_tyglobalo(15)=17
1162 exch2_isWedge(15)=1
1163 exch2_isNedge(15)=1
1164 exch2_isEedge(15)=0
1165 exch2_isSedge(15)=0
1166 exch2_myFace(15)=4
1167 exch2_mydnx(15)=32
1168 exch2_mydny(15)=32
1169 exch2_nNeighbours(15)=4
1170
1171 exch2_neighbourId(1,15)=17
1172 exch2_pi(1,1,15)=1
1173 exch2_pi(2,1,15)=0
1174 exch2_pj(1,1,15)=0
1175 exch2_pj(2,1,15)=1
1176 exch2_oi(1,15)=0
1177 exch2_oi_f(1,15)=0
1178 exch2_oj(1,15)=32
1179 exch2_oj_f(1,15)=32
1180 exch2_itlo_c(1,15)=0
1181 exch2_ithi_c(1,15)=17
1182 exch2_jtlo_c(1,15)=0
1183 exch2_jthi_c(1,15)=0
1184 exch2_opposingSend_record(1,15)=2
1185
1186 exch2_neighbourId(2,15)=13
1187 exch2_pi(1,2,15)=1
1188 exch2_pi(2,2,15)=0
1189 exch2_pj(1,2,15)=0
1190 exch2_pj(2,2,15)=1
1191 exch2_oi(2,15)=0
1192 exch2_oi_f(2,15)=0
1193 exch2_oj(2,15)=0
1194 exch2_oj_f(2,15)=0
1195 exch2_itlo_c(2,15)=1
1196 exch2_ithi_c(2,15)=16
1197 exch2_jtlo_c(2,15)=17
1198 exch2_jthi_c(2,15)=17
1199 exch2_opposingSend_record(2,15)=1
1200
1201 exch2_neighbourId(3,15)=16
1202 exch2_pi(1,3,15)=1
1203 exch2_pi(2,3,15)=0
1204 exch2_pj(1,3,15)=0
1205 exch2_pj(2,3,15)=1
1206 exch2_oi(3,15)=0
1207 exch2_oi_f(3,15)=0
1208 exch2_oj(3,15)=0
1209 exch2_oj_f(3,15)=0
1210 exch2_itlo_c(3,15)=0
1211 exch2_ithi_c(3,15)=0
1212 exch2_jtlo_c(3,15)=0
1213 exch2_jthi_c(3,15)=17
1214 exch2_opposingSend_record(3,15)=4
1215
1216 exch2_neighbourId(4,15)=12
1217 exch2_pi(1,4,15)=1
1218 exch2_pi(2,4,15)=0
1219 exch2_pj(1,4,15)=0
1220 exch2_pj(2,4,15)=1
1221 exch2_oi(4,15)=-32
1222 exch2_oi_f(4,15)=-32
1223 exch2_oj(4,15)=0
1224 exch2_oj_f(4,15)=0
1225 exch2_itlo_c(4,15)=17
1226 exch2_ithi_c(4,15)=17
1227 exch2_jtlo_c(4,15)=0
1228 exch2_jthi_c(4,15)=17
1229 exch2_opposingSend_record(4,15)=3
1230 RETURN
1231 END
1232
1233 SUBROUTINE W2_E2SETUP_16
1234 C Topology for tile 16
1235 #include "W2_EXCH2_TOPOLOGY.h"
1236 exch2_tnx(16)=16
1237 exch2_tny(16)=16
1238 exch2_tbasex(16)=16
1239 exch2_tbasey(16)=16
1240 exch2_txglobalo(16)=113
1241 exch2_tyglobalo(16)=17
1242 exch2_isWedge(16)=0
1243 exch2_isNedge(16)=1
1244 exch2_isEedge(16)=1
1245 exch2_isSedge(16)=0
1246 exch2_myFace(16)=4
1247 exch2_mydnx(16)=32
1248 exch2_mydny(16)=32
1249 exch2_nNeighbours(16)=4
1250
1251 exch2_neighbourId(1,16)=18
1252 exch2_pi(1,1,16)=1
1253 exch2_pi(2,1,16)=0
1254 exch2_pj(1,1,16)=0
1255 exch2_pj(2,1,16)=1
1256 exch2_oi(1,16)=0
1257 exch2_oi_f(1,16)=0
1258 exch2_oj(1,16)=32
1259 exch2_oj_f(1,16)=32
1260 exch2_itlo_c(1,16)=0
1261 exch2_ithi_c(1,16)=17
1262 exch2_jtlo_c(1,16)=0
1263 exch2_jthi_c(1,16)=0
1264 exch2_opposingSend_record(1,16)=2
1265
1266 exch2_neighbourId(2,16)=14
1267 exch2_pi(1,2,16)=1
1268 exch2_pi(2,2,16)=0
1269 exch2_pj(1,2,16)=0
1270 exch2_pj(2,2,16)=1
1271 exch2_oi(2,16)=0
1272 exch2_oi_f(2,16)=0
1273 exch2_oj(2,16)=0
1274 exch2_oj_f(2,16)=0
1275 exch2_itlo_c(2,16)=1
1276 exch2_ithi_c(2,16)=16
1277 exch2_jtlo_c(2,16)=17
1278 exch2_jthi_c(2,16)=17
1279 exch2_opposingSend_record(2,16)=1
1280
1281 exch2_neighbourId(3,16)=21
1282 exch2_pi(1,3,16)=0
1283 exch2_pi(2,3,16)=1
1284 exch2_pj(1,3,16)=-1
1285 exch2_pj(2,3,16)=0
1286 exch2_oi(3,16)=32
1287 exch2_oi_f(3,16)=32
1288 exch2_oj(3,16)=33
1289 exch2_oj_f(3,16)=34
1290 exch2_itlo_c(3,16)=0
1291 exch2_ithi_c(3,16)=17
1292 exch2_jtlo_c(3,16)=0
1293 exch2_jthi_c(3,16)=0
1294 exch2_opposingSend_record(3,16)=2
1295
1296 exch2_neighbourId(4,16)=15
1297 exch2_pi(1,4,16)=1
1298 exch2_pi(2,4,16)=0
1299 exch2_pj(1,4,16)=0
1300 exch2_pj(2,4,16)=1
1301 exch2_oi(4,16)=0
1302 exch2_oi_f(4,16)=0
1303 exch2_oj(4,16)=0
1304 exch2_oj_f(4,16)=0
1305 exch2_itlo_c(4,16)=17
1306 exch2_ithi_c(4,16)=17
1307 exch2_jtlo_c(4,16)=0
1308 exch2_jthi_c(4,16)=17
1309 exch2_opposingSend_record(4,16)=3
1310 RETURN
1311 END
1312
1313 SUBROUTINE W2_E2SETUP_17
1314 C Topology for tile 17
1315 #include "W2_EXCH2_TOPOLOGY.h"
1316 exch2_tnx(17)=16
1317 exch2_tny(17)=16
1318 exch2_tbasex(17)=0
1319 exch2_tbasey(17)=0
1320 exch2_txglobalo(17)=129
1321 exch2_tyglobalo(17)=1
1322 exch2_isWedge(17)=1
1323 exch2_isNedge(17)=0
1324 exch2_isEedge(17)=0
1325 exch2_isSedge(17)=1
1326 exch2_myFace(17)=5
1327 exch2_mydnx(17)=32
1328 exch2_mydny(17)=32
1329 exch2_nNeighbours(17)=4
1330
1331 exch2_neighbourId(1,17)=19
1332 exch2_pi(1,1,17)=1
1333 exch2_pi(2,1,17)=0
1334 exch2_pj(1,1,17)=0
1335 exch2_pj(2,1,17)=1
1336 exch2_oi(1,17)=0
1337 exch2_oi_f(1,17)=0
1338 exch2_oj(1,17)=0
1339 exch2_oj_f(1,17)=0
1340 exch2_itlo_c(1,17)=0
1341 exch2_ithi_c(1,17)=17
1342 exch2_jtlo_c(1,17)=0
1343 exch2_jthi_c(1,17)=0
1344 exch2_opposingSend_record(1,17)=2
1345
1346 exch2_neighbourId(2,17)=15
1347 exch2_pi(1,2,17)=1
1348 exch2_pi(2,2,17)=0
1349 exch2_pj(1,2,17)=0
1350 exch2_pj(2,2,17)=1
1351 exch2_oi(2,17)=0
1352 exch2_oi_f(2,17)=0
1353 exch2_oj(2,17)=-32
1354 exch2_oj_f(2,17)=-32
1355 exch2_itlo_c(2,17)=0
1356 exch2_ithi_c(2,17)=17
1357 exch2_jtlo_c(2,17)=17
1358 exch2_jthi_c(2,17)=17
1359 exch2_opposingSend_record(2,17)=1
1360
1361 exch2_neighbourId(3,17)=18
1362 exch2_pi(1,3,17)=1
1363 exch2_pi(2,3,17)=0
1364 exch2_pj(1,3,17)=0
1365 exch2_pj(2,3,17)=1
1366 exch2_oi(3,17)=0
1367 exch2_oi_f(3,17)=0
1368 exch2_oj(3,17)=0
1369 exch2_oj_f(3,17)=0
1370 exch2_itlo_c(3,17)=0
1371 exch2_ithi_c(3,17)=0
1372 exch2_jtlo_c(3,17)=0
1373 exch2_jthi_c(3,17)=17
1374 exch2_opposingSend_record(3,17)=4
1375
1376 exch2_neighbourId(4,17)=12
1377 exch2_pi(1,4,17)=0
1378 exch2_pi(2,4,17)=1
1379 exch2_pj(1,4,17)=-1
1380 exch2_pj(2,4,17)=0
1381 exch2_oi(4,17)=-32
1382 exch2_oi_f(4,17)=-32
1383 exch2_oj(4,17)=33
1384 exch2_oj_f(4,17)=34
1385 exch2_itlo_c(4,17)=0
1386 exch2_ithi_c(4,17)=17
1387 exch2_jtlo_c(4,17)=17
1388 exch2_jthi_c(4,17)=17
1389 exch2_opposingSend_record(4,17)=1
1390 RETURN
1391 END
1392
1393 SUBROUTINE W2_E2SETUP_18
1394 C Topology for tile 18
1395 #include "W2_EXCH2_TOPOLOGY.h"
1396 exch2_tnx(18)=16
1397 exch2_tny(18)=16
1398 exch2_tbasex(18)=16
1399 exch2_tbasey(18)=0
1400 exch2_txglobalo(18)=145
1401 exch2_tyglobalo(18)=1
1402 exch2_isWedge(18)=0
1403 exch2_isNedge(18)=0
1404 exch2_isEedge(18)=1
1405 exch2_isSedge(18)=1
1406 exch2_myFace(18)=5
1407 exch2_mydnx(18)=32
1408 exch2_mydny(18)=32
1409 exch2_nNeighbours(18)=4
1410
1411 exch2_neighbourId(1,18)=20
1412 exch2_pi(1,1,18)=1
1413 exch2_pi(2,1,18)=0
1414 exch2_pj(1,1,18)=0
1415 exch2_pj(2,1,18)=1
1416 exch2_oi(1,18)=0
1417 exch2_oi_f(1,18)=0
1418 exch2_oj(1,18)=0
1419 exch2_oj_f(1,18)=0
1420 exch2_itlo_c(1,18)=0
1421 exch2_ithi_c(1,18)=17
1422 exch2_jtlo_c(1,18)=0
1423 exch2_jthi_c(1,18)=0
1424 exch2_opposingSend_record(1,18)=2
1425
1426 exch2_neighbourId(2,18)=16
1427 exch2_pi(1,2,18)=1
1428 exch2_pi(2,2,18)=0
1429 exch2_pj(1,2,18)=0
1430 exch2_pj(2,2,18)=1
1431 exch2_oi(2,18)=0
1432 exch2_oi_f(2,18)=0
1433 exch2_oj(2,18)=-32
1434 exch2_oj_f(2,18)=-32
1435 exch2_itlo_c(2,18)=0
1436 exch2_ithi_c(2,18)=17
1437 exch2_jtlo_c(2,18)=17
1438 exch2_jthi_c(2,18)=17
1439 exch2_opposingSend_record(2,18)=1
1440
1441 exch2_neighbourId(3,18)=21
1442 exch2_pi(1,3,18)=1
1443 exch2_pi(2,3,18)=0
1444 exch2_pj(1,3,18)=0
1445 exch2_pj(2,3,18)=1
1446 exch2_oi(3,18)=32
1447 exch2_oi_f(3,18)=32
1448 exch2_oj(3,18)=0
1449 exch2_oj_f(3,18)=0
1450 exch2_itlo_c(3,18)=0
1451 exch2_ithi_c(3,18)=0
1452 exch2_jtlo_c(3,18)=0
1453 exch2_jthi_c(3,18)=17
1454 exch2_opposingSend_record(3,18)=4
1455
1456 exch2_neighbourId(4,18)=17
1457 exch2_pi(1,4,18)=1
1458 exch2_pi(2,4,18)=0
1459 exch2_pj(1,4,18)=0
1460 exch2_pj(2,4,18)=1
1461 exch2_oi(4,18)=0
1462 exch2_oi_f(4,18)=0
1463 exch2_oj(4,18)=0
1464 exch2_oj_f(4,18)=0
1465 exch2_itlo_c(4,18)=17
1466 exch2_ithi_c(4,18)=17
1467 exch2_jtlo_c(4,18)=0
1468 exch2_jthi_c(4,18)=17
1469 exch2_opposingSend_record(4,18)=3
1470 RETURN
1471 END
1472
1473 SUBROUTINE W2_E2SETUP_19
1474 C Topology for tile 19
1475 #include "W2_EXCH2_TOPOLOGY.h"
1476 exch2_tnx(19)=16
1477 exch2_tny(19)=16
1478 exch2_tbasex(19)=0
1479 exch2_tbasey(19)=16
1480 exch2_txglobalo(19)=129
1481 exch2_tyglobalo(19)=17
1482 exch2_isWedge(19)=1
1483 exch2_isNedge(19)=1
1484 exch2_isEedge(19)=0
1485 exch2_isSedge(19)=0
1486 exch2_myFace(19)=5
1487 exch2_mydnx(19)=32
1488 exch2_mydny(19)=32
1489 exch2_nNeighbours(19)=4
1490
1491 exch2_neighbourId(1,19)=3
1492 exch2_pi(1,1,19)=0
1493 exch2_pi(2,1,19)=-1
1494 exch2_pj(1,1,19)=1
1495 exch2_pj(2,1,19)=0
1496 exch2_oi(1,19)=33
1497 exch2_oi_f(1,19)=34
1498 exch2_oj(1,19)=32
1499 exch2_oj_f(1,19)=32
1500 exch2_itlo_c(1,19)=0
1501 exch2_ithi_c(1,19)=0
1502 exch2_jtlo_c(1,19)=0
1503 exch2_jthi_c(1,19)=17
1504 exch2_opposingSend_record(1,19)=4
1505
1506 exch2_neighbourId(2,19)=17
1507 exch2_pi(1,2,19)=1
1508 exch2_pi(2,2,19)=0
1509 exch2_pj(1,2,19)=0
1510 exch2_pj(2,2,19)=1
1511 exch2_oi(2,19)=0
1512 exch2_oi_f(2,19)=0
1513 exch2_oj(2,19)=0
1514 exch2_oj_f(2,19)=0
1515 exch2_itlo_c(2,19)=1
1516 exch2_ithi_c(2,19)=16
1517 exch2_jtlo_c(2,19)=17
1518 exch2_jthi_c(2,19)=17
1519 exch2_opposingSend_record(2,19)=1
1520
1521 exch2_neighbourId(3,19)=20
1522 exch2_pi(1,3,19)=1
1523 exch2_pi(2,3,19)=0
1524 exch2_pj(1,3,19)=0
1525 exch2_pj(2,3,19)=1
1526 exch2_oi(3,19)=0
1527 exch2_oi_f(3,19)=0
1528 exch2_oj(3,19)=0
1529 exch2_oj_f(3,19)=0
1530 exch2_itlo_c(3,19)=0
1531 exch2_ithi_c(3,19)=0
1532 exch2_jtlo_c(3,19)=0
1533 exch2_jthi_c(3,19)=17
1534 exch2_opposingSend_record(3,19)=4
1535
1536 exch2_neighbourId(4,19)=11
1537 exch2_pi(1,4,19)=0
1538 exch2_pi(2,4,19)=1
1539 exch2_pj(1,4,19)=-1
1540 exch2_pj(2,4,19)=0
1541 exch2_oi(4,19)=-32
1542 exch2_oi_f(4,19)=-32
1543 exch2_oj(4,19)=33
1544 exch2_oj_f(4,19)=34
1545 exch2_itlo_c(4,19)=0
1546 exch2_ithi_c(4,19)=17
1547 exch2_jtlo_c(4,19)=17
1548 exch2_jthi_c(4,19)=17
1549 exch2_opposingSend_record(4,19)=1
1550 RETURN
1551 END
1552
1553 SUBROUTINE W2_E2SETUP_20
1554 C Topology for tile 20
1555 #include "W2_EXCH2_TOPOLOGY.h"
1556 exch2_tnx(20)=16
1557 exch2_tny(20)=16
1558 exch2_tbasex(20)=16
1559 exch2_tbasey(20)=16
1560 exch2_txglobalo(20)=145
1561 exch2_tyglobalo(20)=17
1562 exch2_isWedge(20)=0
1563 exch2_isNedge(20)=1
1564 exch2_isEedge(20)=1
1565 exch2_isSedge(20)=0
1566 exch2_myFace(20)=5
1567 exch2_mydnx(20)=32
1568 exch2_mydny(20)=32
1569 exch2_nNeighbours(20)=4
1570
1571 exch2_neighbourId(1,20)=1
1572 exch2_pi(1,1,20)=0
1573 exch2_pi(2,1,20)=-1
1574 exch2_pj(1,1,20)=1
1575 exch2_pj(2,1,20)=0
1576 exch2_oi(1,20)=33
1577 exch2_oi_f(1,20)=34
1578 exch2_oj(1,20)=32
1579 exch2_oj_f(1,20)=32
1580 exch2_itlo_c(1,20)=0
1581 exch2_ithi_c(1,20)=0
1582 exch2_jtlo_c(1,20)=0
1583 exch2_jthi_c(1,20)=17
1584 exch2_opposingSend_record(1,20)=4
1585
1586 exch2_neighbourId(2,20)=18
1587 exch2_pi(1,2,20)=1
1588 exch2_pi(2,2,20)=0
1589 exch2_pj(1,2,20)=0
1590 exch2_pj(2,2,20)=1
1591 exch2_oi(2,20)=0
1592 exch2_oi_f(2,20)=0
1593 exch2_oj(2,20)=0
1594 exch2_oj_f(2,20)=0
1595 exch2_itlo_c(2,20)=1
1596 exch2_ithi_c(2,20)=16
1597 exch2_jtlo_c(2,20)=17
1598 exch2_jthi_c(2,20)=17
1599 exch2_opposingSend_record(2,20)=1
1600
1601 exch2_neighbourId(3,20)=23
1602 exch2_pi(1,3,20)=1
1603 exch2_pi(2,3,20)=0
1604 exch2_pj(1,3,20)=0
1605 exch2_pj(2,3,20)=1
1606 exch2_oi(3,20)=32
1607 exch2_oi_f(3,20)=32
1608 exch2_oj(3,20)=0
1609 exch2_oj_f(3,20)=0
1610 exch2_itlo_c(3,20)=0
1611 exch2_ithi_c(3,20)=0
1612 exch2_jtlo_c(3,20)=0
1613 exch2_jthi_c(3,20)=17
1614 exch2_opposingSend_record(3,20)=4
1615
1616 exch2_neighbourId(4,20)=19
1617 exch2_pi(1,4,20)=1
1618 exch2_pi(2,4,20)=0
1619 exch2_pj(1,4,20)=0
1620 exch2_pj(2,4,20)=1
1621 exch2_oi(4,20)=0
1622 exch2_oi_f(4,20)=0
1623 exch2_oj(4,20)=0
1624 exch2_oj_f(4,20)=0
1625 exch2_itlo_c(4,20)=17
1626 exch2_ithi_c(4,20)=17
1627 exch2_jtlo_c(4,20)=0
1628 exch2_jthi_c(4,20)=17
1629 exch2_opposingSend_record(4,20)=3
1630 RETURN
1631 END
1632
1633 SUBROUTINE W2_E2SETUP_21
1634 C Topology for tile 21
1635 #include "W2_EXCH2_TOPOLOGY.h"
1636 exch2_tnx(21)=16
1637 exch2_tny(21)=16
1638 exch2_tbasex(21)=0
1639 exch2_tbasey(21)=0
1640 exch2_txglobalo(21)=161
1641 exch2_tyglobalo(21)=1
1642 exch2_isWedge(21)=1
1643 exch2_isNedge(21)=0
1644 exch2_isEedge(21)=0
1645 exch2_isSedge(21)=1
1646 exch2_myFace(21)=6
1647 exch2_mydnx(21)=32
1648 exch2_mydny(21)=32
1649 exch2_nNeighbours(21)=4
1650
1651 exch2_neighbourId(1,21)=23
1652 exch2_pi(1,1,21)=1
1653 exch2_pi(2,1,21)=0
1654 exch2_pj(1,1,21)=0
1655 exch2_pj(2,1,21)=1
1656 exch2_oi(1,21)=0
1657 exch2_oi_f(1,21)=0
1658 exch2_oj(1,21)=0
1659 exch2_oj_f(1,21)=0
1660 exch2_itlo_c(1,21)=0
1661 exch2_ithi_c(1,21)=17
1662 exch2_jtlo_c(1,21)=0
1663 exch2_jthi_c(1,21)=0
1664 exch2_opposingSend_record(1,21)=2
1665
1666 exch2_neighbourId(2,21)=16
1667 exch2_pi(1,2,21)=0
1668 exch2_pi(2,2,21)=-1
1669 exch2_pj(1,2,21)=1
1670 exch2_pj(2,2,21)=0
1671 exch2_oi(2,21)=33
1672 exch2_oi_f(2,21)=34
1673 exch2_oj(2,21)=-32
1674 exch2_oj_f(2,21)=-32
1675 exch2_itlo_c(2,21)=17
1676 exch2_ithi_c(2,21)=17
1677 exch2_jtlo_c(2,21)=0
1678 exch2_jthi_c(2,21)=17
1679 exch2_opposingSend_record(2,21)=3
1680
1681 exch2_neighbourId(3,21)=22
1682 exch2_pi(1,3,21)=1
1683 exch2_pi(2,3,21)=0
1684 exch2_pj(1,3,21)=0
1685 exch2_pj(2,3,21)=1
1686 exch2_oi(3,21)=0
1687 exch2_oi_f(3,21)=0
1688 exch2_oj(3,21)=0
1689 exch2_oj_f(3,21)=0
1690 exch2_itlo_c(3,21)=0
1691 exch2_ithi_c(3,21)=0
1692 exch2_jtlo_c(3,21)=0
1693 exch2_jthi_c(3,21)=17
1694 exch2_opposingSend_record(3,21)=4
1695
1696 exch2_neighbourId(4,21)=18
1697 exch2_pi(1,4,21)=1
1698 exch2_pi(2,4,21)=0
1699 exch2_pj(1,4,21)=0
1700 exch2_pj(2,4,21)=1
1701 exch2_oi(4,21)=-32
1702 exch2_oi_f(4,21)=-32
1703 exch2_oj(4,21)=0
1704 exch2_oj_f(4,21)=0
1705 exch2_itlo_c(4,21)=17
1706 exch2_ithi_c(4,21)=17
1707 exch2_jtlo_c(4,21)=0
1708 exch2_jthi_c(4,21)=17
1709 exch2_opposingSend_record(4,21)=3
1710 RETURN
1711 END
1712
1713 SUBROUTINE W2_E2SETUP_22
1714 C Topology for tile 22
1715 #include "W2_EXCH2_TOPOLOGY.h"
1716 exch2_tnx(22)=16
1717 exch2_tny(22)=16
1718 exch2_tbasex(22)=16
1719 exch2_tbasey(22)=0
1720 exch2_txglobalo(22)=177
1721 exch2_tyglobalo(22)=1
1722 exch2_isWedge(22)=0
1723 exch2_isNedge(22)=0
1724 exch2_isEedge(22)=1
1725 exch2_isSedge(22)=1
1726 exch2_myFace(22)=6
1727 exch2_mydnx(22)=32
1728 exch2_mydny(22)=32
1729 exch2_nNeighbours(22)=4
1730
1731 exch2_neighbourId(1,22)=24
1732 exch2_pi(1,1,22)=1
1733 exch2_pi(2,1,22)=0
1734 exch2_pj(1,1,22)=0
1735 exch2_pj(2,1,22)=1
1736 exch2_oi(1,22)=0
1737 exch2_oi_f(1,22)=0
1738 exch2_oj(1,22)=0
1739 exch2_oj_f(1,22)=0
1740 exch2_itlo_c(1,22)=0
1741 exch2_ithi_c(1,22)=17
1742 exch2_jtlo_c(1,22)=0
1743 exch2_jthi_c(1,22)=0
1744 exch2_opposingSend_record(1,22)=2
1745
1746 exch2_neighbourId(2,22)=14
1747 exch2_pi(1,2,22)=0
1748 exch2_pi(2,2,22)=-1
1749 exch2_pj(1,2,22)=1
1750 exch2_pj(2,2,22)=0
1751 exch2_oi(2,22)=33
1752 exch2_oi_f(2,22)=34
1753 exch2_oj(2,22)=-32
1754 exch2_oj_f(2,22)=-32
1755 exch2_itlo_c(2,22)=17
1756 exch2_ithi_c(2,22)=17
1757 exch2_jtlo_c(2,22)=0
1758 exch2_jthi_c(2,22)=17
1759 exch2_opposingSend_record(2,22)=3
1760
1761 exch2_neighbourId(3,22)=6
1762 exch2_pi(1,3,22)=0
1763 exch2_pi(2,3,22)=1
1764 exch2_pj(1,3,22)=-1
1765 exch2_pj(2,3,22)=0
1766 exch2_oi(3,22)=32
1767 exch2_oi_f(3,22)=32
1768 exch2_oj(3,22)=33
1769 exch2_oj_f(3,22)=34
1770 exch2_itlo_c(3,22)=0
1771 exch2_ithi_c(3,22)=17
1772 exch2_jtlo_c(3,22)=0
1773 exch2_jthi_c(3,22)=0
1774 exch2_opposingSend_record(3,22)=2
1775
1776 exch2_neighbourId(4,22)=21
1777 exch2_pi(1,4,22)=1
1778 exch2_pi(2,4,22)=0
1779 exch2_pj(1,4,22)=0
1780 exch2_pj(2,4,22)=1
1781 exch2_oi(4,22)=0
1782 exch2_oi_f(4,22)=0
1783 exch2_oj(4,22)=0
1784 exch2_oj_f(4,22)=0
1785 exch2_itlo_c(4,22)=17
1786 exch2_ithi_c(4,22)=17
1787 exch2_jtlo_c(4,22)=0
1788 exch2_jthi_c(4,22)=17
1789 exch2_opposingSend_record(4,22)=3
1790 RETURN
1791 END
1792
1793 SUBROUTINE W2_E2SETUP_23
1794 C Topology for tile 23
1795 #include "W2_EXCH2_TOPOLOGY.h"
1796 exch2_tnx(23)=16
1797 exch2_tny(23)=16
1798 exch2_tbasex(23)=0
1799 exch2_tbasey(23)=16
1800 exch2_txglobalo(23)=161
1801 exch2_tyglobalo(23)=17
1802 exch2_isWedge(23)=1
1803 exch2_isNedge(23)=1
1804 exch2_isEedge(23)=0
1805 exch2_isSedge(23)=0
1806 exch2_myFace(23)=6
1807 exch2_mydnx(23)=32
1808 exch2_mydny(23)=32
1809 exch2_nNeighbours(23)=4
1810
1811 exch2_neighbourId(1,23)=1
1812 exch2_pi(1,1,23)=1
1813 exch2_pi(2,1,23)=0
1814 exch2_pj(1,1,23)=0
1815 exch2_pj(2,1,23)=1
1816 exch2_oi(1,23)=0
1817 exch2_oi_f(1,23)=0
1818 exch2_oj(1,23)=32
1819 exch2_oj_f(1,23)=32
1820 exch2_itlo_c(1,23)=0
1821 exch2_ithi_c(1,23)=17
1822 exch2_jtlo_c(1,23)=0
1823 exch2_jthi_c(1,23)=0
1824 exch2_opposingSend_record(1,23)=2
1825
1826 exch2_neighbourId(2,23)=21
1827 exch2_pi(1,2,23)=1
1828 exch2_pi(2,2,23)=0
1829 exch2_pj(1,2,23)=0
1830 exch2_pj(2,2,23)=1
1831 exch2_oi(2,23)=0
1832 exch2_oi_f(2,23)=0
1833 exch2_oj(2,23)=0
1834 exch2_oj_f(2,23)=0
1835 exch2_itlo_c(2,23)=1
1836 exch2_ithi_c(2,23)=16
1837 exch2_jtlo_c(2,23)=17
1838 exch2_jthi_c(2,23)=17
1839 exch2_opposingSend_record(2,23)=1
1840
1841 exch2_neighbourId(3,23)=24
1842 exch2_pi(1,3,23)=1
1843 exch2_pi(2,3,23)=0
1844 exch2_pj(1,3,23)=0
1845 exch2_pj(2,3,23)=1
1846 exch2_oi(3,23)=0
1847 exch2_oi_f(3,23)=0
1848 exch2_oj(3,23)=0
1849 exch2_oj_f(3,23)=0
1850 exch2_itlo_c(3,23)=0
1851 exch2_ithi_c(3,23)=0
1852 exch2_jtlo_c(3,23)=0
1853 exch2_jthi_c(3,23)=17
1854 exch2_opposingSend_record(3,23)=4
1855
1856 exch2_neighbourId(4,23)=20
1857 exch2_pi(1,4,23)=1
1858 exch2_pi(2,4,23)=0
1859 exch2_pj(1,4,23)=0
1860 exch2_pj(2,4,23)=1
1861 exch2_oi(4,23)=-32
1862 exch2_oi_f(4,23)=-32
1863 exch2_oj(4,23)=0
1864 exch2_oj_f(4,23)=0
1865 exch2_itlo_c(4,23)=17
1866 exch2_ithi_c(4,23)=17
1867 exch2_jtlo_c(4,23)=0
1868 exch2_jthi_c(4,23)=17
1869 exch2_opposingSend_record(4,23)=3
1870 RETURN
1871 END
1872
1873 SUBROUTINE W2_E2SETUP_24
1874 C Topology for tile 24
1875 #include "W2_EXCH2_TOPOLOGY.h"
1876 exch2_tnx(24)=16
1877 exch2_tny(24)=16
1878 exch2_tbasex(24)=16
1879 exch2_tbasey(24)=16
1880 exch2_txglobalo(24)=177
1881 exch2_tyglobalo(24)=17
1882 exch2_isWedge(24)=0
1883 exch2_isNedge(24)=1
1884 exch2_isEedge(24)=1
1885 exch2_isSedge(24)=0
1886 exch2_myFace(24)=6
1887 exch2_mydnx(24)=32
1888 exch2_mydny(24)=32
1889 exch2_nNeighbours(24)=4
1890
1891 exch2_neighbourId(1,24)=2
1892 exch2_pi(1,1,24)=1
1893 exch2_pi(2,1,24)=0
1894 exch2_pj(1,1,24)=0
1895 exch2_pj(2,1,24)=1
1896 exch2_oi(1,24)=0
1897 exch2_oi_f(1,24)=0
1898 exch2_oj(1,24)=32
1899 exch2_oj_f(1,24)=32
1900 exch2_itlo_c(1,24)=0
1901 exch2_ithi_c(1,24)=17
1902 exch2_jtlo_c(1,24)=0
1903 exch2_jthi_c(1,24)=0
1904 exch2_opposingSend_record(1,24)=2
1905
1906 exch2_neighbourId(2,24)=22
1907 exch2_pi(1,2,24)=1
1908 exch2_pi(2,2,24)=0
1909 exch2_pj(1,2,24)=0
1910 exch2_pj(2,2,24)=1
1911 exch2_oi(2,24)=0
1912 exch2_oi_f(2,24)=0
1913 exch2_oj(2,24)=0
1914 exch2_oj_f(2,24)=0
1915 exch2_itlo_c(2,24)=1
1916 exch2_ithi_c(2,24)=16
1917 exch2_jtlo_c(2,24)=17
1918 exch2_jthi_c(2,24)=17
1919 exch2_opposingSend_record(2,24)=1
1920
1921 exch2_neighbourId(3,24)=5
1922 exch2_pi(1,3,24)=0
1923 exch2_pi(2,3,24)=1
1924 exch2_pj(1,3,24)=-1
1925 exch2_pj(2,3,24)=0
1926 exch2_oi(3,24)=32
1927 exch2_oi_f(3,24)=32
1928 exch2_oj(3,24)=33
1929 exch2_oj_f(3,24)=34
1930 exch2_itlo_c(3,24)=0
1931 exch2_ithi_c(3,24)=17
1932 exch2_jtlo_c(3,24)=0
1933 exch2_jthi_c(3,24)=0
1934 exch2_opposingSend_record(3,24)=2
1935
1936 exch2_neighbourId(4,24)=23
1937 exch2_pi(1,4,24)=1
1938 exch2_pi(2,4,24)=0
1939 exch2_pj(1,4,24)=0
1940 exch2_pj(2,4,24)=1
1941 exch2_oi(4,24)=0
1942 exch2_oi_f(4,24)=0
1943 exch2_oj(4,24)=0
1944 exch2_oj_f(4,24)=0
1945 exch2_itlo_c(4,24)=17
1946 exch2_ithi_c(4,24)=17
1947 exch2_jtlo_c(4,24)=0
1948 exch2_jthi_c(4,24)=17
1949 exch2_opposingSend_record(4,24)=3
1950 RETURN
1951 END
1952
  ViewVC Help
Powered by ViewVC 1.1.22