C *** THIS FILE IS AUTOMATICALLY GENERATED *** SUBROUTINE W2_E2SETUP C Tile toplogy settings data structures #include "W2_EXCH2_TOPOLOGY.h" C Tile settings table CALL W2_E2SETUP_1 CALL W2_E2SETUP_2 CALL W2_E2SETUP_3 CALL W2_E2SETUP_4 CALL W2_E2SETUP_5 CALL W2_E2SETUP_6 CALL W2_E2SETUP_7 CALL W2_E2SETUP_8 CALL W2_E2SETUP_9 CALL W2_E2SETUP_10 CALL W2_E2SETUP_11 CALL W2_E2SETUP_12 CALL W2_E2SETUP_13 CALL W2_E2SETUP_14 CALL W2_E2SETUP_15 CALL W2_E2SETUP_16 CALL W2_E2SETUP_17 CALL W2_E2SETUP_18 CALL W2_E2SETUP_19 CALL W2_E2SETUP_20 CALL W2_E2SETUP_21 CALL W2_E2SETUP_22 CALL W2_E2SETUP_23 CALL W2_E2SETUP_24 CALL W2_E2SETUP_25 CALL W2_E2SETUP_26 CALL W2_E2SETUP_27 CALL W2_E2SETUP_28 CALL W2_E2SETUP_29 CALL W2_E2SETUP_30 CALL W2_E2SETUP_31 CALL W2_E2SETUP_32 CALL W2_E2SETUP_33 CALL W2_E2SETUP_34 CALL W2_E2SETUP_35 CALL W2_E2SETUP_36 CALL W2_E2SETUP_37 CALL W2_E2SETUP_38 CALL W2_E2SETUP_39 CALL W2_E2SETUP_40 CALL W2_E2SETUP_41 CALL W2_E2SETUP_42 CALL W2_E2SETUP_43 CALL W2_E2SETUP_44 CALL W2_E2SETUP_45 CALL W2_E2SETUP_46 CALL W2_E2SETUP_47 CALL W2_E2SETUP_48 CALL W2_E2SETUP_49 CALL W2_E2SETUP_50 CALL W2_E2SETUP_51 CALL W2_E2SETUP_52 CALL W2_E2SETUP_53 CALL W2_E2SETUP_54 RETURN END SUBROUTINE W2_E2SETUP_1 C Topology for tile 1 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(1)=170 exch2_tNy(1)=170 exch2_tBasex(1)=0 exch2_tBasey(1)=0 exch2_txGlobalo(1)=1 exch2_tyGlobalo(1)=1 exch2_isWedge(1)=1 exch2_isNedge(1)=0 exch2_isEedge(1)=0 exch2_isSedge(1)=1 exch2_myFace(1)=1 exch2_mydNx(1)=510 exch2_mydNy(1)=510 exch2_nNeighbours(1)=4 exch2_neighbourId(1,1)=4 exch2_iLo(1,1)=0 exch2_iHi(1,1)=171 exch2_jLo(1,1)=171 exch2_jHi(1,1)=171 exch2_opposingSend(1,1)=2 exch2_pij(1,1,1)=1 exch2_pij(2,1,1)=0 exch2_pij(3,1,1)=0 exch2_pij(4,1,1)=1 exch2_oi(1,1)=0 exch2_oj(1,1)=0 exch2_neighbourId(2,1)=52 exch2_iLo(2,1)=0 exch2_iHi(2,1)=171 exch2_jLo(2,1)=0 exch2_jHi(2,1)=0 exch2_opposingSend(2,1)=1 exch2_pij(1,2,1)=1 exch2_pij(2,2,1)=0 exch2_pij(3,2,1)=0 exch2_pij(4,2,1)=1 exch2_oi(2,1)=0 exch2_oj(2,1)=-510 exch2_neighbourId(3,1)=2 exch2_iLo(3,1)=171 exch2_iHi(3,1)=171 exch2_jLo(3,1)=0 exch2_jHi(3,1)=171 exch2_opposingSend(3,1)=4 exch2_pij(1,3,1)=1 exch2_pij(2,3,1)=0 exch2_pij(3,3,1)=0 exch2_pij(4,3,1)=1 exch2_oi(3,1)=0 exch2_oj(3,1)=0 exch2_neighbourId(4,1)=45 exch2_iLo(4,1)=0 exch2_iHi(4,1)=0 exch2_jLo(4,1)=0 exch2_jHi(4,1)=171 exch2_opposingSend(4,1)=1 exch2_pij(1,4,1)=0 exch2_pij(2,4,1)=1 exch2_pij(3,4,1)=-1 exch2_pij(4,4,1)=0 exch2_oi(4,1)=-510 exch2_oj(4,1)=511 RETURN END SUBROUTINE W2_E2SETUP_2 C Topology for tile 2 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(2)=170 exch2_tNy(2)=170 exch2_tBasex(2)=170 exch2_tBasey(2)=0 exch2_txGlobalo(2)=171 exch2_tyGlobalo(2)=1 exch2_isWedge(2)=0 exch2_isNedge(2)=0 exch2_isEedge(2)=0 exch2_isSedge(2)=1 exch2_myFace(2)=1 exch2_mydNx(2)=510 exch2_mydNy(2)=510 exch2_nNeighbours(2)=4 exch2_neighbourId(1,2)=5 exch2_iLo(1,2)=0 exch2_iHi(1,2)=171 exch2_jLo(1,2)=171 exch2_jHi(1,2)=171 exch2_opposingSend(1,2)=2 exch2_pij(1,1,2)=1 exch2_pij(2,1,2)=0 exch2_pij(3,1,2)=0 exch2_pij(4,1,2)=1 exch2_oi(1,2)=0 exch2_oj(1,2)=0 exch2_neighbourId(2,2)=53 exch2_iLo(2,2)=0 exch2_iHi(2,2)=171 exch2_jLo(2,2)=0 exch2_jHi(2,2)=0 exch2_opposingSend(2,2)=1 exch2_pij(1,2,2)=1 exch2_pij(2,2,2)=0 exch2_pij(3,2,2)=0 exch2_pij(4,2,2)=1 exch2_oi(2,2)=0 exch2_oj(2,2)=-510 exch2_neighbourId(3,2)=3 exch2_iLo(3,2)=171 exch2_iHi(3,2)=171 exch2_jLo(3,2)=0 exch2_jHi(3,2)=171 exch2_opposingSend(3,2)=4 exch2_pij(1,3,2)=1 exch2_pij(2,3,2)=0 exch2_pij(3,3,2)=0 exch2_pij(4,3,2)=1 exch2_oi(3,2)=0 exch2_oj(3,2)=0 exch2_neighbourId(4,2)=1 exch2_iLo(4,2)=0 exch2_iHi(4,2)=0 exch2_jLo(4,2)=0 exch2_jHi(4,2)=171 exch2_opposingSend(4,2)=3 exch2_pij(1,4,2)=1 exch2_pij(2,4,2)=0 exch2_pij(3,4,2)=0 exch2_pij(4,4,2)=1 exch2_oi(4,2)=0 exch2_oj(4,2)=0 RETURN END SUBROUTINE W2_E2SETUP_3 C Topology for tile 3 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(3)=170 exch2_tNy(3)=170 exch2_tBasex(3)=340 exch2_tBasey(3)=0 exch2_txGlobalo(3)=341 exch2_tyGlobalo(3)=1 exch2_isWedge(3)=0 exch2_isNedge(3)=0 exch2_isEedge(3)=1 exch2_isSedge(3)=1 exch2_myFace(3)=1 exch2_mydNx(3)=510 exch2_mydNy(3)=510 exch2_nNeighbours(3)=4 exch2_neighbourId(1,3)=6 exch2_iLo(1,3)=0 exch2_iHi(1,3)=171 exch2_jLo(1,3)=171 exch2_jHi(1,3)=171 exch2_opposingSend(1,3)=2 exch2_pij(1,1,3)=1 exch2_pij(2,1,3)=0 exch2_pij(3,1,3)=0 exch2_pij(4,1,3)=1 exch2_oi(1,3)=0 exch2_oj(1,3)=0 exch2_neighbourId(2,3)=54 exch2_iLo(2,3)=0 exch2_iHi(2,3)=171 exch2_jLo(2,3)=0 exch2_jHi(2,3)=0 exch2_opposingSend(2,3)=1 exch2_pij(1,2,3)=1 exch2_pij(2,2,3)=0 exch2_pij(3,2,3)=0 exch2_pij(4,2,3)=1 exch2_oi(2,3)=0 exch2_oj(2,3)=-510 exch2_neighbourId(3,3)=10 exch2_iLo(3,3)=171 exch2_iHi(3,3)=171 exch2_jLo(3,3)=0 exch2_jHi(3,3)=171 exch2_opposingSend(3,3)=4 exch2_pij(1,3,3)=1 exch2_pij(2,3,3)=0 exch2_pij(3,3,3)=0 exch2_pij(4,3,3)=1 exch2_oi(3,3)=510 exch2_oj(3,3)=0 exch2_neighbourId(4,3)=2 exch2_iLo(4,3)=0 exch2_iHi(4,3)=0 exch2_jLo(4,3)=0 exch2_jHi(4,3)=171 exch2_opposingSend(4,3)=3 exch2_pij(1,4,3)=1 exch2_pij(2,4,3)=0 exch2_pij(3,4,3)=0 exch2_pij(4,4,3)=1 exch2_oi(4,3)=0 exch2_oj(4,3)=0 RETURN END SUBROUTINE W2_E2SETUP_4 C Topology for tile 4 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(4)=170 exch2_tNy(4)=170 exch2_tBasex(4)=0 exch2_tBasey(4)=170 exch2_txGlobalo(4)=1 exch2_tyGlobalo(4)=171 exch2_isWedge(4)=1 exch2_isNedge(4)=0 exch2_isEedge(4)=0 exch2_isSedge(4)=0 exch2_myFace(4)=1 exch2_mydNx(4)=510 exch2_mydNy(4)=510 exch2_nNeighbours(4)=4 exch2_neighbourId(1,4)=7 exch2_iLo(1,4)=0 exch2_iHi(1,4)=171 exch2_jLo(1,4)=171 exch2_jHi(1,4)=171 exch2_opposingSend(1,4)=2 exch2_pij(1,1,4)=1 exch2_pij(2,1,4)=0 exch2_pij(3,1,4)=0 exch2_pij(4,1,4)=1 exch2_oi(1,4)=0 exch2_oj(1,4)=0 exch2_neighbourId(2,4)=1 exch2_iLo(2,4)=0 exch2_iHi(2,4)=171 exch2_jLo(2,4)=0 exch2_jHi(2,4)=0 exch2_opposingSend(2,4)=1 exch2_pij(1,2,4)=1 exch2_pij(2,2,4)=0 exch2_pij(3,2,4)=0 exch2_pij(4,2,4)=1 exch2_oi(2,4)=0 exch2_oj(2,4)=0 exch2_neighbourId(3,4)=5 exch2_iLo(3,4)=171 exch2_iHi(3,4)=171 exch2_jLo(3,4)=0 exch2_jHi(3,4)=171 exch2_opposingSend(3,4)=4 exch2_pij(1,3,4)=1 exch2_pij(2,3,4)=0 exch2_pij(3,3,4)=0 exch2_pij(4,3,4)=1 exch2_oi(3,4)=0 exch2_oj(3,4)=0 exch2_neighbourId(4,4)=44 exch2_iLo(4,4)=0 exch2_iHi(4,4)=0 exch2_jLo(4,4)=0 exch2_jHi(4,4)=171 exch2_opposingSend(4,4)=1 exch2_pij(1,4,4)=0 exch2_pij(2,4,4)=1 exch2_pij(3,4,4)=-1 exch2_pij(4,4,4)=0 exch2_oi(4,4)=-510 exch2_oj(4,4)=511 RETURN END SUBROUTINE W2_E2SETUP_5 C Topology for tile 5 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(5)=170 exch2_tNy(5)=170 exch2_tBasex(5)=170 exch2_tBasey(5)=170 exch2_txGlobalo(5)=171 exch2_tyGlobalo(5)=171 exch2_isWedge(5)=0 exch2_isNedge(5)=0 exch2_isEedge(5)=0 exch2_isSedge(5)=0 exch2_myFace(5)=1 exch2_mydNx(5)=510 exch2_mydNy(5)=510 exch2_nNeighbours(5)=4 exch2_neighbourId(1,5)=8 exch2_iLo(1,5)=0 exch2_iHi(1,5)=171 exch2_jLo(1,5)=171 exch2_jHi(1,5)=171 exch2_opposingSend(1,5)=2 exch2_pij(1,1,5)=1 exch2_pij(2,1,5)=0 exch2_pij(3,1,5)=0 exch2_pij(4,1,5)=1 exch2_oi(1,5)=0 exch2_oj(1,5)=0 exch2_neighbourId(2,5)=2 exch2_iLo(2,5)=0 exch2_iHi(2,5)=171 exch2_jLo(2,5)=0 exch2_jHi(2,5)=0 exch2_opposingSend(2,5)=1 exch2_pij(1,2,5)=1 exch2_pij(2,2,5)=0 exch2_pij(3,2,5)=0 exch2_pij(4,2,5)=1 exch2_oi(2,5)=0 exch2_oj(2,5)=0 exch2_neighbourId(3,5)=6 exch2_iLo(3,5)=171 exch2_iHi(3,5)=171 exch2_jLo(3,5)=0 exch2_jHi(3,5)=171 exch2_opposingSend(3,5)=4 exch2_pij(1,3,5)=1 exch2_pij(2,3,5)=0 exch2_pij(3,3,5)=0 exch2_pij(4,3,5)=1 exch2_oi(3,5)=0 exch2_oj(3,5)=0 exch2_neighbourId(4,5)=4 exch2_iLo(4,5)=0 exch2_iHi(4,5)=0 exch2_jLo(4,5)=0 exch2_jHi(4,5)=171 exch2_opposingSend(4,5)=3 exch2_pij(1,4,5)=1 exch2_pij(2,4,5)=0 exch2_pij(3,4,5)=0 exch2_pij(4,4,5)=1 exch2_oi(4,5)=0 exch2_oj(4,5)=0 RETURN END SUBROUTINE W2_E2SETUP_6 C Topology for tile 6 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(6)=170 exch2_tNy(6)=170 exch2_tBasex(6)=340 exch2_tBasey(6)=170 exch2_txGlobalo(6)=341 exch2_tyGlobalo(6)=171 exch2_isWedge(6)=0 exch2_isNedge(6)=0 exch2_isEedge(6)=1 exch2_isSedge(6)=0 exch2_myFace(6)=1 exch2_mydNx(6)=510 exch2_mydNy(6)=510 exch2_nNeighbours(6)=4 exch2_neighbourId(1,6)=9 exch2_iLo(1,6)=0 exch2_iHi(1,6)=171 exch2_jLo(1,6)=171 exch2_jHi(1,6)=171 exch2_opposingSend(1,6)=2 exch2_pij(1,1,6)=1 exch2_pij(2,1,6)=0 exch2_pij(3,1,6)=0 exch2_pij(4,1,6)=1 exch2_oi(1,6)=0 exch2_oj(1,6)=0 exch2_neighbourId(2,6)=3 exch2_iLo(2,6)=0 exch2_iHi(2,6)=171 exch2_jLo(2,6)=0 exch2_jHi(2,6)=0 exch2_opposingSend(2,6)=1 exch2_pij(1,2,6)=1 exch2_pij(2,2,6)=0 exch2_pij(3,2,6)=0 exch2_pij(4,2,6)=1 exch2_oi(2,6)=0 exch2_oj(2,6)=0 exch2_neighbourId(3,6)=13 exch2_iLo(3,6)=171 exch2_iHi(3,6)=171 exch2_jLo(3,6)=0 exch2_jHi(3,6)=171 exch2_opposingSend(3,6)=4 exch2_pij(1,3,6)=1 exch2_pij(2,3,6)=0 exch2_pij(3,3,6)=0 exch2_pij(4,3,6)=1 exch2_oi(3,6)=510 exch2_oj(3,6)=0 exch2_neighbourId(4,6)=5 exch2_iLo(4,6)=0 exch2_iHi(4,6)=0 exch2_jLo(4,6)=0 exch2_jHi(4,6)=171 exch2_opposingSend(4,6)=3 exch2_pij(1,4,6)=1 exch2_pij(2,4,6)=0 exch2_pij(3,4,6)=0 exch2_pij(4,4,6)=1 exch2_oi(4,6)=0 exch2_oj(4,6)=0 RETURN END SUBROUTINE W2_E2SETUP_7 C Topology for tile 7 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(7)=170 exch2_tNy(7)=170 exch2_tBasex(7)=0 exch2_tBasey(7)=340 exch2_txGlobalo(7)=1 exch2_tyGlobalo(7)=341 exch2_isWedge(7)=1 exch2_isNedge(7)=1 exch2_isEedge(7)=0 exch2_isSedge(7)=0 exch2_myFace(7)=1 exch2_mydNx(7)=510 exch2_mydNy(7)=510 exch2_nNeighbours(7)=4 exch2_neighbourId(1,7)=25 exch2_iLo(1,7)=0 exch2_iHi(1,7)=171 exch2_jLo(1,7)=171 exch2_jHi(1,7)=171 exch2_opposingSend(1,7)=4 exch2_pij(1,1,7)=0 exch2_pij(2,1,7)=-1 exch2_pij(3,1,7)=1 exch2_pij(4,1,7)=0 exch2_oi(1,7)=511 exch2_oj(1,7)=510 exch2_neighbourId(2,7)=4 exch2_iLo(2,7)=0 exch2_iHi(2,7)=171 exch2_jLo(2,7)=0 exch2_jHi(2,7)=0 exch2_opposingSend(2,7)=1 exch2_pij(1,2,7)=1 exch2_pij(2,2,7)=0 exch2_pij(3,2,7)=0 exch2_pij(4,2,7)=1 exch2_oi(2,7)=0 exch2_oj(2,7)=0 exch2_neighbourId(3,7)=8 exch2_iLo(3,7)=171 exch2_iHi(3,7)=171 exch2_jLo(3,7)=0 exch2_jHi(3,7)=171 exch2_opposingSend(3,7)=4 exch2_pij(1,3,7)=1 exch2_pij(2,3,7)=0 exch2_pij(3,3,7)=0 exch2_pij(4,3,7)=1 exch2_oi(3,7)=0 exch2_oj(3,7)=0 exch2_neighbourId(4,7)=43 exch2_iLo(4,7)=0 exch2_iHi(4,7)=0 exch2_jLo(4,7)=0 exch2_jHi(4,7)=171 exch2_opposingSend(4,7)=1 exch2_pij(1,4,7)=0 exch2_pij(2,4,7)=1 exch2_pij(3,4,7)=-1 exch2_pij(4,4,7)=0 exch2_oi(4,7)=-510 exch2_oj(4,7)=511 RETURN END SUBROUTINE W2_E2SETUP_8 C Topology for tile 8 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(8)=170 exch2_tNy(8)=170 exch2_tBasex(8)=170 exch2_tBasey(8)=340 exch2_txGlobalo(8)=171 exch2_tyGlobalo(8)=341 exch2_isWedge(8)=0 exch2_isNedge(8)=1 exch2_isEedge(8)=0 exch2_isSedge(8)=0 exch2_myFace(8)=1 exch2_mydNx(8)=510 exch2_mydNy(8)=510 exch2_nNeighbours(8)=4 exch2_neighbourId(1,8)=22 exch2_iLo(1,8)=0 exch2_iHi(1,8)=171 exch2_jLo(1,8)=171 exch2_jHi(1,8)=171 exch2_opposingSend(1,8)=4 exch2_pij(1,1,8)=0 exch2_pij(2,1,8)=-1 exch2_pij(3,1,8)=1 exch2_pij(4,1,8)=0 exch2_oi(1,8)=511 exch2_oj(1,8)=510 exch2_neighbourId(2,8)=5 exch2_iLo(2,8)=0 exch2_iHi(2,8)=171 exch2_jLo(2,8)=0 exch2_jHi(2,8)=0 exch2_opposingSend(2,8)=1 exch2_pij(1,2,8)=1 exch2_pij(2,2,8)=0 exch2_pij(3,2,8)=0 exch2_pij(4,2,8)=1 exch2_oi(2,8)=0 exch2_oj(2,8)=0 exch2_neighbourId(3,8)=9 exch2_iLo(3,8)=171 exch2_iHi(3,8)=171 exch2_jLo(3,8)=0 exch2_jHi(3,8)=171 exch2_opposingSend(3,8)=4 exch2_pij(1,3,8)=1 exch2_pij(2,3,8)=0 exch2_pij(3,3,8)=0 exch2_pij(4,3,8)=1 exch2_oi(3,8)=0 exch2_oj(3,8)=0 exch2_neighbourId(4,8)=7 exch2_iLo(4,8)=0 exch2_iHi(4,8)=0 exch2_jLo(4,8)=0 exch2_jHi(4,8)=171 exch2_opposingSend(4,8)=3 exch2_pij(1,4,8)=1 exch2_pij(2,4,8)=0 exch2_pij(3,4,8)=0 exch2_pij(4,4,8)=1 exch2_oi(4,8)=0 exch2_oj(4,8)=0 RETURN END SUBROUTINE W2_E2SETUP_9 C Topology for tile 9 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(9)=170 exch2_tNy(9)=170 exch2_tBasex(9)=340 exch2_tBasey(9)=340 exch2_txGlobalo(9)=341 exch2_tyGlobalo(9)=341 exch2_isWedge(9)=0 exch2_isNedge(9)=1 exch2_isEedge(9)=1 exch2_isSedge(9)=0 exch2_myFace(9)=1 exch2_mydNx(9)=510 exch2_mydNy(9)=510 exch2_nNeighbours(9)=4 exch2_neighbourId(1,9)=19 exch2_iLo(1,9)=0 exch2_iHi(1,9)=171 exch2_jLo(1,9)=171 exch2_jHi(1,9)=171 exch2_opposingSend(1,9)=4 exch2_pij(1,1,9)=0 exch2_pij(2,1,9)=-1 exch2_pij(3,1,9)=1 exch2_pij(4,1,9)=0 exch2_oi(1,9)=511 exch2_oj(1,9)=510 exch2_neighbourId(2,9)=6 exch2_iLo(2,9)=0 exch2_iHi(2,9)=171 exch2_jLo(2,9)=0 exch2_jHi(2,9)=0 exch2_opposingSend(2,9)=1 exch2_pij(1,2,9)=1 exch2_pij(2,2,9)=0 exch2_pij(3,2,9)=0 exch2_pij(4,2,9)=1 exch2_oi(2,9)=0 exch2_oj(2,9)=0 exch2_neighbourId(3,9)=16 exch2_iLo(3,9)=171 exch2_iHi(3,9)=171 exch2_jLo(3,9)=0 exch2_jHi(3,9)=171 exch2_opposingSend(3,9)=4 exch2_pij(1,3,9)=1 exch2_pij(2,3,9)=0 exch2_pij(3,3,9)=0 exch2_pij(4,3,9)=1 exch2_oi(3,9)=510 exch2_oj(3,9)=0 exch2_neighbourId(4,9)=8 exch2_iLo(4,9)=0 exch2_iHi(4,9)=0 exch2_jLo(4,9)=0 exch2_jHi(4,9)=171 exch2_opposingSend(4,9)=3 exch2_pij(1,4,9)=1 exch2_pij(2,4,9)=0 exch2_pij(3,4,9)=0 exch2_pij(4,4,9)=1 exch2_oi(4,9)=0 exch2_oj(4,9)=0 RETURN END SUBROUTINE W2_E2SETUP_10 C Topology for tile 10 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(10)=170 exch2_tNy(10)=170 exch2_tBasex(10)=0 exch2_tBasey(10)=0 exch2_txGlobalo(10)=511 exch2_tyGlobalo(10)=1 exch2_isWedge(10)=1 exch2_isNedge(10)=0 exch2_isEedge(10)=0 exch2_isSedge(10)=1 exch2_myFace(10)=2 exch2_mydNx(10)=510 exch2_mydNy(10)=510 exch2_nNeighbours(10)=4 exch2_neighbourId(1,10)=13 exch2_iLo(1,10)=0 exch2_iHi(1,10)=171 exch2_jLo(1,10)=171 exch2_jHi(1,10)=171 exch2_opposingSend(1,10)=2 exch2_pij(1,1,10)=1 exch2_pij(2,1,10)=0 exch2_pij(3,1,10)=0 exch2_pij(4,1,10)=1 exch2_oi(1,10)=0 exch2_oj(1,10)=0 exch2_neighbourId(2,10)=54 exch2_iLo(2,10)=0 exch2_iHi(2,10)=171 exch2_jLo(2,10)=0 exch2_jHi(2,10)=0 exch2_opposingSend(2,10)=3 exch2_pij(1,2,10)=0 exch2_pij(2,2,10)=-1 exch2_pij(3,2,10)=1 exch2_pij(4,2,10)=0 exch2_oi(2,10)=511 exch2_oj(2,10)=-510 exch2_neighbourId(3,10)=11 exch2_iLo(3,10)=171 exch2_iHi(3,10)=171 exch2_jLo(3,10)=0 exch2_jHi(3,10)=171 exch2_opposingSend(3,10)=4 exch2_pij(1,3,10)=1 exch2_pij(2,3,10)=0 exch2_pij(3,3,10)=0 exch2_pij(4,3,10)=1 exch2_oi(3,10)=0 exch2_oj(3,10)=0 exch2_neighbourId(4,10)=3 exch2_iLo(4,10)=0 exch2_iHi(4,10)=0 exch2_jLo(4,10)=0 exch2_jHi(4,10)=171 exch2_opposingSend(4,10)=3 exch2_pij(1,4,10)=1 exch2_pij(2,4,10)=0 exch2_pij(3,4,10)=0 exch2_pij(4,4,10)=1 exch2_oi(4,10)=-510 exch2_oj(4,10)=0 RETURN END SUBROUTINE W2_E2SETUP_11 C Topology for tile 11 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(11)=170 exch2_tNy(11)=170 exch2_tBasex(11)=170 exch2_tBasey(11)=0 exch2_txGlobalo(11)=681 exch2_tyGlobalo(11)=1 exch2_isWedge(11)=0 exch2_isNedge(11)=0 exch2_isEedge(11)=0 exch2_isSedge(11)=1 exch2_myFace(11)=2 exch2_mydNx(11)=510 exch2_mydNy(11)=510 exch2_nNeighbours(11)=4 exch2_neighbourId(1,11)=14 exch2_iLo(1,11)=0 exch2_iHi(1,11)=171 exch2_jLo(1,11)=171 exch2_jHi(1,11)=171 exch2_opposingSend(1,11)=2 exch2_pij(1,1,11)=1 exch2_pij(2,1,11)=0 exch2_pij(3,1,11)=0 exch2_pij(4,1,11)=1 exch2_oi(1,11)=0 exch2_oj(1,11)=0 exch2_neighbourId(2,11)=51 exch2_iLo(2,11)=0 exch2_iHi(2,11)=171 exch2_jLo(2,11)=0 exch2_jHi(2,11)=0 exch2_opposingSend(2,11)=3 exch2_pij(1,2,11)=0 exch2_pij(2,2,11)=-1 exch2_pij(3,2,11)=1 exch2_pij(4,2,11)=0 exch2_oi(2,11)=511 exch2_oj(2,11)=-510 exch2_neighbourId(3,11)=12 exch2_iLo(3,11)=171 exch2_iHi(3,11)=171 exch2_jLo(3,11)=0 exch2_jHi(3,11)=171 exch2_opposingSend(3,11)=4 exch2_pij(1,3,11)=1 exch2_pij(2,3,11)=0 exch2_pij(3,3,11)=0 exch2_pij(4,3,11)=1 exch2_oi(3,11)=0 exch2_oj(3,11)=0 exch2_neighbourId(4,11)=10 exch2_iLo(4,11)=0 exch2_iHi(4,11)=0 exch2_jLo(4,11)=0 exch2_jHi(4,11)=171 exch2_opposingSend(4,11)=3 exch2_pij(1,4,11)=1 exch2_pij(2,4,11)=0 exch2_pij(3,4,11)=0 exch2_pij(4,4,11)=1 exch2_oi(4,11)=0 exch2_oj(4,11)=0 RETURN END SUBROUTINE W2_E2SETUP_12 C Topology for tile 12 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(12)=170 exch2_tNy(12)=170 exch2_tBasex(12)=340 exch2_tBasey(12)=0 exch2_txGlobalo(12)=851 exch2_tyGlobalo(12)=1 exch2_isWedge(12)=0 exch2_isNedge(12)=0 exch2_isEedge(12)=1 exch2_isSedge(12)=1 exch2_myFace(12)=2 exch2_mydNx(12)=510 exch2_mydNy(12)=510 exch2_nNeighbours(12)=4 exch2_neighbourId(1,12)=15 exch2_iLo(1,12)=0 exch2_iHi(1,12)=171 exch2_jLo(1,12)=171 exch2_jHi(1,12)=171 exch2_opposingSend(1,12)=2 exch2_pij(1,1,12)=1 exch2_pij(2,1,12)=0 exch2_pij(3,1,12)=0 exch2_pij(4,1,12)=1 exch2_oi(1,12)=0 exch2_oj(1,12)=0 exch2_neighbourId(2,12)=48 exch2_iLo(2,12)=0 exch2_iHi(2,12)=171 exch2_jLo(2,12)=0 exch2_jHi(2,12)=0 exch2_opposingSend(2,12)=3 exch2_pij(1,2,12)=0 exch2_pij(2,2,12)=-1 exch2_pij(3,2,12)=1 exch2_pij(4,2,12)=0 exch2_oi(2,12)=511 exch2_oj(2,12)=-510 exch2_neighbourId(3,12)=30 exch2_iLo(3,12)=171 exch2_iHi(3,12)=171 exch2_jLo(3,12)=0 exch2_jHi(3,12)=171 exch2_opposingSend(3,12)=2 exch2_pij(1,3,12)=0 exch2_pij(2,3,12)=1 exch2_pij(3,3,12)=-1 exch2_pij(4,3,12)=0 exch2_oi(3,12)=510 exch2_oj(3,12)=511 exch2_neighbourId(4,12)=11 exch2_iLo(4,12)=0 exch2_iHi(4,12)=0 exch2_jLo(4,12)=0 exch2_jHi(4,12)=171 exch2_opposingSend(4,12)=3 exch2_pij(1,4,12)=1 exch2_pij(2,4,12)=0 exch2_pij(3,4,12)=0 exch2_pij(4,4,12)=1 exch2_oi(4,12)=0 exch2_oj(4,12)=0 RETURN END SUBROUTINE W2_E2SETUP_13 C Topology for tile 13 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(13)=170 exch2_tNy(13)=170 exch2_tBasex(13)=0 exch2_tBasey(13)=170 exch2_txGlobalo(13)=511 exch2_tyGlobalo(13)=171 exch2_isWedge(13)=1 exch2_isNedge(13)=0 exch2_isEedge(13)=0 exch2_isSedge(13)=0 exch2_myFace(13)=2 exch2_mydNx(13)=510 exch2_mydNy(13)=510 exch2_nNeighbours(13)=4 exch2_neighbourId(1,13)=16 exch2_iLo(1,13)=0 exch2_iHi(1,13)=171 exch2_jLo(1,13)=171 exch2_jHi(1,13)=171 exch2_opposingSend(1,13)=2 exch2_pij(1,1,13)=1 exch2_pij(2,1,13)=0 exch2_pij(3,1,13)=0 exch2_pij(4,1,13)=1 exch2_oi(1,13)=0 exch2_oj(1,13)=0 exch2_neighbourId(2,13)=10 exch2_iLo(2,13)=0 exch2_iHi(2,13)=171 exch2_jLo(2,13)=0 exch2_jHi(2,13)=0 exch2_opposingSend(2,13)=1 exch2_pij(1,2,13)=1 exch2_pij(2,2,13)=0 exch2_pij(3,2,13)=0 exch2_pij(4,2,13)=1 exch2_oi(2,13)=0 exch2_oj(2,13)=0 exch2_neighbourId(3,13)=14 exch2_iLo(3,13)=171 exch2_iHi(3,13)=171 exch2_jLo(3,13)=0 exch2_jHi(3,13)=171 exch2_opposingSend(3,13)=4 exch2_pij(1,3,13)=1 exch2_pij(2,3,13)=0 exch2_pij(3,3,13)=0 exch2_pij(4,3,13)=1 exch2_oi(3,13)=0 exch2_oj(3,13)=0 exch2_neighbourId(4,13)=6 exch2_iLo(4,13)=0 exch2_iHi(4,13)=0 exch2_jLo(4,13)=0 exch2_jHi(4,13)=171 exch2_opposingSend(4,13)=3 exch2_pij(1,4,13)=1 exch2_pij(2,4,13)=0 exch2_pij(3,4,13)=0 exch2_pij(4,4,13)=1 exch2_oi(4,13)=-510 exch2_oj(4,13)=0 RETURN END SUBROUTINE W2_E2SETUP_14 C Topology for tile 14 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(14)=170 exch2_tNy(14)=170 exch2_tBasex(14)=170 exch2_tBasey(14)=170 exch2_txGlobalo(14)=681 exch2_tyGlobalo(14)=171 exch2_isWedge(14)=0 exch2_isNedge(14)=0 exch2_isEedge(14)=0 exch2_isSedge(14)=0 exch2_myFace(14)=2 exch2_mydNx(14)=510 exch2_mydNy(14)=510 exch2_nNeighbours(14)=4 exch2_neighbourId(1,14)=17 exch2_iLo(1,14)=0 exch2_iHi(1,14)=171 exch2_jLo(1,14)=171 exch2_jHi(1,14)=171 exch2_opposingSend(1,14)=2 exch2_pij(1,1,14)=1 exch2_pij(2,1,14)=0 exch2_pij(3,1,14)=0 exch2_pij(4,1,14)=1 exch2_oi(1,14)=0 exch2_oj(1,14)=0 exch2_neighbourId(2,14)=11 exch2_iLo(2,14)=0 exch2_iHi(2,14)=171 exch2_jLo(2,14)=0 exch2_jHi(2,14)=0 exch2_opposingSend(2,14)=1 exch2_pij(1,2,14)=1 exch2_pij(2,2,14)=0 exch2_pij(3,2,14)=0 exch2_pij(4,2,14)=1 exch2_oi(2,14)=0 exch2_oj(2,14)=0 exch2_neighbourId(3,14)=15 exch2_iLo(3,14)=171 exch2_iHi(3,14)=171 exch2_jLo(3,14)=0 exch2_jHi(3,14)=171 exch2_opposingSend(3,14)=4 exch2_pij(1,3,14)=1 exch2_pij(2,3,14)=0 exch2_pij(3,3,14)=0 exch2_pij(4,3,14)=1 exch2_oi(3,14)=0 exch2_oj(3,14)=0 exch2_neighbourId(4,14)=13 exch2_iLo(4,14)=0 exch2_iHi(4,14)=0 exch2_jLo(4,14)=0 exch2_jHi(4,14)=171 exch2_opposingSend(4,14)=3 exch2_pij(1,4,14)=1 exch2_pij(2,4,14)=0 exch2_pij(3,4,14)=0 exch2_pij(4,4,14)=1 exch2_oi(4,14)=0 exch2_oj(4,14)=0 RETURN END SUBROUTINE W2_E2SETUP_15 C Topology for tile 15 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(15)=170 exch2_tNy(15)=170 exch2_tBasex(15)=340 exch2_tBasey(15)=170 exch2_txGlobalo(15)=851 exch2_tyGlobalo(15)=171 exch2_isWedge(15)=0 exch2_isNedge(15)=0 exch2_isEedge(15)=1 exch2_isSedge(15)=0 exch2_myFace(15)=2 exch2_mydNx(15)=510 exch2_mydNy(15)=510 exch2_nNeighbours(15)=4 exch2_neighbourId(1,15)=18 exch2_iLo(1,15)=0 exch2_iHi(1,15)=171 exch2_jLo(1,15)=171 exch2_jHi(1,15)=171 exch2_opposingSend(1,15)=2 exch2_pij(1,1,15)=1 exch2_pij(2,1,15)=0 exch2_pij(3,1,15)=0 exch2_pij(4,1,15)=1 exch2_oi(1,15)=0 exch2_oj(1,15)=0 exch2_neighbourId(2,15)=12 exch2_iLo(2,15)=0 exch2_iHi(2,15)=171 exch2_jLo(2,15)=0 exch2_jHi(2,15)=0 exch2_opposingSend(2,15)=1 exch2_pij(1,2,15)=1 exch2_pij(2,2,15)=0 exch2_pij(3,2,15)=0 exch2_pij(4,2,15)=1 exch2_oi(2,15)=0 exch2_oj(2,15)=0 exch2_neighbourId(3,15)=29 exch2_iLo(3,15)=171 exch2_iHi(3,15)=171 exch2_jLo(3,15)=0 exch2_jHi(3,15)=171 exch2_opposingSend(3,15)=2 exch2_pij(1,3,15)=0 exch2_pij(2,3,15)=1 exch2_pij(3,3,15)=-1 exch2_pij(4,3,15)=0 exch2_oi(3,15)=510 exch2_oj(3,15)=511 exch2_neighbourId(4,15)=14 exch2_iLo(4,15)=0 exch2_iHi(4,15)=0 exch2_jLo(4,15)=0 exch2_jHi(4,15)=171 exch2_opposingSend(4,15)=3 exch2_pij(1,4,15)=1 exch2_pij(2,4,15)=0 exch2_pij(3,4,15)=0 exch2_pij(4,4,15)=1 exch2_oi(4,15)=0 exch2_oj(4,15)=0 RETURN END SUBROUTINE W2_E2SETUP_16 C Topology for tile 16 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(16)=170 exch2_tNy(16)=170 exch2_tBasex(16)=0 exch2_tBasey(16)=340 exch2_txGlobalo(16)=511 exch2_tyGlobalo(16)=341 exch2_isWedge(16)=1 exch2_isNedge(16)=1 exch2_isEedge(16)=0 exch2_isSedge(16)=0 exch2_myFace(16)=2 exch2_mydNx(16)=510 exch2_mydNy(16)=510 exch2_nNeighbours(16)=4 exch2_neighbourId(1,16)=19 exch2_iLo(1,16)=0 exch2_iHi(1,16)=171 exch2_jLo(1,16)=171 exch2_jHi(1,16)=171 exch2_opposingSend(1,16)=2 exch2_pij(1,1,16)=1 exch2_pij(2,1,16)=0 exch2_pij(3,1,16)=0 exch2_pij(4,1,16)=1 exch2_oi(1,16)=0 exch2_oj(1,16)=510 exch2_neighbourId(2,16)=13 exch2_iLo(2,16)=0 exch2_iHi(2,16)=171 exch2_jLo(2,16)=0 exch2_jHi(2,16)=0 exch2_opposingSend(2,16)=1 exch2_pij(1,2,16)=1 exch2_pij(2,2,16)=0 exch2_pij(3,2,16)=0 exch2_pij(4,2,16)=1 exch2_oi(2,16)=0 exch2_oj(2,16)=0 exch2_neighbourId(3,16)=17 exch2_iLo(3,16)=171 exch2_iHi(3,16)=171 exch2_jLo(3,16)=0 exch2_jHi(3,16)=171 exch2_opposingSend(3,16)=4 exch2_pij(1,3,16)=1 exch2_pij(2,3,16)=0 exch2_pij(3,3,16)=0 exch2_pij(4,3,16)=1 exch2_oi(3,16)=0 exch2_oj(3,16)=0 exch2_neighbourId(4,16)=9 exch2_iLo(4,16)=0 exch2_iHi(4,16)=0 exch2_jLo(4,16)=0 exch2_jHi(4,16)=171 exch2_opposingSend(4,16)=3 exch2_pij(1,4,16)=1 exch2_pij(2,4,16)=0 exch2_pij(3,4,16)=0 exch2_pij(4,4,16)=1 exch2_oi(4,16)=-510 exch2_oj(4,16)=0 RETURN END SUBROUTINE W2_E2SETUP_17 C Topology for tile 17 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(17)=170 exch2_tNy(17)=170 exch2_tBasex(17)=170 exch2_tBasey(17)=340 exch2_txGlobalo(17)=681 exch2_tyGlobalo(17)=341 exch2_isWedge(17)=0 exch2_isNedge(17)=1 exch2_isEedge(17)=0 exch2_isSedge(17)=0 exch2_myFace(17)=2 exch2_mydNx(17)=510 exch2_mydNy(17)=510 exch2_nNeighbours(17)=4 exch2_neighbourId(1,17)=20 exch2_iLo(1,17)=0 exch2_iHi(1,17)=171 exch2_jLo(1,17)=171 exch2_jHi(1,17)=171 exch2_opposingSend(1,17)=2 exch2_pij(1,1,17)=1 exch2_pij(2,1,17)=0 exch2_pij(3,1,17)=0 exch2_pij(4,1,17)=1 exch2_oi(1,17)=0 exch2_oj(1,17)=510 exch2_neighbourId(2,17)=14 exch2_iLo(2,17)=0 exch2_iHi(2,17)=171 exch2_jLo(2,17)=0 exch2_jHi(2,17)=0 exch2_opposingSend(2,17)=1 exch2_pij(1,2,17)=1 exch2_pij(2,2,17)=0 exch2_pij(3,2,17)=0 exch2_pij(4,2,17)=1 exch2_oi(2,17)=0 exch2_oj(2,17)=0 exch2_neighbourId(3,17)=18 exch2_iLo(3,17)=171 exch2_iHi(3,17)=171 exch2_jLo(3,17)=0 exch2_jHi(3,17)=171 exch2_opposingSend(3,17)=4 exch2_pij(1,3,17)=1 exch2_pij(2,3,17)=0 exch2_pij(3,3,17)=0 exch2_pij(4,3,17)=1 exch2_oi(3,17)=0 exch2_oj(3,17)=0 exch2_neighbourId(4,17)=16 exch2_iLo(4,17)=0 exch2_iHi(4,17)=0 exch2_jLo(4,17)=0 exch2_jHi(4,17)=171 exch2_opposingSend(4,17)=3 exch2_pij(1,4,17)=1 exch2_pij(2,4,17)=0 exch2_pij(3,4,17)=0 exch2_pij(4,4,17)=1 exch2_oi(4,17)=0 exch2_oj(4,17)=0 RETURN END SUBROUTINE W2_E2SETUP_18 C Topology for tile 18 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(18)=170 exch2_tNy(18)=170 exch2_tBasex(18)=340 exch2_tBasey(18)=340 exch2_txGlobalo(18)=851 exch2_tyGlobalo(18)=341 exch2_isWedge(18)=0 exch2_isNedge(18)=1 exch2_isEedge(18)=1 exch2_isSedge(18)=0 exch2_myFace(18)=2 exch2_mydNx(18)=510 exch2_mydNy(18)=510 exch2_nNeighbours(18)=4 exch2_neighbourId(1,18)=21 exch2_iLo(1,18)=0 exch2_iHi(1,18)=171 exch2_jLo(1,18)=171 exch2_jHi(1,18)=171 exch2_opposingSend(1,18)=2 exch2_pij(1,1,18)=1 exch2_pij(2,1,18)=0 exch2_pij(3,1,18)=0 exch2_pij(4,1,18)=1 exch2_oi(1,18)=0 exch2_oj(1,18)=510 exch2_neighbourId(2,18)=15 exch2_iLo(2,18)=0 exch2_iHi(2,18)=171 exch2_jLo(2,18)=0 exch2_jHi(2,18)=0 exch2_opposingSend(2,18)=1 exch2_pij(1,2,18)=1 exch2_pij(2,2,18)=0 exch2_pij(3,2,18)=0 exch2_pij(4,2,18)=1 exch2_oi(2,18)=0 exch2_oj(2,18)=0 exch2_neighbourId(3,18)=28 exch2_iLo(3,18)=171 exch2_iHi(3,18)=171 exch2_jLo(3,18)=0 exch2_jHi(3,18)=171 exch2_opposingSend(3,18)=2 exch2_pij(1,3,18)=0 exch2_pij(2,3,18)=1 exch2_pij(3,3,18)=-1 exch2_pij(4,3,18)=0 exch2_oi(3,18)=510 exch2_oj(3,18)=511 exch2_neighbourId(4,18)=17 exch2_iLo(4,18)=0 exch2_iHi(4,18)=0 exch2_jLo(4,18)=0 exch2_jHi(4,18)=171 exch2_opposingSend(4,18)=3 exch2_pij(1,4,18)=1 exch2_pij(2,4,18)=0 exch2_pij(3,4,18)=0 exch2_pij(4,4,18)=1 exch2_oi(4,18)=0 exch2_oj(4,18)=0 RETURN END SUBROUTINE W2_E2SETUP_19 C Topology for tile 19 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(19)=170 exch2_tNy(19)=170 exch2_tBasex(19)=0 exch2_tBasey(19)=0 exch2_txGlobalo(19)=1021 exch2_tyGlobalo(19)=1 exch2_isWedge(19)=1 exch2_isNedge(19)=0 exch2_isEedge(19)=0 exch2_isSedge(19)=1 exch2_myFace(19)=3 exch2_mydNx(19)=510 exch2_mydNy(19)=510 exch2_nNeighbours(19)=4 exch2_neighbourId(1,19)=22 exch2_iLo(1,19)=0 exch2_iHi(1,19)=171 exch2_jLo(1,19)=171 exch2_jHi(1,19)=171 exch2_opposingSend(1,19)=2 exch2_pij(1,1,19)=1 exch2_pij(2,1,19)=0 exch2_pij(3,1,19)=0 exch2_pij(4,1,19)=1 exch2_oi(1,19)=0 exch2_oj(1,19)=0 exch2_neighbourId(2,19)=16 exch2_iLo(2,19)=0 exch2_iHi(2,19)=171 exch2_jLo(2,19)=0 exch2_jHi(2,19)=0 exch2_opposingSend(2,19)=1 exch2_pij(1,2,19)=1 exch2_pij(2,2,19)=0 exch2_pij(3,2,19)=0 exch2_pij(4,2,19)=1 exch2_oi(2,19)=0 exch2_oj(2,19)=-510 exch2_neighbourId(3,19)=20 exch2_iLo(3,19)=171 exch2_iHi(3,19)=171 exch2_jLo(3,19)=0 exch2_jHi(3,19)=171 exch2_opposingSend(3,19)=4 exch2_pij(1,3,19)=1 exch2_pij(2,3,19)=0 exch2_pij(3,3,19)=0 exch2_pij(4,3,19)=1 exch2_oi(3,19)=0 exch2_oj(3,19)=0 exch2_neighbourId(4,19)=9 exch2_iLo(4,19)=0 exch2_iHi(4,19)=0 exch2_jLo(4,19)=0 exch2_jHi(4,19)=171 exch2_opposingSend(4,19)=1 exch2_pij(1,4,19)=0 exch2_pij(2,4,19)=1 exch2_pij(3,4,19)=-1 exch2_pij(4,4,19)=0 exch2_oi(4,19)=-510 exch2_oj(4,19)=511 RETURN END SUBROUTINE W2_E2SETUP_20 C Topology for tile 20 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(20)=170 exch2_tNy(20)=170 exch2_tBasex(20)=170 exch2_tBasey(20)=0 exch2_txGlobalo(20)=1191 exch2_tyGlobalo(20)=1 exch2_isWedge(20)=0 exch2_isNedge(20)=0 exch2_isEedge(20)=0 exch2_isSedge(20)=1 exch2_myFace(20)=3 exch2_mydNx(20)=510 exch2_mydNy(20)=510 exch2_nNeighbours(20)=4 exch2_neighbourId(1,20)=23 exch2_iLo(1,20)=0 exch2_iHi(1,20)=171 exch2_jLo(1,20)=171 exch2_jHi(1,20)=171 exch2_opposingSend(1,20)=2 exch2_pij(1,1,20)=1 exch2_pij(2,1,20)=0 exch2_pij(3,1,20)=0 exch2_pij(4,1,20)=1 exch2_oi(1,20)=0 exch2_oj(1,20)=0 exch2_neighbourId(2,20)=17 exch2_iLo(2,20)=0 exch2_iHi(2,20)=171 exch2_jLo(2,20)=0 exch2_jHi(2,20)=0 exch2_opposingSend(2,20)=1 exch2_pij(1,2,20)=1 exch2_pij(2,2,20)=0 exch2_pij(3,2,20)=0 exch2_pij(4,2,20)=1 exch2_oi(2,20)=0 exch2_oj(2,20)=-510 exch2_neighbourId(3,20)=21 exch2_iLo(3,20)=171 exch2_iHi(3,20)=171 exch2_jLo(3,20)=0 exch2_jHi(3,20)=171 exch2_opposingSend(3,20)=4 exch2_pij(1,3,20)=1 exch2_pij(2,3,20)=0 exch2_pij(3,3,20)=0 exch2_pij(4,3,20)=1 exch2_oi(3,20)=0 exch2_oj(3,20)=0 exch2_neighbourId(4,20)=19 exch2_iLo(4,20)=0 exch2_iHi(4,20)=0 exch2_jLo(4,20)=0 exch2_jHi(4,20)=171 exch2_opposingSend(4,20)=3 exch2_pij(1,4,20)=1 exch2_pij(2,4,20)=0 exch2_pij(3,4,20)=0 exch2_pij(4,4,20)=1 exch2_oi(4,20)=0 exch2_oj(4,20)=0 RETURN END SUBROUTINE W2_E2SETUP_21 C Topology for tile 21 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(21)=170 exch2_tNy(21)=170 exch2_tBasex(21)=340 exch2_tBasey(21)=0 exch2_txGlobalo(21)=1361 exch2_tyGlobalo(21)=1 exch2_isWedge(21)=0 exch2_isNedge(21)=0 exch2_isEedge(21)=1 exch2_isSedge(21)=1 exch2_myFace(21)=3 exch2_mydNx(21)=510 exch2_mydNy(21)=510 exch2_nNeighbours(21)=4 exch2_neighbourId(1,21)=24 exch2_iLo(1,21)=0 exch2_iHi(1,21)=171 exch2_jLo(1,21)=171 exch2_jHi(1,21)=171 exch2_opposingSend(1,21)=2 exch2_pij(1,1,21)=1 exch2_pij(2,1,21)=0 exch2_pij(3,1,21)=0 exch2_pij(4,1,21)=1 exch2_oi(1,21)=0 exch2_oj(1,21)=0 exch2_neighbourId(2,21)=18 exch2_iLo(2,21)=0 exch2_iHi(2,21)=171 exch2_jLo(2,21)=0 exch2_jHi(2,21)=0 exch2_opposingSend(2,21)=1 exch2_pij(1,2,21)=1 exch2_pij(2,2,21)=0 exch2_pij(3,2,21)=0 exch2_pij(4,2,21)=1 exch2_oi(2,21)=0 exch2_oj(2,21)=-510 exch2_neighbourId(3,21)=28 exch2_iLo(3,21)=171 exch2_iHi(3,21)=171 exch2_jLo(3,21)=0 exch2_jHi(3,21)=171 exch2_opposingSend(3,21)=4 exch2_pij(1,3,21)=1 exch2_pij(2,3,21)=0 exch2_pij(3,3,21)=0 exch2_pij(4,3,21)=1 exch2_oi(3,21)=510 exch2_oj(3,21)=0 exch2_neighbourId(4,21)=20 exch2_iLo(4,21)=0 exch2_iHi(4,21)=0 exch2_jLo(4,21)=0 exch2_jHi(4,21)=171 exch2_opposingSend(4,21)=3 exch2_pij(1,4,21)=1 exch2_pij(2,4,21)=0 exch2_pij(3,4,21)=0 exch2_pij(4,4,21)=1 exch2_oi(4,21)=0 exch2_oj(4,21)=0 RETURN END SUBROUTINE W2_E2SETUP_22 C Topology for tile 22 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(22)=170 exch2_tNy(22)=170 exch2_tBasex(22)=0 exch2_tBasey(22)=170 exch2_txGlobalo(22)=1021 exch2_tyGlobalo(22)=171 exch2_isWedge(22)=1 exch2_isNedge(22)=0 exch2_isEedge(22)=0 exch2_isSedge(22)=0 exch2_myFace(22)=3 exch2_mydNx(22)=510 exch2_mydNy(22)=510 exch2_nNeighbours(22)=4 exch2_neighbourId(1,22)=25 exch2_iLo(1,22)=0 exch2_iHi(1,22)=171 exch2_jLo(1,22)=171 exch2_jHi(1,22)=171 exch2_opposingSend(1,22)=2 exch2_pij(1,1,22)=1 exch2_pij(2,1,22)=0 exch2_pij(3,1,22)=0 exch2_pij(4,1,22)=1 exch2_oi(1,22)=0 exch2_oj(1,22)=0 exch2_neighbourId(2,22)=19 exch2_iLo(2,22)=0 exch2_iHi(2,22)=171 exch2_jLo(2,22)=0 exch2_jHi(2,22)=0 exch2_opposingSend(2,22)=1 exch2_pij(1,2,22)=1 exch2_pij(2,2,22)=0 exch2_pij(3,2,22)=0 exch2_pij(4,2,22)=1 exch2_oi(2,22)=0 exch2_oj(2,22)=0 exch2_neighbourId(3,22)=23 exch2_iLo(3,22)=171 exch2_iHi(3,22)=171 exch2_jLo(3,22)=0 exch2_jHi(3,22)=171 exch2_opposingSend(3,22)=4 exch2_pij(1,3,22)=1 exch2_pij(2,3,22)=0 exch2_pij(3,3,22)=0 exch2_pij(4,3,22)=1 exch2_oi(3,22)=0 exch2_oj(3,22)=0 exch2_neighbourId(4,22)=8 exch2_iLo(4,22)=0 exch2_iHi(4,22)=0 exch2_jLo(4,22)=0 exch2_jHi(4,22)=171 exch2_opposingSend(4,22)=1 exch2_pij(1,4,22)=0 exch2_pij(2,4,22)=1 exch2_pij(3,4,22)=-1 exch2_pij(4,4,22)=0 exch2_oi(4,22)=-510 exch2_oj(4,22)=511 RETURN END SUBROUTINE W2_E2SETUP_23 C Topology for tile 23 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(23)=170 exch2_tNy(23)=170 exch2_tBasex(23)=170 exch2_tBasey(23)=170 exch2_txGlobalo(23)=1191 exch2_tyGlobalo(23)=171 exch2_isWedge(23)=0 exch2_isNedge(23)=0 exch2_isEedge(23)=0 exch2_isSedge(23)=0 exch2_myFace(23)=3 exch2_mydNx(23)=510 exch2_mydNy(23)=510 exch2_nNeighbours(23)=4 exch2_neighbourId(1,23)=26 exch2_iLo(1,23)=0 exch2_iHi(1,23)=171 exch2_jLo(1,23)=171 exch2_jHi(1,23)=171 exch2_opposingSend(1,23)=2 exch2_pij(1,1,23)=1 exch2_pij(2,1,23)=0 exch2_pij(3,1,23)=0 exch2_pij(4,1,23)=1 exch2_oi(1,23)=0 exch2_oj(1,23)=0 exch2_neighbourId(2,23)=20 exch2_iLo(2,23)=0 exch2_iHi(2,23)=171 exch2_jLo(2,23)=0 exch2_jHi(2,23)=0 exch2_opposingSend(2,23)=1 exch2_pij(1,2,23)=1 exch2_pij(2,2,23)=0 exch2_pij(3,2,23)=0 exch2_pij(4,2,23)=1 exch2_oi(2,23)=0 exch2_oj(2,23)=0 exch2_neighbourId(3,23)=24 exch2_iLo(3,23)=171 exch2_iHi(3,23)=171 exch2_jLo(3,23)=0 exch2_jHi(3,23)=171 exch2_opposingSend(3,23)=4 exch2_pij(1,3,23)=1 exch2_pij(2,3,23)=0 exch2_pij(3,3,23)=0 exch2_pij(4,3,23)=1 exch2_oi(3,23)=0 exch2_oj(3,23)=0 exch2_neighbourId(4,23)=22 exch2_iLo(4,23)=0 exch2_iHi(4,23)=0 exch2_jLo(4,23)=0 exch2_jHi(4,23)=171 exch2_opposingSend(4,23)=3 exch2_pij(1,4,23)=1 exch2_pij(2,4,23)=0 exch2_pij(3,4,23)=0 exch2_pij(4,4,23)=1 exch2_oi(4,23)=0 exch2_oj(4,23)=0 RETURN END SUBROUTINE W2_E2SETUP_24 C Topology for tile 24 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(24)=170 exch2_tNy(24)=170 exch2_tBasex(24)=340 exch2_tBasey(24)=170 exch2_txGlobalo(24)=1361 exch2_tyGlobalo(24)=171 exch2_isWedge(24)=0 exch2_isNedge(24)=0 exch2_isEedge(24)=1 exch2_isSedge(24)=0 exch2_myFace(24)=3 exch2_mydNx(24)=510 exch2_mydNy(24)=510 exch2_nNeighbours(24)=4 exch2_neighbourId(1,24)=27 exch2_iLo(1,24)=0 exch2_iHi(1,24)=171 exch2_jLo(1,24)=171 exch2_jHi(1,24)=171 exch2_opposingSend(1,24)=2 exch2_pij(1,1,24)=1 exch2_pij(2,1,24)=0 exch2_pij(3,1,24)=0 exch2_pij(4,1,24)=1 exch2_oi(1,24)=0 exch2_oj(1,24)=0 exch2_neighbourId(2,24)=21 exch2_iLo(2,24)=0 exch2_iHi(2,24)=171 exch2_jLo(2,24)=0 exch2_jHi(2,24)=0 exch2_opposingSend(2,24)=1 exch2_pij(1,2,24)=1 exch2_pij(2,2,24)=0 exch2_pij(3,2,24)=0 exch2_pij(4,2,24)=1 exch2_oi(2,24)=0 exch2_oj(2,24)=0 exch2_neighbourId(3,24)=31 exch2_iLo(3,24)=171 exch2_iHi(3,24)=171 exch2_jLo(3,24)=0 exch2_jHi(3,24)=171 exch2_opposingSend(3,24)=4 exch2_pij(1,3,24)=1 exch2_pij(2,3,24)=0 exch2_pij(3,3,24)=0 exch2_pij(4,3,24)=1 exch2_oi(3,24)=510 exch2_oj(3,24)=0 exch2_neighbourId(4,24)=23 exch2_iLo(4,24)=0 exch2_iHi(4,24)=0 exch2_jLo(4,24)=0 exch2_jHi(4,24)=171 exch2_opposingSend(4,24)=3 exch2_pij(1,4,24)=1 exch2_pij(2,4,24)=0 exch2_pij(3,4,24)=0 exch2_pij(4,4,24)=1 exch2_oi(4,24)=0 exch2_oj(4,24)=0 RETURN END SUBROUTINE W2_E2SETUP_25 C Topology for tile 25 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(25)=170 exch2_tNy(25)=170 exch2_tBasex(25)=0 exch2_tBasey(25)=340 exch2_txGlobalo(25)=1021 exch2_tyGlobalo(25)=341 exch2_isWedge(25)=1 exch2_isNedge(25)=1 exch2_isEedge(25)=0 exch2_isSedge(25)=0 exch2_myFace(25)=3 exch2_mydNx(25)=510 exch2_mydNy(25)=510 exch2_nNeighbours(25)=4 exch2_neighbourId(1,25)=43 exch2_iLo(1,25)=0 exch2_iHi(1,25)=171 exch2_jLo(1,25)=171 exch2_jHi(1,25)=171 exch2_opposingSend(1,25)=4 exch2_pij(1,1,25)=0 exch2_pij(2,1,25)=-1 exch2_pij(3,1,25)=1 exch2_pij(4,1,25)=0 exch2_oi(1,25)=511 exch2_oj(1,25)=510 exch2_neighbourId(2,25)=22 exch2_iLo(2,25)=0 exch2_iHi(2,25)=171 exch2_jLo(2,25)=0 exch2_jHi(2,25)=0 exch2_opposingSend(2,25)=1 exch2_pij(1,2,25)=1 exch2_pij(2,2,25)=0 exch2_pij(3,2,25)=0 exch2_pij(4,2,25)=1 exch2_oi(2,25)=0 exch2_oj(2,25)=0 exch2_neighbourId(3,25)=26 exch2_iLo(3,25)=171 exch2_iHi(3,25)=171 exch2_jLo(3,25)=0 exch2_jHi(3,25)=171 exch2_opposingSend(3,25)=4 exch2_pij(1,3,25)=1 exch2_pij(2,3,25)=0 exch2_pij(3,3,25)=0 exch2_pij(4,3,25)=1 exch2_oi(3,25)=0 exch2_oj(3,25)=0 exch2_neighbourId(4,25)=7 exch2_iLo(4,25)=0 exch2_iHi(4,25)=0 exch2_jLo(4,25)=0 exch2_jHi(4,25)=171 exch2_opposingSend(4,25)=1 exch2_pij(1,4,25)=0 exch2_pij(2,4,25)=1 exch2_pij(3,4,25)=-1 exch2_pij(4,4,25)=0 exch2_oi(4,25)=-510 exch2_oj(4,25)=511 RETURN END SUBROUTINE W2_E2SETUP_26 C Topology for tile 26 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(26)=170 exch2_tNy(26)=170 exch2_tBasex(26)=170 exch2_tBasey(26)=340 exch2_txGlobalo(26)=1191 exch2_tyGlobalo(26)=341 exch2_isWedge(26)=0 exch2_isNedge(26)=1 exch2_isEedge(26)=0 exch2_isSedge(26)=0 exch2_myFace(26)=3 exch2_mydNx(26)=510 exch2_mydNy(26)=510 exch2_nNeighbours(26)=4 exch2_neighbourId(1,26)=40 exch2_iLo(1,26)=0 exch2_iHi(1,26)=171 exch2_jLo(1,26)=171 exch2_jHi(1,26)=171 exch2_opposingSend(1,26)=4 exch2_pij(1,1,26)=0 exch2_pij(2,1,26)=-1 exch2_pij(3,1,26)=1 exch2_pij(4,1,26)=0 exch2_oi(1,26)=511 exch2_oj(1,26)=510 exch2_neighbourId(2,26)=23 exch2_iLo(2,26)=0 exch2_iHi(2,26)=171 exch2_jLo(2,26)=0 exch2_jHi(2,26)=0 exch2_opposingSend(2,26)=1 exch2_pij(1,2,26)=1 exch2_pij(2,2,26)=0 exch2_pij(3,2,26)=0 exch2_pij(4,2,26)=1 exch2_oi(2,26)=0 exch2_oj(2,26)=0 exch2_neighbourId(3,26)=27 exch2_iLo(3,26)=171 exch2_iHi(3,26)=171 exch2_jLo(3,26)=0 exch2_jHi(3,26)=171 exch2_opposingSend(3,26)=4 exch2_pij(1,3,26)=1 exch2_pij(2,3,26)=0 exch2_pij(3,3,26)=0 exch2_pij(4,3,26)=1 exch2_oi(3,26)=0 exch2_oj(3,26)=0 exch2_neighbourId(4,26)=25 exch2_iLo(4,26)=0 exch2_iHi(4,26)=0 exch2_jLo(4,26)=0 exch2_jHi(4,26)=171 exch2_opposingSend(4,26)=3 exch2_pij(1,4,26)=1 exch2_pij(2,4,26)=0 exch2_pij(3,4,26)=0 exch2_pij(4,4,26)=1 exch2_oi(4,26)=0 exch2_oj(4,26)=0 RETURN END SUBROUTINE W2_E2SETUP_27 C Topology for tile 27 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(27)=170 exch2_tNy(27)=170 exch2_tBasex(27)=340 exch2_tBasey(27)=340 exch2_txGlobalo(27)=1361 exch2_tyGlobalo(27)=341 exch2_isWedge(27)=0 exch2_isNedge(27)=1 exch2_isEedge(27)=1 exch2_isSedge(27)=0 exch2_myFace(27)=3 exch2_mydNx(27)=510 exch2_mydNy(27)=510 exch2_nNeighbours(27)=4 exch2_neighbourId(1,27)=37 exch2_iLo(1,27)=0 exch2_iHi(1,27)=171 exch2_jLo(1,27)=171 exch2_jHi(1,27)=171 exch2_opposingSend(1,27)=4 exch2_pij(1,1,27)=0 exch2_pij(2,1,27)=-1 exch2_pij(3,1,27)=1 exch2_pij(4,1,27)=0 exch2_oi(1,27)=511 exch2_oj(1,27)=510 exch2_neighbourId(2,27)=24 exch2_iLo(2,27)=0 exch2_iHi(2,27)=171 exch2_jLo(2,27)=0 exch2_jHi(2,27)=0 exch2_opposingSend(2,27)=1 exch2_pij(1,2,27)=1 exch2_pij(2,2,27)=0 exch2_pij(3,2,27)=0 exch2_pij(4,2,27)=1 exch2_oi(2,27)=0 exch2_oj(2,27)=0 exch2_neighbourId(3,27)=34 exch2_iLo(3,27)=171 exch2_iHi(3,27)=171 exch2_jLo(3,27)=0 exch2_jHi(3,27)=171 exch2_opposingSend(3,27)=4 exch2_pij(1,3,27)=1 exch2_pij(2,3,27)=0 exch2_pij(3,3,27)=0 exch2_pij(4,3,27)=1 exch2_oi(3,27)=510 exch2_oj(3,27)=0 exch2_neighbourId(4,27)=26 exch2_iLo(4,27)=0 exch2_iHi(4,27)=0 exch2_jLo(4,27)=0 exch2_jHi(4,27)=171 exch2_opposingSend(4,27)=3 exch2_pij(1,4,27)=1 exch2_pij(2,4,27)=0 exch2_pij(3,4,27)=0 exch2_pij(4,4,27)=1 exch2_oi(4,27)=0 exch2_oj(4,27)=0 RETURN END SUBROUTINE W2_E2SETUP_28 C Topology for tile 28 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(28)=170 exch2_tNy(28)=170 exch2_tBasex(28)=0 exch2_tBasey(28)=0 exch2_txGlobalo(28)=1531 exch2_tyGlobalo(28)=1 exch2_isWedge(28)=1 exch2_isNedge(28)=0 exch2_isEedge(28)=0 exch2_isSedge(28)=1 exch2_myFace(28)=4 exch2_mydNx(28)=510 exch2_mydNy(28)=510 exch2_nNeighbours(28)=4 exch2_neighbourId(1,28)=31 exch2_iLo(1,28)=0 exch2_iHi(1,28)=171 exch2_jLo(1,28)=171 exch2_jHi(1,28)=171 exch2_opposingSend(1,28)=2 exch2_pij(1,1,28)=1 exch2_pij(2,1,28)=0 exch2_pij(3,1,28)=0 exch2_pij(4,1,28)=1 exch2_oi(1,28)=0 exch2_oj(1,28)=0 exch2_neighbourId(2,28)=18 exch2_iLo(2,28)=0 exch2_iHi(2,28)=171 exch2_jLo(2,28)=0 exch2_jHi(2,28)=0 exch2_opposingSend(2,28)=3 exch2_pij(1,2,28)=0 exch2_pij(2,2,28)=-1 exch2_pij(3,2,28)=1 exch2_pij(4,2,28)=0 exch2_oi(2,28)=511 exch2_oj(2,28)=-510 exch2_neighbourId(3,28)=29 exch2_iLo(3,28)=171 exch2_iHi(3,28)=171 exch2_jLo(3,28)=0 exch2_jHi(3,28)=171 exch2_opposingSend(3,28)=4 exch2_pij(1,3,28)=1 exch2_pij(2,3,28)=0 exch2_pij(3,3,28)=0 exch2_pij(4,3,28)=1 exch2_oi(3,28)=0 exch2_oj(3,28)=0 exch2_neighbourId(4,28)=21 exch2_iLo(4,28)=0 exch2_iHi(4,28)=0 exch2_jLo(4,28)=0 exch2_jHi(4,28)=171 exch2_opposingSend(4,28)=3 exch2_pij(1,4,28)=1 exch2_pij(2,4,28)=0 exch2_pij(3,4,28)=0 exch2_pij(4,4,28)=1 exch2_oi(4,28)=-510 exch2_oj(4,28)=0 RETURN END SUBROUTINE W2_E2SETUP_29 C Topology for tile 29 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(29)=170 exch2_tNy(29)=170 exch2_tBasex(29)=170 exch2_tBasey(29)=0 exch2_txGlobalo(29)=1701 exch2_tyGlobalo(29)=1 exch2_isWedge(29)=0 exch2_isNedge(29)=0 exch2_isEedge(29)=0 exch2_isSedge(29)=1 exch2_myFace(29)=4 exch2_mydNx(29)=510 exch2_mydNy(29)=510 exch2_nNeighbours(29)=4 exch2_neighbourId(1,29)=32 exch2_iLo(1,29)=0 exch2_iHi(1,29)=171 exch2_jLo(1,29)=171 exch2_jHi(1,29)=171 exch2_opposingSend(1,29)=2 exch2_pij(1,1,29)=1 exch2_pij(2,1,29)=0 exch2_pij(3,1,29)=0 exch2_pij(4,1,29)=1 exch2_oi(1,29)=0 exch2_oj(1,29)=0 exch2_neighbourId(2,29)=15 exch2_iLo(2,29)=0 exch2_iHi(2,29)=171 exch2_jLo(2,29)=0 exch2_jHi(2,29)=0 exch2_opposingSend(2,29)=3 exch2_pij(1,2,29)=0 exch2_pij(2,2,29)=-1 exch2_pij(3,2,29)=1 exch2_pij(4,2,29)=0 exch2_oi(2,29)=511 exch2_oj(2,29)=-510 exch2_neighbourId(3,29)=30 exch2_iLo(3,29)=171 exch2_iHi(3,29)=171 exch2_jLo(3,29)=0 exch2_jHi(3,29)=171 exch2_opposingSend(3,29)=4 exch2_pij(1,3,29)=1 exch2_pij(2,3,29)=0 exch2_pij(3,3,29)=0 exch2_pij(4,3,29)=1 exch2_oi(3,29)=0 exch2_oj(3,29)=0 exch2_neighbourId(4,29)=28 exch2_iLo(4,29)=0 exch2_iHi(4,29)=0 exch2_jLo(4,29)=0 exch2_jHi(4,29)=171 exch2_opposingSend(4,29)=3 exch2_pij(1,4,29)=1 exch2_pij(2,4,29)=0 exch2_pij(3,4,29)=0 exch2_pij(4,4,29)=1 exch2_oi(4,29)=0 exch2_oj(4,29)=0 RETURN END SUBROUTINE W2_E2SETUP_30 C Topology for tile 30 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(30)=170 exch2_tNy(30)=170 exch2_tBasex(30)=340 exch2_tBasey(30)=0 exch2_txGlobalo(30)=1871 exch2_tyGlobalo(30)=1 exch2_isWedge(30)=0 exch2_isNedge(30)=0 exch2_isEedge(30)=1 exch2_isSedge(30)=1 exch2_myFace(30)=4 exch2_mydNx(30)=510 exch2_mydNy(30)=510 exch2_nNeighbours(30)=4 exch2_neighbourId(1,30)=33 exch2_iLo(1,30)=0 exch2_iHi(1,30)=171 exch2_jLo(1,30)=171 exch2_jHi(1,30)=171 exch2_opposingSend(1,30)=2 exch2_pij(1,1,30)=1 exch2_pij(2,1,30)=0 exch2_pij(3,1,30)=0 exch2_pij(4,1,30)=1 exch2_oi(1,30)=0 exch2_oj(1,30)=0 exch2_neighbourId(2,30)=12 exch2_iLo(2,30)=0 exch2_iHi(2,30)=171 exch2_jLo(2,30)=0 exch2_jHi(2,30)=0 exch2_opposingSend(2,30)=3 exch2_pij(1,2,30)=0 exch2_pij(2,2,30)=-1 exch2_pij(3,2,30)=1 exch2_pij(4,2,30)=0 exch2_oi(2,30)=511 exch2_oj(2,30)=-510 exch2_neighbourId(3,30)=48 exch2_iLo(3,30)=171 exch2_iHi(3,30)=171 exch2_jLo(3,30)=0 exch2_jHi(3,30)=171 exch2_opposingSend(3,30)=2 exch2_pij(1,3,30)=0 exch2_pij(2,3,30)=1 exch2_pij(3,3,30)=-1 exch2_pij(4,3,30)=0 exch2_oi(3,30)=510 exch2_oj(3,30)=511 exch2_neighbourId(4,30)=29 exch2_iLo(4,30)=0 exch2_iHi(4,30)=0 exch2_jLo(4,30)=0 exch2_jHi(4,30)=171 exch2_opposingSend(4,30)=3 exch2_pij(1,4,30)=1 exch2_pij(2,4,30)=0 exch2_pij(3,4,30)=0 exch2_pij(4,4,30)=1 exch2_oi(4,30)=0 exch2_oj(4,30)=0 RETURN END SUBROUTINE W2_E2SETUP_31 C Topology for tile 31 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(31)=170 exch2_tNy(31)=170 exch2_tBasex(31)=0 exch2_tBasey(31)=170 exch2_txGlobalo(31)=1531 exch2_tyGlobalo(31)=171 exch2_isWedge(31)=1 exch2_isNedge(31)=0 exch2_isEedge(31)=0 exch2_isSedge(31)=0 exch2_myFace(31)=4 exch2_mydNx(31)=510 exch2_mydNy(31)=510 exch2_nNeighbours(31)=4 exch2_neighbourId(1,31)=34 exch2_iLo(1,31)=0 exch2_iHi(1,31)=171 exch2_jLo(1,31)=171 exch2_jHi(1,31)=171 exch2_opposingSend(1,31)=2 exch2_pij(1,1,31)=1 exch2_pij(2,1,31)=0 exch2_pij(3,1,31)=0 exch2_pij(4,1,31)=1 exch2_oi(1,31)=0 exch2_oj(1,31)=0 exch2_neighbourId(2,31)=28 exch2_iLo(2,31)=0 exch2_iHi(2,31)=171 exch2_jLo(2,31)=0 exch2_jHi(2,31)=0 exch2_opposingSend(2,31)=1 exch2_pij(1,2,31)=1 exch2_pij(2,2,31)=0 exch2_pij(3,2,31)=0 exch2_pij(4,2,31)=1 exch2_oi(2,31)=0 exch2_oj(2,31)=0 exch2_neighbourId(3,31)=32 exch2_iLo(3,31)=171 exch2_iHi(3,31)=171 exch2_jLo(3,31)=0 exch2_jHi(3,31)=171 exch2_opposingSend(3,31)=4 exch2_pij(1,3,31)=1 exch2_pij(2,3,31)=0 exch2_pij(3,3,31)=0 exch2_pij(4,3,31)=1 exch2_oi(3,31)=0 exch2_oj(3,31)=0 exch2_neighbourId(4,31)=24 exch2_iLo(4,31)=0 exch2_iHi(4,31)=0 exch2_jLo(4,31)=0 exch2_jHi(4,31)=171 exch2_opposingSend(4,31)=3 exch2_pij(1,4,31)=1 exch2_pij(2,4,31)=0 exch2_pij(3,4,31)=0 exch2_pij(4,4,31)=1 exch2_oi(4,31)=-510 exch2_oj(4,31)=0 RETURN END SUBROUTINE W2_E2SETUP_32 C Topology for tile 32 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(32)=170 exch2_tNy(32)=170 exch2_tBasex(32)=170 exch2_tBasey(32)=170 exch2_txGlobalo(32)=1701 exch2_tyGlobalo(32)=171 exch2_isWedge(32)=0 exch2_isNedge(32)=0 exch2_isEedge(32)=0 exch2_isSedge(32)=0 exch2_myFace(32)=4 exch2_mydNx(32)=510 exch2_mydNy(32)=510 exch2_nNeighbours(32)=4 exch2_neighbourId(1,32)=35 exch2_iLo(1,32)=0 exch2_iHi(1,32)=171 exch2_jLo(1,32)=171 exch2_jHi(1,32)=171 exch2_opposingSend(1,32)=2 exch2_pij(1,1,32)=1 exch2_pij(2,1,32)=0 exch2_pij(3,1,32)=0 exch2_pij(4,1,32)=1 exch2_oi(1,32)=0 exch2_oj(1,32)=0 exch2_neighbourId(2,32)=29 exch2_iLo(2,32)=0 exch2_iHi(2,32)=171 exch2_jLo(2,32)=0 exch2_jHi(2,32)=0 exch2_opposingSend(2,32)=1 exch2_pij(1,2,32)=1 exch2_pij(2,2,32)=0 exch2_pij(3,2,32)=0 exch2_pij(4,2,32)=1 exch2_oi(2,32)=0 exch2_oj(2,32)=0 exch2_neighbourId(3,32)=33 exch2_iLo(3,32)=171 exch2_iHi(3,32)=171 exch2_jLo(3,32)=0 exch2_jHi(3,32)=171 exch2_opposingSend(3,32)=4 exch2_pij(1,3,32)=1 exch2_pij(2,3,32)=0 exch2_pij(3,3,32)=0 exch2_pij(4,3,32)=1 exch2_oi(3,32)=0 exch2_oj(3,32)=0 exch2_neighbourId(4,32)=31 exch2_iLo(4,32)=0 exch2_iHi(4,32)=0 exch2_jLo(4,32)=0 exch2_jHi(4,32)=171 exch2_opposingSend(4,32)=3 exch2_pij(1,4,32)=1 exch2_pij(2,4,32)=0 exch2_pij(3,4,32)=0 exch2_pij(4,4,32)=1 exch2_oi(4,32)=0 exch2_oj(4,32)=0 RETURN END SUBROUTINE W2_E2SETUP_33 C Topology for tile 33 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(33)=170 exch2_tNy(33)=170 exch2_tBasex(33)=340 exch2_tBasey(33)=170 exch2_txGlobalo(33)=1871 exch2_tyGlobalo(33)=171 exch2_isWedge(33)=0 exch2_isNedge(33)=0 exch2_isEedge(33)=1 exch2_isSedge(33)=0 exch2_myFace(33)=4 exch2_mydNx(33)=510 exch2_mydNy(33)=510 exch2_nNeighbours(33)=4 exch2_neighbourId(1,33)=36 exch2_iLo(1,33)=0 exch2_iHi(1,33)=171 exch2_jLo(1,33)=171 exch2_jHi(1,33)=171 exch2_opposingSend(1,33)=2 exch2_pij(1,1,33)=1 exch2_pij(2,1,33)=0 exch2_pij(3,1,33)=0 exch2_pij(4,1,33)=1 exch2_oi(1,33)=0 exch2_oj(1,33)=0 exch2_neighbourId(2,33)=30 exch2_iLo(2,33)=0 exch2_iHi(2,33)=171 exch2_jLo(2,33)=0 exch2_jHi(2,33)=0 exch2_opposingSend(2,33)=1 exch2_pij(1,2,33)=1 exch2_pij(2,2,33)=0 exch2_pij(3,2,33)=0 exch2_pij(4,2,33)=1 exch2_oi(2,33)=0 exch2_oj(2,33)=0 exch2_neighbourId(3,33)=47 exch2_iLo(3,33)=171 exch2_iHi(3,33)=171 exch2_jLo(3,33)=0 exch2_jHi(3,33)=171 exch2_opposingSend(3,33)=2 exch2_pij(1,3,33)=0 exch2_pij(2,3,33)=1 exch2_pij(3,3,33)=-1 exch2_pij(4,3,33)=0 exch2_oi(3,33)=510 exch2_oj(3,33)=511 exch2_neighbourId(4,33)=32 exch2_iLo(4,33)=0 exch2_iHi(4,33)=0 exch2_jLo(4,33)=0 exch2_jHi(4,33)=171 exch2_opposingSend(4,33)=3 exch2_pij(1,4,33)=1 exch2_pij(2,4,33)=0 exch2_pij(3,4,33)=0 exch2_pij(4,4,33)=1 exch2_oi(4,33)=0 exch2_oj(4,33)=0 RETURN END SUBROUTINE W2_E2SETUP_34 C Topology for tile 34 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(34)=170 exch2_tNy(34)=170 exch2_tBasex(34)=0 exch2_tBasey(34)=340 exch2_txGlobalo(34)=1531 exch2_tyGlobalo(34)=341 exch2_isWedge(34)=1 exch2_isNedge(34)=1 exch2_isEedge(34)=0 exch2_isSedge(34)=0 exch2_myFace(34)=4 exch2_mydNx(34)=510 exch2_mydNy(34)=510 exch2_nNeighbours(34)=4 exch2_neighbourId(1,34)=37 exch2_iLo(1,34)=0 exch2_iHi(1,34)=171 exch2_jLo(1,34)=171 exch2_jHi(1,34)=171 exch2_opposingSend(1,34)=2 exch2_pij(1,1,34)=1 exch2_pij(2,1,34)=0 exch2_pij(3,1,34)=0 exch2_pij(4,1,34)=1 exch2_oi(1,34)=0 exch2_oj(1,34)=510 exch2_neighbourId(2,34)=31 exch2_iLo(2,34)=0 exch2_iHi(2,34)=171 exch2_jLo(2,34)=0 exch2_jHi(2,34)=0 exch2_opposingSend(2,34)=1 exch2_pij(1,2,34)=1 exch2_pij(2,2,34)=0 exch2_pij(3,2,34)=0 exch2_pij(4,2,34)=1 exch2_oi(2,34)=0 exch2_oj(2,34)=0 exch2_neighbourId(3,34)=35 exch2_iLo(3,34)=171 exch2_iHi(3,34)=171 exch2_jLo(3,34)=0 exch2_jHi(3,34)=171 exch2_opposingSend(3,34)=4 exch2_pij(1,3,34)=1 exch2_pij(2,3,34)=0 exch2_pij(3,3,34)=0 exch2_pij(4,3,34)=1 exch2_oi(3,34)=0 exch2_oj(3,34)=0 exch2_neighbourId(4,34)=27 exch2_iLo(4,34)=0 exch2_iHi(4,34)=0 exch2_jLo(4,34)=0 exch2_jHi(4,34)=171 exch2_opposingSend(4,34)=3 exch2_pij(1,4,34)=1 exch2_pij(2,4,34)=0 exch2_pij(3,4,34)=0 exch2_pij(4,4,34)=1 exch2_oi(4,34)=-510 exch2_oj(4,34)=0 RETURN END SUBROUTINE W2_E2SETUP_35 C Topology for tile 35 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(35)=170 exch2_tNy(35)=170 exch2_tBasex(35)=170 exch2_tBasey(35)=340 exch2_txGlobalo(35)=1701 exch2_tyGlobalo(35)=341 exch2_isWedge(35)=0 exch2_isNedge(35)=1 exch2_isEedge(35)=0 exch2_isSedge(35)=0 exch2_myFace(35)=4 exch2_mydNx(35)=510 exch2_mydNy(35)=510 exch2_nNeighbours(35)=4 exch2_neighbourId(1,35)=38 exch2_iLo(1,35)=0 exch2_iHi(1,35)=171 exch2_jLo(1,35)=171 exch2_jHi(1,35)=171 exch2_opposingSend(1,35)=2 exch2_pij(1,1,35)=1 exch2_pij(2,1,35)=0 exch2_pij(3,1,35)=0 exch2_pij(4,1,35)=1 exch2_oi(1,35)=0 exch2_oj(1,35)=510 exch2_neighbourId(2,35)=32 exch2_iLo(2,35)=0 exch2_iHi(2,35)=171 exch2_jLo(2,35)=0 exch2_jHi(2,35)=0 exch2_opposingSend(2,35)=1 exch2_pij(1,2,35)=1 exch2_pij(2,2,35)=0 exch2_pij(3,2,35)=0 exch2_pij(4,2,35)=1 exch2_oi(2,35)=0 exch2_oj(2,35)=0 exch2_neighbourId(3,35)=36 exch2_iLo(3,35)=171 exch2_iHi(3,35)=171 exch2_jLo(3,35)=0 exch2_jHi(3,35)=171 exch2_opposingSend(3,35)=4 exch2_pij(1,3,35)=1 exch2_pij(2,3,35)=0 exch2_pij(3,3,35)=0 exch2_pij(4,3,35)=1 exch2_oi(3,35)=0 exch2_oj(3,35)=0 exch2_neighbourId(4,35)=34 exch2_iLo(4,35)=0 exch2_iHi(4,35)=0 exch2_jLo(4,35)=0 exch2_jHi(4,35)=171 exch2_opposingSend(4,35)=3 exch2_pij(1,4,35)=1 exch2_pij(2,4,35)=0 exch2_pij(3,4,35)=0 exch2_pij(4,4,35)=1 exch2_oi(4,35)=0 exch2_oj(4,35)=0 RETURN END SUBROUTINE W2_E2SETUP_36 C Topology for tile 36 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(36)=170 exch2_tNy(36)=170 exch2_tBasex(36)=340 exch2_tBasey(36)=340 exch2_txGlobalo(36)=1871 exch2_tyGlobalo(36)=341 exch2_isWedge(36)=0 exch2_isNedge(36)=1 exch2_isEedge(36)=1 exch2_isSedge(36)=0 exch2_myFace(36)=4 exch2_mydNx(36)=510 exch2_mydNy(36)=510 exch2_nNeighbours(36)=4 exch2_neighbourId(1,36)=39 exch2_iLo(1,36)=0 exch2_iHi(1,36)=171 exch2_jLo(1,36)=171 exch2_jHi(1,36)=171 exch2_opposingSend(1,36)=2 exch2_pij(1,1,36)=1 exch2_pij(2,1,36)=0 exch2_pij(3,1,36)=0 exch2_pij(4,1,36)=1 exch2_oi(1,36)=0 exch2_oj(1,36)=510 exch2_neighbourId(2,36)=33 exch2_iLo(2,36)=0 exch2_iHi(2,36)=171 exch2_jLo(2,36)=0 exch2_jHi(2,36)=0 exch2_opposingSend(2,36)=1 exch2_pij(1,2,36)=1 exch2_pij(2,2,36)=0 exch2_pij(3,2,36)=0 exch2_pij(4,2,36)=1 exch2_oi(2,36)=0 exch2_oj(2,36)=0 exch2_neighbourId(3,36)=46 exch2_iLo(3,36)=171 exch2_iHi(3,36)=171 exch2_jLo(3,36)=0 exch2_jHi(3,36)=171 exch2_opposingSend(3,36)=2 exch2_pij(1,3,36)=0 exch2_pij(2,3,36)=1 exch2_pij(3,3,36)=-1 exch2_pij(4,3,36)=0 exch2_oi(3,36)=510 exch2_oj(3,36)=511 exch2_neighbourId(4,36)=35 exch2_iLo(4,36)=0 exch2_iHi(4,36)=0 exch2_jLo(4,36)=0 exch2_jHi(4,36)=171 exch2_opposingSend(4,36)=3 exch2_pij(1,4,36)=1 exch2_pij(2,4,36)=0 exch2_pij(3,4,36)=0 exch2_pij(4,4,36)=1 exch2_oi(4,36)=0 exch2_oj(4,36)=0 RETURN END SUBROUTINE W2_E2SETUP_37 C Topology for tile 37 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(37)=170 exch2_tNy(37)=170 exch2_tBasex(37)=0 exch2_tBasey(37)=0 exch2_txGlobalo(37)=2041 exch2_tyGlobalo(37)=1 exch2_isWedge(37)=1 exch2_isNedge(37)=0 exch2_isEedge(37)=0 exch2_isSedge(37)=1 exch2_myFace(37)=5 exch2_mydNx(37)=510 exch2_mydNy(37)=510 exch2_nNeighbours(37)=4 exch2_neighbourId(1,37)=40 exch2_iLo(1,37)=0 exch2_iHi(1,37)=171 exch2_jLo(1,37)=171 exch2_jHi(1,37)=171 exch2_opposingSend(1,37)=2 exch2_pij(1,1,37)=1 exch2_pij(2,1,37)=0 exch2_pij(3,1,37)=0 exch2_pij(4,1,37)=1 exch2_oi(1,37)=0 exch2_oj(1,37)=0 exch2_neighbourId(2,37)=34 exch2_iLo(2,37)=0 exch2_iHi(2,37)=171 exch2_jLo(2,37)=0 exch2_jHi(2,37)=0 exch2_opposingSend(2,37)=1 exch2_pij(1,2,37)=1 exch2_pij(2,2,37)=0 exch2_pij(3,2,37)=0 exch2_pij(4,2,37)=1 exch2_oi(2,37)=0 exch2_oj(2,37)=-510 exch2_neighbourId(3,37)=38 exch2_iLo(3,37)=171 exch2_iHi(3,37)=171 exch2_jLo(3,37)=0 exch2_jHi(3,37)=171 exch2_opposingSend(3,37)=4 exch2_pij(1,3,37)=1 exch2_pij(2,3,37)=0 exch2_pij(3,3,37)=0 exch2_pij(4,3,37)=1 exch2_oi(3,37)=0 exch2_oj(3,37)=0 exch2_neighbourId(4,37)=27 exch2_iLo(4,37)=0 exch2_iHi(4,37)=0 exch2_jLo(4,37)=0 exch2_jHi(4,37)=171 exch2_opposingSend(4,37)=1 exch2_pij(1,4,37)=0 exch2_pij(2,4,37)=1 exch2_pij(3,4,37)=-1 exch2_pij(4,4,37)=0 exch2_oi(4,37)=-510 exch2_oj(4,37)=511 RETURN END SUBROUTINE W2_E2SETUP_38 C Topology for tile 38 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(38)=170 exch2_tNy(38)=170 exch2_tBasex(38)=170 exch2_tBasey(38)=0 exch2_txGlobalo(38)=2211 exch2_tyGlobalo(38)=1 exch2_isWedge(38)=0 exch2_isNedge(38)=0 exch2_isEedge(38)=0 exch2_isSedge(38)=1 exch2_myFace(38)=5 exch2_mydNx(38)=510 exch2_mydNy(38)=510 exch2_nNeighbours(38)=4 exch2_neighbourId(1,38)=41 exch2_iLo(1,38)=0 exch2_iHi(1,38)=171 exch2_jLo(1,38)=171 exch2_jHi(1,38)=171 exch2_opposingSend(1,38)=2 exch2_pij(1,1,38)=1 exch2_pij(2,1,38)=0 exch2_pij(3,1,38)=0 exch2_pij(4,1,38)=1 exch2_oi(1,38)=0 exch2_oj(1,38)=0 exch2_neighbourId(2,38)=35 exch2_iLo(2,38)=0 exch2_iHi(2,38)=171 exch2_jLo(2,38)=0 exch2_jHi(2,38)=0 exch2_opposingSend(2,38)=1 exch2_pij(1,2,38)=1 exch2_pij(2,2,38)=0 exch2_pij(3,2,38)=0 exch2_pij(4,2,38)=1 exch2_oi(2,38)=0 exch2_oj(2,38)=-510 exch2_neighbourId(3,38)=39 exch2_iLo(3,38)=171 exch2_iHi(3,38)=171 exch2_jLo(3,38)=0 exch2_jHi(3,38)=171 exch2_opposingSend(3,38)=4 exch2_pij(1,3,38)=1 exch2_pij(2,3,38)=0 exch2_pij(3,3,38)=0 exch2_pij(4,3,38)=1 exch2_oi(3,38)=0 exch2_oj(3,38)=0 exch2_neighbourId(4,38)=37 exch2_iLo(4,38)=0 exch2_iHi(4,38)=0 exch2_jLo(4,38)=0 exch2_jHi(4,38)=171 exch2_opposingSend(4,38)=3 exch2_pij(1,4,38)=1 exch2_pij(2,4,38)=0 exch2_pij(3,4,38)=0 exch2_pij(4,4,38)=1 exch2_oi(4,38)=0 exch2_oj(4,38)=0 RETURN END SUBROUTINE W2_E2SETUP_39 C Topology for tile 39 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(39)=170 exch2_tNy(39)=170 exch2_tBasex(39)=340 exch2_tBasey(39)=0 exch2_txGlobalo(39)=2381 exch2_tyGlobalo(39)=1 exch2_isWedge(39)=0 exch2_isNedge(39)=0 exch2_isEedge(39)=1 exch2_isSedge(39)=1 exch2_myFace(39)=5 exch2_mydNx(39)=510 exch2_mydNy(39)=510 exch2_nNeighbours(39)=4 exch2_neighbourId(1,39)=42 exch2_iLo(1,39)=0 exch2_iHi(1,39)=171 exch2_jLo(1,39)=171 exch2_jHi(1,39)=171 exch2_opposingSend(1,39)=2 exch2_pij(1,1,39)=1 exch2_pij(2,1,39)=0 exch2_pij(3,1,39)=0 exch2_pij(4,1,39)=1 exch2_oi(1,39)=0 exch2_oj(1,39)=0 exch2_neighbourId(2,39)=36 exch2_iLo(2,39)=0 exch2_iHi(2,39)=171 exch2_jLo(2,39)=0 exch2_jHi(2,39)=0 exch2_opposingSend(2,39)=1 exch2_pij(1,2,39)=1 exch2_pij(2,2,39)=0 exch2_pij(3,2,39)=0 exch2_pij(4,2,39)=1 exch2_oi(2,39)=0 exch2_oj(2,39)=-510 exch2_neighbourId(3,39)=46 exch2_iLo(3,39)=171 exch2_iHi(3,39)=171 exch2_jLo(3,39)=0 exch2_jHi(3,39)=171 exch2_opposingSend(3,39)=4 exch2_pij(1,3,39)=1 exch2_pij(2,3,39)=0 exch2_pij(3,3,39)=0 exch2_pij(4,3,39)=1 exch2_oi(3,39)=510 exch2_oj(3,39)=0 exch2_neighbourId(4,39)=38 exch2_iLo(4,39)=0 exch2_iHi(4,39)=0 exch2_jLo(4,39)=0 exch2_jHi(4,39)=171 exch2_opposingSend(4,39)=3 exch2_pij(1,4,39)=1 exch2_pij(2,4,39)=0 exch2_pij(3,4,39)=0 exch2_pij(4,4,39)=1 exch2_oi(4,39)=0 exch2_oj(4,39)=0 RETURN END SUBROUTINE W2_E2SETUP_40 C Topology for tile 40 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(40)=170 exch2_tNy(40)=170 exch2_tBasex(40)=0 exch2_tBasey(40)=170 exch2_txGlobalo(40)=2041 exch2_tyGlobalo(40)=171 exch2_isWedge(40)=1 exch2_isNedge(40)=0 exch2_isEedge(40)=0 exch2_isSedge(40)=0 exch2_myFace(40)=5 exch2_mydNx(40)=510 exch2_mydNy(40)=510 exch2_nNeighbours(40)=4 exch2_neighbourId(1,40)=43 exch2_iLo(1,40)=0 exch2_iHi(1,40)=171 exch2_jLo(1,40)=171 exch2_jHi(1,40)=171 exch2_opposingSend(1,40)=2 exch2_pij(1,1,40)=1 exch2_pij(2,1,40)=0 exch2_pij(3,1,40)=0 exch2_pij(4,1,40)=1 exch2_oi(1,40)=0 exch2_oj(1,40)=0 exch2_neighbourId(2,40)=37 exch2_iLo(2,40)=0 exch2_iHi(2,40)=171 exch2_jLo(2,40)=0 exch2_jHi(2,40)=0 exch2_opposingSend(2,40)=1 exch2_pij(1,2,40)=1 exch2_pij(2,2,40)=0 exch2_pij(3,2,40)=0 exch2_pij(4,2,40)=1 exch2_oi(2,40)=0 exch2_oj(2,40)=0 exch2_neighbourId(3,40)=41 exch2_iLo(3,40)=171 exch2_iHi(3,40)=171 exch2_jLo(3,40)=0 exch2_jHi(3,40)=171 exch2_opposingSend(3,40)=4 exch2_pij(1,3,40)=1 exch2_pij(2,3,40)=0 exch2_pij(3,3,40)=0 exch2_pij(4,3,40)=1 exch2_oi(3,40)=0 exch2_oj(3,40)=0 exch2_neighbourId(4,40)=26 exch2_iLo(4,40)=0 exch2_iHi(4,40)=0 exch2_jLo(4,40)=0 exch2_jHi(4,40)=171 exch2_opposingSend(4,40)=1 exch2_pij(1,4,40)=0 exch2_pij(2,4,40)=1 exch2_pij(3,4,40)=-1 exch2_pij(4,4,40)=0 exch2_oi(4,40)=-510 exch2_oj(4,40)=511 RETURN END SUBROUTINE W2_E2SETUP_41 C Topology for tile 41 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(41)=170 exch2_tNy(41)=170 exch2_tBasex(41)=170 exch2_tBasey(41)=170 exch2_txGlobalo(41)=2211 exch2_tyGlobalo(41)=171 exch2_isWedge(41)=0 exch2_isNedge(41)=0 exch2_isEedge(41)=0 exch2_isSedge(41)=0 exch2_myFace(41)=5 exch2_mydNx(41)=510 exch2_mydNy(41)=510 exch2_nNeighbours(41)=4 exch2_neighbourId(1,41)=44 exch2_iLo(1,41)=0 exch2_iHi(1,41)=171 exch2_jLo(1,41)=171 exch2_jHi(1,41)=171 exch2_opposingSend(1,41)=2 exch2_pij(1,1,41)=1 exch2_pij(2,1,41)=0 exch2_pij(3,1,41)=0 exch2_pij(4,1,41)=1 exch2_oi(1,41)=0 exch2_oj(1,41)=0 exch2_neighbourId(2,41)=38 exch2_iLo(2,41)=0 exch2_iHi(2,41)=171 exch2_jLo(2,41)=0 exch2_jHi(2,41)=0 exch2_opposingSend(2,41)=1 exch2_pij(1,2,41)=1 exch2_pij(2,2,41)=0 exch2_pij(3,2,41)=0 exch2_pij(4,2,41)=1 exch2_oi(2,41)=0 exch2_oj(2,41)=0 exch2_neighbourId(3,41)=42 exch2_iLo(3,41)=171 exch2_iHi(3,41)=171 exch2_jLo(3,41)=0 exch2_jHi(3,41)=171 exch2_opposingSend(3,41)=4 exch2_pij(1,3,41)=1 exch2_pij(2,3,41)=0 exch2_pij(3,3,41)=0 exch2_pij(4,3,41)=1 exch2_oi(3,41)=0 exch2_oj(3,41)=0 exch2_neighbourId(4,41)=40 exch2_iLo(4,41)=0 exch2_iHi(4,41)=0 exch2_jLo(4,41)=0 exch2_jHi(4,41)=171 exch2_opposingSend(4,41)=3 exch2_pij(1,4,41)=1 exch2_pij(2,4,41)=0 exch2_pij(3,4,41)=0 exch2_pij(4,4,41)=1 exch2_oi(4,41)=0 exch2_oj(4,41)=0 RETURN END SUBROUTINE W2_E2SETUP_42 C Topology for tile 42 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(42)=170 exch2_tNy(42)=170 exch2_tBasex(42)=340 exch2_tBasey(42)=170 exch2_txGlobalo(42)=2381 exch2_tyGlobalo(42)=171 exch2_isWedge(42)=0 exch2_isNedge(42)=0 exch2_isEedge(42)=1 exch2_isSedge(42)=0 exch2_myFace(42)=5 exch2_mydNx(42)=510 exch2_mydNy(42)=510 exch2_nNeighbours(42)=4 exch2_neighbourId(1,42)=45 exch2_iLo(1,42)=0 exch2_iHi(1,42)=171 exch2_jLo(1,42)=171 exch2_jHi(1,42)=171 exch2_opposingSend(1,42)=2 exch2_pij(1,1,42)=1 exch2_pij(2,1,42)=0 exch2_pij(3,1,42)=0 exch2_pij(4,1,42)=1 exch2_oi(1,42)=0 exch2_oj(1,42)=0 exch2_neighbourId(2,42)=39 exch2_iLo(2,42)=0 exch2_iHi(2,42)=171 exch2_jLo(2,42)=0 exch2_jHi(2,42)=0 exch2_opposingSend(2,42)=1 exch2_pij(1,2,42)=1 exch2_pij(2,2,42)=0 exch2_pij(3,2,42)=0 exch2_pij(4,2,42)=1 exch2_oi(2,42)=0 exch2_oj(2,42)=0 exch2_neighbourId(3,42)=49 exch2_iLo(3,42)=171 exch2_iHi(3,42)=171 exch2_jLo(3,42)=0 exch2_jHi(3,42)=171 exch2_opposingSend(3,42)=4 exch2_pij(1,3,42)=1 exch2_pij(2,3,42)=0 exch2_pij(3,3,42)=0 exch2_pij(4,3,42)=1 exch2_oi(3,42)=510 exch2_oj(3,42)=0 exch2_neighbourId(4,42)=41 exch2_iLo(4,42)=0 exch2_iHi(4,42)=0 exch2_jLo(4,42)=0 exch2_jHi(4,42)=171 exch2_opposingSend(4,42)=3 exch2_pij(1,4,42)=1 exch2_pij(2,4,42)=0 exch2_pij(3,4,42)=0 exch2_pij(4,4,42)=1 exch2_oi(4,42)=0 exch2_oj(4,42)=0 RETURN END SUBROUTINE W2_E2SETUP_43 C Topology for tile 43 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(43)=170 exch2_tNy(43)=170 exch2_tBasex(43)=0 exch2_tBasey(43)=340 exch2_txGlobalo(43)=2041 exch2_tyGlobalo(43)=341 exch2_isWedge(43)=1 exch2_isNedge(43)=1 exch2_isEedge(43)=0 exch2_isSedge(43)=0 exch2_myFace(43)=5 exch2_mydNx(43)=510 exch2_mydNy(43)=510 exch2_nNeighbours(43)=4 exch2_neighbourId(1,43)=7 exch2_iLo(1,43)=0 exch2_iHi(1,43)=171 exch2_jLo(1,43)=171 exch2_jHi(1,43)=171 exch2_opposingSend(1,43)=4 exch2_pij(1,1,43)=0 exch2_pij(2,1,43)=-1 exch2_pij(3,1,43)=1 exch2_pij(4,1,43)=0 exch2_oi(1,43)=511 exch2_oj(1,43)=510 exch2_neighbourId(2,43)=40 exch2_iLo(2,43)=0 exch2_iHi(2,43)=171 exch2_jLo(2,43)=0 exch2_jHi(2,43)=0 exch2_opposingSend(2,43)=1 exch2_pij(1,2,43)=1 exch2_pij(2,2,43)=0 exch2_pij(3,2,43)=0 exch2_pij(4,2,43)=1 exch2_oi(2,43)=0 exch2_oj(2,43)=0 exch2_neighbourId(3,43)=44 exch2_iLo(3,43)=171 exch2_iHi(3,43)=171 exch2_jLo(3,43)=0 exch2_jHi(3,43)=171 exch2_opposingSend(3,43)=4 exch2_pij(1,3,43)=1 exch2_pij(2,3,43)=0 exch2_pij(3,3,43)=0 exch2_pij(4,3,43)=1 exch2_oi(3,43)=0 exch2_oj(3,43)=0 exch2_neighbourId(4,43)=25 exch2_iLo(4,43)=0 exch2_iHi(4,43)=0 exch2_jLo(4,43)=0 exch2_jHi(4,43)=171 exch2_opposingSend(4,43)=1 exch2_pij(1,4,43)=0 exch2_pij(2,4,43)=1 exch2_pij(3,4,43)=-1 exch2_pij(4,4,43)=0 exch2_oi(4,43)=-510 exch2_oj(4,43)=511 RETURN END SUBROUTINE W2_E2SETUP_44 C Topology for tile 44 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(44)=170 exch2_tNy(44)=170 exch2_tBasex(44)=170 exch2_tBasey(44)=340 exch2_txGlobalo(44)=2211 exch2_tyGlobalo(44)=341 exch2_isWedge(44)=0 exch2_isNedge(44)=1 exch2_isEedge(44)=0 exch2_isSedge(44)=0 exch2_myFace(44)=5 exch2_mydNx(44)=510 exch2_mydNy(44)=510 exch2_nNeighbours(44)=4 exch2_neighbourId(1,44)=4 exch2_iLo(1,44)=0 exch2_iHi(1,44)=171 exch2_jLo(1,44)=171 exch2_jHi(1,44)=171 exch2_opposingSend(1,44)=4 exch2_pij(1,1,44)=0 exch2_pij(2,1,44)=-1 exch2_pij(3,1,44)=1 exch2_pij(4,1,44)=0 exch2_oi(1,44)=511 exch2_oj(1,44)=510 exch2_neighbourId(2,44)=41 exch2_iLo(2,44)=0 exch2_iHi(2,44)=171 exch2_jLo(2,44)=0 exch2_jHi(2,44)=0 exch2_opposingSend(2,44)=1 exch2_pij(1,2,44)=1 exch2_pij(2,2,44)=0 exch2_pij(3,2,44)=0 exch2_pij(4,2,44)=1 exch2_oi(2,44)=0 exch2_oj(2,44)=0 exch2_neighbourId(3,44)=45 exch2_iLo(3,44)=171 exch2_iHi(3,44)=171 exch2_jLo(3,44)=0 exch2_jHi(3,44)=171 exch2_opposingSend(3,44)=4 exch2_pij(1,3,44)=1 exch2_pij(2,3,44)=0 exch2_pij(3,3,44)=0 exch2_pij(4,3,44)=1 exch2_oi(3,44)=0 exch2_oj(3,44)=0 exch2_neighbourId(4,44)=43 exch2_iLo(4,44)=0 exch2_iHi(4,44)=0 exch2_jLo(4,44)=0 exch2_jHi(4,44)=171 exch2_opposingSend(4,44)=3 exch2_pij(1,4,44)=1 exch2_pij(2,4,44)=0 exch2_pij(3,4,44)=0 exch2_pij(4,4,44)=1 exch2_oi(4,44)=0 exch2_oj(4,44)=0 RETURN END SUBROUTINE W2_E2SETUP_45 C Topology for tile 45 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(45)=170 exch2_tNy(45)=170 exch2_tBasex(45)=340 exch2_tBasey(45)=340 exch2_txGlobalo(45)=2381 exch2_tyGlobalo(45)=341 exch2_isWedge(45)=0 exch2_isNedge(45)=1 exch2_isEedge(45)=1 exch2_isSedge(45)=0 exch2_myFace(45)=5 exch2_mydNx(45)=510 exch2_mydNy(45)=510 exch2_nNeighbours(45)=4 exch2_neighbourId(1,45)=1 exch2_iLo(1,45)=0 exch2_iHi(1,45)=171 exch2_jLo(1,45)=171 exch2_jHi(1,45)=171 exch2_opposingSend(1,45)=4 exch2_pij(1,1,45)=0 exch2_pij(2,1,45)=-1 exch2_pij(3,1,45)=1 exch2_pij(4,1,45)=0 exch2_oi(1,45)=511 exch2_oj(1,45)=510 exch2_neighbourId(2,45)=42 exch2_iLo(2,45)=0 exch2_iHi(2,45)=171 exch2_jLo(2,45)=0 exch2_jHi(2,45)=0 exch2_opposingSend(2,45)=1 exch2_pij(1,2,45)=1 exch2_pij(2,2,45)=0 exch2_pij(3,2,45)=0 exch2_pij(4,2,45)=1 exch2_oi(2,45)=0 exch2_oj(2,45)=0 exch2_neighbourId(3,45)=52 exch2_iLo(3,45)=171 exch2_iHi(3,45)=171 exch2_jLo(3,45)=0 exch2_jHi(3,45)=171 exch2_opposingSend(3,45)=4 exch2_pij(1,3,45)=1 exch2_pij(2,3,45)=0 exch2_pij(3,3,45)=0 exch2_pij(4,3,45)=1 exch2_oi(3,45)=510 exch2_oj(3,45)=0 exch2_neighbourId(4,45)=44 exch2_iLo(4,45)=0 exch2_iHi(4,45)=0 exch2_jLo(4,45)=0 exch2_jHi(4,45)=171 exch2_opposingSend(4,45)=3 exch2_pij(1,4,45)=1 exch2_pij(2,4,45)=0 exch2_pij(3,4,45)=0 exch2_pij(4,4,45)=1 exch2_oi(4,45)=0 exch2_oj(4,45)=0 RETURN END SUBROUTINE W2_E2SETUP_46 C Topology for tile 46 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(46)=170 exch2_tNy(46)=170 exch2_tBasex(46)=0 exch2_tBasey(46)=0 exch2_txGlobalo(46)=2551 exch2_tyGlobalo(46)=1 exch2_isWedge(46)=1 exch2_isNedge(46)=0 exch2_isEedge(46)=0 exch2_isSedge(46)=1 exch2_myFace(46)=6 exch2_mydNx(46)=510 exch2_mydNy(46)=510 exch2_nNeighbours(46)=4 exch2_neighbourId(1,46)=49 exch2_iLo(1,46)=0 exch2_iHi(1,46)=171 exch2_jLo(1,46)=171 exch2_jHi(1,46)=171 exch2_opposingSend(1,46)=2 exch2_pij(1,1,46)=1 exch2_pij(2,1,46)=0 exch2_pij(3,1,46)=0 exch2_pij(4,1,46)=1 exch2_oi(1,46)=0 exch2_oj(1,46)=0 exch2_neighbourId(2,46)=36 exch2_iLo(2,46)=0 exch2_iHi(2,46)=171 exch2_jLo(2,46)=0 exch2_jHi(2,46)=0 exch2_opposingSend(2,46)=3 exch2_pij(1,2,46)=0 exch2_pij(2,2,46)=-1 exch2_pij(3,2,46)=1 exch2_pij(4,2,46)=0 exch2_oi(2,46)=511 exch2_oj(2,46)=-510 exch2_neighbourId(3,46)=47 exch2_iLo(3,46)=171 exch2_iHi(3,46)=171 exch2_jLo(3,46)=0 exch2_jHi(3,46)=171 exch2_opposingSend(3,46)=4 exch2_pij(1,3,46)=1 exch2_pij(2,3,46)=0 exch2_pij(3,3,46)=0 exch2_pij(4,3,46)=1 exch2_oi(3,46)=0 exch2_oj(3,46)=0 exch2_neighbourId(4,46)=39 exch2_iLo(4,46)=0 exch2_iHi(4,46)=0 exch2_jLo(4,46)=0 exch2_jHi(4,46)=171 exch2_opposingSend(4,46)=3 exch2_pij(1,4,46)=1 exch2_pij(2,4,46)=0 exch2_pij(3,4,46)=0 exch2_pij(4,4,46)=1 exch2_oi(4,46)=-510 exch2_oj(4,46)=0 RETURN END SUBROUTINE W2_E2SETUP_47 C Topology for tile 47 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(47)=170 exch2_tNy(47)=170 exch2_tBasex(47)=170 exch2_tBasey(47)=0 exch2_txGlobalo(47)=2721 exch2_tyGlobalo(47)=1 exch2_isWedge(47)=0 exch2_isNedge(47)=0 exch2_isEedge(47)=0 exch2_isSedge(47)=1 exch2_myFace(47)=6 exch2_mydNx(47)=510 exch2_mydNy(47)=510 exch2_nNeighbours(47)=4 exch2_neighbourId(1,47)=50 exch2_iLo(1,47)=0 exch2_iHi(1,47)=171 exch2_jLo(1,47)=171 exch2_jHi(1,47)=171 exch2_opposingSend(1,47)=2 exch2_pij(1,1,47)=1 exch2_pij(2,1,47)=0 exch2_pij(3,1,47)=0 exch2_pij(4,1,47)=1 exch2_oi(1,47)=0 exch2_oj(1,47)=0 exch2_neighbourId(2,47)=33 exch2_iLo(2,47)=0 exch2_iHi(2,47)=171 exch2_jLo(2,47)=0 exch2_jHi(2,47)=0 exch2_opposingSend(2,47)=3 exch2_pij(1,2,47)=0 exch2_pij(2,2,47)=-1 exch2_pij(3,2,47)=1 exch2_pij(4,2,47)=0 exch2_oi(2,47)=511 exch2_oj(2,47)=-510 exch2_neighbourId(3,47)=48 exch2_iLo(3,47)=171 exch2_iHi(3,47)=171 exch2_jLo(3,47)=0 exch2_jHi(3,47)=171 exch2_opposingSend(3,47)=4 exch2_pij(1,3,47)=1 exch2_pij(2,3,47)=0 exch2_pij(3,3,47)=0 exch2_pij(4,3,47)=1 exch2_oi(3,47)=0 exch2_oj(3,47)=0 exch2_neighbourId(4,47)=46 exch2_iLo(4,47)=0 exch2_iHi(4,47)=0 exch2_jLo(4,47)=0 exch2_jHi(4,47)=171 exch2_opposingSend(4,47)=3 exch2_pij(1,4,47)=1 exch2_pij(2,4,47)=0 exch2_pij(3,4,47)=0 exch2_pij(4,4,47)=1 exch2_oi(4,47)=0 exch2_oj(4,47)=0 RETURN END SUBROUTINE W2_E2SETUP_48 C Topology for tile 48 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(48)=170 exch2_tNy(48)=170 exch2_tBasex(48)=340 exch2_tBasey(48)=0 exch2_txGlobalo(48)=2891 exch2_tyGlobalo(48)=1 exch2_isWedge(48)=0 exch2_isNedge(48)=0 exch2_isEedge(48)=1 exch2_isSedge(48)=1 exch2_myFace(48)=6 exch2_mydNx(48)=510 exch2_mydNy(48)=510 exch2_nNeighbours(48)=4 exch2_neighbourId(1,48)=51 exch2_iLo(1,48)=0 exch2_iHi(1,48)=171 exch2_jLo(1,48)=171 exch2_jHi(1,48)=171 exch2_opposingSend(1,48)=2 exch2_pij(1,1,48)=1 exch2_pij(2,1,48)=0 exch2_pij(3,1,48)=0 exch2_pij(4,1,48)=1 exch2_oi(1,48)=0 exch2_oj(1,48)=0 exch2_neighbourId(2,48)=30 exch2_iLo(2,48)=0 exch2_iHi(2,48)=171 exch2_jLo(2,48)=0 exch2_jHi(2,48)=0 exch2_opposingSend(2,48)=3 exch2_pij(1,2,48)=0 exch2_pij(2,2,48)=-1 exch2_pij(3,2,48)=1 exch2_pij(4,2,48)=0 exch2_oi(2,48)=511 exch2_oj(2,48)=-510 exch2_neighbourId(3,48)=12 exch2_iLo(3,48)=171 exch2_iHi(3,48)=171 exch2_jLo(3,48)=0 exch2_jHi(3,48)=171 exch2_opposingSend(3,48)=2 exch2_pij(1,3,48)=0 exch2_pij(2,3,48)=1 exch2_pij(3,3,48)=-1 exch2_pij(4,3,48)=0 exch2_oi(3,48)=510 exch2_oj(3,48)=511 exch2_neighbourId(4,48)=47 exch2_iLo(4,48)=0 exch2_iHi(4,48)=0 exch2_jLo(4,48)=0 exch2_jHi(4,48)=171 exch2_opposingSend(4,48)=3 exch2_pij(1,4,48)=1 exch2_pij(2,4,48)=0 exch2_pij(3,4,48)=0 exch2_pij(4,4,48)=1 exch2_oi(4,48)=0 exch2_oj(4,48)=0 RETURN END SUBROUTINE W2_E2SETUP_49 C Topology for tile 49 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(49)=170 exch2_tNy(49)=170 exch2_tBasex(49)=0 exch2_tBasey(49)=170 exch2_txGlobalo(49)=2551 exch2_tyGlobalo(49)=171 exch2_isWedge(49)=1 exch2_isNedge(49)=0 exch2_isEedge(49)=0 exch2_isSedge(49)=0 exch2_myFace(49)=6 exch2_mydNx(49)=510 exch2_mydNy(49)=510 exch2_nNeighbours(49)=4 exch2_neighbourId(1,49)=52 exch2_iLo(1,49)=0 exch2_iHi(1,49)=171 exch2_jLo(1,49)=171 exch2_jHi(1,49)=171 exch2_opposingSend(1,49)=2 exch2_pij(1,1,49)=1 exch2_pij(2,1,49)=0 exch2_pij(3,1,49)=0 exch2_pij(4,1,49)=1 exch2_oi(1,49)=0 exch2_oj(1,49)=0 exch2_neighbourId(2,49)=46 exch2_iLo(2,49)=0 exch2_iHi(2,49)=171 exch2_jLo(2,49)=0 exch2_jHi(2,49)=0 exch2_opposingSend(2,49)=1 exch2_pij(1,2,49)=1 exch2_pij(2,2,49)=0 exch2_pij(3,2,49)=0 exch2_pij(4,2,49)=1 exch2_oi(2,49)=0 exch2_oj(2,49)=0 exch2_neighbourId(3,49)=50 exch2_iLo(3,49)=171 exch2_iHi(3,49)=171 exch2_jLo(3,49)=0 exch2_jHi(3,49)=171 exch2_opposingSend(3,49)=4 exch2_pij(1,3,49)=1 exch2_pij(2,3,49)=0 exch2_pij(3,3,49)=0 exch2_pij(4,3,49)=1 exch2_oi(3,49)=0 exch2_oj(3,49)=0 exch2_neighbourId(4,49)=42 exch2_iLo(4,49)=0 exch2_iHi(4,49)=0 exch2_jLo(4,49)=0 exch2_jHi(4,49)=171 exch2_opposingSend(4,49)=3 exch2_pij(1,4,49)=1 exch2_pij(2,4,49)=0 exch2_pij(3,4,49)=0 exch2_pij(4,4,49)=1 exch2_oi(4,49)=-510 exch2_oj(4,49)=0 RETURN END SUBROUTINE W2_E2SETUP_50 C Topology for tile 50 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(50)=170 exch2_tNy(50)=170 exch2_tBasex(50)=170 exch2_tBasey(50)=170 exch2_txGlobalo(50)=2721 exch2_tyGlobalo(50)=171 exch2_isWedge(50)=0 exch2_isNedge(50)=0 exch2_isEedge(50)=0 exch2_isSedge(50)=0 exch2_myFace(50)=6 exch2_mydNx(50)=510 exch2_mydNy(50)=510 exch2_nNeighbours(50)=4 exch2_neighbourId(1,50)=53 exch2_iLo(1,50)=0 exch2_iHi(1,50)=171 exch2_jLo(1,50)=171 exch2_jHi(1,50)=171 exch2_opposingSend(1,50)=2 exch2_pij(1,1,50)=1 exch2_pij(2,1,50)=0 exch2_pij(3,1,50)=0 exch2_pij(4,1,50)=1 exch2_oi(1,50)=0 exch2_oj(1,50)=0 exch2_neighbourId(2,50)=47 exch2_iLo(2,50)=0 exch2_iHi(2,50)=171 exch2_jLo(2,50)=0 exch2_jHi(2,50)=0 exch2_opposingSend(2,50)=1 exch2_pij(1,2,50)=1 exch2_pij(2,2,50)=0 exch2_pij(3,2,50)=0 exch2_pij(4,2,50)=1 exch2_oi(2,50)=0 exch2_oj(2,50)=0 exch2_neighbourId(3,50)=51 exch2_iLo(3,50)=171 exch2_iHi(3,50)=171 exch2_jLo(3,50)=0 exch2_jHi(3,50)=171 exch2_opposingSend(3,50)=4 exch2_pij(1,3,50)=1 exch2_pij(2,3,50)=0 exch2_pij(3,3,50)=0 exch2_pij(4,3,50)=1 exch2_oi(3,50)=0 exch2_oj(3,50)=0 exch2_neighbourId(4,50)=49 exch2_iLo(4,50)=0 exch2_iHi(4,50)=0 exch2_jLo(4,50)=0 exch2_jHi(4,50)=171 exch2_opposingSend(4,50)=3 exch2_pij(1,4,50)=1 exch2_pij(2,4,50)=0 exch2_pij(3,4,50)=0 exch2_pij(4,4,50)=1 exch2_oi(4,50)=0 exch2_oj(4,50)=0 RETURN END SUBROUTINE W2_E2SETUP_51 C Topology for tile 51 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(51)=170 exch2_tNy(51)=170 exch2_tBasex(51)=340 exch2_tBasey(51)=170 exch2_txGlobalo(51)=2891 exch2_tyGlobalo(51)=171 exch2_isWedge(51)=0 exch2_isNedge(51)=0 exch2_isEedge(51)=1 exch2_isSedge(51)=0 exch2_myFace(51)=6 exch2_mydNx(51)=510 exch2_mydNy(51)=510 exch2_nNeighbours(51)=4 exch2_neighbourId(1,51)=54 exch2_iLo(1,51)=0 exch2_iHi(1,51)=171 exch2_jLo(1,51)=171 exch2_jHi(1,51)=171 exch2_opposingSend(1,51)=2 exch2_pij(1,1,51)=1 exch2_pij(2,1,51)=0 exch2_pij(3,1,51)=0 exch2_pij(4,1,51)=1 exch2_oi(1,51)=0 exch2_oj(1,51)=0 exch2_neighbourId(2,51)=48 exch2_iLo(2,51)=0 exch2_iHi(2,51)=171 exch2_jLo(2,51)=0 exch2_jHi(2,51)=0 exch2_opposingSend(2,51)=1 exch2_pij(1,2,51)=1 exch2_pij(2,2,51)=0 exch2_pij(3,2,51)=0 exch2_pij(4,2,51)=1 exch2_oi(2,51)=0 exch2_oj(2,51)=0 exch2_neighbourId(3,51)=11 exch2_iLo(3,51)=171 exch2_iHi(3,51)=171 exch2_jLo(3,51)=0 exch2_jHi(3,51)=171 exch2_opposingSend(3,51)=2 exch2_pij(1,3,51)=0 exch2_pij(2,3,51)=1 exch2_pij(3,3,51)=-1 exch2_pij(4,3,51)=0 exch2_oi(3,51)=510 exch2_oj(3,51)=511 exch2_neighbourId(4,51)=50 exch2_iLo(4,51)=0 exch2_iHi(4,51)=0 exch2_jLo(4,51)=0 exch2_jHi(4,51)=171 exch2_opposingSend(4,51)=3 exch2_pij(1,4,51)=1 exch2_pij(2,4,51)=0 exch2_pij(3,4,51)=0 exch2_pij(4,4,51)=1 exch2_oi(4,51)=0 exch2_oj(4,51)=0 RETURN END SUBROUTINE W2_E2SETUP_52 C Topology for tile 52 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(52)=170 exch2_tNy(52)=170 exch2_tBasex(52)=0 exch2_tBasey(52)=340 exch2_txGlobalo(52)=2551 exch2_tyGlobalo(52)=341 exch2_isWedge(52)=1 exch2_isNedge(52)=1 exch2_isEedge(52)=0 exch2_isSedge(52)=0 exch2_myFace(52)=6 exch2_mydNx(52)=510 exch2_mydNy(52)=510 exch2_nNeighbours(52)=4 exch2_neighbourId(1,52)=1 exch2_iLo(1,52)=0 exch2_iHi(1,52)=171 exch2_jLo(1,52)=171 exch2_jHi(1,52)=171 exch2_opposingSend(1,52)=2 exch2_pij(1,1,52)=1 exch2_pij(2,1,52)=0 exch2_pij(3,1,52)=0 exch2_pij(4,1,52)=1 exch2_oi(1,52)=0 exch2_oj(1,52)=510 exch2_neighbourId(2,52)=49 exch2_iLo(2,52)=0 exch2_iHi(2,52)=171 exch2_jLo(2,52)=0 exch2_jHi(2,52)=0 exch2_opposingSend(2,52)=1 exch2_pij(1,2,52)=1 exch2_pij(2,2,52)=0 exch2_pij(3,2,52)=0 exch2_pij(4,2,52)=1 exch2_oi(2,52)=0 exch2_oj(2,52)=0 exch2_neighbourId(3,52)=53 exch2_iLo(3,52)=171 exch2_iHi(3,52)=171 exch2_jLo(3,52)=0 exch2_jHi(3,52)=171 exch2_opposingSend(3,52)=4 exch2_pij(1,3,52)=1 exch2_pij(2,3,52)=0 exch2_pij(3,3,52)=0 exch2_pij(4,3,52)=1 exch2_oi(3,52)=0 exch2_oj(3,52)=0 exch2_neighbourId(4,52)=45 exch2_iLo(4,52)=0 exch2_iHi(4,52)=0 exch2_jLo(4,52)=0 exch2_jHi(4,52)=171 exch2_opposingSend(4,52)=3 exch2_pij(1,4,52)=1 exch2_pij(2,4,52)=0 exch2_pij(3,4,52)=0 exch2_pij(4,4,52)=1 exch2_oi(4,52)=-510 exch2_oj(4,52)=0 RETURN END SUBROUTINE W2_E2SETUP_53 C Topology for tile 53 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(53)=170 exch2_tNy(53)=170 exch2_tBasex(53)=170 exch2_tBasey(53)=340 exch2_txGlobalo(53)=2721 exch2_tyGlobalo(53)=341 exch2_isWedge(53)=0 exch2_isNedge(53)=1 exch2_isEedge(53)=0 exch2_isSedge(53)=0 exch2_myFace(53)=6 exch2_mydNx(53)=510 exch2_mydNy(53)=510 exch2_nNeighbours(53)=4 exch2_neighbourId(1,53)=2 exch2_iLo(1,53)=0 exch2_iHi(1,53)=171 exch2_jLo(1,53)=171 exch2_jHi(1,53)=171 exch2_opposingSend(1,53)=2 exch2_pij(1,1,53)=1 exch2_pij(2,1,53)=0 exch2_pij(3,1,53)=0 exch2_pij(4,1,53)=1 exch2_oi(1,53)=0 exch2_oj(1,53)=510 exch2_neighbourId(2,53)=50 exch2_iLo(2,53)=0 exch2_iHi(2,53)=171 exch2_jLo(2,53)=0 exch2_jHi(2,53)=0 exch2_opposingSend(2,53)=1 exch2_pij(1,2,53)=1 exch2_pij(2,2,53)=0 exch2_pij(3,2,53)=0 exch2_pij(4,2,53)=1 exch2_oi(2,53)=0 exch2_oj(2,53)=0 exch2_neighbourId(3,53)=54 exch2_iLo(3,53)=171 exch2_iHi(3,53)=171 exch2_jLo(3,53)=0 exch2_jHi(3,53)=171 exch2_opposingSend(3,53)=4 exch2_pij(1,3,53)=1 exch2_pij(2,3,53)=0 exch2_pij(3,3,53)=0 exch2_pij(4,3,53)=1 exch2_oi(3,53)=0 exch2_oj(3,53)=0 exch2_neighbourId(4,53)=52 exch2_iLo(4,53)=0 exch2_iHi(4,53)=0 exch2_jLo(4,53)=0 exch2_jHi(4,53)=171 exch2_opposingSend(4,53)=3 exch2_pij(1,4,53)=1 exch2_pij(2,4,53)=0 exch2_pij(3,4,53)=0 exch2_pij(4,4,53)=1 exch2_oi(4,53)=0 exch2_oj(4,53)=0 RETURN END SUBROUTINE W2_E2SETUP_54 C Topology for tile 54 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(54)=170 exch2_tNy(54)=170 exch2_tBasex(54)=340 exch2_tBasey(54)=340 exch2_txGlobalo(54)=2891 exch2_tyGlobalo(54)=341 exch2_isWedge(54)=0 exch2_isNedge(54)=1 exch2_isEedge(54)=1 exch2_isSedge(54)=0 exch2_myFace(54)=6 exch2_mydNx(54)=510 exch2_mydNy(54)=510 exch2_nNeighbours(54)=4 exch2_neighbourId(1,54)=3 exch2_iLo(1,54)=0 exch2_iHi(1,54)=171 exch2_jLo(1,54)=171 exch2_jHi(1,54)=171 exch2_opposingSend(1,54)=2 exch2_pij(1,1,54)=1 exch2_pij(2,1,54)=0 exch2_pij(3,1,54)=0 exch2_pij(4,1,54)=1 exch2_oi(1,54)=0 exch2_oj(1,54)=510 exch2_neighbourId(2,54)=51 exch2_iLo(2,54)=0 exch2_iHi(2,54)=171 exch2_jLo(2,54)=0 exch2_jHi(2,54)=0 exch2_opposingSend(2,54)=1 exch2_pij(1,2,54)=1 exch2_pij(2,2,54)=0 exch2_pij(3,2,54)=0 exch2_pij(4,2,54)=1 exch2_oi(2,54)=0 exch2_oj(2,54)=0 exch2_neighbourId(3,54)=10 exch2_iLo(3,54)=171 exch2_iHi(3,54)=171 exch2_jLo(3,54)=0 exch2_jHi(3,54)=171 exch2_opposingSend(3,54)=2 exch2_pij(1,3,54)=0 exch2_pij(2,3,54)=1 exch2_pij(3,3,54)=-1 exch2_pij(4,3,54)=0 exch2_oi(3,54)=510 exch2_oj(3,54)=511 exch2_neighbourId(4,54)=53 exch2_iLo(4,54)=0 exch2_iHi(4,54)=0 exch2_jLo(4,54)=0 exch2_jHi(4,54)=171 exch2_opposingSend(4,54)=3 exch2_pij(1,4,54)=1 exch2_pij(2,4,54)=0 exch2_pij(3,4,54)=0 exch2_pij(4,4,54)=1 exch2_oi(4,54)=0 exch2_oj(4,54)=0 RETURN END