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

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

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

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