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 CALL W2_E2SETUP_55 CALL W2_E2SETUP_56 CALL W2_E2SETUP_57 CALL W2_E2SETUP_58 CALL W2_E2SETUP_59 CALL W2_E2SETUP_60 RETURN END SUBROUTINE W2_E2SETUP_1 C Topology for tile 1 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(1)=51 exch2_tNy(1)=510 exch2_tBasex(1)=0 exch2_tBasey(1)=0 exch2_txGlobalo(1)=1 exch2_tyGlobalo(1)=1 exch2_isWedge(1)=1 exch2_isNedge(1)=1 exch2_isEedge(1)=0 exch2_isSedge(1)=1 exch2_myFace(1)=1 exch2_mydNx(1)=510 exch2_mydNy(1)=510 exch2_nNeighbours(1)=13 exch2_neighbourId(1,1)=21 exch2_iLo(1,1)=0 exch2_iHi(1,1)=52 exch2_jLo(1,1)=511 exch2_jHi(1,1)=511 exch2_opposingSend(1,1)=4 exch2_pij(1,1,1)=0 exch2_pij(2,1,1)=-1 exch2_pij(3,1,1)=1 exch2_pij(4,1,1)=0 exch2_oi(1,1)=511 exch2_oj(1,1)=510 exch2_neighbourId(2,1)=51 exch2_iLo(2,1)=0 exch2_iHi(2,1)=52 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)=52 exch2_iHi(3,1)=52 exch2_jLo(3,1)=0 exch2_jHi(3,1)=511 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)=41 exch2_iLo(4,1)=0 exch2_iHi(4,1)=0 exch2_jLo(4,1)=459 exch2_jHi(4,1)=511 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 exch2_neighbourId(5,1)=42 exch2_iLo(5,1)=0 exch2_iHi(5,1)=0 exch2_jLo(5,1)=408 exch2_jHi(5,1)=460 exch2_opposingSend(5,1)=1 exch2_pij(1,5,1)=0 exch2_pij(2,5,1)=1 exch2_pij(3,5,1)=-1 exch2_pij(4,5,1)=0 exch2_oi(5,1)=-510 exch2_oj(5,1)=511 exch2_neighbourId(6,1)=43 exch2_iLo(6,1)=0 exch2_iHi(6,1)=0 exch2_jLo(6,1)=357 exch2_jHi(6,1)=409 exch2_opposingSend(6,1)=1 exch2_pij(1,6,1)=0 exch2_pij(2,6,1)=1 exch2_pij(3,6,1)=-1 exch2_pij(4,6,1)=0 exch2_oi(6,1)=-510 exch2_oj(6,1)=511 exch2_neighbourId(7,1)=44 exch2_iLo(7,1)=0 exch2_iHi(7,1)=0 exch2_jLo(7,1)=306 exch2_jHi(7,1)=358 exch2_opposingSend(7,1)=1 exch2_pij(1,7,1)=0 exch2_pij(2,7,1)=1 exch2_pij(3,7,1)=-1 exch2_pij(4,7,1)=0 exch2_oi(7,1)=-510 exch2_oj(7,1)=511 exch2_neighbourId(8,1)=45 exch2_iLo(8,1)=0 exch2_iHi(8,1)=0 exch2_jLo(8,1)=255 exch2_jHi(8,1)=307 exch2_opposingSend(8,1)=1 exch2_pij(1,8,1)=0 exch2_pij(2,8,1)=1 exch2_pij(3,8,1)=-1 exch2_pij(4,8,1)=0 exch2_oi(8,1)=-510 exch2_oj(8,1)=511 exch2_neighbourId(9,1)=46 exch2_iLo(9,1)=0 exch2_iHi(9,1)=0 exch2_jLo(9,1)=204 exch2_jHi(9,1)=256 exch2_opposingSend(9,1)=1 exch2_pij(1,9,1)=0 exch2_pij(2,9,1)=1 exch2_pij(3,9,1)=-1 exch2_pij(4,9,1)=0 exch2_oi(9,1)=-510 exch2_oj(9,1)=511 exch2_neighbourId(10,1)=47 exch2_iLo(10,1)=0 exch2_iHi(10,1)=0 exch2_jLo(10,1)=153 exch2_jHi(10,1)=205 exch2_opposingSend(10,1)=1 exch2_pij(1,10,1)=0 exch2_pij(2,10,1)=1 exch2_pij(3,10,1)=-1 exch2_pij(4,10,1)=0 exch2_oi(10,1)=-510 exch2_oj(10,1)=511 exch2_neighbourId(11,1)=48 exch2_iLo(11,1)=0 exch2_iHi(11,1)=0 exch2_jLo(11,1)=102 exch2_jHi(11,1)=154 exch2_opposingSend(11,1)=1 exch2_pij(1,11,1)=0 exch2_pij(2,11,1)=1 exch2_pij(3,11,1)=-1 exch2_pij(4,11,1)=0 exch2_oi(11,1)=-510 exch2_oj(11,1)=511 exch2_neighbourId(12,1)=49 exch2_iLo(12,1)=0 exch2_iHi(12,1)=0 exch2_jLo(12,1)=51 exch2_jHi(12,1)=103 exch2_opposingSend(12,1)=1 exch2_pij(1,12,1)=0 exch2_pij(2,12,1)=1 exch2_pij(3,12,1)=-1 exch2_pij(4,12,1)=0 exch2_oi(12,1)=-510 exch2_oj(12,1)=511 exch2_neighbourId(13,1)=50 exch2_iLo(13,1)=0 exch2_iHi(13,1)=0 exch2_jLo(13,1)=0 exch2_jHi(13,1)=52 exch2_opposingSend(13,1)=1 exch2_pij(1,13,1)=0 exch2_pij(2,13,1)=1 exch2_pij(3,13,1)=-1 exch2_pij(4,13,1)=0 exch2_oi(13,1)=-510 exch2_oj(13,1)=511 RETURN END SUBROUTINE W2_E2SETUP_2 C Topology for tile 2 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(2)=51 exch2_tNy(2)=510 exch2_tBasex(2)=51 exch2_tBasey(2)=0 exch2_txGlobalo(2)=52 exch2_tyGlobalo(2)=1 exch2_isWedge(2)=0 exch2_isNedge(2)=1 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)=21 exch2_iLo(1,2)=0 exch2_iHi(1,2)=52 exch2_jLo(1,2)=511 exch2_jHi(1,2)=511 exch2_opposingSend(1,2)=5 exch2_pij(1,1,2)=0 exch2_pij(2,1,2)=-1 exch2_pij(3,1,2)=1 exch2_pij(4,1,2)=0 exch2_oi(1,2)=511 exch2_oj(1,2)=510 exch2_neighbourId(2,2)=52 exch2_iLo(2,2)=0 exch2_iHi(2,2)=52 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)=52 exch2_iHi(3,2)=52 exch2_jLo(3,2)=0 exch2_jHi(3,2)=511 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)=511 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)=51 exch2_tNy(3)=510 exch2_tBasex(3)=102 exch2_tBasey(3)=0 exch2_txGlobalo(3)=103 exch2_tyGlobalo(3)=1 exch2_isWedge(3)=0 exch2_isNedge(3)=1 exch2_isEedge(3)=0 exch2_isSedge(3)=1 exch2_myFace(3)=1 exch2_mydNx(3)=510 exch2_mydNy(3)=510 exch2_nNeighbours(3)=4 exch2_neighbourId(1,3)=21 exch2_iLo(1,3)=0 exch2_iHi(1,3)=52 exch2_jLo(1,3)=511 exch2_jHi(1,3)=511 exch2_opposingSend(1,3)=6 exch2_pij(1,1,3)=0 exch2_pij(2,1,3)=-1 exch2_pij(3,1,3)=1 exch2_pij(4,1,3)=0 exch2_oi(1,3)=511 exch2_oj(1,3)=510 exch2_neighbourId(2,3)=53 exch2_iLo(2,3)=0 exch2_iHi(2,3)=52 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)=4 exch2_iLo(3,3)=52 exch2_iHi(3,3)=52 exch2_jLo(3,3)=0 exch2_jHi(3,3)=511 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)=0 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)=511 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)=51 exch2_tNy(4)=510 exch2_tBasex(4)=153 exch2_tBasey(4)=0 exch2_txGlobalo(4)=154 exch2_tyGlobalo(4)=1 exch2_isWedge(4)=0 exch2_isNedge(4)=1 exch2_isEedge(4)=0 exch2_isSedge(4)=1 exch2_myFace(4)=1 exch2_mydNx(4)=510 exch2_mydNy(4)=510 exch2_nNeighbours(4)=4 exch2_neighbourId(1,4)=21 exch2_iLo(1,4)=0 exch2_iHi(1,4)=52 exch2_jLo(1,4)=511 exch2_jHi(1,4)=511 exch2_opposingSend(1,4)=7 exch2_pij(1,1,4)=0 exch2_pij(2,1,4)=-1 exch2_pij(3,1,4)=1 exch2_pij(4,1,4)=0 exch2_oi(1,4)=511 exch2_oj(1,4)=510 exch2_neighbourId(2,4)=54 exch2_iLo(2,4)=0 exch2_iHi(2,4)=52 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)=-510 exch2_neighbourId(3,4)=5 exch2_iLo(3,4)=52 exch2_iHi(3,4)=52 exch2_jLo(3,4)=0 exch2_jHi(3,4)=511 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)=3 exch2_iLo(4,4)=0 exch2_iHi(4,4)=0 exch2_jLo(4,4)=0 exch2_jHi(4,4)=511 exch2_opposingSend(4,4)=3 exch2_pij(1,4,4)=1 exch2_pij(2,4,4)=0 exch2_pij(3,4,4)=0 exch2_pij(4,4,4)=1 exch2_oi(4,4)=0 exch2_oj(4,4)=0 RETURN END SUBROUTINE W2_E2SETUP_5 C Topology for tile 5 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(5)=51 exch2_tNy(5)=510 exch2_tBasex(5)=204 exch2_tBasey(5)=0 exch2_txGlobalo(5)=205 exch2_tyGlobalo(5)=1 exch2_isWedge(5)=0 exch2_isNedge(5)=1 exch2_isEedge(5)=0 exch2_isSedge(5)=1 exch2_myFace(5)=1 exch2_mydNx(5)=510 exch2_mydNy(5)=510 exch2_nNeighbours(5)=4 exch2_neighbourId(1,5)=21 exch2_iLo(1,5)=0 exch2_iHi(1,5)=52 exch2_jLo(1,5)=511 exch2_jHi(1,5)=511 exch2_opposingSend(1,5)=8 exch2_pij(1,1,5)=0 exch2_pij(2,1,5)=-1 exch2_pij(3,1,5)=1 exch2_pij(4,1,5)=0 exch2_oi(1,5)=511 exch2_oj(1,5)=510 exch2_neighbourId(2,5)=55 exch2_iLo(2,5)=0 exch2_iHi(2,5)=52 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)=-510 exch2_neighbourId(3,5)=6 exch2_iLo(3,5)=52 exch2_iHi(3,5)=52 exch2_jLo(3,5)=0 exch2_jHi(3,5)=511 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)=511 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)=51 exch2_tNy(6)=510 exch2_tBasex(6)=255 exch2_tBasey(6)=0 exch2_txGlobalo(6)=256 exch2_tyGlobalo(6)=1 exch2_isWedge(6)=0 exch2_isNedge(6)=1 exch2_isEedge(6)=0 exch2_isSedge(6)=1 exch2_myFace(6)=1 exch2_mydNx(6)=510 exch2_mydNy(6)=510 exch2_nNeighbours(6)=4 exch2_neighbourId(1,6)=21 exch2_iLo(1,6)=0 exch2_iHi(1,6)=52 exch2_jLo(1,6)=511 exch2_jHi(1,6)=511 exch2_opposingSend(1,6)=9 exch2_pij(1,1,6)=0 exch2_pij(2,1,6)=-1 exch2_pij(3,1,6)=1 exch2_pij(4,1,6)=0 exch2_oi(1,6)=511 exch2_oj(1,6)=510 exch2_neighbourId(2,6)=56 exch2_iLo(2,6)=0 exch2_iHi(2,6)=52 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)=-510 exch2_neighbourId(3,6)=7 exch2_iLo(3,6)=52 exch2_iHi(3,6)=52 exch2_jLo(3,6)=0 exch2_jHi(3,6)=511 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)=0 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)=511 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)=51 exch2_tNy(7)=510 exch2_tBasex(7)=306 exch2_tBasey(7)=0 exch2_txGlobalo(7)=307 exch2_tyGlobalo(7)=1 exch2_isWedge(7)=0 exch2_isNedge(7)=1 exch2_isEedge(7)=0 exch2_isSedge(7)=1 exch2_myFace(7)=1 exch2_mydNx(7)=510 exch2_mydNy(7)=510 exch2_nNeighbours(7)=4 exch2_neighbourId(1,7)=21 exch2_iLo(1,7)=0 exch2_iHi(1,7)=52 exch2_jLo(1,7)=511 exch2_jHi(1,7)=511 exch2_opposingSend(1,7)=10 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)=57 exch2_iLo(2,7)=0 exch2_iHi(2,7)=52 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)=-510 exch2_neighbourId(3,7)=8 exch2_iLo(3,7)=52 exch2_iHi(3,7)=52 exch2_jLo(3,7)=0 exch2_jHi(3,7)=511 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)=6 exch2_iLo(4,7)=0 exch2_iHi(4,7)=0 exch2_jLo(4,7)=0 exch2_jHi(4,7)=511 exch2_opposingSend(4,7)=3 exch2_pij(1,4,7)=1 exch2_pij(2,4,7)=0 exch2_pij(3,4,7)=0 exch2_pij(4,4,7)=1 exch2_oi(4,7)=0 exch2_oj(4,7)=0 RETURN END SUBROUTINE W2_E2SETUP_8 C Topology for tile 8 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(8)=51 exch2_tNy(8)=510 exch2_tBasex(8)=357 exch2_tBasey(8)=0 exch2_txGlobalo(8)=358 exch2_tyGlobalo(8)=1 exch2_isWedge(8)=0 exch2_isNedge(8)=1 exch2_isEedge(8)=0 exch2_isSedge(8)=1 exch2_myFace(8)=1 exch2_mydNx(8)=510 exch2_mydNy(8)=510 exch2_nNeighbours(8)=4 exch2_neighbourId(1,8)=21 exch2_iLo(1,8)=0 exch2_iHi(1,8)=52 exch2_jLo(1,8)=511 exch2_jHi(1,8)=511 exch2_opposingSend(1,8)=11 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)=58 exch2_iLo(2,8)=0 exch2_iHi(2,8)=52 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)=-510 exch2_neighbourId(3,8)=9 exch2_iLo(3,8)=52 exch2_iHi(3,8)=52 exch2_jLo(3,8)=0 exch2_jHi(3,8)=511 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)=511 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)=51 exch2_tNy(9)=510 exch2_tBasex(9)=408 exch2_tBasey(9)=0 exch2_txGlobalo(9)=409 exch2_tyGlobalo(9)=1 exch2_isWedge(9)=0 exch2_isNedge(9)=1 exch2_isEedge(9)=0 exch2_isSedge(9)=1 exch2_myFace(9)=1 exch2_mydNx(9)=510 exch2_mydNy(9)=510 exch2_nNeighbours(9)=4 exch2_neighbourId(1,9)=21 exch2_iLo(1,9)=0 exch2_iHi(1,9)=52 exch2_jLo(1,9)=511 exch2_jHi(1,9)=511 exch2_opposingSend(1,9)=12 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)=59 exch2_iLo(2,9)=0 exch2_iHi(2,9)=52 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)=-510 exch2_neighbourId(3,9)=10 exch2_iLo(3,9)=52 exch2_iHi(3,9)=52 exch2_jLo(3,9)=0 exch2_jHi(3,9)=511 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)=0 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)=511 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)=51 exch2_tNy(10)=510 exch2_tBasex(10)=459 exch2_tBasey(10)=0 exch2_txGlobalo(10)=460 exch2_tyGlobalo(10)=1 exch2_isWedge(10)=0 exch2_isNedge(10)=1 exch2_isEedge(10)=1 exch2_isSedge(10)=1 exch2_myFace(10)=1 exch2_mydNx(10)=510 exch2_mydNy(10)=510 exch2_nNeighbours(10)=4 exch2_neighbourId(1,10)=21 exch2_iLo(1,10)=0 exch2_iHi(1,10)=52 exch2_jLo(1,10)=511 exch2_jHi(1,10)=511 exch2_opposingSend(1,10)=13 exch2_pij(1,1,10)=0 exch2_pij(2,1,10)=-1 exch2_pij(3,1,10)=1 exch2_pij(4,1,10)=0 exch2_oi(1,10)=511 exch2_oj(1,10)=510 exch2_neighbourId(2,10)=60 exch2_iLo(2,10)=0 exch2_iHi(2,10)=52 exch2_jLo(2,10)=0 exch2_jHi(2,10)=0 exch2_opposingSend(2,10)=1 exch2_pij(1,2,10)=1 exch2_pij(2,2,10)=0 exch2_pij(3,2,10)=0 exch2_pij(4,2,10)=1 exch2_oi(2,10)=0 exch2_oj(2,10)=-510 exch2_neighbourId(3,10)=11 exch2_iLo(3,10)=52 exch2_iHi(3,10)=52 exch2_jLo(3,10)=0 exch2_jHi(3,10)=511 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)=510 exch2_oj(3,10)=0 exch2_neighbourId(4,10)=9 exch2_iLo(4,10)=0 exch2_iHi(4,10)=0 exch2_jLo(4,10)=0 exch2_jHi(4,10)=511 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)=0 exch2_oj(4,10)=0 RETURN END SUBROUTINE W2_E2SETUP_11 C Topology for tile 11 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(11)=51 exch2_tNy(11)=510 exch2_tBasex(11)=0 exch2_tBasey(11)=0 exch2_txGlobalo(11)=511 exch2_tyGlobalo(11)=1 exch2_isWedge(11)=1 exch2_isNedge(11)=1 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)=21 exch2_iLo(1,11)=0 exch2_iHi(1,11)=52 exch2_jLo(1,11)=511 exch2_jHi(1,11)=511 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)=510 exch2_neighbourId(2,11)=60 exch2_iLo(2,11)=0 exch2_iHi(2,11)=52 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)=52 exch2_iHi(3,11)=52 exch2_jLo(3,11)=0 exch2_jHi(3,11)=511 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)=511 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)=-510 exch2_oj(4,11)=0 RETURN END SUBROUTINE W2_E2SETUP_12 C Topology for tile 12 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(12)=51 exch2_tNy(12)=510 exch2_tBasex(12)=51 exch2_tBasey(12)=0 exch2_txGlobalo(12)=562 exch2_tyGlobalo(12)=1 exch2_isWedge(12)=0 exch2_isNedge(12)=1 exch2_isEedge(12)=0 exch2_isSedge(12)=1 exch2_myFace(12)=2 exch2_mydNx(12)=510 exch2_mydNy(12)=510 exch2_nNeighbours(12)=4 exch2_neighbourId(1,12)=22 exch2_iLo(1,12)=0 exch2_iHi(1,12)=52 exch2_jLo(1,12)=511 exch2_jHi(1,12)=511 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)=510 exch2_neighbourId(2,12)=60 exch2_iLo(2,12)=0 exch2_iHi(2,12)=52 exch2_jLo(2,12)=0 exch2_jHi(2,12)=0 exch2_opposingSend(2,12)=4 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)=13 exch2_iLo(3,12)=52 exch2_iHi(3,12)=52 exch2_jLo(3,12)=0 exch2_jHi(3,12)=511 exch2_opposingSend(3,12)=4 exch2_pij(1,3,12)=1 exch2_pij(2,3,12)=0 exch2_pij(3,3,12)=0 exch2_pij(4,3,12)=1 exch2_oi(3,12)=0 exch2_oj(3,12)=0 exch2_neighbourId(4,12)=11 exch2_iLo(4,12)=0 exch2_iHi(4,12)=0 exch2_jLo(4,12)=0 exch2_jHi(4,12)=511 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)=51 exch2_tNy(13)=510 exch2_tBasex(13)=102 exch2_tBasey(13)=0 exch2_txGlobalo(13)=613 exch2_tyGlobalo(13)=1 exch2_isWedge(13)=0 exch2_isNedge(13)=1 exch2_isEedge(13)=0 exch2_isSedge(13)=1 exch2_myFace(13)=2 exch2_mydNx(13)=510 exch2_mydNy(13)=510 exch2_nNeighbours(13)=4 exch2_neighbourId(1,13)=23 exch2_iLo(1,13)=0 exch2_iHi(1,13)=52 exch2_jLo(1,13)=511 exch2_jHi(1,13)=511 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)=510 exch2_neighbourId(2,13)=60 exch2_iLo(2,13)=0 exch2_iHi(2,13)=52 exch2_jLo(2,13)=0 exch2_jHi(2,13)=0 exch2_opposingSend(2,13)=5 exch2_pij(1,2,13)=0 exch2_pij(2,2,13)=-1 exch2_pij(3,2,13)=1 exch2_pij(4,2,13)=0 exch2_oi(2,13)=511 exch2_oj(2,13)=-510 exch2_neighbourId(3,13)=14 exch2_iLo(3,13)=52 exch2_iHi(3,13)=52 exch2_jLo(3,13)=0 exch2_jHi(3,13)=511 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)=12 exch2_iLo(4,13)=0 exch2_iHi(4,13)=0 exch2_jLo(4,13)=0 exch2_jHi(4,13)=511 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)=0 exch2_oj(4,13)=0 RETURN END SUBROUTINE W2_E2SETUP_14 C Topology for tile 14 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(14)=51 exch2_tNy(14)=510 exch2_tBasex(14)=153 exch2_tBasey(14)=0 exch2_txGlobalo(14)=664 exch2_tyGlobalo(14)=1 exch2_isWedge(14)=0 exch2_isNedge(14)=1 exch2_isEedge(14)=0 exch2_isSedge(14)=1 exch2_myFace(14)=2 exch2_mydNx(14)=510 exch2_mydNy(14)=510 exch2_nNeighbours(14)=4 exch2_neighbourId(1,14)=24 exch2_iLo(1,14)=0 exch2_iHi(1,14)=52 exch2_jLo(1,14)=511 exch2_jHi(1,14)=511 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)=510 exch2_neighbourId(2,14)=60 exch2_iLo(2,14)=0 exch2_iHi(2,14)=52 exch2_jLo(2,14)=0 exch2_jHi(2,14)=0 exch2_opposingSend(2,14)=6 exch2_pij(1,2,14)=0 exch2_pij(2,2,14)=-1 exch2_pij(3,2,14)=1 exch2_pij(4,2,14)=0 exch2_oi(2,14)=511 exch2_oj(2,14)=-510 exch2_neighbourId(3,14)=15 exch2_iLo(3,14)=52 exch2_iHi(3,14)=52 exch2_jLo(3,14)=0 exch2_jHi(3,14)=511 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)=511 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)=51 exch2_tNy(15)=510 exch2_tBasex(15)=204 exch2_tBasey(15)=0 exch2_txGlobalo(15)=715 exch2_tyGlobalo(15)=1 exch2_isWedge(15)=0 exch2_isNedge(15)=1 exch2_isEedge(15)=0 exch2_isSedge(15)=1 exch2_myFace(15)=2 exch2_mydNx(15)=510 exch2_mydNy(15)=510 exch2_nNeighbours(15)=4 exch2_neighbourId(1,15)=25 exch2_iLo(1,15)=0 exch2_iHi(1,15)=52 exch2_jLo(1,15)=511 exch2_jHi(1,15)=511 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)=510 exch2_neighbourId(2,15)=60 exch2_iLo(2,15)=0 exch2_iHi(2,15)=52 exch2_jLo(2,15)=0 exch2_jHi(2,15)=0 exch2_opposingSend(2,15)=7 exch2_pij(1,2,15)=0 exch2_pij(2,2,15)=-1 exch2_pij(3,2,15)=1 exch2_pij(4,2,15)=0 exch2_oi(2,15)=511 exch2_oj(2,15)=-510 exch2_neighbourId(3,15)=16 exch2_iLo(3,15)=52 exch2_iHi(3,15)=52 exch2_jLo(3,15)=0 exch2_jHi(3,15)=511 exch2_opposingSend(3,15)=4 exch2_pij(1,3,15)=1 exch2_pij(2,3,15)=0 exch2_pij(3,3,15)=0 exch2_pij(4,3,15)=1 exch2_oi(3,15)=0 exch2_oj(3,15)=0 exch2_neighbourId(4,15)=14 exch2_iLo(4,15)=0 exch2_iHi(4,15)=0 exch2_jLo(4,15)=0 exch2_jHi(4,15)=511 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)=51 exch2_tNy(16)=510 exch2_tBasex(16)=255 exch2_tBasey(16)=0 exch2_txGlobalo(16)=766 exch2_tyGlobalo(16)=1 exch2_isWedge(16)=0 exch2_isNedge(16)=1 exch2_isEedge(16)=0 exch2_isSedge(16)=1 exch2_myFace(16)=2 exch2_mydNx(16)=510 exch2_mydNy(16)=510 exch2_nNeighbours(16)=4 exch2_neighbourId(1,16)=26 exch2_iLo(1,16)=0 exch2_iHi(1,16)=52 exch2_jLo(1,16)=511 exch2_jHi(1,16)=511 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)=60 exch2_iLo(2,16)=0 exch2_iHi(2,16)=52 exch2_jLo(2,16)=0 exch2_jHi(2,16)=0 exch2_opposingSend(2,16)=8 exch2_pij(1,2,16)=0 exch2_pij(2,2,16)=-1 exch2_pij(3,2,16)=1 exch2_pij(4,2,16)=0 exch2_oi(2,16)=511 exch2_oj(2,16)=-510 exch2_neighbourId(3,16)=17 exch2_iLo(3,16)=52 exch2_iHi(3,16)=52 exch2_jLo(3,16)=0 exch2_jHi(3,16)=511 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)=15 exch2_iLo(4,16)=0 exch2_iHi(4,16)=0 exch2_jLo(4,16)=0 exch2_jHi(4,16)=511 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)=0 exch2_oj(4,16)=0 RETURN END SUBROUTINE W2_E2SETUP_17 C Topology for tile 17 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(17)=51 exch2_tNy(17)=510 exch2_tBasex(17)=306 exch2_tBasey(17)=0 exch2_txGlobalo(17)=817 exch2_tyGlobalo(17)=1 exch2_isWedge(17)=0 exch2_isNedge(17)=1 exch2_isEedge(17)=0 exch2_isSedge(17)=1 exch2_myFace(17)=2 exch2_mydNx(17)=510 exch2_mydNy(17)=510 exch2_nNeighbours(17)=4 exch2_neighbourId(1,17)=27 exch2_iLo(1,17)=0 exch2_iHi(1,17)=52 exch2_jLo(1,17)=511 exch2_jHi(1,17)=511 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)=60 exch2_iLo(2,17)=0 exch2_iHi(2,17)=52 exch2_jLo(2,17)=0 exch2_jHi(2,17)=0 exch2_opposingSend(2,17)=9 exch2_pij(1,2,17)=0 exch2_pij(2,2,17)=-1 exch2_pij(3,2,17)=1 exch2_pij(4,2,17)=0 exch2_oi(2,17)=511 exch2_oj(2,17)=-510 exch2_neighbourId(3,17)=18 exch2_iLo(3,17)=52 exch2_iHi(3,17)=52 exch2_jLo(3,17)=0 exch2_jHi(3,17)=511 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)=511 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)=51 exch2_tNy(18)=510 exch2_tBasex(18)=357 exch2_tBasey(18)=0 exch2_txGlobalo(18)=868 exch2_tyGlobalo(18)=1 exch2_isWedge(18)=0 exch2_isNedge(18)=1 exch2_isEedge(18)=0 exch2_isSedge(18)=1 exch2_myFace(18)=2 exch2_mydNx(18)=510 exch2_mydNy(18)=510 exch2_nNeighbours(18)=4 exch2_neighbourId(1,18)=28 exch2_iLo(1,18)=0 exch2_iHi(1,18)=52 exch2_jLo(1,18)=511 exch2_jHi(1,18)=511 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)=60 exch2_iLo(2,18)=0 exch2_iHi(2,18)=52 exch2_jLo(2,18)=0 exch2_jHi(2,18)=0 exch2_opposingSend(2,18)=10 exch2_pij(1,2,18)=0 exch2_pij(2,2,18)=-1 exch2_pij(3,2,18)=1 exch2_pij(4,2,18)=0 exch2_oi(2,18)=511 exch2_oj(2,18)=-510 exch2_neighbourId(3,18)=19 exch2_iLo(3,18)=52 exch2_iHi(3,18)=52 exch2_jLo(3,18)=0 exch2_jHi(3,18)=511 exch2_opposingSend(3,18)=4 exch2_pij(1,3,18)=1 exch2_pij(2,3,18)=0 exch2_pij(3,3,18)=0 exch2_pij(4,3,18)=1 exch2_oi(3,18)=0 exch2_oj(3,18)=0 exch2_neighbourId(4,18)=17 exch2_iLo(4,18)=0 exch2_iHi(4,18)=0 exch2_jLo(4,18)=0 exch2_jHi(4,18)=511 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)=51 exch2_tNy(19)=510 exch2_tBasex(19)=408 exch2_tBasey(19)=0 exch2_txGlobalo(19)=919 exch2_tyGlobalo(19)=1 exch2_isWedge(19)=0 exch2_isNedge(19)=1 exch2_isEedge(19)=0 exch2_isSedge(19)=1 exch2_myFace(19)=2 exch2_mydNx(19)=510 exch2_mydNy(19)=510 exch2_nNeighbours(19)=4 exch2_neighbourId(1,19)=29 exch2_iLo(1,19)=0 exch2_iHi(1,19)=52 exch2_jLo(1,19)=511 exch2_jHi(1,19)=511 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)=510 exch2_neighbourId(2,19)=60 exch2_iLo(2,19)=0 exch2_iHi(2,19)=52 exch2_jLo(2,19)=0 exch2_jHi(2,19)=0 exch2_opposingSend(2,19)=11 exch2_pij(1,2,19)=0 exch2_pij(2,2,19)=-1 exch2_pij(3,2,19)=1 exch2_pij(4,2,19)=0 exch2_oi(2,19)=511 exch2_oj(2,19)=-510 exch2_neighbourId(3,19)=20 exch2_iLo(3,19)=52 exch2_iHi(3,19)=52 exch2_jLo(3,19)=0 exch2_jHi(3,19)=511 exch2_opposingSend(3,19)=13 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)=18 exch2_iLo(4,19)=0 exch2_iHi(4,19)=0 exch2_jLo(4,19)=0 exch2_jHi(4,19)=511 exch2_opposingSend(4,19)=3 exch2_pij(1,4,19)=1 exch2_pij(2,4,19)=0 exch2_pij(3,4,19)=0 exch2_pij(4,4,19)=1 exch2_oi(4,19)=0 exch2_oj(4,19)=0 RETURN END SUBROUTINE W2_E2SETUP_20 C Topology for tile 20 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(20)=51 exch2_tNy(20)=510 exch2_tBasex(20)=459 exch2_tBasey(20)=0 exch2_txGlobalo(20)=970 exch2_tyGlobalo(20)=1 exch2_isWedge(20)=0 exch2_isNedge(20)=1 exch2_isEedge(20)=1 exch2_isSedge(20)=1 exch2_myFace(20)=2 exch2_mydNx(20)=510 exch2_mydNy(20)=510 exch2_nNeighbours(20)=13 exch2_neighbourId(1,20)=30 exch2_iLo(1,20)=0 exch2_iHi(1,20)=52 exch2_jLo(1,20)=511 exch2_jHi(1,20)=511 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)=510 exch2_neighbourId(2,20)=60 exch2_iLo(2,20)=0 exch2_iHi(2,20)=52 exch2_jLo(2,20)=0 exch2_jHi(2,20)=0 exch2_opposingSend(2,20)=12 exch2_pij(1,2,20)=0 exch2_pij(2,2,20)=-1 exch2_pij(3,2,20)=1 exch2_pij(4,2,20)=0 exch2_oi(2,20)=511 exch2_oj(2,20)=-510 exch2_neighbourId(3,20)=31 exch2_iLo(3,20)=52 exch2_iHi(3,20)=52 exch2_jLo(3,20)=459 exch2_jHi(3,20)=511 exch2_opposingSend(3,20)=2 exch2_pij(1,3,20)=0 exch2_pij(2,3,20)=1 exch2_pij(3,3,20)=-1 exch2_pij(4,3,20)=0 exch2_oi(3,20)=510 exch2_oj(3,20)=511 exch2_neighbourId(4,20)=32 exch2_iLo(4,20)=52 exch2_iHi(4,20)=52 exch2_jLo(4,20)=408 exch2_jHi(4,20)=460 exch2_opposingSend(4,20)=2 exch2_pij(1,4,20)=0 exch2_pij(2,4,20)=1 exch2_pij(3,4,20)=-1 exch2_pij(4,4,20)=0 exch2_oi(4,20)=510 exch2_oj(4,20)=511 exch2_neighbourId(5,20)=33 exch2_iLo(5,20)=52 exch2_iHi(5,20)=52 exch2_jLo(5,20)=357 exch2_jHi(5,20)=409 exch2_opposingSend(5,20)=2 exch2_pij(1,5,20)=0 exch2_pij(2,5,20)=1 exch2_pij(3,5,20)=-1 exch2_pij(4,5,20)=0 exch2_oi(5,20)=510 exch2_oj(5,20)=511 exch2_neighbourId(6,20)=34 exch2_iLo(6,20)=52 exch2_iHi(6,20)=52 exch2_jLo(6,20)=306 exch2_jHi(6,20)=358 exch2_opposingSend(6,20)=2 exch2_pij(1,6,20)=0 exch2_pij(2,6,20)=1 exch2_pij(3,6,20)=-1 exch2_pij(4,6,20)=0 exch2_oi(6,20)=510 exch2_oj(6,20)=511 exch2_neighbourId(7,20)=35 exch2_iLo(7,20)=52 exch2_iHi(7,20)=52 exch2_jLo(7,20)=255 exch2_jHi(7,20)=307 exch2_opposingSend(7,20)=2 exch2_pij(1,7,20)=0 exch2_pij(2,7,20)=1 exch2_pij(3,7,20)=-1 exch2_pij(4,7,20)=0 exch2_oi(7,20)=510 exch2_oj(7,20)=511 exch2_neighbourId(8,20)=36 exch2_iLo(8,20)=52 exch2_iHi(8,20)=52 exch2_jLo(8,20)=204 exch2_jHi(8,20)=256 exch2_opposingSend(8,20)=2 exch2_pij(1,8,20)=0 exch2_pij(2,8,20)=1 exch2_pij(3,8,20)=-1 exch2_pij(4,8,20)=0 exch2_oi(8,20)=510 exch2_oj(8,20)=511 exch2_neighbourId(9,20)=37 exch2_iLo(9,20)=52 exch2_iHi(9,20)=52 exch2_jLo(9,20)=153 exch2_jHi(9,20)=205 exch2_opposingSend(9,20)=2 exch2_pij(1,9,20)=0 exch2_pij(2,9,20)=1 exch2_pij(3,9,20)=-1 exch2_pij(4,9,20)=0 exch2_oi(9,20)=510 exch2_oj(9,20)=511 exch2_neighbourId(10,20)=38 exch2_iLo(10,20)=52 exch2_iHi(10,20)=52 exch2_jLo(10,20)=102 exch2_jHi(10,20)=154 exch2_opposingSend(10,20)=2 exch2_pij(1,10,20)=0 exch2_pij(2,10,20)=1 exch2_pij(3,10,20)=-1 exch2_pij(4,10,20)=0 exch2_oi(10,20)=510 exch2_oj(10,20)=511 exch2_neighbourId(11,20)=39 exch2_iLo(11,20)=52 exch2_iHi(11,20)=52 exch2_jLo(11,20)=51 exch2_jHi(11,20)=103 exch2_opposingSend(11,20)=2 exch2_pij(1,11,20)=0 exch2_pij(2,11,20)=1 exch2_pij(3,11,20)=-1 exch2_pij(4,11,20)=0 exch2_oi(11,20)=510 exch2_oj(11,20)=511 exch2_neighbourId(12,20)=40 exch2_iLo(12,20)=52 exch2_iHi(12,20)=52 exch2_jLo(12,20)=0 exch2_jHi(12,20)=52 exch2_opposingSend(12,20)=2 exch2_pij(1,12,20)=0 exch2_pij(2,12,20)=1 exch2_pij(3,12,20)=-1 exch2_pij(4,12,20)=0 exch2_oi(12,20)=510 exch2_oj(12,20)=511 exch2_neighbourId(13,20)=19 exch2_iLo(13,20)=0 exch2_iHi(13,20)=0 exch2_jLo(13,20)=0 exch2_jHi(13,20)=511 exch2_opposingSend(13,20)=3 exch2_pij(1,13,20)=1 exch2_pij(2,13,20)=0 exch2_pij(3,13,20)=0 exch2_pij(4,13,20)=1 exch2_oi(13,20)=0 exch2_oj(13,20)=0 RETURN END SUBROUTINE W2_E2SETUP_21 C Topology for tile 21 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(21)=51 exch2_tNy(21)=510 exch2_tBasex(21)=0 exch2_tBasey(21)=0 exch2_txGlobalo(21)=1021 exch2_tyGlobalo(21)=1 exch2_isWedge(21)=1 exch2_isNedge(21)=1 exch2_isEedge(21)=0 exch2_isSedge(21)=1 exch2_myFace(21)=3 exch2_mydNx(21)=510 exch2_mydNy(21)=510 exch2_nNeighbours(21)=13 exch2_neighbourId(1,21)=41 exch2_iLo(1,21)=0 exch2_iHi(1,21)=52 exch2_jLo(1,21)=511 exch2_jHi(1,21)=511 exch2_opposingSend(1,21)=4 exch2_pij(1,1,21)=0 exch2_pij(2,1,21)=-1 exch2_pij(3,1,21)=1 exch2_pij(4,1,21)=0 exch2_oi(1,21)=511 exch2_oj(1,21)=510 exch2_neighbourId(2,21)=11 exch2_iLo(2,21)=0 exch2_iHi(2,21)=52 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)=22 exch2_iLo(3,21)=52 exch2_iHi(3,21)=52 exch2_jLo(3,21)=0 exch2_jHi(3,21)=511 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)=0 exch2_oj(3,21)=0 exch2_neighbourId(4,21)=1 exch2_iLo(4,21)=0 exch2_iHi(4,21)=0 exch2_jLo(4,21)=459 exch2_jHi(4,21)=511 exch2_opposingSend(4,21)=1 exch2_pij(1,4,21)=0 exch2_pij(2,4,21)=1 exch2_pij(3,4,21)=-1 exch2_pij(4,4,21)=0 exch2_oi(4,21)=-510 exch2_oj(4,21)=511 exch2_neighbourId(5,21)=2 exch2_iLo(5,21)=0 exch2_iHi(5,21)=0 exch2_jLo(5,21)=408 exch2_jHi(5,21)=460 exch2_opposingSend(5,21)=1 exch2_pij(1,5,21)=0 exch2_pij(2,5,21)=1 exch2_pij(3,5,21)=-1 exch2_pij(4,5,21)=0 exch2_oi(5,21)=-510 exch2_oj(5,21)=511 exch2_neighbourId(6,21)=3 exch2_iLo(6,21)=0 exch2_iHi(6,21)=0 exch2_jLo(6,21)=357 exch2_jHi(6,21)=409 exch2_opposingSend(6,21)=1 exch2_pij(1,6,21)=0 exch2_pij(2,6,21)=1 exch2_pij(3,6,21)=-1 exch2_pij(4,6,21)=0 exch2_oi(6,21)=-510 exch2_oj(6,21)=511 exch2_neighbourId(7,21)=4 exch2_iLo(7,21)=0 exch2_iHi(7,21)=0 exch2_jLo(7,21)=306 exch2_jHi(7,21)=358 exch2_opposingSend(7,21)=1 exch2_pij(1,7,21)=0 exch2_pij(2,7,21)=1 exch2_pij(3,7,21)=-1 exch2_pij(4,7,21)=0 exch2_oi(7,21)=-510 exch2_oj(7,21)=511 exch2_neighbourId(8,21)=5 exch2_iLo(8,21)=0 exch2_iHi(8,21)=0 exch2_jLo(8,21)=255 exch2_jHi(8,21)=307 exch2_opposingSend(8,21)=1 exch2_pij(1,8,21)=0 exch2_pij(2,8,21)=1 exch2_pij(3,8,21)=-1 exch2_pij(4,8,21)=0 exch2_oi(8,21)=-510 exch2_oj(8,21)=511 exch2_neighbourId(9,21)=6 exch2_iLo(9,21)=0 exch2_iHi(9,21)=0 exch2_jLo(9,21)=204 exch2_jHi(9,21)=256 exch2_opposingSend(9,21)=1 exch2_pij(1,9,21)=0 exch2_pij(2,9,21)=1 exch2_pij(3,9,21)=-1 exch2_pij(4,9,21)=0 exch2_oi(9,21)=-510 exch2_oj(9,21)=511 exch2_neighbourId(10,21)=7 exch2_iLo(10,21)=0 exch2_iHi(10,21)=0 exch2_jLo(10,21)=153 exch2_jHi(10,21)=205 exch2_opposingSend(10,21)=1 exch2_pij(1,10,21)=0 exch2_pij(2,10,21)=1 exch2_pij(3,10,21)=-1 exch2_pij(4,10,21)=0 exch2_oi(10,21)=-510 exch2_oj(10,21)=511 exch2_neighbourId(11,21)=8 exch2_iLo(11,21)=0 exch2_iHi(11,21)=0 exch2_jLo(11,21)=102 exch2_jHi(11,21)=154 exch2_opposingSend(11,21)=1 exch2_pij(1,11,21)=0 exch2_pij(2,11,21)=1 exch2_pij(3,11,21)=-1 exch2_pij(4,11,21)=0 exch2_oi(11,21)=-510 exch2_oj(11,21)=511 exch2_neighbourId(12,21)=9 exch2_iLo(12,21)=0 exch2_iHi(12,21)=0 exch2_jLo(12,21)=51 exch2_jHi(12,21)=103 exch2_opposingSend(12,21)=1 exch2_pij(1,12,21)=0 exch2_pij(2,12,21)=1 exch2_pij(3,12,21)=-1 exch2_pij(4,12,21)=0 exch2_oi(12,21)=-510 exch2_oj(12,21)=511 exch2_neighbourId(13,21)=10 exch2_iLo(13,21)=0 exch2_iHi(13,21)=0 exch2_jLo(13,21)=0 exch2_jHi(13,21)=52 exch2_opposingSend(13,21)=1 exch2_pij(1,13,21)=0 exch2_pij(2,13,21)=1 exch2_pij(3,13,21)=-1 exch2_pij(4,13,21)=0 exch2_oi(13,21)=-510 exch2_oj(13,21)=511 RETURN END SUBROUTINE W2_E2SETUP_22 C Topology for tile 22 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(22)=51 exch2_tNy(22)=510 exch2_tBasex(22)=51 exch2_tBasey(22)=0 exch2_txGlobalo(22)=1072 exch2_tyGlobalo(22)=1 exch2_isWedge(22)=0 exch2_isNedge(22)=1 exch2_isEedge(22)=0 exch2_isSedge(22)=1 exch2_myFace(22)=3 exch2_mydNx(22)=510 exch2_mydNy(22)=510 exch2_nNeighbours(22)=4 exch2_neighbourId(1,22)=41 exch2_iLo(1,22)=0 exch2_iHi(1,22)=52 exch2_jLo(1,22)=511 exch2_jHi(1,22)=511 exch2_opposingSend(1,22)=5 exch2_pij(1,1,22)=0 exch2_pij(2,1,22)=-1 exch2_pij(3,1,22)=1 exch2_pij(4,1,22)=0 exch2_oi(1,22)=511 exch2_oj(1,22)=510 exch2_neighbourId(2,22)=12 exch2_iLo(2,22)=0 exch2_iHi(2,22)=52 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)=-510 exch2_neighbourId(3,22)=23 exch2_iLo(3,22)=52 exch2_iHi(3,22)=52 exch2_jLo(3,22)=0 exch2_jHi(3,22)=511 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)=21 exch2_iLo(4,22)=0 exch2_iHi(4,22)=0 exch2_jLo(4,22)=0 exch2_jHi(4,22)=511 exch2_opposingSend(4,22)=3 exch2_pij(1,4,22)=1 exch2_pij(2,4,22)=0 exch2_pij(3,4,22)=0 exch2_pij(4,4,22)=1 exch2_oi(4,22)=0 exch2_oj(4,22)=0 RETURN END SUBROUTINE W2_E2SETUP_23 C Topology for tile 23 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(23)=51 exch2_tNy(23)=510 exch2_tBasex(23)=102 exch2_tBasey(23)=0 exch2_txGlobalo(23)=1123 exch2_tyGlobalo(23)=1 exch2_isWedge(23)=0 exch2_isNedge(23)=1 exch2_isEedge(23)=0 exch2_isSedge(23)=1 exch2_myFace(23)=3 exch2_mydNx(23)=510 exch2_mydNy(23)=510 exch2_nNeighbours(23)=4 exch2_neighbourId(1,23)=41 exch2_iLo(1,23)=0 exch2_iHi(1,23)=52 exch2_jLo(1,23)=511 exch2_jHi(1,23)=511 exch2_opposingSend(1,23)=6 exch2_pij(1,1,23)=0 exch2_pij(2,1,23)=-1 exch2_pij(3,1,23)=1 exch2_pij(4,1,23)=0 exch2_oi(1,23)=511 exch2_oj(1,23)=510 exch2_neighbourId(2,23)=13 exch2_iLo(2,23)=0 exch2_iHi(2,23)=52 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)=-510 exch2_neighbourId(3,23)=24 exch2_iLo(3,23)=52 exch2_iHi(3,23)=52 exch2_jLo(3,23)=0 exch2_jHi(3,23)=511 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)=511 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)=51 exch2_tNy(24)=510 exch2_tBasex(24)=153 exch2_tBasey(24)=0 exch2_txGlobalo(24)=1174 exch2_tyGlobalo(24)=1 exch2_isWedge(24)=0 exch2_isNedge(24)=1 exch2_isEedge(24)=0 exch2_isSedge(24)=1 exch2_myFace(24)=3 exch2_mydNx(24)=510 exch2_mydNy(24)=510 exch2_nNeighbours(24)=4 exch2_neighbourId(1,24)=41 exch2_iLo(1,24)=0 exch2_iHi(1,24)=52 exch2_jLo(1,24)=511 exch2_jHi(1,24)=511 exch2_opposingSend(1,24)=7 exch2_pij(1,1,24)=0 exch2_pij(2,1,24)=-1 exch2_pij(3,1,24)=1 exch2_pij(4,1,24)=0 exch2_oi(1,24)=511 exch2_oj(1,24)=510 exch2_neighbourId(2,24)=14 exch2_iLo(2,24)=0 exch2_iHi(2,24)=52 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)=-510 exch2_neighbourId(3,24)=25 exch2_iLo(3,24)=52 exch2_iHi(3,24)=52 exch2_jLo(3,24)=0 exch2_jHi(3,24)=511 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)=0 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)=511 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)=51 exch2_tNy(25)=510 exch2_tBasex(25)=204 exch2_tBasey(25)=0 exch2_txGlobalo(25)=1225 exch2_tyGlobalo(25)=1 exch2_isWedge(25)=0 exch2_isNedge(25)=1 exch2_isEedge(25)=0 exch2_isSedge(25)=1 exch2_myFace(25)=3 exch2_mydNx(25)=510 exch2_mydNy(25)=510 exch2_nNeighbours(25)=4 exch2_neighbourId(1,25)=41 exch2_iLo(1,25)=0 exch2_iHi(1,25)=52 exch2_jLo(1,25)=511 exch2_jHi(1,25)=511 exch2_opposingSend(1,25)=8 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)=15 exch2_iLo(2,25)=0 exch2_iHi(2,25)=52 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)=-510 exch2_neighbourId(3,25)=26 exch2_iLo(3,25)=52 exch2_iHi(3,25)=52 exch2_jLo(3,25)=0 exch2_jHi(3,25)=511 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)=24 exch2_iLo(4,25)=0 exch2_iHi(4,25)=0 exch2_jLo(4,25)=0 exch2_jHi(4,25)=511 exch2_opposingSend(4,25)=3 exch2_pij(1,4,25)=1 exch2_pij(2,4,25)=0 exch2_pij(3,4,25)=0 exch2_pij(4,4,25)=1 exch2_oi(4,25)=0 exch2_oj(4,25)=0 RETURN END SUBROUTINE W2_E2SETUP_26 C Topology for tile 26 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(26)=51 exch2_tNy(26)=510 exch2_tBasex(26)=255 exch2_tBasey(26)=0 exch2_txGlobalo(26)=1276 exch2_tyGlobalo(26)=1 exch2_isWedge(26)=0 exch2_isNedge(26)=1 exch2_isEedge(26)=0 exch2_isSedge(26)=1 exch2_myFace(26)=3 exch2_mydNx(26)=510 exch2_mydNy(26)=510 exch2_nNeighbours(26)=4 exch2_neighbourId(1,26)=41 exch2_iLo(1,26)=0 exch2_iHi(1,26)=52 exch2_jLo(1,26)=511 exch2_jHi(1,26)=511 exch2_opposingSend(1,26)=9 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)=16 exch2_iLo(2,26)=0 exch2_iHi(2,26)=52 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)=-510 exch2_neighbourId(3,26)=27 exch2_iLo(3,26)=52 exch2_iHi(3,26)=52 exch2_jLo(3,26)=0 exch2_jHi(3,26)=511 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)=511 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)=51 exch2_tNy(27)=510 exch2_tBasex(27)=306 exch2_tBasey(27)=0 exch2_txGlobalo(27)=1327 exch2_tyGlobalo(27)=1 exch2_isWedge(27)=0 exch2_isNedge(27)=1 exch2_isEedge(27)=0 exch2_isSedge(27)=1 exch2_myFace(27)=3 exch2_mydNx(27)=510 exch2_mydNy(27)=510 exch2_nNeighbours(27)=4 exch2_neighbourId(1,27)=41 exch2_iLo(1,27)=0 exch2_iHi(1,27)=52 exch2_jLo(1,27)=511 exch2_jHi(1,27)=511 exch2_opposingSend(1,27)=10 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)=17 exch2_iLo(2,27)=0 exch2_iHi(2,27)=52 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)=-510 exch2_neighbourId(3,27)=28 exch2_iLo(3,27)=52 exch2_iHi(3,27)=52 exch2_jLo(3,27)=0 exch2_jHi(3,27)=511 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)=0 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)=511 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)=51 exch2_tNy(28)=510 exch2_tBasex(28)=357 exch2_tBasey(28)=0 exch2_txGlobalo(28)=1378 exch2_tyGlobalo(28)=1 exch2_isWedge(28)=0 exch2_isNedge(28)=1 exch2_isEedge(28)=0 exch2_isSedge(28)=1 exch2_myFace(28)=3 exch2_mydNx(28)=510 exch2_mydNy(28)=510 exch2_nNeighbours(28)=4 exch2_neighbourId(1,28)=41 exch2_iLo(1,28)=0 exch2_iHi(1,28)=52 exch2_jLo(1,28)=511 exch2_jHi(1,28)=511 exch2_opposingSend(1,28)=11 exch2_pij(1,1,28)=0 exch2_pij(2,1,28)=-1 exch2_pij(3,1,28)=1 exch2_pij(4,1,28)=0 exch2_oi(1,28)=511 exch2_oj(1,28)=510 exch2_neighbourId(2,28)=18 exch2_iLo(2,28)=0 exch2_iHi(2,28)=52 exch2_jLo(2,28)=0 exch2_jHi(2,28)=0 exch2_opposingSend(2,28)=1 exch2_pij(1,2,28)=1 exch2_pij(2,2,28)=0 exch2_pij(3,2,28)=0 exch2_pij(4,2,28)=1 exch2_oi(2,28)=0 exch2_oj(2,28)=-510 exch2_neighbourId(3,28)=29 exch2_iLo(3,28)=52 exch2_iHi(3,28)=52 exch2_jLo(3,28)=0 exch2_jHi(3,28)=511 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)=27 exch2_iLo(4,28)=0 exch2_iHi(4,28)=0 exch2_jLo(4,28)=0 exch2_jHi(4,28)=511 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)=0 exch2_oj(4,28)=0 RETURN END SUBROUTINE W2_E2SETUP_29 C Topology for tile 29 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(29)=51 exch2_tNy(29)=510 exch2_tBasex(29)=408 exch2_tBasey(29)=0 exch2_txGlobalo(29)=1429 exch2_tyGlobalo(29)=1 exch2_isWedge(29)=0 exch2_isNedge(29)=1 exch2_isEedge(29)=0 exch2_isSedge(29)=1 exch2_myFace(29)=3 exch2_mydNx(29)=510 exch2_mydNy(29)=510 exch2_nNeighbours(29)=4 exch2_neighbourId(1,29)=41 exch2_iLo(1,29)=0 exch2_iHi(1,29)=52 exch2_jLo(1,29)=511 exch2_jHi(1,29)=511 exch2_opposingSend(1,29)=12 exch2_pij(1,1,29)=0 exch2_pij(2,1,29)=-1 exch2_pij(3,1,29)=1 exch2_pij(4,1,29)=0 exch2_oi(1,29)=511 exch2_oj(1,29)=510 exch2_neighbourId(2,29)=19 exch2_iLo(2,29)=0 exch2_iHi(2,29)=52 exch2_jLo(2,29)=0 exch2_jHi(2,29)=0 exch2_opposingSend(2,29)=1 exch2_pij(1,2,29)=1 exch2_pij(2,2,29)=0 exch2_pij(3,2,29)=0 exch2_pij(4,2,29)=1 exch2_oi(2,29)=0 exch2_oj(2,29)=-510 exch2_neighbourId(3,29)=30 exch2_iLo(3,29)=52 exch2_iHi(3,29)=52 exch2_jLo(3,29)=0 exch2_jHi(3,29)=511 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)=511 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)=51 exch2_tNy(30)=510 exch2_tBasex(30)=459 exch2_tBasey(30)=0 exch2_txGlobalo(30)=1480 exch2_tyGlobalo(30)=1 exch2_isWedge(30)=0 exch2_isNedge(30)=1 exch2_isEedge(30)=1 exch2_isSedge(30)=1 exch2_myFace(30)=3 exch2_mydNx(30)=510 exch2_mydNy(30)=510 exch2_nNeighbours(30)=4 exch2_neighbourId(1,30)=41 exch2_iLo(1,30)=0 exch2_iHi(1,30)=52 exch2_jLo(1,30)=511 exch2_jHi(1,30)=511 exch2_opposingSend(1,30)=13 exch2_pij(1,1,30)=0 exch2_pij(2,1,30)=-1 exch2_pij(3,1,30)=1 exch2_pij(4,1,30)=0 exch2_oi(1,30)=511 exch2_oj(1,30)=510 exch2_neighbourId(2,30)=20 exch2_iLo(2,30)=0 exch2_iHi(2,30)=52 exch2_jLo(2,30)=0 exch2_jHi(2,30)=0 exch2_opposingSend(2,30)=1 exch2_pij(1,2,30)=1 exch2_pij(2,2,30)=0 exch2_pij(3,2,30)=0 exch2_pij(4,2,30)=1 exch2_oi(2,30)=0 exch2_oj(2,30)=-510 exch2_neighbourId(3,30)=31 exch2_iLo(3,30)=52 exch2_iHi(3,30)=52 exch2_jLo(3,30)=0 exch2_jHi(3,30)=511 exch2_opposingSend(3,30)=4 exch2_pij(1,3,30)=1 exch2_pij(2,3,30)=0 exch2_pij(3,3,30)=0 exch2_pij(4,3,30)=1 exch2_oi(3,30)=510 exch2_oj(3,30)=0 exch2_neighbourId(4,30)=29 exch2_iLo(4,30)=0 exch2_iHi(4,30)=0 exch2_jLo(4,30)=0 exch2_jHi(4,30)=511 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)=51 exch2_tNy(31)=510 exch2_tBasex(31)=0 exch2_tBasey(31)=0 exch2_txGlobalo(31)=1531 exch2_tyGlobalo(31)=1 exch2_isWedge(31)=1 exch2_isNedge(31)=1 exch2_isEedge(31)=0 exch2_isSedge(31)=1 exch2_myFace(31)=4 exch2_mydNx(31)=510 exch2_mydNy(31)=510 exch2_nNeighbours(31)=4 exch2_neighbourId(1,31)=41 exch2_iLo(1,31)=0 exch2_iHi(1,31)=52 exch2_jLo(1,31)=511 exch2_jHi(1,31)=511 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)=510 exch2_neighbourId(2,31)=20 exch2_iLo(2,31)=0 exch2_iHi(2,31)=52 exch2_jLo(2,31)=0 exch2_jHi(2,31)=0 exch2_opposingSend(2,31)=3 exch2_pij(1,2,31)=0 exch2_pij(2,2,31)=-1 exch2_pij(3,2,31)=1 exch2_pij(4,2,31)=0 exch2_oi(2,31)=511 exch2_oj(2,31)=-510 exch2_neighbourId(3,31)=32 exch2_iLo(3,31)=52 exch2_iHi(3,31)=52 exch2_jLo(3,31)=0 exch2_jHi(3,31)=511 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)=30 exch2_iLo(4,31)=0 exch2_iHi(4,31)=0 exch2_jLo(4,31)=0 exch2_jHi(4,31)=511 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)=51 exch2_tNy(32)=510 exch2_tBasex(32)=51 exch2_tBasey(32)=0 exch2_txGlobalo(32)=1582 exch2_tyGlobalo(32)=1 exch2_isWedge(32)=0 exch2_isNedge(32)=1 exch2_isEedge(32)=0 exch2_isSedge(32)=1 exch2_myFace(32)=4 exch2_mydNx(32)=510 exch2_mydNy(32)=510 exch2_nNeighbours(32)=4 exch2_neighbourId(1,32)=42 exch2_iLo(1,32)=0 exch2_iHi(1,32)=52 exch2_jLo(1,32)=511 exch2_jHi(1,32)=511 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)=510 exch2_neighbourId(2,32)=20 exch2_iLo(2,32)=0 exch2_iHi(2,32)=52 exch2_jLo(2,32)=0 exch2_jHi(2,32)=0 exch2_opposingSend(2,32)=4 exch2_pij(1,2,32)=0 exch2_pij(2,2,32)=-1 exch2_pij(3,2,32)=1 exch2_pij(4,2,32)=0 exch2_oi(2,32)=511 exch2_oj(2,32)=-510 exch2_neighbourId(3,32)=33 exch2_iLo(3,32)=52 exch2_iHi(3,32)=52 exch2_jLo(3,32)=0 exch2_jHi(3,32)=511 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)=511 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)=51 exch2_tNy(33)=510 exch2_tBasex(33)=102 exch2_tBasey(33)=0 exch2_txGlobalo(33)=1633 exch2_tyGlobalo(33)=1 exch2_isWedge(33)=0 exch2_isNedge(33)=1 exch2_isEedge(33)=0 exch2_isSedge(33)=1 exch2_myFace(33)=4 exch2_mydNx(33)=510 exch2_mydNy(33)=510 exch2_nNeighbours(33)=4 exch2_neighbourId(1,33)=43 exch2_iLo(1,33)=0 exch2_iHi(1,33)=52 exch2_jLo(1,33)=511 exch2_jHi(1,33)=511 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)=510 exch2_neighbourId(2,33)=20 exch2_iLo(2,33)=0 exch2_iHi(2,33)=52 exch2_jLo(2,33)=0 exch2_jHi(2,33)=0 exch2_opposingSend(2,33)=5 exch2_pij(1,2,33)=0 exch2_pij(2,2,33)=-1 exch2_pij(3,2,33)=1 exch2_pij(4,2,33)=0 exch2_oi(2,33)=511 exch2_oj(2,33)=-510 exch2_neighbourId(3,33)=34 exch2_iLo(3,33)=52 exch2_iHi(3,33)=52 exch2_jLo(3,33)=0 exch2_jHi(3,33)=511 exch2_opposingSend(3,33)=4 exch2_pij(1,3,33)=1 exch2_pij(2,3,33)=0 exch2_pij(3,3,33)=0 exch2_pij(4,3,33)=1 exch2_oi(3,33)=0 exch2_oj(3,33)=0 exch2_neighbourId(4,33)=32 exch2_iLo(4,33)=0 exch2_iHi(4,33)=0 exch2_jLo(4,33)=0 exch2_jHi(4,33)=511 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)=51 exch2_tNy(34)=510 exch2_tBasex(34)=153 exch2_tBasey(34)=0 exch2_txGlobalo(34)=1684 exch2_tyGlobalo(34)=1 exch2_isWedge(34)=0 exch2_isNedge(34)=1 exch2_isEedge(34)=0 exch2_isSedge(34)=1 exch2_myFace(34)=4 exch2_mydNx(34)=510 exch2_mydNy(34)=510 exch2_nNeighbours(34)=4 exch2_neighbourId(1,34)=44 exch2_iLo(1,34)=0 exch2_iHi(1,34)=52 exch2_jLo(1,34)=511 exch2_jHi(1,34)=511 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)=20 exch2_iLo(2,34)=0 exch2_iHi(2,34)=52 exch2_jLo(2,34)=0 exch2_jHi(2,34)=0 exch2_opposingSend(2,34)=6 exch2_pij(1,2,34)=0 exch2_pij(2,2,34)=-1 exch2_pij(3,2,34)=1 exch2_pij(4,2,34)=0 exch2_oi(2,34)=511 exch2_oj(2,34)=-510 exch2_neighbourId(3,34)=35 exch2_iLo(3,34)=52 exch2_iHi(3,34)=52 exch2_jLo(3,34)=0 exch2_jHi(3,34)=511 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)=33 exch2_iLo(4,34)=0 exch2_iHi(4,34)=0 exch2_jLo(4,34)=0 exch2_jHi(4,34)=511 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)=0 exch2_oj(4,34)=0 RETURN END SUBROUTINE W2_E2SETUP_35 C Topology for tile 35 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(35)=51 exch2_tNy(35)=510 exch2_tBasex(35)=204 exch2_tBasey(35)=0 exch2_txGlobalo(35)=1735 exch2_tyGlobalo(35)=1 exch2_isWedge(35)=0 exch2_isNedge(35)=1 exch2_isEedge(35)=0 exch2_isSedge(35)=1 exch2_myFace(35)=4 exch2_mydNx(35)=510 exch2_mydNy(35)=510 exch2_nNeighbours(35)=4 exch2_neighbourId(1,35)=45 exch2_iLo(1,35)=0 exch2_iHi(1,35)=52 exch2_jLo(1,35)=511 exch2_jHi(1,35)=511 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)=20 exch2_iLo(2,35)=0 exch2_iHi(2,35)=52 exch2_jLo(2,35)=0 exch2_jHi(2,35)=0 exch2_opposingSend(2,35)=7 exch2_pij(1,2,35)=0 exch2_pij(2,2,35)=-1 exch2_pij(3,2,35)=1 exch2_pij(4,2,35)=0 exch2_oi(2,35)=511 exch2_oj(2,35)=-510 exch2_neighbourId(3,35)=36 exch2_iLo(3,35)=52 exch2_iHi(3,35)=52 exch2_jLo(3,35)=0 exch2_jHi(3,35)=511 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)=511 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)=51 exch2_tNy(36)=510 exch2_tBasex(36)=255 exch2_tBasey(36)=0 exch2_txGlobalo(36)=1786 exch2_tyGlobalo(36)=1 exch2_isWedge(36)=0 exch2_isNedge(36)=1 exch2_isEedge(36)=0 exch2_isSedge(36)=1 exch2_myFace(36)=4 exch2_mydNx(36)=510 exch2_mydNy(36)=510 exch2_nNeighbours(36)=4 exch2_neighbourId(1,36)=46 exch2_iLo(1,36)=0 exch2_iHi(1,36)=52 exch2_jLo(1,36)=511 exch2_jHi(1,36)=511 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)=20 exch2_iLo(2,36)=0 exch2_iHi(2,36)=52 exch2_jLo(2,36)=0 exch2_jHi(2,36)=0 exch2_opposingSend(2,36)=8 exch2_pij(1,2,36)=0 exch2_pij(2,2,36)=-1 exch2_pij(3,2,36)=1 exch2_pij(4,2,36)=0 exch2_oi(2,36)=511 exch2_oj(2,36)=-510 exch2_neighbourId(3,36)=37 exch2_iLo(3,36)=52 exch2_iHi(3,36)=52 exch2_jLo(3,36)=0 exch2_jHi(3,36)=511 exch2_opposingSend(3,36)=4 exch2_pij(1,3,36)=1 exch2_pij(2,3,36)=0 exch2_pij(3,3,36)=0 exch2_pij(4,3,36)=1 exch2_oi(3,36)=0 exch2_oj(3,36)=0 exch2_neighbourId(4,36)=35 exch2_iLo(4,36)=0 exch2_iHi(4,36)=0 exch2_jLo(4,36)=0 exch2_jHi(4,36)=511 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)=51 exch2_tNy(37)=510 exch2_tBasex(37)=306 exch2_tBasey(37)=0 exch2_txGlobalo(37)=1837 exch2_tyGlobalo(37)=1 exch2_isWedge(37)=0 exch2_isNedge(37)=1 exch2_isEedge(37)=0 exch2_isSedge(37)=1 exch2_myFace(37)=4 exch2_mydNx(37)=510 exch2_mydNy(37)=510 exch2_nNeighbours(37)=4 exch2_neighbourId(1,37)=47 exch2_iLo(1,37)=0 exch2_iHi(1,37)=52 exch2_jLo(1,37)=511 exch2_jHi(1,37)=511 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)=510 exch2_neighbourId(2,37)=20 exch2_iLo(2,37)=0 exch2_iHi(2,37)=52 exch2_jLo(2,37)=0 exch2_jHi(2,37)=0 exch2_opposingSend(2,37)=9 exch2_pij(1,2,37)=0 exch2_pij(2,2,37)=-1 exch2_pij(3,2,37)=1 exch2_pij(4,2,37)=0 exch2_oi(2,37)=511 exch2_oj(2,37)=-510 exch2_neighbourId(3,37)=38 exch2_iLo(3,37)=52 exch2_iHi(3,37)=52 exch2_jLo(3,37)=0 exch2_jHi(3,37)=511 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)=36 exch2_iLo(4,37)=0 exch2_iHi(4,37)=0 exch2_jLo(4,37)=0 exch2_jHi(4,37)=511 exch2_opposingSend(4,37)=3 exch2_pij(1,4,37)=1 exch2_pij(2,4,37)=0 exch2_pij(3,4,37)=0 exch2_pij(4,4,37)=1 exch2_oi(4,37)=0 exch2_oj(4,37)=0 RETURN END SUBROUTINE W2_E2SETUP_38 C Topology for tile 38 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(38)=51 exch2_tNy(38)=510 exch2_tBasex(38)=357 exch2_tBasey(38)=0 exch2_txGlobalo(38)=1888 exch2_tyGlobalo(38)=1 exch2_isWedge(38)=0 exch2_isNedge(38)=1 exch2_isEedge(38)=0 exch2_isSedge(38)=1 exch2_myFace(38)=4 exch2_mydNx(38)=510 exch2_mydNy(38)=510 exch2_nNeighbours(38)=4 exch2_neighbourId(1,38)=48 exch2_iLo(1,38)=0 exch2_iHi(1,38)=52 exch2_jLo(1,38)=511 exch2_jHi(1,38)=511 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)=510 exch2_neighbourId(2,38)=20 exch2_iLo(2,38)=0 exch2_iHi(2,38)=52 exch2_jLo(2,38)=0 exch2_jHi(2,38)=0 exch2_opposingSend(2,38)=10 exch2_pij(1,2,38)=0 exch2_pij(2,2,38)=-1 exch2_pij(3,2,38)=1 exch2_pij(4,2,38)=0 exch2_oi(2,38)=511 exch2_oj(2,38)=-510 exch2_neighbourId(3,38)=39 exch2_iLo(3,38)=52 exch2_iHi(3,38)=52 exch2_jLo(3,38)=0 exch2_jHi(3,38)=511 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)=511 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)=51 exch2_tNy(39)=510 exch2_tBasex(39)=408 exch2_tBasey(39)=0 exch2_txGlobalo(39)=1939 exch2_tyGlobalo(39)=1 exch2_isWedge(39)=0 exch2_isNedge(39)=1 exch2_isEedge(39)=0 exch2_isSedge(39)=1 exch2_myFace(39)=4 exch2_mydNx(39)=510 exch2_mydNy(39)=510 exch2_nNeighbours(39)=4 exch2_neighbourId(1,39)=49 exch2_iLo(1,39)=0 exch2_iHi(1,39)=52 exch2_jLo(1,39)=511 exch2_jHi(1,39)=511 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)=510 exch2_neighbourId(2,39)=20 exch2_iLo(2,39)=0 exch2_iHi(2,39)=52 exch2_jLo(2,39)=0 exch2_jHi(2,39)=0 exch2_opposingSend(2,39)=11 exch2_pij(1,2,39)=0 exch2_pij(2,2,39)=-1 exch2_pij(3,2,39)=1 exch2_pij(4,2,39)=0 exch2_oi(2,39)=511 exch2_oj(2,39)=-510 exch2_neighbourId(3,39)=40 exch2_iLo(3,39)=52 exch2_iHi(3,39)=52 exch2_jLo(3,39)=0 exch2_jHi(3,39)=511 exch2_opposingSend(3,39)=13 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)=0 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)=511 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)=51 exch2_tNy(40)=510 exch2_tBasex(40)=459 exch2_tBasey(40)=0 exch2_txGlobalo(40)=1990 exch2_tyGlobalo(40)=1 exch2_isWedge(40)=0 exch2_isNedge(40)=1 exch2_isEedge(40)=1 exch2_isSedge(40)=1 exch2_myFace(40)=4 exch2_mydNx(40)=510 exch2_mydNy(40)=510 exch2_nNeighbours(40)=13 exch2_neighbourId(1,40)=50 exch2_iLo(1,40)=0 exch2_iHi(1,40)=52 exch2_jLo(1,40)=511 exch2_jHi(1,40)=511 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)=510 exch2_neighbourId(2,40)=20 exch2_iLo(2,40)=0 exch2_iHi(2,40)=52 exch2_jLo(2,40)=0 exch2_jHi(2,40)=0 exch2_opposingSend(2,40)=12 exch2_pij(1,2,40)=0 exch2_pij(2,2,40)=-1 exch2_pij(3,2,40)=1 exch2_pij(4,2,40)=0 exch2_oi(2,40)=511 exch2_oj(2,40)=-510 exch2_neighbourId(3,40)=51 exch2_iLo(3,40)=52 exch2_iHi(3,40)=52 exch2_jLo(3,40)=459 exch2_jHi(3,40)=511 exch2_opposingSend(3,40)=2 exch2_pij(1,3,40)=0 exch2_pij(2,3,40)=1 exch2_pij(3,3,40)=-1 exch2_pij(4,3,40)=0 exch2_oi(3,40)=510 exch2_oj(3,40)=511 exch2_neighbourId(4,40)=52 exch2_iLo(4,40)=52 exch2_iHi(4,40)=52 exch2_jLo(4,40)=408 exch2_jHi(4,40)=460 exch2_opposingSend(4,40)=2 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 exch2_neighbourId(5,40)=53 exch2_iLo(5,40)=52 exch2_iHi(5,40)=52 exch2_jLo(5,40)=357 exch2_jHi(5,40)=409 exch2_opposingSend(5,40)=2 exch2_pij(1,5,40)=0 exch2_pij(2,5,40)=1 exch2_pij(3,5,40)=-1 exch2_pij(4,5,40)=0 exch2_oi(5,40)=510 exch2_oj(5,40)=511 exch2_neighbourId(6,40)=54 exch2_iLo(6,40)=52 exch2_iHi(6,40)=52 exch2_jLo(6,40)=306 exch2_jHi(6,40)=358 exch2_opposingSend(6,40)=2 exch2_pij(1,6,40)=0 exch2_pij(2,6,40)=1 exch2_pij(3,6,40)=-1 exch2_pij(4,6,40)=0 exch2_oi(6,40)=510 exch2_oj(6,40)=511 exch2_neighbourId(7,40)=55 exch2_iLo(7,40)=52 exch2_iHi(7,40)=52 exch2_jLo(7,40)=255 exch2_jHi(7,40)=307 exch2_opposingSend(7,40)=2 exch2_pij(1,7,40)=0 exch2_pij(2,7,40)=1 exch2_pij(3,7,40)=-1 exch2_pij(4,7,40)=0 exch2_oi(7,40)=510 exch2_oj(7,40)=511 exch2_neighbourId(8,40)=56 exch2_iLo(8,40)=52 exch2_iHi(8,40)=52 exch2_jLo(8,40)=204 exch2_jHi(8,40)=256 exch2_opposingSend(8,40)=2 exch2_pij(1,8,40)=0 exch2_pij(2,8,40)=1 exch2_pij(3,8,40)=-1 exch2_pij(4,8,40)=0 exch2_oi(8,40)=510 exch2_oj(8,40)=511 exch2_neighbourId(9,40)=57 exch2_iLo(9,40)=52 exch2_iHi(9,40)=52 exch2_jLo(9,40)=153 exch2_jHi(9,40)=205 exch2_opposingSend(9,40)=2 exch2_pij(1,9,40)=0 exch2_pij(2,9,40)=1 exch2_pij(3,9,40)=-1 exch2_pij(4,9,40)=0 exch2_oi(9,40)=510 exch2_oj(9,40)=511 exch2_neighbourId(10,40)=58 exch2_iLo(10,40)=52 exch2_iHi(10,40)=52 exch2_jLo(10,40)=102 exch2_jHi(10,40)=154 exch2_opposingSend(10,40)=2 exch2_pij(1,10,40)=0 exch2_pij(2,10,40)=1 exch2_pij(3,10,40)=-1 exch2_pij(4,10,40)=0 exch2_oi(10,40)=510 exch2_oj(10,40)=511 exch2_neighbourId(11,40)=59 exch2_iLo(11,40)=52 exch2_iHi(11,40)=52 exch2_jLo(11,40)=51 exch2_jHi(11,40)=103 exch2_opposingSend(11,40)=2 exch2_pij(1,11,40)=0 exch2_pij(2,11,40)=1 exch2_pij(3,11,40)=-1 exch2_pij(4,11,40)=0 exch2_oi(11,40)=510 exch2_oj(11,40)=511 exch2_neighbourId(12,40)=60 exch2_iLo(12,40)=52 exch2_iHi(12,40)=52 exch2_jLo(12,40)=0 exch2_jHi(12,40)=52 exch2_opposingSend(12,40)=2 exch2_pij(1,12,40)=0 exch2_pij(2,12,40)=1 exch2_pij(3,12,40)=-1 exch2_pij(4,12,40)=0 exch2_oi(12,40)=510 exch2_oj(12,40)=511 exch2_neighbourId(13,40)=39 exch2_iLo(13,40)=0 exch2_iHi(13,40)=0 exch2_jLo(13,40)=0 exch2_jHi(13,40)=511 exch2_opposingSend(13,40)=3 exch2_pij(1,13,40)=1 exch2_pij(2,13,40)=0 exch2_pij(3,13,40)=0 exch2_pij(4,13,40)=1 exch2_oi(13,40)=0 exch2_oj(13,40)=0 RETURN END SUBROUTINE W2_E2SETUP_41 C Topology for tile 41 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(41)=51 exch2_tNy(41)=510 exch2_tBasex(41)=0 exch2_tBasey(41)=0 exch2_txGlobalo(41)=2041 exch2_tyGlobalo(41)=1 exch2_isWedge(41)=1 exch2_isNedge(41)=1 exch2_isEedge(41)=0 exch2_isSedge(41)=1 exch2_myFace(41)=5 exch2_mydNx(41)=510 exch2_mydNy(41)=510 exch2_nNeighbours(41)=13 exch2_neighbourId(1,41)=1 exch2_iLo(1,41)=0 exch2_iHi(1,41)=52 exch2_jLo(1,41)=511 exch2_jHi(1,41)=511 exch2_opposingSend(1,41)=4 exch2_pij(1,1,41)=0 exch2_pij(2,1,41)=-1 exch2_pij(3,1,41)=1 exch2_pij(4,1,41)=0 exch2_oi(1,41)=511 exch2_oj(1,41)=510 exch2_neighbourId(2,41)=31 exch2_iLo(2,41)=0 exch2_iHi(2,41)=52 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)=-510 exch2_neighbourId(3,41)=42 exch2_iLo(3,41)=52 exch2_iHi(3,41)=52 exch2_jLo(3,41)=0 exch2_jHi(3,41)=511 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)=21 exch2_iLo(4,41)=0 exch2_iHi(4,41)=0 exch2_jLo(4,41)=459 exch2_jHi(4,41)=511 exch2_opposingSend(4,41)=1 exch2_pij(1,4,41)=0 exch2_pij(2,4,41)=1 exch2_pij(3,4,41)=-1 exch2_pij(4,4,41)=0 exch2_oi(4,41)=-510 exch2_oj(4,41)=511 exch2_neighbourId(5,41)=22 exch2_iLo(5,41)=0 exch2_iHi(5,41)=0 exch2_jLo(5,41)=408 exch2_jHi(5,41)=460 exch2_opposingSend(5,41)=1 exch2_pij(1,5,41)=0 exch2_pij(2,5,41)=1 exch2_pij(3,5,41)=-1 exch2_pij(4,5,41)=0 exch2_oi(5,41)=-510 exch2_oj(5,41)=511 exch2_neighbourId(6,41)=23 exch2_iLo(6,41)=0 exch2_iHi(6,41)=0 exch2_jLo(6,41)=357 exch2_jHi(6,41)=409 exch2_opposingSend(6,41)=1 exch2_pij(1,6,41)=0 exch2_pij(2,6,41)=1 exch2_pij(3,6,41)=-1 exch2_pij(4,6,41)=0 exch2_oi(6,41)=-510 exch2_oj(6,41)=511 exch2_neighbourId(7,41)=24 exch2_iLo(7,41)=0 exch2_iHi(7,41)=0 exch2_jLo(7,41)=306 exch2_jHi(7,41)=358 exch2_opposingSend(7,41)=1 exch2_pij(1,7,41)=0 exch2_pij(2,7,41)=1 exch2_pij(3,7,41)=-1 exch2_pij(4,7,41)=0 exch2_oi(7,41)=-510 exch2_oj(7,41)=511 exch2_neighbourId(8,41)=25 exch2_iLo(8,41)=0 exch2_iHi(8,41)=0 exch2_jLo(8,41)=255 exch2_jHi(8,41)=307 exch2_opposingSend(8,41)=1 exch2_pij(1,8,41)=0 exch2_pij(2,8,41)=1 exch2_pij(3,8,41)=-1 exch2_pij(4,8,41)=0 exch2_oi(8,41)=-510 exch2_oj(8,41)=511 exch2_neighbourId(9,41)=26 exch2_iLo(9,41)=0 exch2_iHi(9,41)=0 exch2_jLo(9,41)=204 exch2_jHi(9,41)=256 exch2_opposingSend(9,41)=1 exch2_pij(1,9,41)=0 exch2_pij(2,9,41)=1 exch2_pij(3,9,41)=-1 exch2_pij(4,9,41)=0 exch2_oi(9,41)=-510 exch2_oj(9,41)=511 exch2_neighbourId(10,41)=27 exch2_iLo(10,41)=0 exch2_iHi(10,41)=0 exch2_jLo(10,41)=153 exch2_jHi(10,41)=205 exch2_opposingSend(10,41)=1 exch2_pij(1,10,41)=0 exch2_pij(2,10,41)=1 exch2_pij(3,10,41)=-1 exch2_pij(4,10,41)=0 exch2_oi(10,41)=-510 exch2_oj(10,41)=511 exch2_neighbourId(11,41)=28 exch2_iLo(11,41)=0 exch2_iHi(11,41)=0 exch2_jLo(11,41)=102 exch2_jHi(11,41)=154 exch2_opposingSend(11,41)=1 exch2_pij(1,11,41)=0 exch2_pij(2,11,41)=1 exch2_pij(3,11,41)=-1 exch2_pij(4,11,41)=0 exch2_oi(11,41)=-510 exch2_oj(11,41)=511 exch2_neighbourId(12,41)=29 exch2_iLo(12,41)=0 exch2_iHi(12,41)=0 exch2_jLo(12,41)=51 exch2_jHi(12,41)=103 exch2_opposingSend(12,41)=1 exch2_pij(1,12,41)=0 exch2_pij(2,12,41)=1 exch2_pij(3,12,41)=-1 exch2_pij(4,12,41)=0 exch2_oi(12,41)=-510 exch2_oj(12,41)=511 exch2_neighbourId(13,41)=30 exch2_iLo(13,41)=0 exch2_iHi(13,41)=0 exch2_jLo(13,41)=0 exch2_jHi(13,41)=52 exch2_opposingSend(13,41)=1 exch2_pij(1,13,41)=0 exch2_pij(2,13,41)=1 exch2_pij(3,13,41)=-1 exch2_pij(4,13,41)=0 exch2_oi(13,41)=-510 exch2_oj(13,41)=511 RETURN END SUBROUTINE W2_E2SETUP_42 C Topology for tile 42 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(42)=51 exch2_tNy(42)=510 exch2_tBasex(42)=51 exch2_tBasey(42)=0 exch2_txGlobalo(42)=2092 exch2_tyGlobalo(42)=1 exch2_isWedge(42)=0 exch2_isNedge(42)=1 exch2_isEedge(42)=0 exch2_isSedge(42)=1 exch2_myFace(42)=5 exch2_mydNx(42)=510 exch2_mydNy(42)=510 exch2_nNeighbours(42)=4 exch2_neighbourId(1,42)=1 exch2_iLo(1,42)=0 exch2_iHi(1,42)=52 exch2_jLo(1,42)=511 exch2_jHi(1,42)=511 exch2_opposingSend(1,42)=5 exch2_pij(1,1,42)=0 exch2_pij(2,1,42)=-1 exch2_pij(3,1,42)=1 exch2_pij(4,1,42)=0 exch2_oi(1,42)=511 exch2_oj(1,42)=510 exch2_neighbourId(2,42)=32 exch2_iLo(2,42)=0 exch2_iHi(2,42)=52 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)=-510 exch2_neighbourId(3,42)=43 exch2_iLo(3,42)=52 exch2_iHi(3,42)=52 exch2_jLo(3,42)=0 exch2_jHi(3,42)=511 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)=0 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)=511 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)=51 exch2_tNy(43)=510 exch2_tBasex(43)=102 exch2_tBasey(43)=0 exch2_txGlobalo(43)=2143 exch2_tyGlobalo(43)=1 exch2_isWedge(43)=0 exch2_isNedge(43)=1 exch2_isEedge(43)=0 exch2_isSedge(43)=1 exch2_myFace(43)=5 exch2_mydNx(43)=510 exch2_mydNy(43)=510 exch2_nNeighbours(43)=4 exch2_neighbourId(1,43)=1 exch2_iLo(1,43)=0 exch2_iHi(1,43)=52 exch2_jLo(1,43)=511 exch2_jHi(1,43)=511 exch2_opposingSend(1,43)=6 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)=33 exch2_iLo(2,43)=0 exch2_iHi(2,43)=52 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)=-510 exch2_neighbourId(3,43)=44 exch2_iLo(3,43)=52 exch2_iHi(3,43)=52 exch2_jLo(3,43)=0 exch2_jHi(3,43)=511 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)=42 exch2_iLo(4,43)=0 exch2_iHi(4,43)=0 exch2_jLo(4,43)=0 exch2_jHi(4,43)=511 exch2_opposingSend(4,43)=3 exch2_pij(1,4,43)=1 exch2_pij(2,4,43)=0 exch2_pij(3,4,43)=0 exch2_pij(4,4,43)=1 exch2_oi(4,43)=0 exch2_oj(4,43)=0 RETURN END SUBROUTINE W2_E2SETUP_44 C Topology for tile 44 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(44)=51 exch2_tNy(44)=510 exch2_tBasex(44)=153 exch2_tBasey(44)=0 exch2_txGlobalo(44)=2194 exch2_tyGlobalo(44)=1 exch2_isWedge(44)=0 exch2_isNedge(44)=1 exch2_isEedge(44)=0 exch2_isSedge(44)=1 exch2_myFace(44)=5 exch2_mydNx(44)=510 exch2_mydNy(44)=510 exch2_nNeighbours(44)=4 exch2_neighbourId(1,44)=1 exch2_iLo(1,44)=0 exch2_iHi(1,44)=52 exch2_jLo(1,44)=511 exch2_jHi(1,44)=511 exch2_opposingSend(1,44)=7 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)=34 exch2_iLo(2,44)=0 exch2_iHi(2,44)=52 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)=-510 exch2_neighbourId(3,44)=45 exch2_iLo(3,44)=52 exch2_iHi(3,44)=52 exch2_jLo(3,44)=0 exch2_jHi(3,44)=511 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)=511 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)=51 exch2_tNy(45)=510 exch2_tBasex(45)=204 exch2_tBasey(45)=0 exch2_txGlobalo(45)=2245 exch2_tyGlobalo(45)=1 exch2_isWedge(45)=0 exch2_isNedge(45)=1 exch2_isEedge(45)=0 exch2_isSedge(45)=1 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)=52 exch2_jLo(1,45)=511 exch2_jHi(1,45)=511 exch2_opposingSend(1,45)=8 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)=35 exch2_iLo(2,45)=0 exch2_iHi(2,45)=52 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)=-510 exch2_neighbourId(3,45)=46 exch2_iLo(3,45)=52 exch2_iHi(3,45)=52 exch2_jLo(3,45)=0 exch2_jHi(3,45)=511 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)=0 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)=511 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)=51 exch2_tNy(46)=510 exch2_tBasex(46)=255 exch2_tBasey(46)=0 exch2_txGlobalo(46)=2296 exch2_tyGlobalo(46)=1 exch2_isWedge(46)=0 exch2_isNedge(46)=1 exch2_isEedge(46)=0 exch2_isSedge(46)=1 exch2_myFace(46)=5 exch2_mydNx(46)=510 exch2_mydNy(46)=510 exch2_nNeighbours(46)=4 exch2_neighbourId(1,46)=1 exch2_iLo(1,46)=0 exch2_iHi(1,46)=52 exch2_jLo(1,46)=511 exch2_jHi(1,46)=511 exch2_opposingSend(1,46)=9 exch2_pij(1,1,46)=0 exch2_pij(2,1,46)=-1 exch2_pij(3,1,46)=1 exch2_pij(4,1,46)=0 exch2_oi(1,46)=511 exch2_oj(1,46)=510 exch2_neighbourId(2,46)=36 exch2_iLo(2,46)=0 exch2_iHi(2,46)=52 exch2_jLo(2,46)=0 exch2_jHi(2,46)=0 exch2_opposingSend(2,46)=1 exch2_pij(1,2,46)=1 exch2_pij(2,2,46)=0 exch2_pij(3,2,46)=0 exch2_pij(4,2,46)=1 exch2_oi(2,46)=0 exch2_oj(2,46)=-510 exch2_neighbourId(3,46)=47 exch2_iLo(3,46)=52 exch2_iHi(3,46)=52 exch2_jLo(3,46)=0 exch2_jHi(3,46)=511 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)=45 exch2_iLo(4,46)=0 exch2_iHi(4,46)=0 exch2_jLo(4,46)=0 exch2_jHi(4,46)=511 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)=0 exch2_oj(4,46)=0 RETURN END SUBROUTINE W2_E2SETUP_47 C Topology for tile 47 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(47)=51 exch2_tNy(47)=510 exch2_tBasex(47)=306 exch2_tBasey(47)=0 exch2_txGlobalo(47)=2347 exch2_tyGlobalo(47)=1 exch2_isWedge(47)=0 exch2_isNedge(47)=1 exch2_isEedge(47)=0 exch2_isSedge(47)=1 exch2_myFace(47)=5 exch2_mydNx(47)=510 exch2_mydNy(47)=510 exch2_nNeighbours(47)=4 exch2_neighbourId(1,47)=1 exch2_iLo(1,47)=0 exch2_iHi(1,47)=52 exch2_jLo(1,47)=511 exch2_jHi(1,47)=511 exch2_opposingSend(1,47)=10 exch2_pij(1,1,47)=0 exch2_pij(2,1,47)=-1 exch2_pij(3,1,47)=1 exch2_pij(4,1,47)=0 exch2_oi(1,47)=511 exch2_oj(1,47)=510 exch2_neighbourId(2,47)=37 exch2_iLo(2,47)=0 exch2_iHi(2,47)=52 exch2_jLo(2,47)=0 exch2_jHi(2,47)=0 exch2_opposingSend(2,47)=1 exch2_pij(1,2,47)=1 exch2_pij(2,2,47)=0 exch2_pij(3,2,47)=0 exch2_pij(4,2,47)=1 exch2_oi(2,47)=0 exch2_oj(2,47)=-510 exch2_neighbourId(3,47)=48 exch2_iLo(3,47)=52 exch2_iHi(3,47)=52 exch2_jLo(3,47)=0 exch2_jHi(3,47)=511 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)=511 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)=51 exch2_tNy(48)=510 exch2_tBasex(48)=357 exch2_tBasey(48)=0 exch2_txGlobalo(48)=2398 exch2_tyGlobalo(48)=1 exch2_isWedge(48)=0 exch2_isNedge(48)=1 exch2_isEedge(48)=0 exch2_isSedge(48)=1 exch2_myFace(48)=5 exch2_mydNx(48)=510 exch2_mydNy(48)=510 exch2_nNeighbours(48)=4 exch2_neighbourId(1,48)=1 exch2_iLo(1,48)=0 exch2_iHi(1,48)=52 exch2_jLo(1,48)=511 exch2_jHi(1,48)=511 exch2_opposingSend(1,48)=11 exch2_pij(1,1,48)=0 exch2_pij(2,1,48)=-1 exch2_pij(3,1,48)=1 exch2_pij(4,1,48)=0 exch2_oi(1,48)=511 exch2_oj(1,48)=510 exch2_neighbourId(2,48)=38 exch2_iLo(2,48)=0 exch2_iHi(2,48)=52 exch2_jLo(2,48)=0 exch2_jHi(2,48)=0 exch2_opposingSend(2,48)=1 exch2_pij(1,2,48)=1 exch2_pij(2,2,48)=0 exch2_pij(3,2,48)=0 exch2_pij(4,2,48)=1 exch2_oi(2,48)=0 exch2_oj(2,48)=-510 exch2_neighbourId(3,48)=49 exch2_iLo(3,48)=52 exch2_iHi(3,48)=52 exch2_jLo(3,48)=0 exch2_jHi(3,48)=511 exch2_opposingSend(3,48)=4 exch2_pij(1,3,48)=1 exch2_pij(2,3,48)=0 exch2_pij(3,3,48)=0 exch2_pij(4,3,48)=1 exch2_oi(3,48)=0 exch2_oj(3,48)=0 exch2_neighbourId(4,48)=47 exch2_iLo(4,48)=0 exch2_iHi(4,48)=0 exch2_jLo(4,48)=0 exch2_jHi(4,48)=511 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)=51 exch2_tNy(49)=510 exch2_tBasex(49)=408 exch2_tBasey(49)=0 exch2_txGlobalo(49)=2449 exch2_tyGlobalo(49)=1 exch2_isWedge(49)=0 exch2_isNedge(49)=1 exch2_isEedge(49)=0 exch2_isSedge(49)=1 exch2_myFace(49)=5 exch2_mydNx(49)=510 exch2_mydNy(49)=510 exch2_nNeighbours(49)=4 exch2_neighbourId(1,49)=1 exch2_iLo(1,49)=0 exch2_iHi(1,49)=52 exch2_jLo(1,49)=511 exch2_jHi(1,49)=511 exch2_opposingSend(1,49)=12 exch2_pij(1,1,49)=0 exch2_pij(2,1,49)=-1 exch2_pij(3,1,49)=1 exch2_pij(4,1,49)=0 exch2_oi(1,49)=511 exch2_oj(1,49)=510 exch2_neighbourId(2,49)=39 exch2_iLo(2,49)=0 exch2_iHi(2,49)=52 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)=-510 exch2_neighbourId(3,49)=50 exch2_iLo(3,49)=52 exch2_iHi(3,49)=52 exch2_jLo(3,49)=0 exch2_jHi(3,49)=511 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)=48 exch2_iLo(4,49)=0 exch2_iHi(4,49)=0 exch2_jLo(4,49)=0 exch2_jHi(4,49)=511 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)=0 exch2_oj(4,49)=0 RETURN END SUBROUTINE W2_E2SETUP_50 C Topology for tile 50 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(50)=51 exch2_tNy(50)=510 exch2_tBasex(50)=459 exch2_tBasey(50)=0 exch2_txGlobalo(50)=2500 exch2_tyGlobalo(50)=1 exch2_isWedge(50)=0 exch2_isNedge(50)=1 exch2_isEedge(50)=1 exch2_isSedge(50)=1 exch2_myFace(50)=5 exch2_mydNx(50)=510 exch2_mydNy(50)=510 exch2_nNeighbours(50)=4 exch2_neighbourId(1,50)=1 exch2_iLo(1,50)=0 exch2_iHi(1,50)=52 exch2_jLo(1,50)=511 exch2_jHi(1,50)=511 exch2_opposingSend(1,50)=13 exch2_pij(1,1,50)=0 exch2_pij(2,1,50)=-1 exch2_pij(3,1,50)=1 exch2_pij(4,1,50)=0 exch2_oi(1,50)=511 exch2_oj(1,50)=510 exch2_neighbourId(2,50)=40 exch2_iLo(2,50)=0 exch2_iHi(2,50)=52 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)=-510 exch2_neighbourId(3,50)=51 exch2_iLo(3,50)=52 exch2_iHi(3,50)=52 exch2_jLo(3,50)=0 exch2_jHi(3,50)=511 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)=510 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)=511 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)=51 exch2_tNy(51)=510 exch2_tBasex(51)=0 exch2_tBasey(51)=0 exch2_txGlobalo(51)=2551 exch2_tyGlobalo(51)=1 exch2_isWedge(51)=1 exch2_isNedge(51)=1 exch2_isEedge(51)=0 exch2_isSedge(51)=1 exch2_myFace(51)=6 exch2_mydNx(51)=510 exch2_mydNy(51)=510 exch2_nNeighbours(51)=4 exch2_neighbourId(1,51)=1 exch2_iLo(1,51)=0 exch2_iHi(1,51)=52 exch2_jLo(1,51)=511 exch2_jHi(1,51)=511 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)=510 exch2_neighbourId(2,51)=40 exch2_iLo(2,51)=0 exch2_iHi(2,51)=52 exch2_jLo(2,51)=0 exch2_jHi(2,51)=0 exch2_opposingSend(2,51)=3 exch2_pij(1,2,51)=0 exch2_pij(2,2,51)=-1 exch2_pij(3,2,51)=1 exch2_pij(4,2,51)=0 exch2_oi(2,51)=511 exch2_oj(2,51)=-510 exch2_neighbourId(3,51)=52 exch2_iLo(3,51)=52 exch2_iHi(3,51)=52 exch2_jLo(3,51)=0 exch2_jHi(3,51)=511 exch2_opposingSend(3,51)=4 exch2_pij(1,3,51)=1 exch2_pij(2,3,51)=0 exch2_pij(3,3,51)=0 exch2_pij(4,3,51)=1 exch2_oi(3,51)=0 exch2_oj(3,51)=0 exch2_neighbourId(4,51)=50 exch2_iLo(4,51)=0 exch2_iHi(4,51)=0 exch2_jLo(4,51)=0 exch2_jHi(4,51)=511 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)=-510 exch2_oj(4,51)=0 RETURN END SUBROUTINE W2_E2SETUP_52 C Topology for tile 52 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(52)=51 exch2_tNy(52)=510 exch2_tBasex(52)=51 exch2_tBasey(52)=0 exch2_txGlobalo(52)=2602 exch2_tyGlobalo(52)=1 exch2_isWedge(52)=0 exch2_isNedge(52)=1 exch2_isEedge(52)=0 exch2_isSedge(52)=1 exch2_myFace(52)=6 exch2_mydNx(52)=510 exch2_mydNy(52)=510 exch2_nNeighbours(52)=4 exch2_neighbourId(1,52)=2 exch2_iLo(1,52)=0 exch2_iHi(1,52)=52 exch2_jLo(1,52)=511 exch2_jHi(1,52)=511 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)=40 exch2_iLo(2,52)=0 exch2_iHi(2,52)=52 exch2_jLo(2,52)=0 exch2_jHi(2,52)=0 exch2_opposingSend(2,52)=4 exch2_pij(1,2,52)=0 exch2_pij(2,2,52)=-1 exch2_pij(3,2,52)=1 exch2_pij(4,2,52)=0 exch2_oi(2,52)=511 exch2_oj(2,52)=-510 exch2_neighbourId(3,52)=53 exch2_iLo(3,52)=52 exch2_iHi(3,52)=52 exch2_jLo(3,52)=0 exch2_jHi(3,52)=511 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)=51 exch2_iLo(4,52)=0 exch2_iHi(4,52)=0 exch2_jLo(4,52)=0 exch2_jHi(4,52)=511 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)=0 exch2_oj(4,52)=0 RETURN END SUBROUTINE W2_E2SETUP_53 C Topology for tile 53 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(53)=51 exch2_tNy(53)=510 exch2_tBasex(53)=102 exch2_tBasey(53)=0 exch2_txGlobalo(53)=2653 exch2_tyGlobalo(53)=1 exch2_isWedge(53)=0 exch2_isNedge(53)=1 exch2_isEedge(53)=0 exch2_isSedge(53)=1 exch2_myFace(53)=6 exch2_mydNx(53)=510 exch2_mydNy(53)=510 exch2_nNeighbours(53)=4 exch2_neighbourId(1,53)=3 exch2_iLo(1,53)=0 exch2_iHi(1,53)=52 exch2_jLo(1,53)=511 exch2_jHi(1,53)=511 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)=40 exch2_iLo(2,53)=0 exch2_iHi(2,53)=52 exch2_jLo(2,53)=0 exch2_jHi(2,53)=0 exch2_opposingSend(2,53)=5 exch2_pij(1,2,53)=0 exch2_pij(2,2,53)=-1 exch2_pij(3,2,53)=1 exch2_pij(4,2,53)=0 exch2_oi(2,53)=511 exch2_oj(2,53)=-510 exch2_neighbourId(3,53)=54 exch2_iLo(3,53)=52 exch2_iHi(3,53)=52 exch2_jLo(3,53)=0 exch2_jHi(3,53)=511 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)=511 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)=51 exch2_tNy(54)=510 exch2_tBasex(54)=153 exch2_tBasey(54)=0 exch2_txGlobalo(54)=2704 exch2_tyGlobalo(54)=1 exch2_isWedge(54)=0 exch2_isNedge(54)=1 exch2_isEedge(54)=0 exch2_isSedge(54)=1 exch2_myFace(54)=6 exch2_mydNx(54)=510 exch2_mydNy(54)=510 exch2_nNeighbours(54)=4 exch2_neighbourId(1,54)=4 exch2_iLo(1,54)=0 exch2_iHi(1,54)=52 exch2_jLo(1,54)=511 exch2_jHi(1,54)=511 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)=40 exch2_iLo(2,54)=0 exch2_iHi(2,54)=52 exch2_jLo(2,54)=0 exch2_jHi(2,54)=0 exch2_opposingSend(2,54)=6 exch2_pij(1,2,54)=0 exch2_pij(2,2,54)=-1 exch2_pij(3,2,54)=1 exch2_pij(4,2,54)=0 exch2_oi(2,54)=511 exch2_oj(2,54)=-510 exch2_neighbourId(3,54)=55 exch2_iLo(3,54)=52 exch2_iHi(3,54)=52 exch2_jLo(3,54)=0 exch2_jHi(3,54)=511 exch2_opposingSend(3,54)=4 exch2_pij(1,3,54)=1 exch2_pij(2,3,54)=0 exch2_pij(3,3,54)=0 exch2_pij(4,3,54)=1 exch2_oi(3,54)=0 exch2_oj(3,54)=0 exch2_neighbourId(4,54)=53 exch2_iLo(4,54)=0 exch2_iHi(4,54)=0 exch2_jLo(4,54)=0 exch2_jHi(4,54)=511 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 SUBROUTINE W2_E2SETUP_55 C Topology for tile 55 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(55)=51 exch2_tNy(55)=510 exch2_tBasex(55)=204 exch2_tBasey(55)=0 exch2_txGlobalo(55)=2755 exch2_tyGlobalo(55)=1 exch2_isWedge(55)=0 exch2_isNedge(55)=1 exch2_isEedge(55)=0 exch2_isSedge(55)=1 exch2_myFace(55)=6 exch2_mydNx(55)=510 exch2_mydNy(55)=510 exch2_nNeighbours(55)=4 exch2_neighbourId(1,55)=5 exch2_iLo(1,55)=0 exch2_iHi(1,55)=52 exch2_jLo(1,55)=511 exch2_jHi(1,55)=511 exch2_opposingSend(1,55)=2 exch2_pij(1,1,55)=1 exch2_pij(2,1,55)=0 exch2_pij(3,1,55)=0 exch2_pij(4,1,55)=1 exch2_oi(1,55)=0 exch2_oj(1,55)=510 exch2_neighbourId(2,55)=40 exch2_iLo(2,55)=0 exch2_iHi(2,55)=52 exch2_jLo(2,55)=0 exch2_jHi(2,55)=0 exch2_opposingSend(2,55)=7 exch2_pij(1,2,55)=0 exch2_pij(2,2,55)=-1 exch2_pij(3,2,55)=1 exch2_pij(4,2,55)=0 exch2_oi(2,55)=511 exch2_oj(2,55)=-510 exch2_neighbourId(3,55)=56 exch2_iLo(3,55)=52 exch2_iHi(3,55)=52 exch2_jLo(3,55)=0 exch2_jHi(3,55)=511 exch2_opposingSend(3,55)=4 exch2_pij(1,3,55)=1 exch2_pij(2,3,55)=0 exch2_pij(3,3,55)=0 exch2_pij(4,3,55)=1 exch2_oi(3,55)=0 exch2_oj(3,55)=0 exch2_neighbourId(4,55)=54 exch2_iLo(4,55)=0 exch2_iHi(4,55)=0 exch2_jLo(4,55)=0 exch2_jHi(4,55)=511 exch2_opposingSend(4,55)=3 exch2_pij(1,4,55)=1 exch2_pij(2,4,55)=0 exch2_pij(3,4,55)=0 exch2_pij(4,4,55)=1 exch2_oi(4,55)=0 exch2_oj(4,55)=0 RETURN END SUBROUTINE W2_E2SETUP_56 C Topology for tile 56 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(56)=51 exch2_tNy(56)=510 exch2_tBasex(56)=255 exch2_tBasey(56)=0 exch2_txGlobalo(56)=2806 exch2_tyGlobalo(56)=1 exch2_isWedge(56)=0 exch2_isNedge(56)=1 exch2_isEedge(56)=0 exch2_isSedge(56)=1 exch2_myFace(56)=6 exch2_mydNx(56)=510 exch2_mydNy(56)=510 exch2_nNeighbours(56)=4 exch2_neighbourId(1,56)=6 exch2_iLo(1,56)=0 exch2_iHi(1,56)=52 exch2_jLo(1,56)=511 exch2_jHi(1,56)=511 exch2_opposingSend(1,56)=2 exch2_pij(1,1,56)=1 exch2_pij(2,1,56)=0 exch2_pij(3,1,56)=0 exch2_pij(4,1,56)=1 exch2_oi(1,56)=0 exch2_oj(1,56)=510 exch2_neighbourId(2,56)=40 exch2_iLo(2,56)=0 exch2_iHi(2,56)=52 exch2_jLo(2,56)=0 exch2_jHi(2,56)=0 exch2_opposingSend(2,56)=8 exch2_pij(1,2,56)=0 exch2_pij(2,2,56)=-1 exch2_pij(3,2,56)=1 exch2_pij(4,2,56)=0 exch2_oi(2,56)=511 exch2_oj(2,56)=-510 exch2_neighbourId(3,56)=57 exch2_iLo(3,56)=52 exch2_iHi(3,56)=52 exch2_jLo(3,56)=0 exch2_jHi(3,56)=511 exch2_opposingSend(3,56)=4 exch2_pij(1,3,56)=1 exch2_pij(2,3,56)=0 exch2_pij(3,3,56)=0 exch2_pij(4,3,56)=1 exch2_oi(3,56)=0 exch2_oj(3,56)=0 exch2_neighbourId(4,56)=55 exch2_iLo(4,56)=0 exch2_iHi(4,56)=0 exch2_jLo(4,56)=0 exch2_jHi(4,56)=511 exch2_opposingSend(4,56)=3 exch2_pij(1,4,56)=1 exch2_pij(2,4,56)=0 exch2_pij(3,4,56)=0 exch2_pij(4,4,56)=1 exch2_oi(4,56)=0 exch2_oj(4,56)=0 RETURN END SUBROUTINE W2_E2SETUP_57 C Topology for tile 57 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(57)=51 exch2_tNy(57)=510 exch2_tBasex(57)=306 exch2_tBasey(57)=0 exch2_txGlobalo(57)=2857 exch2_tyGlobalo(57)=1 exch2_isWedge(57)=0 exch2_isNedge(57)=1 exch2_isEedge(57)=0 exch2_isSedge(57)=1 exch2_myFace(57)=6 exch2_mydNx(57)=510 exch2_mydNy(57)=510 exch2_nNeighbours(57)=4 exch2_neighbourId(1,57)=7 exch2_iLo(1,57)=0 exch2_iHi(1,57)=52 exch2_jLo(1,57)=511 exch2_jHi(1,57)=511 exch2_opposingSend(1,57)=2 exch2_pij(1,1,57)=1 exch2_pij(2,1,57)=0 exch2_pij(3,1,57)=0 exch2_pij(4,1,57)=1 exch2_oi(1,57)=0 exch2_oj(1,57)=510 exch2_neighbourId(2,57)=40 exch2_iLo(2,57)=0 exch2_iHi(2,57)=52 exch2_jLo(2,57)=0 exch2_jHi(2,57)=0 exch2_opposingSend(2,57)=9 exch2_pij(1,2,57)=0 exch2_pij(2,2,57)=-1 exch2_pij(3,2,57)=1 exch2_pij(4,2,57)=0 exch2_oi(2,57)=511 exch2_oj(2,57)=-510 exch2_neighbourId(3,57)=58 exch2_iLo(3,57)=52 exch2_iHi(3,57)=52 exch2_jLo(3,57)=0 exch2_jHi(3,57)=511 exch2_opposingSend(3,57)=4 exch2_pij(1,3,57)=1 exch2_pij(2,3,57)=0 exch2_pij(3,3,57)=0 exch2_pij(4,3,57)=1 exch2_oi(3,57)=0 exch2_oj(3,57)=0 exch2_neighbourId(4,57)=56 exch2_iLo(4,57)=0 exch2_iHi(4,57)=0 exch2_jLo(4,57)=0 exch2_jHi(4,57)=511 exch2_opposingSend(4,57)=3 exch2_pij(1,4,57)=1 exch2_pij(2,4,57)=0 exch2_pij(3,4,57)=0 exch2_pij(4,4,57)=1 exch2_oi(4,57)=0 exch2_oj(4,57)=0 RETURN END SUBROUTINE W2_E2SETUP_58 C Topology for tile 58 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(58)=51 exch2_tNy(58)=510 exch2_tBasex(58)=357 exch2_tBasey(58)=0 exch2_txGlobalo(58)=2908 exch2_tyGlobalo(58)=1 exch2_isWedge(58)=0 exch2_isNedge(58)=1 exch2_isEedge(58)=0 exch2_isSedge(58)=1 exch2_myFace(58)=6 exch2_mydNx(58)=510 exch2_mydNy(58)=510 exch2_nNeighbours(58)=4 exch2_neighbourId(1,58)=8 exch2_iLo(1,58)=0 exch2_iHi(1,58)=52 exch2_jLo(1,58)=511 exch2_jHi(1,58)=511 exch2_opposingSend(1,58)=2 exch2_pij(1,1,58)=1 exch2_pij(2,1,58)=0 exch2_pij(3,1,58)=0 exch2_pij(4,1,58)=1 exch2_oi(1,58)=0 exch2_oj(1,58)=510 exch2_neighbourId(2,58)=40 exch2_iLo(2,58)=0 exch2_iHi(2,58)=52 exch2_jLo(2,58)=0 exch2_jHi(2,58)=0 exch2_opposingSend(2,58)=10 exch2_pij(1,2,58)=0 exch2_pij(2,2,58)=-1 exch2_pij(3,2,58)=1 exch2_pij(4,2,58)=0 exch2_oi(2,58)=511 exch2_oj(2,58)=-510 exch2_neighbourId(3,58)=59 exch2_iLo(3,58)=52 exch2_iHi(3,58)=52 exch2_jLo(3,58)=0 exch2_jHi(3,58)=511 exch2_opposingSend(3,58)=4 exch2_pij(1,3,58)=1 exch2_pij(2,3,58)=0 exch2_pij(3,3,58)=0 exch2_pij(4,3,58)=1 exch2_oi(3,58)=0 exch2_oj(3,58)=0 exch2_neighbourId(4,58)=57 exch2_iLo(4,58)=0 exch2_iHi(4,58)=0 exch2_jLo(4,58)=0 exch2_jHi(4,58)=511 exch2_opposingSend(4,58)=3 exch2_pij(1,4,58)=1 exch2_pij(2,4,58)=0 exch2_pij(3,4,58)=0 exch2_pij(4,4,58)=1 exch2_oi(4,58)=0 exch2_oj(4,58)=0 RETURN END SUBROUTINE W2_E2SETUP_59 C Topology for tile 59 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(59)=51 exch2_tNy(59)=510 exch2_tBasex(59)=408 exch2_tBasey(59)=0 exch2_txGlobalo(59)=2959 exch2_tyGlobalo(59)=1 exch2_isWedge(59)=0 exch2_isNedge(59)=1 exch2_isEedge(59)=0 exch2_isSedge(59)=1 exch2_myFace(59)=6 exch2_mydNx(59)=510 exch2_mydNy(59)=510 exch2_nNeighbours(59)=4 exch2_neighbourId(1,59)=9 exch2_iLo(1,59)=0 exch2_iHi(1,59)=52 exch2_jLo(1,59)=511 exch2_jHi(1,59)=511 exch2_opposingSend(1,59)=2 exch2_pij(1,1,59)=1 exch2_pij(2,1,59)=0 exch2_pij(3,1,59)=0 exch2_pij(4,1,59)=1 exch2_oi(1,59)=0 exch2_oj(1,59)=510 exch2_neighbourId(2,59)=40 exch2_iLo(2,59)=0 exch2_iHi(2,59)=52 exch2_jLo(2,59)=0 exch2_jHi(2,59)=0 exch2_opposingSend(2,59)=11 exch2_pij(1,2,59)=0 exch2_pij(2,2,59)=-1 exch2_pij(3,2,59)=1 exch2_pij(4,2,59)=0 exch2_oi(2,59)=511 exch2_oj(2,59)=-510 exch2_neighbourId(3,59)=60 exch2_iLo(3,59)=52 exch2_iHi(3,59)=52 exch2_jLo(3,59)=0 exch2_jHi(3,59)=511 exch2_opposingSend(3,59)=13 exch2_pij(1,3,59)=1 exch2_pij(2,3,59)=0 exch2_pij(3,3,59)=0 exch2_pij(4,3,59)=1 exch2_oi(3,59)=0 exch2_oj(3,59)=0 exch2_neighbourId(4,59)=58 exch2_iLo(4,59)=0 exch2_iHi(4,59)=0 exch2_jLo(4,59)=0 exch2_jHi(4,59)=511 exch2_opposingSend(4,59)=3 exch2_pij(1,4,59)=1 exch2_pij(2,4,59)=0 exch2_pij(3,4,59)=0 exch2_pij(4,4,59)=1 exch2_oi(4,59)=0 exch2_oj(4,59)=0 RETURN END SUBROUTINE W2_E2SETUP_60 C Topology for tile 60 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(60)=51 exch2_tNy(60)=510 exch2_tBasex(60)=459 exch2_tBasey(60)=0 exch2_txGlobalo(60)=3010 exch2_tyGlobalo(60)=1 exch2_isWedge(60)=0 exch2_isNedge(60)=1 exch2_isEedge(60)=1 exch2_isSedge(60)=1 exch2_myFace(60)=6 exch2_mydNx(60)=510 exch2_mydNy(60)=510 exch2_nNeighbours(60)=13 exch2_neighbourId(1,60)=10 exch2_iLo(1,60)=0 exch2_iHi(1,60)=52 exch2_jLo(1,60)=511 exch2_jHi(1,60)=511 exch2_opposingSend(1,60)=2 exch2_pij(1,1,60)=1 exch2_pij(2,1,60)=0 exch2_pij(3,1,60)=0 exch2_pij(4,1,60)=1 exch2_oi(1,60)=0 exch2_oj(1,60)=510 exch2_neighbourId(2,60)=40 exch2_iLo(2,60)=0 exch2_iHi(2,60)=52 exch2_jLo(2,60)=0 exch2_jHi(2,60)=0 exch2_opposingSend(2,60)=12 exch2_pij(1,2,60)=0 exch2_pij(2,2,60)=-1 exch2_pij(3,2,60)=1 exch2_pij(4,2,60)=0 exch2_oi(2,60)=511 exch2_oj(2,60)=-510 exch2_neighbourId(3,60)=11 exch2_iLo(3,60)=52 exch2_iHi(3,60)=52 exch2_jLo(3,60)=459 exch2_jHi(3,60)=511 exch2_opposingSend(3,60)=2 exch2_pij(1,3,60)=0 exch2_pij(2,3,60)=1 exch2_pij(3,3,60)=-1 exch2_pij(4,3,60)=0 exch2_oi(3,60)=510 exch2_oj(3,60)=511 exch2_neighbourId(4,60)=12 exch2_iLo(4,60)=52 exch2_iHi(4,60)=52 exch2_jLo(4,60)=408 exch2_jHi(4,60)=460 exch2_opposingSend(4,60)=2 exch2_pij(1,4,60)=0 exch2_pij(2,4,60)=1 exch2_pij(3,4,60)=-1 exch2_pij(4,4,60)=0 exch2_oi(4,60)=510 exch2_oj(4,60)=511 exch2_neighbourId(5,60)=13 exch2_iLo(5,60)=52 exch2_iHi(5,60)=52 exch2_jLo(5,60)=357 exch2_jHi(5,60)=409 exch2_opposingSend(5,60)=2 exch2_pij(1,5,60)=0 exch2_pij(2,5,60)=1 exch2_pij(3,5,60)=-1 exch2_pij(4,5,60)=0 exch2_oi(5,60)=510 exch2_oj(5,60)=511 exch2_neighbourId(6,60)=14 exch2_iLo(6,60)=52 exch2_iHi(6,60)=52 exch2_jLo(6,60)=306 exch2_jHi(6,60)=358 exch2_opposingSend(6,60)=2 exch2_pij(1,6,60)=0 exch2_pij(2,6,60)=1 exch2_pij(3,6,60)=-1 exch2_pij(4,6,60)=0 exch2_oi(6,60)=510 exch2_oj(6,60)=511 exch2_neighbourId(7,60)=15 exch2_iLo(7,60)=52 exch2_iHi(7,60)=52 exch2_jLo(7,60)=255 exch2_jHi(7,60)=307 exch2_opposingSend(7,60)=2 exch2_pij(1,7,60)=0 exch2_pij(2,7,60)=1 exch2_pij(3,7,60)=-1 exch2_pij(4,7,60)=0 exch2_oi(7,60)=510 exch2_oj(7,60)=511 exch2_neighbourId(8,60)=16 exch2_iLo(8,60)=52 exch2_iHi(8,60)=52 exch2_jLo(8,60)=204 exch2_jHi(8,60)=256 exch2_opposingSend(8,60)=2 exch2_pij(1,8,60)=0 exch2_pij(2,8,60)=1 exch2_pij(3,8,60)=-1 exch2_pij(4,8,60)=0 exch2_oi(8,60)=510 exch2_oj(8,60)=511 exch2_neighbourId(9,60)=17 exch2_iLo(9,60)=52 exch2_iHi(9,60)=52 exch2_jLo(9,60)=153 exch2_jHi(9,60)=205 exch2_opposingSend(9,60)=2 exch2_pij(1,9,60)=0 exch2_pij(2,9,60)=1 exch2_pij(3,9,60)=-1 exch2_pij(4,9,60)=0 exch2_oi(9,60)=510 exch2_oj(9,60)=511 exch2_neighbourId(10,60)=18 exch2_iLo(10,60)=52 exch2_iHi(10,60)=52 exch2_jLo(10,60)=102 exch2_jHi(10,60)=154 exch2_opposingSend(10,60)=2 exch2_pij(1,10,60)=0 exch2_pij(2,10,60)=1 exch2_pij(3,10,60)=-1 exch2_pij(4,10,60)=0 exch2_oi(10,60)=510 exch2_oj(10,60)=511 exch2_neighbourId(11,60)=19 exch2_iLo(11,60)=52 exch2_iHi(11,60)=52 exch2_jLo(11,60)=51 exch2_jHi(11,60)=103 exch2_opposingSend(11,60)=2 exch2_pij(1,11,60)=0 exch2_pij(2,11,60)=1 exch2_pij(3,11,60)=-1 exch2_pij(4,11,60)=0 exch2_oi(11,60)=510 exch2_oj(11,60)=511 exch2_neighbourId(12,60)=20 exch2_iLo(12,60)=52 exch2_iHi(12,60)=52 exch2_jLo(12,60)=0 exch2_jHi(12,60)=52 exch2_opposingSend(12,60)=2 exch2_pij(1,12,60)=0 exch2_pij(2,12,60)=1 exch2_pij(3,12,60)=-1 exch2_pij(4,12,60)=0 exch2_oi(12,60)=510 exch2_oj(12,60)=511 exch2_neighbourId(13,60)=59 exch2_iLo(13,60)=0 exch2_iHi(13,60)=0 exch2_jLo(13,60)=0 exch2_jHi(13,60)=511 exch2_opposingSend(13,60)=3 exch2_pij(1,13,60)=1 exch2_pij(2,13,60)=0 exch2_pij(3,13,60)=0 exch2_pij(4,13,60)=1 exch2_oi(13,60)=0 exch2_oj(13,60)=0 RETURN END