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 CALL W2_E2SETUP_61 CALL W2_E2SETUP_62 CALL W2_E2SETUP_63 CALL W2_E2SETUP_64 CALL W2_E2SETUP_65 CALL W2_E2SETUP_66 CALL W2_E2SETUP_67 CALL W2_E2SETUP_68 CALL W2_E2SETUP_69 CALL W2_E2SETUP_70 CALL W2_E2SETUP_71 CALL W2_E2SETUP_72 CALL W2_E2SETUP_73 CALL W2_E2SETUP_74 CALL W2_E2SETUP_75 CALL W2_E2SETUP_76 CALL W2_E2SETUP_77 CALL W2_E2SETUP_78 CALL W2_E2SETUP_79 CALL W2_E2SETUP_80 CALL W2_E2SETUP_81 CALL W2_E2SETUP_82 CALL W2_E2SETUP_83 CALL W2_E2SETUP_84 CALL W2_E2SETUP_85 CALL W2_E2SETUP_86 CALL W2_E2SETUP_87 CALL W2_E2SETUP_88 CALL W2_E2SETUP_89 CALL W2_E2SETUP_90 CALL W2_E2SETUP_91 CALL W2_E2SETUP_92 CALL W2_E2SETUP_93 CALL W2_E2SETUP_94 CALL W2_E2SETUP_95 CALL W2_E2SETUP_96 CALL W2_E2SETUP_97 CALL W2_E2SETUP_98 CALL W2_E2SETUP_99 CALL W2_E2SETUP_100 CALL W2_E2SETUP_101 CALL W2_E2SETUP_102 CALL W2_E2SETUP_103 CALL W2_E2SETUP_104 CALL W2_E2SETUP_105 CALL W2_E2SETUP_106 CALL W2_E2SETUP_107 CALL W2_E2SETUP_108 CALL W2_E2SETUP_109 CALL W2_E2SETUP_110 CALL W2_E2SETUP_111 CALL W2_E2SETUP_112 CALL W2_E2SETUP_113 CALL W2_E2SETUP_114 CALL W2_E2SETUP_115 CALL W2_E2SETUP_116 CALL W2_E2SETUP_117 CALL W2_E2SETUP_118 CALL W2_E2SETUP_119 CALL W2_E2SETUP_120 CALL W2_E2SETUP_121 CALL W2_E2SETUP_122 CALL W2_E2SETUP_123 CALL W2_E2SETUP_124 CALL W2_E2SETUP_125 CALL W2_E2SETUP_126 CALL W2_E2SETUP_127 CALL W2_E2SETUP_128 CALL W2_E2SETUP_129 CALL W2_E2SETUP_130 CALL W2_E2SETUP_131 CALL W2_E2SETUP_132 CALL W2_E2SETUP_133 CALL W2_E2SETUP_134 CALL W2_E2SETUP_135 CALL W2_E2SETUP_136 CALL W2_E2SETUP_137 CALL W2_E2SETUP_138 CALL W2_E2SETUP_139 CALL W2_E2SETUP_140 CALL W2_E2SETUP_141 CALL W2_E2SETUP_142 CALL W2_E2SETUP_143 CALL W2_E2SETUP_144 CALL W2_E2SETUP_145 CALL W2_E2SETUP_146 CALL W2_E2SETUP_147 CALL W2_E2SETUP_148 CALL W2_E2SETUP_149 CALL W2_E2SETUP_150 CALL W2_E2SETUP_151 CALL W2_E2SETUP_152 CALL W2_E2SETUP_153 CALL W2_E2SETUP_154 CALL W2_E2SETUP_155 CALL W2_E2SETUP_156 CALL W2_E2SETUP_157 CALL W2_E2SETUP_158 CALL W2_E2SETUP_159 CALL W2_E2SETUP_160 CALL W2_E2SETUP_161 CALL W2_E2SETUP_162 CALL W2_E2SETUP_163 CALL W2_E2SETUP_164 CALL W2_E2SETUP_165 CALL W2_E2SETUP_166 CALL W2_E2SETUP_167 CALL W2_E2SETUP_168 CALL W2_E2SETUP_169 CALL W2_E2SETUP_170 CALL W2_E2SETUP_171 CALL W2_E2SETUP_172 CALL W2_E2SETUP_173 CALL W2_E2SETUP_174 CALL W2_E2SETUP_175 CALL W2_E2SETUP_176 CALL W2_E2SETUP_177 CALL W2_E2SETUP_178 CALL W2_E2SETUP_179 CALL W2_E2SETUP_180 CALL W2_E2SETUP_181 CALL W2_E2SETUP_182 CALL W2_E2SETUP_183 CALL W2_E2SETUP_184 CALL W2_E2SETUP_185 CALL W2_E2SETUP_186 CALL W2_E2SETUP_187 CALL W2_E2SETUP_188 CALL W2_E2SETUP_189 CALL W2_E2SETUP_190 CALL W2_E2SETUP_191 CALL W2_E2SETUP_192 CALL W2_E2SETUP_193 CALL W2_E2SETUP_194 CALL W2_E2SETUP_195 CALL W2_E2SETUP_196 CALL W2_E2SETUP_197 CALL W2_E2SETUP_198 CALL W2_E2SETUP_199 CALL W2_E2SETUP_200 CALL W2_E2SETUP_201 CALL W2_E2SETUP_202 CALL W2_E2SETUP_203 CALL W2_E2SETUP_204 CALL W2_E2SETUP_205 CALL W2_E2SETUP_206 CALL W2_E2SETUP_207 CALL W2_E2SETUP_208 CALL W2_E2SETUP_209 CALL W2_E2SETUP_210 CALL W2_E2SETUP_211 CALL W2_E2SETUP_212 CALL W2_E2SETUP_213 CALL W2_E2SETUP_214 CALL W2_E2SETUP_215 CALL W2_E2SETUP_216 RETURN END SUBROUTINE W2_E2SETUP_1 C Topology for tile 1 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(1)=85 exch2_tNy(1)=85 exch2_tBasex(1)=0 exch2_tBasey(1)=0 exch2_txGlobalo(1)=1 exch2_tyGlobalo(1)=1 exch2_isWedge(1)=1 exch2_isNedge(1)=0 exch2_isEedge(1)=0 exch2_isSedge(1)=1 exch2_myFace(1)=1 exch2_mydNx(1)=510 exch2_mydNy(1)=510 exch2_nNeighbours(1)=4 exch2_neighbourId(1,1)=7 exch2_iLo(1,1)=0 exch2_iHi(1,1)=86 exch2_jLo(1,1)=86 exch2_jHi(1,1)=86 exch2_opposingSend(1,1)=2 exch2_pij(1,1,1)=1 exch2_pij(2,1,1)=0 exch2_pij(3,1,1)=0 exch2_pij(4,1,1)=1 exch2_oi(1,1)=0 exch2_oj(1,1)=0 exch2_neighbourId(2,1)=211 exch2_iLo(2,1)=0 exch2_iHi(2,1)=86 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)=86 exch2_iHi(3,1)=86 exch2_jLo(3,1)=0 exch2_jHi(3,1)=86 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)=180 exch2_iLo(4,1)=0 exch2_iHi(4,1)=0 exch2_jLo(4,1)=0 exch2_jHi(4,1)=86 exch2_opposingSend(4,1)=1 exch2_pij(1,4,1)=0 exch2_pij(2,4,1)=1 exch2_pij(3,4,1)=-1 exch2_pij(4,4,1)=0 exch2_oi(4,1)=-510 exch2_oj(4,1)=511 RETURN END SUBROUTINE W2_E2SETUP_2 C Topology for tile 2 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(2)=85 exch2_tNy(2)=85 exch2_tBasex(2)=85 exch2_tBasey(2)=0 exch2_txGlobalo(2)=86 exch2_tyGlobalo(2)=1 exch2_isWedge(2)=0 exch2_isNedge(2)=0 exch2_isEedge(2)=0 exch2_isSedge(2)=1 exch2_myFace(2)=1 exch2_mydNx(2)=510 exch2_mydNy(2)=510 exch2_nNeighbours(2)=4 exch2_neighbourId(1,2)=8 exch2_iLo(1,2)=0 exch2_iHi(1,2)=86 exch2_jLo(1,2)=86 exch2_jHi(1,2)=86 exch2_opposingSend(1,2)=2 exch2_pij(1,1,2)=1 exch2_pij(2,1,2)=0 exch2_pij(3,1,2)=0 exch2_pij(4,1,2)=1 exch2_oi(1,2)=0 exch2_oj(1,2)=0 exch2_neighbourId(2,2)=212 exch2_iLo(2,2)=0 exch2_iHi(2,2)=86 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)=86 exch2_iHi(3,2)=86 exch2_jLo(3,2)=0 exch2_jHi(3,2)=86 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)=86 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)=85 exch2_tNy(3)=85 exch2_tBasex(3)=170 exch2_tBasey(3)=0 exch2_txGlobalo(3)=171 exch2_tyGlobalo(3)=1 exch2_isWedge(3)=0 exch2_isNedge(3)=0 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)=9 exch2_iLo(1,3)=0 exch2_iHi(1,3)=86 exch2_jLo(1,3)=86 exch2_jHi(1,3)=86 exch2_opposingSend(1,3)=2 exch2_pij(1,1,3)=1 exch2_pij(2,1,3)=0 exch2_pij(3,1,3)=0 exch2_pij(4,1,3)=1 exch2_oi(1,3)=0 exch2_oj(1,3)=0 exch2_neighbourId(2,3)=213 exch2_iLo(2,3)=0 exch2_iHi(2,3)=86 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)=86 exch2_iHi(3,3)=86 exch2_jLo(3,3)=0 exch2_jHi(3,3)=86 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)=86 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)=85 exch2_tNy(4)=85 exch2_tBasex(4)=255 exch2_tBasey(4)=0 exch2_txGlobalo(4)=256 exch2_tyGlobalo(4)=1 exch2_isWedge(4)=0 exch2_isNedge(4)=0 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)=10 exch2_iLo(1,4)=0 exch2_iHi(1,4)=86 exch2_jLo(1,4)=86 exch2_jHi(1,4)=86 exch2_opposingSend(1,4)=2 exch2_pij(1,1,4)=1 exch2_pij(2,1,4)=0 exch2_pij(3,1,4)=0 exch2_pij(4,1,4)=1 exch2_oi(1,4)=0 exch2_oj(1,4)=0 exch2_neighbourId(2,4)=214 exch2_iLo(2,4)=0 exch2_iHi(2,4)=86 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)=86 exch2_iHi(3,4)=86 exch2_jLo(3,4)=0 exch2_jHi(3,4)=86 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)=86 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)=85 exch2_tNy(5)=85 exch2_tBasex(5)=340 exch2_tBasey(5)=0 exch2_txGlobalo(5)=341 exch2_tyGlobalo(5)=1 exch2_isWedge(5)=0 exch2_isNedge(5)=0 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)=11 exch2_iLo(1,5)=0 exch2_iHi(1,5)=86 exch2_jLo(1,5)=86 exch2_jHi(1,5)=86 exch2_opposingSend(1,5)=2 exch2_pij(1,1,5)=1 exch2_pij(2,1,5)=0 exch2_pij(3,1,5)=0 exch2_pij(4,1,5)=1 exch2_oi(1,5)=0 exch2_oj(1,5)=0 exch2_neighbourId(2,5)=215 exch2_iLo(2,5)=0 exch2_iHi(2,5)=86 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)=86 exch2_iHi(3,5)=86 exch2_jLo(3,5)=0 exch2_jHi(3,5)=86 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)=86 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)=85 exch2_tNy(6)=85 exch2_tBasex(6)=425 exch2_tBasey(6)=0 exch2_txGlobalo(6)=426 exch2_tyGlobalo(6)=1 exch2_isWedge(6)=0 exch2_isNedge(6)=0 exch2_isEedge(6)=1 exch2_isSedge(6)=1 exch2_myFace(6)=1 exch2_mydNx(6)=510 exch2_mydNy(6)=510 exch2_nNeighbours(6)=4 exch2_neighbourId(1,6)=12 exch2_iLo(1,6)=0 exch2_iHi(1,6)=86 exch2_jLo(1,6)=86 exch2_jHi(1,6)=86 exch2_opposingSend(1,6)=2 exch2_pij(1,1,6)=1 exch2_pij(2,1,6)=0 exch2_pij(3,1,6)=0 exch2_pij(4,1,6)=1 exch2_oi(1,6)=0 exch2_oj(1,6)=0 exch2_neighbourId(2,6)=216 exch2_iLo(2,6)=0 exch2_iHi(2,6)=86 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)=37 exch2_iLo(3,6)=86 exch2_iHi(3,6)=86 exch2_jLo(3,6)=0 exch2_jHi(3,6)=86 exch2_opposingSend(3,6)=4 exch2_pij(1,3,6)=1 exch2_pij(2,3,6)=0 exch2_pij(3,3,6)=0 exch2_pij(4,3,6)=1 exch2_oi(3,6)=510 exch2_oj(3,6)=0 exch2_neighbourId(4,6)=5 exch2_iLo(4,6)=0 exch2_iHi(4,6)=0 exch2_jLo(4,6)=0 exch2_jHi(4,6)=86 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)=85 exch2_tNy(7)=85 exch2_tBasex(7)=0 exch2_tBasey(7)=85 exch2_txGlobalo(7)=1 exch2_tyGlobalo(7)=86 exch2_isWedge(7)=1 exch2_isNedge(7)=0 exch2_isEedge(7)=0 exch2_isSedge(7)=0 exch2_myFace(7)=1 exch2_mydNx(7)=510 exch2_mydNy(7)=510 exch2_nNeighbours(7)=4 exch2_neighbourId(1,7)=13 exch2_iLo(1,7)=0 exch2_iHi(1,7)=86 exch2_jLo(1,7)=86 exch2_jHi(1,7)=86 exch2_opposingSend(1,7)=2 exch2_pij(1,1,7)=1 exch2_pij(2,1,7)=0 exch2_pij(3,1,7)=0 exch2_pij(4,1,7)=1 exch2_oi(1,7)=0 exch2_oj(1,7)=0 exch2_neighbourId(2,7)=1 exch2_iLo(2,7)=0 exch2_iHi(2,7)=86 exch2_jLo(2,7)=0 exch2_jHi(2,7)=0 exch2_opposingSend(2,7)=1 exch2_pij(1,2,7)=1 exch2_pij(2,2,7)=0 exch2_pij(3,2,7)=0 exch2_pij(4,2,7)=1 exch2_oi(2,7)=0 exch2_oj(2,7)=0 exch2_neighbourId(3,7)=8 exch2_iLo(3,7)=86 exch2_iHi(3,7)=86 exch2_jLo(3,7)=0 exch2_jHi(3,7)=86 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)=179 exch2_iLo(4,7)=0 exch2_iHi(4,7)=0 exch2_jLo(4,7)=0 exch2_jHi(4,7)=86 exch2_opposingSend(4,7)=1 exch2_pij(1,4,7)=0 exch2_pij(2,4,7)=1 exch2_pij(3,4,7)=-1 exch2_pij(4,4,7)=0 exch2_oi(4,7)=-510 exch2_oj(4,7)=511 RETURN END SUBROUTINE W2_E2SETUP_8 C Topology for tile 8 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(8)=85 exch2_tNy(8)=85 exch2_tBasex(8)=85 exch2_tBasey(8)=85 exch2_txGlobalo(8)=86 exch2_tyGlobalo(8)=86 exch2_isWedge(8)=0 exch2_isNedge(8)=0 exch2_isEedge(8)=0 exch2_isSedge(8)=0 exch2_myFace(8)=1 exch2_mydNx(8)=510 exch2_mydNy(8)=510 exch2_nNeighbours(8)=4 exch2_neighbourId(1,8)=14 exch2_iLo(1,8)=0 exch2_iHi(1,8)=86 exch2_jLo(1,8)=86 exch2_jHi(1,8)=86 exch2_opposingSend(1,8)=2 exch2_pij(1,1,8)=1 exch2_pij(2,1,8)=0 exch2_pij(3,1,8)=0 exch2_pij(4,1,8)=1 exch2_oi(1,8)=0 exch2_oj(1,8)=0 exch2_neighbourId(2,8)=2 exch2_iLo(2,8)=0 exch2_iHi(2,8)=86 exch2_jLo(2,8)=0 exch2_jHi(2,8)=0 exch2_opposingSend(2,8)=1 exch2_pij(1,2,8)=1 exch2_pij(2,2,8)=0 exch2_pij(3,2,8)=0 exch2_pij(4,2,8)=1 exch2_oi(2,8)=0 exch2_oj(2,8)=0 exch2_neighbourId(3,8)=9 exch2_iLo(3,8)=86 exch2_iHi(3,8)=86 exch2_jLo(3,8)=0 exch2_jHi(3,8)=86 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)=86 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)=85 exch2_tNy(9)=85 exch2_tBasex(9)=170 exch2_tBasey(9)=85 exch2_txGlobalo(9)=171 exch2_tyGlobalo(9)=86 exch2_isWedge(9)=0 exch2_isNedge(9)=0 exch2_isEedge(9)=0 exch2_isSedge(9)=0 exch2_myFace(9)=1 exch2_mydNx(9)=510 exch2_mydNy(9)=510 exch2_nNeighbours(9)=4 exch2_neighbourId(1,9)=15 exch2_iLo(1,9)=0 exch2_iHi(1,9)=86 exch2_jLo(1,9)=86 exch2_jHi(1,9)=86 exch2_opposingSend(1,9)=2 exch2_pij(1,1,9)=1 exch2_pij(2,1,9)=0 exch2_pij(3,1,9)=0 exch2_pij(4,1,9)=1 exch2_oi(1,9)=0 exch2_oj(1,9)=0 exch2_neighbourId(2,9)=3 exch2_iLo(2,9)=0 exch2_iHi(2,9)=86 exch2_jLo(2,9)=0 exch2_jHi(2,9)=0 exch2_opposingSend(2,9)=1 exch2_pij(1,2,9)=1 exch2_pij(2,2,9)=0 exch2_pij(3,2,9)=0 exch2_pij(4,2,9)=1 exch2_oi(2,9)=0 exch2_oj(2,9)=0 exch2_neighbourId(3,9)=10 exch2_iLo(3,9)=86 exch2_iHi(3,9)=86 exch2_jLo(3,9)=0 exch2_jHi(3,9)=86 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)=86 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)=85 exch2_tNy(10)=85 exch2_tBasex(10)=255 exch2_tBasey(10)=85 exch2_txGlobalo(10)=256 exch2_tyGlobalo(10)=86 exch2_isWedge(10)=0 exch2_isNedge(10)=0 exch2_isEedge(10)=0 exch2_isSedge(10)=0 exch2_myFace(10)=1 exch2_mydNx(10)=510 exch2_mydNy(10)=510 exch2_nNeighbours(10)=4 exch2_neighbourId(1,10)=16 exch2_iLo(1,10)=0 exch2_iHi(1,10)=86 exch2_jLo(1,10)=86 exch2_jHi(1,10)=86 exch2_opposingSend(1,10)=2 exch2_pij(1,1,10)=1 exch2_pij(2,1,10)=0 exch2_pij(3,1,10)=0 exch2_pij(4,1,10)=1 exch2_oi(1,10)=0 exch2_oj(1,10)=0 exch2_neighbourId(2,10)=4 exch2_iLo(2,10)=0 exch2_iHi(2,10)=86 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)=0 exch2_neighbourId(3,10)=11 exch2_iLo(3,10)=86 exch2_iHi(3,10)=86 exch2_jLo(3,10)=0 exch2_jHi(3,10)=86 exch2_opposingSend(3,10)=4 exch2_pij(1,3,10)=1 exch2_pij(2,3,10)=0 exch2_pij(3,3,10)=0 exch2_pij(4,3,10)=1 exch2_oi(3,10)=0 exch2_oj(3,10)=0 exch2_neighbourId(4,10)=9 exch2_iLo(4,10)=0 exch2_iHi(4,10)=0 exch2_jLo(4,10)=0 exch2_jHi(4,10)=86 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)=85 exch2_tNy(11)=85 exch2_tBasex(11)=340 exch2_tBasey(11)=85 exch2_txGlobalo(11)=341 exch2_tyGlobalo(11)=86 exch2_isWedge(11)=0 exch2_isNedge(11)=0 exch2_isEedge(11)=0 exch2_isSedge(11)=0 exch2_myFace(11)=1 exch2_mydNx(11)=510 exch2_mydNy(11)=510 exch2_nNeighbours(11)=4 exch2_neighbourId(1,11)=17 exch2_iLo(1,11)=0 exch2_iHi(1,11)=86 exch2_jLo(1,11)=86 exch2_jHi(1,11)=86 exch2_opposingSend(1,11)=2 exch2_pij(1,1,11)=1 exch2_pij(2,1,11)=0 exch2_pij(3,1,11)=0 exch2_pij(4,1,11)=1 exch2_oi(1,11)=0 exch2_oj(1,11)=0 exch2_neighbourId(2,11)=5 exch2_iLo(2,11)=0 exch2_iHi(2,11)=86 exch2_jLo(2,11)=0 exch2_jHi(2,11)=0 exch2_opposingSend(2,11)=1 exch2_pij(1,2,11)=1 exch2_pij(2,2,11)=0 exch2_pij(3,2,11)=0 exch2_pij(4,2,11)=1 exch2_oi(2,11)=0 exch2_oj(2,11)=0 exch2_neighbourId(3,11)=12 exch2_iLo(3,11)=86 exch2_iHi(3,11)=86 exch2_jLo(3,11)=0 exch2_jHi(3,11)=86 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)=86 exch2_opposingSend(4,11)=3 exch2_pij(1,4,11)=1 exch2_pij(2,4,11)=0 exch2_pij(3,4,11)=0 exch2_pij(4,4,11)=1 exch2_oi(4,11)=0 exch2_oj(4,11)=0 RETURN END SUBROUTINE W2_E2SETUP_12 C Topology for tile 12 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(12)=85 exch2_tNy(12)=85 exch2_tBasex(12)=425 exch2_tBasey(12)=85 exch2_txGlobalo(12)=426 exch2_tyGlobalo(12)=86 exch2_isWedge(12)=0 exch2_isNedge(12)=0 exch2_isEedge(12)=1 exch2_isSedge(12)=0 exch2_myFace(12)=1 exch2_mydNx(12)=510 exch2_mydNy(12)=510 exch2_nNeighbours(12)=4 exch2_neighbourId(1,12)=18 exch2_iLo(1,12)=0 exch2_iHi(1,12)=86 exch2_jLo(1,12)=86 exch2_jHi(1,12)=86 exch2_opposingSend(1,12)=2 exch2_pij(1,1,12)=1 exch2_pij(2,1,12)=0 exch2_pij(3,1,12)=0 exch2_pij(4,1,12)=1 exch2_oi(1,12)=0 exch2_oj(1,12)=0 exch2_neighbourId(2,12)=6 exch2_iLo(2,12)=0 exch2_iHi(2,12)=86 exch2_jLo(2,12)=0 exch2_jHi(2,12)=0 exch2_opposingSend(2,12)=1 exch2_pij(1,2,12)=1 exch2_pij(2,2,12)=0 exch2_pij(3,2,12)=0 exch2_pij(4,2,12)=1 exch2_oi(2,12)=0 exch2_oj(2,12)=0 exch2_neighbourId(3,12)=43 exch2_iLo(3,12)=86 exch2_iHi(3,12)=86 exch2_jLo(3,12)=0 exch2_jHi(3,12)=86 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)=510 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)=86 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)=85 exch2_tNy(13)=85 exch2_tBasex(13)=0 exch2_tBasey(13)=170 exch2_txGlobalo(13)=1 exch2_tyGlobalo(13)=171 exch2_isWedge(13)=1 exch2_isNedge(13)=0 exch2_isEedge(13)=0 exch2_isSedge(13)=0 exch2_myFace(13)=1 exch2_mydNx(13)=510 exch2_mydNy(13)=510 exch2_nNeighbours(13)=4 exch2_neighbourId(1,13)=19 exch2_iLo(1,13)=0 exch2_iHi(1,13)=86 exch2_jLo(1,13)=86 exch2_jHi(1,13)=86 exch2_opposingSend(1,13)=2 exch2_pij(1,1,13)=1 exch2_pij(2,1,13)=0 exch2_pij(3,1,13)=0 exch2_pij(4,1,13)=1 exch2_oi(1,13)=0 exch2_oj(1,13)=0 exch2_neighbourId(2,13)=7 exch2_iLo(2,13)=0 exch2_iHi(2,13)=86 exch2_jLo(2,13)=0 exch2_jHi(2,13)=0 exch2_opposingSend(2,13)=1 exch2_pij(1,2,13)=1 exch2_pij(2,2,13)=0 exch2_pij(3,2,13)=0 exch2_pij(4,2,13)=1 exch2_oi(2,13)=0 exch2_oj(2,13)=0 exch2_neighbourId(3,13)=14 exch2_iLo(3,13)=86 exch2_iHi(3,13)=86 exch2_jLo(3,13)=0 exch2_jHi(3,13)=86 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)=178 exch2_iLo(4,13)=0 exch2_iHi(4,13)=0 exch2_jLo(4,13)=0 exch2_jHi(4,13)=86 exch2_opposingSend(4,13)=1 exch2_pij(1,4,13)=0 exch2_pij(2,4,13)=1 exch2_pij(3,4,13)=-1 exch2_pij(4,4,13)=0 exch2_oi(4,13)=-510 exch2_oj(4,13)=511 RETURN END SUBROUTINE W2_E2SETUP_14 C Topology for tile 14 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(14)=85 exch2_tNy(14)=85 exch2_tBasex(14)=85 exch2_tBasey(14)=170 exch2_txGlobalo(14)=86 exch2_tyGlobalo(14)=171 exch2_isWedge(14)=0 exch2_isNedge(14)=0 exch2_isEedge(14)=0 exch2_isSedge(14)=0 exch2_myFace(14)=1 exch2_mydNx(14)=510 exch2_mydNy(14)=510 exch2_nNeighbours(14)=4 exch2_neighbourId(1,14)=20 exch2_iLo(1,14)=0 exch2_iHi(1,14)=86 exch2_jLo(1,14)=86 exch2_jHi(1,14)=86 exch2_opposingSend(1,14)=2 exch2_pij(1,1,14)=1 exch2_pij(2,1,14)=0 exch2_pij(3,1,14)=0 exch2_pij(4,1,14)=1 exch2_oi(1,14)=0 exch2_oj(1,14)=0 exch2_neighbourId(2,14)=8 exch2_iLo(2,14)=0 exch2_iHi(2,14)=86 exch2_jLo(2,14)=0 exch2_jHi(2,14)=0 exch2_opposingSend(2,14)=1 exch2_pij(1,2,14)=1 exch2_pij(2,2,14)=0 exch2_pij(3,2,14)=0 exch2_pij(4,2,14)=1 exch2_oi(2,14)=0 exch2_oj(2,14)=0 exch2_neighbourId(3,14)=15 exch2_iLo(3,14)=86 exch2_iHi(3,14)=86 exch2_jLo(3,14)=0 exch2_jHi(3,14)=86 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)=86 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)=85 exch2_tNy(15)=85 exch2_tBasex(15)=170 exch2_tBasey(15)=170 exch2_txGlobalo(15)=171 exch2_tyGlobalo(15)=171 exch2_isWedge(15)=0 exch2_isNedge(15)=0 exch2_isEedge(15)=0 exch2_isSedge(15)=0 exch2_myFace(15)=1 exch2_mydNx(15)=510 exch2_mydNy(15)=510 exch2_nNeighbours(15)=4 exch2_neighbourId(1,15)=21 exch2_iLo(1,15)=0 exch2_iHi(1,15)=86 exch2_jLo(1,15)=86 exch2_jHi(1,15)=86 exch2_opposingSend(1,15)=2 exch2_pij(1,1,15)=1 exch2_pij(2,1,15)=0 exch2_pij(3,1,15)=0 exch2_pij(4,1,15)=1 exch2_oi(1,15)=0 exch2_oj(1,15)=0 exch2_neighbourId(2,15)=9 exch2_iLo(2,15)=0 exch2_iHi(2,15)=86 exch2_jLo(2,15)=0 exch2_jHi(2,15)=0 exch2_opposingSend(2,15)=1 exch2_pij(1,2,15)=1 exch2_pij(2,2,15)=0 exch2_pij(3,2,15)=0 exch2_pij(4,2,15)=1 exch2_oi(2,15)=0 exch2_oj(2,15)=0 exch2_neighbourId(3,15)=16 exch2_iLo(3,15)=86 exch2_iHi(3,15)=86 exch2_jLo(3,15)=0 exch2_jHi(3,15)=86 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)=86 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)=85 exch2_tNy(16)=85 exch2_tBasex(16)=255 exch2_tBasey(16)=170 exch2_txGlobalo(16)=256 exch2_tyGlobalo(16)=171 exch2_isWedge(16)=0 exch2_isNedge(16)=0 exch2_isEedge(16)=0 exch2_isSedge(16)=0 exch2_myFace(16)=1 exch2_mydNx(16)=510 exch2_mydNy(16)=510 exch2_nNeighbours(16)=4 exch2_neighbourId(1,16)=22 exch2_iLo(1,16)=0 exch2_iHi(1,16)=86 exch2_jLo(1,16)=86 exch2_jHi(1,16)=86 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)=0 exch2_neighbourId(2,16)=10 exch2_iLo(2,16)=0 exch2_iHi(2,16)=86 exch2_jLo(2,16)=0 exch2_jHi(2,16)=0 exch2_opposingSend(2,16)=1 exch2_pij(1,2,16)=1 exch2_pij(2,2,16)=0 exch2_pij(3,2,16)=0 exch2_pij(4,2,16)=1 exch2_oi(2,16)=0 exch2_oj(2,16)=0 exch2_neighbourId(3,16)=17 exch2_iLo(3,16)=86 exch2_iHi(3,16)=86 exch2_jLo(3,16)=0 exch2_jHi(3,16)=86 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)=86 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)=85 exch2_tNy(17)=85 exch2_tBasex(17)=340 exch2_tBasey(17)=170 exch2_txGlobalo(17)=341 exch2_tyGlobalo(17)=171 exch2_isWedge(17)=0 exch2_isNedge(17)=0 exch2_isEedge(17)=0 exch2_isSedge(17)=0 exch2_myFace(17)=1 exch2_mydNx(17)=510 exch2_mydNy(17)=510 exch2_nNeighbours(17)=4 exch2_neighbourId(1,17)=23 exch2_iLo(1,17)=0 exch2_iHi(1,17)=86 exch2_jLo(1,17)=86 exch2_jHi(1,17)=86 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)=0 exch2_neighbourId(2,17)=11 exch2_iLo(2,17)=0 exch2_iHi(2,17)=86 exch2_jLo(2,17)=0 exch2_jHi(2,17)=0 exch2_opposingSend(2,17)=1 exch2_pij(1,2,17)=1 exch2_pij(2,2,17)=0 exch2_pij(3,2,17)=0 exch2_pij(4,2,17)=1 exch2_oi(2,17)=0 exch2_oj(2,17)=0 exch2_neighbourId(3,17)=18 exch2_iLo(3,17)=86 exch2_iHi(3,17)=86 exch2_jLo(3,17)=0 exch2_jHi(3,17)=86 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)=86 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)=85 exch2_tNy(18)=85 exch2_tBasex(18)=425 exch2_tBasey(18)=170 exch2_txGlobalo(18)=426 exch2_tyGlobalo(18)=171 exch2_isWedge(18)=0 exch2_isNedge(18)=0 exch2_isEedge(18)=1 exch2_isSedge(18)=0 exch2_myFace(18)=1 exch2_mydNx(18)=510 exch2_mydNy(18)=510 exch2_nNeighbours(18)=4 exch2_neighbourId(1,18)=24 exch2_iLo(1,18)=0 exch2_iHi(1,18)=86 exch2_jLo(1,18)=86 exch2_jHi(1,18)=86 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)=0 exch2_neighbourId(2,18)=12 exch2_iLo(2,18)=0 exch2_iHi(2,18)=86 exch2_jLo(2,18)=0 exch2_jHi(2,18)=0 exch2_opposingSend(2,18)=1 exch2_pij(1,2,18)=1 exch2_pij(2,2,18)=0 exch2_pij(3,2,18)=0 exch2_pij(4,2,18)=1 exch2_oi(2,18)=0 exch2_oj(2,18)=0 exch2_neighbourId(3,18)=49 exch2_iLo(3,18)=86 exch2_iHi(3,18)=86 exch2_jLo(3,18)=0 exch2_jHi(3,18)=86 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)=510 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)=86 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)=85 exch2_tNy(19)=85 exch2_tBasex(19)=0 exch2_tBasey(19)=255 exch2_txGlobalo(19)=1 exch2_tyGlobalo(19)=256 exch2_isWedge(19)=1 exch2_isNedge(19)=0 exch2_isEedge(19)=0 exch2_isSedge(19)=0 exch2_myFace(19)=1 exch2_mydNx(19)=510 exch2_mydNy(19)=510 exch2_nNeighbours(19)=4 exch2_neighbourId(1,19)=25 exch2_iLo(1,19)=0 exch2_iHi(1,19)=86 exch2_jLo(1,19)=86 exch2_jHi(1,19)=86 exch2_opposingSend(1,19)=2 exch2_pij(1,1,19)=1 exch2_pij(2,1,19)=0 exch2_pij(3,1,19)=0 exch2_pij(4,1,19)=1 exch2_oi(1,19)=0 exch2_oj(1,19)=0 exch2_neighbourId(2,19)=13 exch2_iLo(2,19)=0 exch2_iHi(2,19)=86 exch2_jLo(2,19)=0 exch2_jHi(2,19)=0 exch2_opposingSend(2,19)=1 exch2_pij(1,2,19)=1 exch2_pij(2,2,19)=0 exch2_pij(3,2,19)=0 exch2_pij(4,2,19)=1 exch2_oi(2,19)=0 exch2_oj(2,19)=0 exch2_neighbourId(3,19)=20 exch2_iLo(3,19)=86 exch2_iHi(3,19)=86 exch2_jLo(3,19)=0 exch2_jHi(3,19)=86 exch2_opposingSend(3,19)=4 exch2_pij(1,3,19)=1 exch2_pij(2,3,19)=0 exch2_pij(3,3,19)=0 exch2_pij(4,3,19)=1 exch2_oi(3,19)=0 exch2_oj(3,19)=0 exch2_neighbourId(4,19)=177 exch2_iLo(4,19)=0 exch2_iHi(4,19)=0 exch2_jLo(4,19)=0 exch2_jHi(4,19)=86 exch2_opposingSend(4,19)=1 exch2_pij(1,4,19)=0 exch2_pij(2,4,19)=1 exch2_pij(3,4,19)=-1 exch2_pij(4,4,19)=0 exch2_oi(4,19)=-510 exch2_oj(4,19)=511 RETURN END SUBROUTINE W2_E2SETUP_20 C Topology for tile 20 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(20)=85 exch2_tNy(20)=85 exch2_tBasex(20)=85 exch2_tBasey(20)=255 exch2_txGlobalo(20)=86 exch2_tyGlobalo(20)=256 exch2_isWedge(20)=0 exch2_isNedge(20)=0 exch2_isEedge(20)=0 exch2_isSedge(20)=0 exch2_myFace(20)=1 exch2_mydNx(20)=510 exch2_mydNy(20)=510 exch2_nNeighbours(20)=4 exch2_neighbourId(1,20)=26 exch2_iLo(1,20)=0 exch2_iHi(1,20)=86 exch2_jLo(1,20)=86 exch2_jHi(1,20)=86 exch2_opposingSend(1,20)=2 exch2_pij(1,1,20)=1 exch2_pij(2,1,20)=0 exch2_pij(3,1,20)=0 exch2_pij(4,1,20)=1 exch2_oi(1,20)=0 exch2_oj(1,20)=0 exch2_neighbourId(2,20)=14 exch2_iLo(2,20)=0 exch2_iHi(2,20)=86 exch2_jLo(2,20)=0 exch2_jHi(2,20)=0 exch2_opposingSend(2,20)=1 exch2_pij(1,2,20)=1 exch2_pij(2,2,20)=0 exch2_pij(3,2,20)=0 exch2_pij(4,2,20)=1 exch2_oi(2,20)=0 exch2_oj(2,20)=0 exch2_neighbourId(3,20)=21 exch2_iLo(3,20)=86 exch2_iHi(3,20)=86 exch2_jLo(3,20)=0 exch2_jHi(3,20)=86 exch2_opposingSend(3,20)=4 exch2_pij(1,3,20)=1 exch2_pij(2,3,20)=0 exch2_pij(3,3,20)=0 exch2_pij(4,3,20)=1 exch2_oi(3,20)=0 exch2_oj(3,20)=0 exch2_neighbourId(4,20)=19 exch2_iLo(4,20)=0 exch2_iHi(4,20)=0 exch2_jLo(4,20)=0 exch2_jHi(4,20)=86 exch2_opposingSend(4,20)=3 exch2_pij(1,4,20)=1 exch2_pij(2,4,20)=0 exch2_pij(3,4,20)=0 exch2_pij(4,4,20)=1 exch2_oi(4,20)=0 exch2_oj(4,20)=0 RETURN END SUBROUTINE W2_E2SETUP_21 C Topology for tile 21 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(21)=85 exch2_tNy(21)=85 exch2_tBasex(21)=170 exch2_tBasey(21)=255 exch2_txGlobalo(21)=171 exch2_tyGlobalo(21)=256 exch2_isWedge(21)=0 exch2_isNedge(21)=0 exch2_isEedge(21)=0 exch2_isSedge(21)=0 exch2_myFace(21)=1 exch2_mydNx(21)=510 exch2_mydNy(21)=510 exch2_nNeighbours(21)=4 exch2_neighbourId(1,21)=27 exch2_iLo(1,21)=0 exch2_iHi(1,21)=86 exch2_jLo(1,21)=86 exch2_jHi(1,21)=86 exch2_opposingSend(1,21)=2 exch2_pij(1,1,21)=1 exch2_pij(2,1,21)=0 exch2_pij(3,1,21)=0 exch2_pij(4,1,21)=1 exch2_oi(1,21)=0 exch2_oj(1,21)=0 exch2_neighbourId(2,21)=15 exch2_iLo(2,21)=0 exch2_iHi(2,21)=86 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)=0 exch2_neighbourId(3,21)=22 exch2_iLo(3,21)=86 exch2_iHi(3,21)=86 exch2_jLo(3,21)=0 exch2_jHi(3,21)=86 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)=20 exch2_iLo(4,21)=0 exch2_iHi(4,21)=0 exch2_jLo(4,21)=0 exch2_jHi(4,21)=86 exch2_opposingSend(4,21)=3 exch2_pij(1,4,21)=1 exch2_pij(2,4,21)=0 exch2_pij(3,4,21)=0 exch2_pij(4,4,21)=1 exch2_oi(4,21)=0 exch2_oj(4,21)=0 RETURN END SUBROUTINE W2_E2SETUP_22 C Topology for tile 22 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(22)=85 exch2_tNy(22)=85 exch2_tBasex(22)=255 exch2_tBasey(22)=255 exch2_txGlobalo(22)=256 exch2_tyGlobalo(22)=256 exch2_isWedge(22)=0 exch2_isNedge(22)=0 exch2_isEedge(22)=0 exch2_isSedge(22)=0 exch2_myFace(22)=1 exch2_mydNx(22)=510 exch2_mydNy(22)=510 exch2_nNeighbours(22)=4 exch2_neighbourId(1,22)=28 exch2_iLo(1,22)=0 exch2_iHi(1,22)=86 exch2_jLo(1,22)=86 exch2_jHi(1,22)=86 exch2_opposingSend(1,22)=2 exch2_pij(1,1,22)=1 exch2_pij(2,1,22)=0 exch2_pij(3,1,22)=0 exch2_pij(4,1,22)=1 exch2_oi(1,22)=0 exch2_oj(1,22)=0 exch2_neighbourId(2,22)=16 exch2_iLo(2,22)=0 exch2_iHi(2,22)=86 exch2_jLo(2,22)=0 exch2_jHi(2,22)=0 exch2_opposingSend(2,22)=1 exch2_pij(1,2,22)=1 exch2_pij(2,2,22)=0 exch2_pij(3,2,22)=0 exch2_pij(4,2,22)=1 exch2_oi(2,22)=0 exch2_oj(2,22)=0 exch2_neighbourId(3,22)=23 exch2_iLo(3,22)=86 exch2_iHi(3,22)=86 exch2_jLo(3,22)=0 exch2_jHi(3,22)=86 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)=86 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)=85 exch2_tNy(23)=85 exch2_tBasex(23)=340 exch2_tBasey(23)=255 exch2_txGlobalo(23)=341 exch2_tyGlobalo(23)=256 exch2_isWedge(23)=0 exch2_isNedge(23)=0 exch2_isEedge(23)=0 exch2_isSedge(23)=0 exch2_myFace(23)=1 exch2_mydNx(23)=510 exch2_mydNy(23)=510 exch2_nNeighbours(23)=4 exch2_neighbourId(1,23)=29 exch2_iLo(1,23)=0 exch2_iHi(1,23)=86 exch2_jLo(1,23)=86 exch2_jHi(1,23)=86 exch2_opposingSend(1,23)=2 exch2_pij(1,1,23)=1 exch2_pij(2,1,23)=0 exch2_pij(3,1,23)=0 exch2_pij(4,1,23)=1 exch2_oi(1,23)=0 exch2_oj(1,23)=0 exch2_neighbourId(2,23)=17 exch2_iLo(2,23)=0 exch2_iHi(2,23)=86 exch2_jLo(2,23)=0 exch2_jHi(2,23)=0 exch2_opposingSend(2,23)=1 exch2_pij(1,2,23)=1 exch2_pij(2,2,23)=0 exch2_pij(3,2,23)=0 exch2_pij(4,2,23)=1 exch2_oi(2,23)=0 exch2_oj(2,23)=0 exch2_neighbourId(3,23)=24 exch2_iLo(3,23)=86 exch2_iHi(3,23)=86 exch2_jLo(3,23)=0 exch2_jHi(3,23)=86 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)=86 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)=85 exch2_tNy(24)=85 exch2_tBasex(24)=425 exch2_tBasey(24)=255 exch2_txGlobalo(24)=426 exch2_tyGlobalo(24)=256 exch2_isWedge(24)=0 exch2_isNedge(24)=0 exch2_isEedge(24)=1 exch2_isSedge(24)=0 exch2_myFace(24)=1 exch2_mydNx(24)=510 exch2_mydNy(24)=510 exch2_nNeighbours(24)=4 exch2_neighbourId(1,24)=30 exch2_iLo(1,24)=0 exch2_iHi(1,24)=86 exch2_jLo(1,24)=86 exch2_jHi(1,24)=86 exch2_opposingSend(1,24)=2 exch2_pij(1,1,24)=1 exch2_pij(2,1,24)=0 exch2_pij(3,1,24)=0 exch2_pij(4,1,24)=1 exch2_oi(1,24)=0 exch2_oj(1,24)=0 exch2_neighbourId(2,24)=18 exch2_iLo(2,24)=0 exch2_iHi(2,24)=86 exch2_jLo(2,24)=0 exch2_jHi(2,24)=0 exch2_opposingSend(2,24)=1 exch2_pij(1,2,24)=1 exch2_pij(2,2,24)=0 exch2_pij(3,2,24)=0 exch2_pij(4,2,24)=1 exch2_oi(2,24)=0 exch2_oj(2,24)=0 exch2_neighbourId(3,24)=55 exch2_iLo(3,24)=86 exch2_iHi(3,24)=86 exch2_jLo(3,24)=0 exch2_jHi(3,24)=86 exch2_opposingSend(3,24)=4 exch2_pij(1,3,24)=1 exch2_pij(2,3,24)=0 exch2_pij(3,3,24)=0 exch2_pij(4,3,24)=1 exch2_oi(3,24)=510 exch2_oj(3,24)=0 exch2_neighbourId(4,24)=23 exch2_iLo(4,24)=0 exch2_iHi(4,24)=0 exch2_jLo(4,24)=0 exch2_jHi(4,24)=86 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)=85 exch2_tNy(25)=85 exch2_tBasex(25)=0 exch2_tBasey(25)=340 exch2_txGlobalo(25)=1 exch2_tyGlobalo(25)=341 exch2_isWedge(25)=1 exch2_isNedge(25)=0 exch2_isEedge(25)=0 exch2_isSedge(25)=0 exch2_myFace(25)=1 exch2_mydNx(25)=510 exch2_mydNy(25)=510 exch2_nNeighbours(25)=4 exch2_neighbourId(1,25)=31 exch2_iLo(1,25)=0 exch2_iHi(1,25)=86 exch2_jLo(1,25)=86 exch2_jHi(1,25)=86 exch2_opposingSend(1,25)=2 exch2_pij(1,1,25)=1 exch2_pij(2,1,25)=0 exch2_pij(3,1,25)=0 exch2_pij(4,1,25)=1 exch2_oi(1,25)=0 exch2_oj(1,25)=0 exch2_neighbourId(2,25)=19 exch2_iLo(2,25)=0 exch2_iHi(2,25)=86 exch2_jLo(2,25)=0 exch2_jHi(2,25)=0 exch2_opposingSend(2,25)=1 exch2_pij(1,2,25)=1 exch2_pij(2,2,25)=0 exch2_pij(3,2,25)=0 exch2_pij(4,2,25)=1 exch2_oi(2,25)=0 exch2_oj(2,25)=0 exch2_neighbourId(3,25)=26 exch2_iLo(3,25)=86 exch2_iHi(3,25)=86 exch2_jLo(3,25)=0 exch2_jHi(3,25)=86 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)=176 exch2_iLo(4,25)=0 exch2_iHi(4,25)=0 exch2_jLo(4,25)=0 exch2_jHi(4,25)=86 exch2_opposingSend(4,25)=1 exch2_pij(1,4,25)=0 exch2_pij(2,4,25)=1 exch2_pij(3,4,25)=-1 exch2_pij(4,4,25)=0 exch2_oi(4,25)=-510 exch2_oj(4,25)=511 RETURN END SUBROUTINE W2_E2SETUP_26 C Topology for tile 26 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(26)=85 exch2_tNy(26)=85 exch2_tBasex(26)=85 exch2_tBasey(26)=340 exch2_txGlobalo(26)=86 exch2_tyGlobalo(26)=341 exch2_isWedge(26)=0 exch2_isNedge(26)=0 exch2_isEedge(26)=0 exch2_isSedge(26)=0 exch2_myFace(26)=1 exch2_mydNx(26)=510 exch2_mydNy(26)=510 exch2_nNeighbours(26)=4 exch2_neighbourId(1,26)=32 exch2_iLo(1,26)=0 exch2_iHi(1,26)=86 exch2_jLo(1,26)=86 exch2_jHi(1,26)=86 exch2_opposingSend(1,26)=2 exch2_pij(1,1,26)=1 exch2_pij(2,1,26)=0 exch2_pij(3,1,26)=0 exch2_pij(4,1,26)=1 exch2_oi(1,26)=0 exch2_oj(1,26)=0 exch2_neighbourId(2,26)=20 exch2_iLo(2,26)=0 exch2_iHi(2,26)=86 exch2_jLo(2,26)=0 exch2_jHi(2,26)=0 exch2_opposingSend(2,26)=1 exch2_pij(1,2,26)=1 exch2_pij(2,2,26)=0 exch2_pij(3,2,26)=0 exch2_pij(4,2,26)=1 exch2_oi(2,26)=0 exch2_oj(2,26)=0 exch2_neighbourId(3,26)=27 exch2_iLo(3,26)=86 exch2_iHi(3,26)=86 exch2_jLo(3,26)=0 exch2_jHi(3,26)=86 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)=86 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)=85 exch2_tNy(27)=85 exch2_tBasex(27)=170 exch2_tBasey(27)=340 exch2_txGlobalo(27)=171 exch2_tyGlobalo(27)=341 exch2_isWedge(27)=0 exch2_isNedge(27)=0 exch2_isEedge(27)=0 exch2_isSedge(27)=0 exch2_myFace(27)=1 exch2_mydNx(27)=510 exch2_mydNy(27)=510 exch2_nNeighbours(27)=4 exch2_neighbourId(1,27)=33 exch2_iLo(1,27)=0 exch2_iHi(1,27)=86 exch2_jLo(1,27)=86 exch2_jHi(1,27)=86 exch2_opposingSend(1,27)=2 exch2_pij(1,1,27)=1 exch2_pij(2,1,27)=0 exch2_pij(3,1,27)=0 exch2_pij(4,1,27)=1 exch2_oi(1,27)=0 exch2_oj(1,27)=0 exch2_neighbourId(2,27)=21 exch2_iLo(2,27)=0 exch2_iHi(2,27)=86 exch2_jLo(2,27)=0 exch2_jHi(2,27)=0 exch2_opposingSend(2,27)=1 exch2_pij(1,2,27)=1 exch2_pij(2,2,27)=0 exch2_pij(3,2,27)=0 exch2_pij(4,2,27)=1 exch2_oi(2,27)=0 exch2_oj(2,27)=0 exch2_neighbourId(3,27)=28 exch2_iLo(3,27)=86 exch2_iHi(3,27)=86 exch2_jLo(3,27)=0 exch2_jHi(3,27)=86 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)=86 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)=85 exch2_tNy(28)=85 exch2_tBasex(28)=255 exch2_tBasey(28)=340 exch2_txGlobalo(28)=256 exch2_tyGlobalo(28)=341 exch2_isWedge(28)=0 exch2_isNedge(28)=0 exch2_isEedge(28)=0 exch2_isSedge(28)=0 exch2_myFace(28)=1 exch2_mydNx(28)=510 exch2_mydNy(28)=510 exch2_nNeighbours(28)=4 exch2_neighbourId(1,28)=34 exch2_iLo(1,28)=0 exch2_iHi(1,28)=86 exch2_jLo(1,28)=86 exch2_jHi(1,28)=86 exch2_opposingSend(1,28)=2 exch2_pij(1,1,28)=1 exch2_pij(2,1,28)=0 exch2_pij(3,1,28)=0 exch2_pij(4,1,28)=1 exch2_oi(1,28)=0 exch2_oj(1,28)=0 exch2_neighbourId(2,28)=22 exch2_iLo(2,28)=0 exch2_iHi(2,28)=86 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)=0 exch2_neighbourId(3,28)=29 exch2_iLo(3,28)=86 exch2_iHi(3,28)=86 exch2_jLo(3,28)=0 exch2_jHi(3,28)=86 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)=86 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)=85 exch2_tNy(29)=85 exch2_tBasex(29)=340 exch2_tBasey(29)=340 exch2_txGlobalo(29)=341 exch2_tyGlobalo(29)=341 exch2_isWedge(29)=0 exch2_isNedge(29)=0 exch2_isEedge(29)=0 exch2_isSedge(29)=0 exch2_myFace(29)=1 exch2_mydNx(29)=510 exch2_mydNy(29)=510 exch2_nNeighbours(29)=4 exch2_neighbourId(1,29)=35 exch2_iLo(1,29)=0 exch2_iHi(1,29)=86 exch2_jLo(1,29)=86 exch2_jHi(1,29)=86 exch2_opposingSend(1,29)=2 exch2_pij(1,1,29)=1 exch2_pij(2,1,29)=0 exch2_pij(3,1,29)=0 exch2_pij(4,1,29)=1 exch2_oi(1,29)=0 exch2_oj(1,29)=0 exch2_neighbourId(2,29)=23 exch2_iLo(2,29)=0 exch2_iHi(2,29)=86 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)=0 exch2_neighbourId(3,29)=30 exch2_iLo(3,29)=86 exch2_iHi(3,29)=86 exch2_jLo(3,29)=0 exch2_jHi(3,29)=86 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)=86 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)=85 exch2_tNy(30)=85 exch2_tBasex(30)=425 exch2_tBasey(30)=340 exch2_txGlobalo(30)=426 exch2_tyGlobalo(30)=341 exch2_isWedge(30)=0 exch2_isNedge(30)=0 exch2_isEedge(30)=1 exch2_isSedge(30)=0 exch2_myFace(30)=1 exch2_mydNx(30)=510 exch2_mydNy(30)=510 exch2_nNeighbours(30)=4 exch2_neighbourId(1,30)=36 exch2_iLo(1,30)=0 exch2_iHi(1,30)=86 exch2_jLo(1,30)=86 exch2_jHi(1,30)=86 exch2_opposingSend(1,30)=2 exch2_pij(1,1,30)=1 exch2_pij(2,1,30)=0 exch2_pij(3,1,30)=0 exch2_pij(4,1,30)=1 exch2_oi(1,30)=0 exch2_oj(1,30)=0 exch2_neighbourId(2,30)=24 exch2_iLo(2,30)=0 exch2_iHi(2,30)=86 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)=0 exch2_neighbourId(3,30)=61 exch2_iLo(3,30)=86 exch2_iHi(3,30)=86 exch2_jLo(3,30)=0 exch2_jHi(3,30)=86 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)=86 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)=85 exch2_tNy(31)=85 exch2_tBasex(31)=0 exch2_tBasey(31)=425 exch2_txGlobalo(31)=1 exch2_tyGlobalo(31)=426 exch2_isWedge(31)=1 exch2_isNedge(31)=1 exch2_isEedge(31)=0 exch2_isSedge(31)=0 exch2_myFace(31)=1 exch2_mydNx(31)=510 exch2_mydNy(31)=510 exch2_nNeighbours(31)=4 exch2_neighbourId(1,31)=103 exch2_iLo(1,31)=0 exch2_iHi(1,31)=86 exch2_jLo(1,31)=86 exch2_jHi(1,31)=86 exch2_opposingSend(1,31)=4 exch2_pij(1,1,31)=0 exch2_pij(2,1,31)=-1 exch2_pij(3,1,31)=1 exch2_pij(4,1,31)=0 exch2_oi(1,31)=511 exch2_oj(1,31)=510 exch2_neighbourId(2,31)=25 exch2_iLo(2,31)=0 exch2_iHi(2,31)=86 exch2_jLo(2,31)=0 exch2_jHi(2,31)=0 exch2_opposingSend(2,31)=1 exch2_pij(1,2,31)=1 exch2_pij(2,2,31)=0 exch2_pij(3,2,31)=0 exch2_pij(4,2,31)=1 exch2_oi(2,31)=0 exch2_oj(2,31)=0 exch2_neighbourId(3,31)=32 exch2_iLo(3,31)=86 exch2_iHi(3,31)=86 exch2_jLo(3,31)=0 exch2_jHi(3,31)=86 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)=175 exch2_iLo(4,31)=0 exch2_iHi(4,31)=0 exch2_jLo(4,31)=0 exch2_jHi(4,31)=86 exch2_opposingSend(4,31)=1 exch2_pij(1,4,31)=0 exch2_pij(2,4,31)=1 exch2_pij(3,4,31)=-1 exch2_pij(4,4,31)=0 exch2_oi(4,31)=-510 exch2_oj(4,31)=511 RETURN END SUBROUTINE W2_E2SETUP_32 C Topology for tile 32 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(32)=85 exch2_tNy(32)=85 exch2_tBasex(32)=85 exch2_tBasey(32)=425 exch2_txGlobalo(32)=86 exch2_tyGlobalo(32)=426 exch2_isWedge(32)=0 exch2_isNedge(32)=1 exch2_isEedge(32)=0 exch2_isSedge(32)=0 exch2_myFace(32)=1 exch2_mydNx(32)=510 exch2_mydNy(32)=510 exch2_nNeighbours(32)=4 exch2_neighbourId(1,32)=97 exch2_iLo(1,32)=0 exch2_iHi(1,32)=86 exch2_jLo(1,32)=86 exch2_jHi(1,32)=86 exch2_opposingSend(1,32)=4 exch2_pij(1,1,32)=0 exch2_pij(2,1,32)=-1 exch2_pij(3,1,32)=1 exch2_pij(4,1,32)=0 exch2_oi(1,32)=511 exch2_oj(1,32)=510 exch2_neighbourId(2,32)=26 exch2_iLo(2,32)=0 exch2_iHi(2,32)=86 exch2_jLo(2,32)=0 exch2_jHi(2,32)=0 exch2_opposingSend(2,32)=1 exch2_pij(1,2,32)=1 exch2_pij(2,2,32)=0 exch2_pij(3,2,32)=0 exch2_pij(4,2,32)=1 exch2_oi(2,32)=0 exch2_oj(2,32)=0 exch2_neighbourId(3,32)=33 exch2_iLo(3,32)=86 exch2_iHi(3,32)=86 exch2_jLo(3,32)=0 exch2_jHi(3,32)=86 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)=86 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)=85 exch2_tNy(33)=85 exch2_tBasex(33)=170 exch2_tBasey(33)=425 exch2_txGlobalo(33)=171 exch2_tyGlobalo(33)=426 exch2_isWedge(33)=0 exch2_isNedge(33)=1 exch2_isEedge(33)=0 exch2_isSedge(33)=0 exch2_myFace(33)=1 exch2_mydNx(33)=510 exch2_mydNy(33)=510 exch2_nNeighbours(33)=4 exch2_neighbourId(1,33)=91 exch2_iLo(1,33)=0 exch2_iHi(1,33)=86 exch2_jLo(1,33)=86 exch2_jHi(1,33)=86 exch2_opposingSend(1,33)=4 exch2_pij(1,1,33)=0 exch2_pij(2,1,33)=-1 exch2_pij(3,1,33)=1 exch2_pij(4,1,33)=0 exch2_oi(1,33)=511 exch2_oj(1,33)=510 exch2_neighbourId(2,33)=27 exch2_iLo(2,33)=0 exch2_iHi(2,33)=86 exch2_jLo(2,33)=0 exch2_jHi(2,33)=0 exch2_opposingSend(2,33)=1 exch2_pij(1,2,33)=1 exch2_pij(2,2,33)=0 exch2_pij(3,2,33)=0 exch2_pij(4,2,33)=1 exch2_oi(2,33)=0 exch2_oj(2,33)=0 exch2_neighbourId(3,33)=34 exch2_iLo(3,33)=86 exch2_iHi(3,33)=86 exch2_jLo(3,33)=0 exch2_jHi(3,33)=86 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)=86 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)=85 exch2_tNy(34)=85 exch2_tBasex(34)=255 exch2_tBasey(34)=425 exch2_txGlobalo(34)=256 exch2_tyGlobalo(34)=426 exch2_isWedge(34)=0 exch2_isNedge(34)=1 exch2_isEedge(34)=0 exch2_isSedge(34)=0 exch2_myFace(34)=1 exch2_mydNx(34)=510 exch2_mydNy(34)=510 exch2_nNeighbours(34)=4 exch2_neighbourId(1,34)=85 exch2_iLo(1,34)=0 exch2_iHi(1,34)=86 exch2_jLo(1,34)=86 exch2_jHi(1,34)=86 exch2_opposingSend(1,34)=4 exch2_pij(1,1,34)=0 exch2_pij(2,1,34)=-1 exch2_pij(3,1,34)=1 exch2_pij(4,1,34)=0 exch2_oi(1,34)=511 exch2_oj(1,34)=510 exch2_neighbourId(2,34)=28 exch2_iLo(2,34)=0 exch2_iHi(2,34)=86 exch2_jLo(2,34)=0 exch2_jHi(2,34)=0 exch2_opposingSend(2,34)=1 exch2_pij(1,2,34)=1 exch2_pij(2,2,34)=0 exch2_pij(3,2,34)=0 exch2_pij(4,2,34)=1 exch2_oi(2,34)=0 exch2_oj(2,34)=0 exch2_neighbourId(3,34)=35 exch2_iLo(3,34)=86 exch2_iHi(3,34)=86 exch2_jLo(3,34)=0 exch2_jHi(3,34)=86 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)=86 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)=85 exch2_tNy(35)=85 exch2_tBasex(35)=340 exch2_tBasey(35)=425 exch2_txGlobalo(35)=341 exch2_tyGlobalo(35)=426 exch2_isWedge(35)=0 exch2_isNedge(35)=1 exch2_isEedge(35)=0 exch2_isSedge(35)=0 exch2_myFace(35)=1 exch2_mydNx(35)=510 exch2_mydNy(35)=510 exch2_nNeighbours(35)=4 exch2_neighbourId(1,35)=79 exch2_iLo(1,35)=0 exch2_iHi(1,35)=86 exch2_jLo(1,35)=86 exch2_jHi(1,35)=86 exch2_opposingSend(1,35)=4 exch2_pij(1,1,35)=0 exch2_pij(2,1,35)=-1 exch2_pij(3,1,35)=1 exch2_pij(4,1,35)=0 exch2_oi(1,35)=511 exch2_oj(1,35)=510 exch2_neighbourId(2,35)=29 exch2_iLo(2,35)=0 exch2_iHi(2,35)=86 exch2_jLo(2,35)=0 exch2_jHi(2,35)=0 exch2_opposingSend(2,35)=1 exch2_pij(1,2,35)=1 exch2_pij(2,2,35)=0 exch2_pij(3,2,35)=0 exch2_pij(4,2,35)=1 exch2_oi(2,35)=0 exch2_oj(2,35)=0 exch2_neighbourId(3,35)=36 exch2_iLo(3,35)=86 exch2_iHi(3,35)=86 exch2_jLo(3,35)=0 exch2_jHi(3,35)=86 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)=86 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)=85 exch2_tNy(36)=85 exch2_tBasex(36)=425 exch2_tBasey(36)=425 exch2_txGlobalo(36)=426 exch2_tyGlobalo(36)=426 exch2_isWedge(36)=0 exch2_isNedge(36)=1 exch2_isEedge(36)=1 exch2_isSedge(36)=0 exch2_myFace(36)=1 exch2_mydNx(36)=510 exch2_mydNy(36)=510 exch2_nNeighbours(36)=4 exch2_neighbourId(1,36)=73 exch2_iLo(1,36)=0 exch2_iHi(1,36)=86 exch2_jLo(1,36)=86 exch2_jHi(1,36)=86 exch2_opposingSend(1,36)=4 exch2_pij(1,1,36)=0 exch2_pij(2,1,36)=-1 exch2_pij(3,1,36)=1 exch2_pij(4,1,36)=0 exch2_oi(1,36)=511 exch2_oj(1,36)=510 exch2_neighbourId(2,36)=30 exch2_iLo(2,36)=0 exch2_iHi(2,36)=86 exch2_jLo(2,36)=0 exch2_jHi(2,36)=0 exch2_opposingSend(2,36)=1 exch2_pij(1,2,36)=1 exch2_pij(2,2,36)=0 exch2_pij(3,2,36)=0 exch2_pij(4,2,36)=1 exch2_oi(2,36)=0 exch2_oj(2,36)=0 exch2_neighbourId(3,36)=67 exch2_iLo(3,36)=86 exch2_iHi(3,36)=86 exch2_jLo(3,36)=0 exch2_jHi(3,36)=86 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)=510 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)=86 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)=85 exch2_tNy(37)=85 exch2_tBasex(37)=0 exch2_tBasey(37)=0 exch2_txGlobalo(37)=511 exch2_tyGlobalo(37)=1 exch2_isWedge(37)=1 exch2_isNedge(37)=0 exch2_isEedge(37)=0 exch2_isSedge(37)=1 exch2_myFace(37)=2 exch2_mydNx(37)=510 exch2_mydNy(37)=510 exch2_nNeighbours(37)=4 exch2_neighbourId(1,37)=43 exch2_iLo(1,37)=0 exch2_iHi(1,37)=86 exch2_jLo(1,37)=86 exch2_jHi(1,37)=86 exch2_opposingSend(1,37)=2 exch2_pij(1,1,37)=1 exch2_pij(2,1,37)=0 exch2_pij(3,1,37)=0 exch2_pij(4,1,37)=1 exch2_oi(1,37)=0 exch2_oj(1,37)=0 exch2_neighbourId(2,37)=216 exch2_iLo(2,37)=0 exch2_iHi(2,37)=86 exch2_jLo(2,37)=0 exch2_jHi(2,37)=0 exch2_opposingSend(2,37)=3 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)=86 exch2_iHi(3,37)=86 exch2_jLo(3,37)=0 exch2_jHi(3,37)=86 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)=6 exch2_iLo(4,37)=0 exch2_iHi(4,37)=0 exch2_jLo(4,37)=0 exch2_jHi(4,37)=86 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)=-510 exch2_oj(4,37)=0 RETURN END SUBROUTINE W2_E2SETUP_38 C Topology for tile 38 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(38)=85 exch2_tNy(38)=85 exch2_tBasex(38)=85 exch2_tBasey(38)=0 exch2_txGlobalo(38)=596 exch2_tyGlobalo(38)=1 exch2_isWedge(38)=0 exch2_isNedge(38)=0 exch2_isEedge(38)=0 exch2_isSedge(38)=1 exch2_myFace(38)=2 exch2_mydNx(38)=510 exch2_mydNy(38)=510 exch2_nNeighbours(38)=4 exch2_neighbourId(1,38)=44 exch2_iLo(1,38)=0 exch2_iHi(1,38)=86 exch2_jLo(1,38)=86 exch2_jHi(1,38)=86 exch2_opposingSend(1,38)=2 exch2_pij(1,1,38)=1 exch2_pij(2,1,38)=0 exch2_pij(3,1,38)=0 exch2_pij(4,1,38)=1 exch2_oi(1,38)=0 exch2_oj(1,38)=0 exch2_neighbourId(2,38)=210 exch2_iLo(2,38)=0 exch2_iHi(2,38)=86 exch2_jLo(2,38)=0 exch2_jHi(2,38)=0 exch2_opposingSend(2,38)=3 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)=86 exch2_iHi(3,38)=86 exch2_jLo(3,38)=0 exch2_jHi(3,38)=86 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)=86 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)=85 exch2_tNy(39)=85 exch2_tBasex(39)=170 exch2_tBasey(39)=0 exch2_txGlobalo(39)=681 exch2_tyGlobalo(39)=1 exch2_isWedge(39)=0 exch2_isNedge(39)=0 exch2_isEedge(39)=0 exch2_isSedge(39)=1 exch2_myFace(39)=2 exch2_mydNx(39)=510 exch2_mydNy(39)=510 exch2_nNeighbours(39)=4 exch2_neighbourId(1,39)=45 exch2_iLo(1,39)=0 exch2_iHi(1,39)=86 exch2_jLo(1,39)=86 exch2_jHi(1,39)=86 exch2_opposingSend(1,39)=2 exch2_pij(1,1,39)=1 exch2_pij(2,1,39)=0 exch2_pij(3,1,39)=0 exch2_pij(4,1,39)=1 exch2_oi(1,39)=0 exch2_oj(1,39)=0 exch2_neighbourId(2,39)=204 exch2_iLo(2,39)=0 exch2_iHi(2,39)=86 exch2_jLo(2,39)=0 exch2_jHi(2,39)=0 exch2_opposingSend(2,39)=3 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)=86 exch2_iHi(3,39)=86 exch2_jLo(3,39)=0 exch2_jHi(3,39)=86 exch2_opposingSend(3,39)=4 exch2_pij(1,3,39)=1 exch2_pij(2,3,39)=0 exch2_pij(3,3,39)=0 exch2_pij(4,3,39)=1 exch2_oi(3,39)=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)=86 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)=85 exch2_tNy(40)=85 exch2_tBasex(40)=255 exch2_tBasey(40)=0 exch2_txGlobalo(40)=766 exch2_tyGlobalo(40)=1 exch2_isWedge(40)=0 exch2_isNedge(40)=0 exch2_isEedge(40)=0 exch2_isSedge(40)=1 exch2_myFace(40)=2 exch2_mydNx(40)=510 exch2_mydNy(40)=510 exch2_nNeighbours(40)=4 exch2_neighbourId(1,40)=46 exch2_iLo(1,40)=0 exch2_iHi(1,40)=86 exch2_jLo(1,40)=86 exch2_jHi(1,40)=86 exch2_opposingSend(1,40)=2 exch2_pij(1,1,40)=1 exch2_pij(2,1,40)=0 exch2_pij(3,1,40)=0 exch2_pij(4,1,40)=1 exch2_oi(1,40)=0 exch2_oj(1,40)=0 exch2_neighbourId(2,40)=198 exch2_iLo(2,40)=0 exch2_iHi(2,40)=86 exch2_jLo(2,40)=0 exch2_jHi(2,40)=0 exch2_opposingSend(2,40)=3 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)=41 exch2_iLo(3,40)=86 exch2_iHi(3,40)=86 exch2_jLo(3,40)=0 exch2_jHi(3,40)=86 exch2_opposingSend(3,40)=4 exch2_pij(1,3,40)=1 exch2_pij(2,3,40)=0 exch2_pij(3,3,40)=0 exch2_pij(4,3,40)=1 exch2_oi(3,40)=0 exch2_oj(3,40)=0 exch2_neighbourId(4,40)=39 exch2_iLo(4,40)=0 exch2_iHi(4,40)=0 exch2_jLo(4,40)=0 exch2_jHi(4,40)=86 exch2_opposingSend(4,40)=3 exch2_pij(1,4,40)=1 exch2_pij(2,4,40)=0 exch2_pij(3,4,40)=0 exch2_pij(4,4,40)=1 exch2_oi(4,40)=0 exch2_oj(4,40)=0 RETURN END SUBROUTINE W2_E2SETUP_41 C Topology for tile 41 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(41)=85 exch2_tNy(41)=85 exch2_tBasex(41)=340 exch2_tBasey(41)=0 exch2_txGlobalo(41)=851 exch2_tyGlobalo(41)=1 exch2_isWedge(41)=0 exch2_isNedge(41)=0 exch2_isEedge(41)=0 exch2_isSedge(41)=1 exch2_myFace(41)=2 exch2_mydNx(41)=510 exch2_mydNy(41)=510 exch2_nNeighbours(41)=4 exch2_neighbourId(1,41)=47 exch2_iLo(1,41)=0 exch2_iHi(1,41)=86 exch2_jLo(1,41)=86 exch2_jHi(1,41)=86 exch2_opposingSend(1,41)=2 exch2_pij(1,1,41)=1 exch2_pij(2,1,41)=0 exch2_pij(3,1,41)=0 exch2_pij(4,1,41)=1 exch2_oi(1,41)=0 exch2_oj(1,41)=0 exch2_neighbourId(2,41)=192 exch2_iLo(2,41)=0 exch2_iHi(2,41)=86 exch2_jLo(2,41)=0 exch2_jHi(2,41)=0 exch2_opposingSend(2,41)=3 exch2_pij(1,2,41)=0 exch2_pij(2,2,41)=-1 exch2_pij(3,2,41)=1 exch2_pij(4,2,41)=0 exch2_oi(2,41)=511 exch2_oj(2,41)=-510 exch2_neighbourId(3,41)=42 exch2_iLo(3,41)=86 exch2_iHi(3,41)=86 exch2_jLo(3,41)=0 exch2_jHi(3,41)=86 exch2_opposingSend(3,41)=4 exch2_pij(1,3,41)=1 exch2_pij(2,3,41)=0 exch2_pij(3,3,41)=0 exch2_pij(4,3,41)=1 exch2_oi(3,41)=0 exch2_oj(3,41)=0 exch2_neighbourId(4,41)=40 exch2_iLo(4,41)=0 exch2_iHi(4,41)=0 exch2_jLo(4,41)=0 exch2_jHi(4,41)=86 exch2_opposingSend(4,41)=3 exch2_pij(1,4,41)=1 exch2_pij(2,4,41)=0 exch2_pij(3,4,41)=0 exch2_pij(4,4,41)=1 exch2_oi(4,41)=0 exch2_oj(4,41)=0 RETURN END SUBROUTINE W2_E2SETUP_42 C Topology for tile 42 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(42)=85 exch2_tNy(42)=85 exch2_tBasex(42)=425 exch2_tBasey(42)=0 exch2_txGlobalo(42)=936 exch2_tyGlobalo(42)=1 exch2_isWedge(42)=0 exch2_isNedge(42)=0 exch2_isEedge(42)=1 exch2_isSedge(42)=1 exch2_myFace(42)=2 exch2_mydNx(42)=510 exch2_mydNy(42)=510 exch2_nNeighbours(42)=4 exch2_neighbourId(1,42)=48 exch2_iLo(1,42)=0 exch2_iHi(1,42)=86 exch2_jLo(1,42)=86 exch2_jHi(1,42)=86 exch2_opposingSend(1,42)=2 exch2_pij(1,1,42)=1 exch2_pij(2,1,42)=0 exch2_pij(3,1,42)=0 exch2_pij(4,1,42)=1 exch2_oi(1,42)=0 exch2_oj(1,42)=0 exch2_neighbourId(2,42)=186 exch2_iLo(2,42)=0 exch2_iHi(2,42)=86 exch2_jLo(2,42)=0 exch2_jHi(2,42)=0 exch2_opposingSend(2,42)=3 exch2_pij(1,2,42)=0 exch2_pij(2,2,42)=-1 exch2_pij(3,2,42)=1 exch2_pij(4,2,42)=0 exch2_oi(2,42)=511 exch2_oj(2,42)=-510 exch2_neighbourId(3,42)=114 exch2_iLo(3,42)=86 exch2_iHi(3,42)=86 exch2_jLo(3,42)=0 exch2_jHi(3,42)=86 exch2_opposingSend(3,42)=2 exch2_pij(1,3,42)=0 exch2_pij(2,3,42)=1 exch2_pij(3,3,42)=-1 exch2_pij(4,3,42)=0 exch2_oi(3,42)=510 exch2_oj(3,42)=511 exch2_neighbourId(4,42)=41 exch2_iLo(4,42)=0 exch2_iHi(4,42)=0 exch2_jLo(4,42)=0 exch2_jHi(4,42)=86 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)=85 exch2_tNy(43)=85 exch2_tBasex(43)=0 exch2_tBasey(43)=85 exch2_txGlobalo(43)=511 exch2_tyGlobalo(43)=86 exch2_isWedge(43)=1 exch2_isNedge(43)=0 exch2_isEedge(43)=0 exch2_isSedge(43)=0 exch2_myFace(43)=2 exch2_mydNx(43)=510 exch2_mydNy(43)=510 exch2_nNeighbours(43)=4 exch2_neighbourId(1,43)=49 exch2_iLo(1,43)=0 exch2_iHi(1,43)=86 exch2_jLo(1,43)=86 exch2_jHi(1,43)=86 exch2_opposingSend(1,43)=2 exch2_pij(1,1,43)=1 exch2_pij(2,1,43)=0 exch2_pij(3,1,43)=0 exch2_pij(4,1,43)=1 exch2_oi(1,43)=0 exch2_oj(1,43)=0 exch2_neighbourId(2,43)=37 exch2_iLo(2,43)=0 exch2_iHi(2,43)=86 exch2_jLo(2,43)=0 exch2_jHi(2,43)=0 exch2_opposingSend(2,43)=1 exch2_pij(1,2,43)=1 exch2_pij(2,2,43)=0 exch2_pij(3,2,43)=0 exch2_pij(4,2,43)=1 exch2_oi(2,43)=0 exch2_oj(2,43)=0 exch2_neighbourId(3,43)=44 exch2_iLo(3,43)=86 exch2_iHi(3,43)=86 exch2_jLo(3,43)=0 exch2_jHi(3,43)=86 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)=12 exch2_iLo(4,43)=0 exch2_iHi(4,43)=0 exch2_jLo(4,43)=0 exch2_jHi(4,43)=86 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)=-510 exch2_oj(4,43)=0 RETURN END SUBROUTINE W2_E2SETUP_44 C Topology for tile 44 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(44)=85 exch2_tNy(44)=85 exch2_tBasex(44)=85 exch2_tBasey(44)=85 exch2_txGlobalo(44)=596 exch2_tyGlobalo(44)=86 exch2_isWedge(44)=0 exch2_isNedge(44)=0 exch2_isEedge(44)=0 exch2_isSedge(44)=0 exch2_myFace(44)=2 exch2_mydNx(44)=510 exch2_mydNy(44)=510 exch2_nNeighbours(44)=4 exch2_neighbourId(1,44)=50 exch2_iLo(1,44)=0 exch2_iHi(1,44)=86 exch2_jLo(1,44)=86 exch2_jHi(1,44)=86 exch2_opposingSend(1,44)=2 exch2_pij(1,1,44)=1 exch2_pij(2,1,44)=0 exch2_pij(3,1,44)=0 exch2_pij(4,1,44)=1 exch2_oi(1,44)=0 exch2_oj(1,44)=0 exch2_neighbourId(2,44)=38 exch2_iLo(2,44)=0 exch2_iHi(2,44)=86 exch2_jLo(2,44)=0 exch2_jHi(2,44)=0 exch2_opposingSend(2,44)=1 exch2_pij(1,2,44)=1 exch2_pij(2,2,44)=0 exch2_pij(3,2,44)=0 exch2_pij(4,2,44)=1 exch2_oi(2,44)=0 exch2_oj(2,44)=0 exch2_neighbourId(3,44)=45 exch2_iLo(3,44)=86 exch2_iHi(3,44)=86 exch2_jLo(3,44)=0 exch2_jHi(3,44)=86 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)=86 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)=85 exch2_tNy(45)=85 exch2_tBasex(45)=170 exch2_tBasey(45)=85 exch2_txGlobalo(45)=681 exch2_tyGlobalo(45)=86 exch2_isWedge(45)=0 exch2_isNedge(45)=0 exch2_isEedge(45)=0 exch2_isSedge(45)=0 exch2_myFace(45)=2 exch2_mydNx(45)=510 exch2_mydNy(45)=510 exch2_nNeighbours(45)=4 exch2_neighbourId(1,45)=51 exch2_iLo(1,45)=0 exch2_iHi(1,45)=86 exch2_jLo(1,45)=86 exch2_jHi(1,45)=86 exch2_opposingSend(1,45)=2 exch2_pij(1,1,45)=1 exch2_pij(2,1,45)=0 exch2_pij(3,1,45)=0 exch2_pij(4,1,45)=1 exch2_oi(1,45)=0 exch2_oj(1,45)=0 exch2_neighbourId(2,45)=39 exch2_iLo(2,45)=0 exch2_iHi(2,45)=86 exch2_jLo(2,45)=0 exch2_jHi(2,45)=0 exch2_opposingSend(2,45)=1 exch2_pij(1,2,45)=1 exch2_pij(2,2,45)=0 exch2_pij(3,2,45)=0 exch2_pij(4,2,45)=1 exch2_oi(2,45)=0 exch2_oj(2,45)=0 exch2_neighbourId(3,45)=46 exch2_iLo(3,45)=86 exch2_iHi(3,45)=86 exch2_jLo(3,45)=0 exch2_jHi(3,45)=86 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)=86 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)=85 exch2_tNy(46)=85 exch2_tBasex(46)=255 exch2_tBasey(46)=85 exch2_txGlobalo(46)=766 exch2_tyGlobalo(46)=86 exch2_isWedge(46)=0 exch2_isNedge(46)=0 exch2_isEedge(46)=0 exch2_isSedge(46)=0 exch2_myFace(46)=2 exch2_mydNx(46)=510 exch2_mydNy(46)=510 exch2_nNeighbours(46)=4 exch2_neighbourId(1,46)=52 exch2_iLo(1,46)=0 exch2_iHi(1,46)=86 exch2_jLo(1,46)=86 exch2_jHi(1,46)=86 exch2_opposingSend(1,46)=2 exch2_pij(1,1,46)=1 exch2_pij(2,1,46)=0 exch2_pij(3,1,46)=0 exch2_pij(4,1,46)=1 exch2_oi(1,46)=0 exch2_oj(1,46)=0 exch2_neighbourId(2,46)=40 exch2_iLo(2,46)=0 exch2_iHi(2,46)=86 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)=0 exch2_neighbourId(3,46)=47 exch2_iLo(3,46)=86 exch2_iHi(3,46)=86 exch2_jLo(3,46)=0 exch2_jHi(3,46)=86 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)=86 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)=85 exch2_tNy(47)=85 exch2_tBasex(47)=340 exch2_tBasey(47)=85 exch2_txGlobalo(47)=851 exch2_tyGlobalo(47)=86 exch2_isWedge(47)=0 exch2_isNedge(47)=0 exch2_isEedge(47)=0 exch2_isSedge(47)=0 exch2_myFace(47)=2 exch2_mydNx(47)=510 exch2_mydNy(47)=510 exch2_nNeighbours(47)=4 exch2_neighbourId(1,47)=53 exch2_iLo(1,47)=0 exch2_iHi(1,47)=86 exch2_jLo(1,47)=86 exch2_jHi(1,47)=86 exch2_opposingSend(1,47)=2 exch2_pij(1,1,47)=1 exch2_pij(2,1,47)=0 exch2_pij(3,1,47)=0 exch2_pij(4,1,47)=1 exch2_oi(1,47)=0 exch2_oj(1,47)=0 exch2_neighbourId(2,47)=41 exch2_iLo(2,47)=0 exch2_iHi(2,47)=86 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)=0 exch2_neighbourId(3,47)=48 exch2_iLo(3,47)=86 exch2_iHi(3,47)=86 exch2_jLo(3,47)=0 exch2_jHi(3,47)=86 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)=86 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)=85 exch2_tNy(48)=85 exch2_tBasex(48)=425 exch2_tBasey(48)=85 exch2_txGlobalo(48)=936 exch2_tyGlobalo(48)=86 exch2_isWedge(48)=0 exch2_isNedge(48)=0 exch2_isEedge(48)=1 exch2_isSedge(48)=0 exch2_myFace(48)=2 exch2_mydNx(48)=510 exch2_mydNy(48)=510 exch2_nNeighbours(48)=4 exch2_neighbourId(1,48)=54 exch2_iLo(1,48)=0 exch2_iHi(1,48)=86 exch2_jLo(1,48)=86 exch2_jHi(1,48)=86 exch2_opposingSend(1,48)=2 exch2_pij(1,1,48)=1 exch2_pij(2,1,48)=0 exch2_pij(3,1,48)=0 exch2_pij(4,1,48)=1 exch2_oi(1,48)=0 exch2_oj(1,48)=0 exch2_neighbourId(2,48)=42 exch2_iLo(2,48)=0 exch2_iHi(2,48)=86 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)=0 exch2_neighbourId(3,48)=113 exch2_iLo(3,48)=86 exch2_iHi(3,48)=86 exch2_jLo(3,48)=0 exch2_jHi(3,48)=86 exch2_opposingSend(3,48)=2 exch2_pij(1,3,48)=0 exch2_pij(2,3,48)=1 exch2_pij(3,3,48)=-1 exch2_pij(4,3,48)=0 exch2_oi(3,48)=510 exch2_oj(3,48)=511 exch2_neighbourId(4,48)=47 exch2_iLo(4,48)=0 exch2_iHi(4,48)=0 exch2_jLo(4,48)=0 exch2_jHi(4,48)=86 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)=85 exch2_tNy(49)=85 exch2_tBasex(49)=0 exch2_tBasey(49)=170 exch2_txGlobalo(49)=511 exch2_tyGlobalo(49)=171 exch2_isWedge(49)=1 exch2_isNedge(49)=0 exch2_isEedge(49)=0 exch2_isSedge(49)=0 exch2_myFace(49)=2 exch2_mydNx(49)=510 exch2_mydNy(49)=510 exch2_nNeighbours(49)=4 exch2_neighbourId(1,49)=55 exch2_iLo(1,49)=0 exch2_iHi(1,49)=86 exch2_jLo(1,49)=86 exch2_jHi(1,49)=86 exch2_opposingSend(1,49)=2 exch2_pij(1,1,49)=1 exch2_pij(2,1,49)=0 exch2_pij(3,1,49)=0 exch2_pij(4,1,49)=1 exch2_oi(1,49)=0 exch2_oj(1,49)=0 exch2_neighbourId(2,49)=43 exch2_iLo(2,49)=0 exch2_iHi(2,49)=86 exch2_jLo(2,49)=0 exch2_jHi(2,49)=0 exch2_opposingSend(2,49)=1 exch2_pij(1,2,49)=1 exch2_pij(2,2,49)=0 exch2_pij(3,2,49)=0 exch2_pij(4,2,49)=1 exch2_oi(2,49)=0 exch2_oj(2,49)=0 exch2_neighbourId(3,49)=50 exch2_iLo(3,49)=86 exch2_iHi(3,49)=86 exch2_jLo(3,49)=0 exch2_jHi(3,49)=86 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)=18 exch2_iLo(4,49)=0 exch2_iHi(4,49)=0 exch2_jLo(4,49)=0 exch2_jHi(4,49)=86 exch2_opposingSend(4,49)=3 exch2_pij(1,4,49)=1 exch2_pij(2,4,49)=0 exch2_pij(3,4,49)=0 exch2_pij(4,4,49)=1 exch2_oi(4,49)=-510 exch2_oj(4,49)=0 RETURN END SUBROUTINE W2_E2SETUP_50 C Topology for tile 50 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(50)=85 exch2_tNy(50)=85 exch2_tBasex(50)=85 exch2_tBasey(50)=170 exch2_txGlobalo(50)=596 exch2_tyGlobalo(50)=171 exch2_isWedge(50)=0 exch2_isNedge(50)=0 exch2_isEedge(50)=0 exch2_isSedge(50)=0 exch2_myFace(50)=2 exch2_mydNx(50)=510 exch2_mydNy(50)=510 exch2_nNeighbours(50)=4 exch2_neighbourId(1,50)=56 exch2_iLo(1,50)=0 exch2_iHi(1,50)=86 exch2_jLo(1,50)=86 exch2_jHi(1,50)=86 exch2_opposingSend(1,50)=2 exch2_pij(1,1,50)=1 exch2_pij(2,1,50)=0 exch2_pij(3,1,50)=0 exch2_pij(4,1,50)=1 exch2_oi(1,50)=0 exch2_oj(1,50)=0 exch2_neighbourId(2,50)=44 exch2_iLo(2,50)=0 exch2_iHi(2,50)=86 exch2_jLo(2,50)=0 exch2_jHi(2,50)=0 exch2_opposingSend(2,50)=1 exch2_pij(1,2,50)=1 exch2_pij(2,2,50)=0 exch2_pij(3,2,50)=0 exch2_pij(4,2,50)=1 exch2_oi(2,50)=0 exch2_oj(2,50)=0 exch2_neighbourId(3,50)=51 exch2_iLo(3,50)=86 exch2_iHi(3,50)=86 exch2_jLo(3,50)=0 exch2_jHi(3,50)=86 exch2_opposingSend(3,50)=4 exch2_pij(1,3,50)=1 exch2_pij(2,3,50)=0 exch2_pij(3,3,50)=0 exch2_pij(4,3,50)=1 exch2_oi(3,50)=0 exch2_oj(3,50)=0 exch2_neighbourId(4,50)=49 exch2_iLo(4,50)=0 exch2_iHi(4,50)=0 exch2_jLo(4,50)=0 exch2_jHi(4,50)=86 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)=85 exch2_tNy(51)=85 exch2_tBasex(51)=170 exch2_tBasey(51)=170 exch2_txGlobalo(51)=681 exch2_tyGlobalo(51)=171 exch2_isWedge(51)=0 exch2_isNedge(51)=0 exch2_isEedge(51)=0 exch2_isSedge(51)=0 exch2_myFace(51)=2 exch2_mydNx(51)=510 exch2_mydNy(51)=510 exch2_nNeighbours(51)=4 exch2_neighbourId(1,51)=57 exch2_iLo(1,51)=0 exch2_iHi(1,51)=86 exch2_jLo(1,51)=86 exch2_jHi(1,51)=86 exch2_opposingSend(1,51)=2 exch2_pij(1,1,51)=1 exch2_pij(2,1,51)=0 exch2_pij(3,1,51)=0 exch2_pij(4,1,51)=1 exch2_oi(1,51)=0 exch2_oj(1,51)=0 exch2_neighbourId(2,51)=45 exch2_iLo(2,51)=0 exch2_iHi(2,51)=86 exch2_jLo(2,51)=0 exch2_jHi(2,51)=0 exch2_opposingSend(2,51)=1 exch2_pij(1,2,51)=1 exch2_pij(2,2,51)=0 exch2_pij(3,2,51)=0 exch2_pij(4,2,51)=1 exch2_oi(2,51)=0 exch2_oj(2,51)=0 exch2_neighbourId(3,51)=52 exch2_iLo(3,51)=86 exch2_iHi(3,51)=86 exch2_jLo(3,51)=0 exch2_jHi(3,51)=86 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)=86 exch2_opposingSend(4,51)=3 exch2_pij(1,4,51)=1 exch2_pij(2,4,51)=0 exch2_pij(3,4,51)=0 exch2_pij(4,4,51)=1 exch2_oi(4,51)=0 exch2_oj(4,51)=0 RETURN END SUBROUTINE W2_E2SETUP_52 C Topology for tile 52 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(52)=85 exch2_tNy(52)=85 exch2_tBasex(52)=255 exch2_tBasey(52)=170 exch2_txGlobalo(52)=766 exch2_tyGlobalo(52)=171 exch2_isWedge(52)=0 exch2_isNedge(52)=0 exch2_isEedge(52)=0 exch2_isSedge(52)=0 exch2_myFace(52)=2 exch2_mydNx(52)=510 exch2_mydNy(52)=510 exch2_nNeighbours(52)=4 exch2_neighbourId(1,52)=58 exch2_iLo(1,52)=0 exch2_iHi(1,52)=86 exch2_jLo(1,52)=86 exch2_jHi(1,52)=86 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)=0 exch2_neighbourId(2,52)=46 exch2_iLo(2,52)=0 exch2_iHi(2,52)=86 exch2_jLo(2,52)=0 exch2_jHi(2,52)=0 exch2_opposingSend(2,52)=1 exch2_pij(1,2,52)=1 exch2_pij(2,2,52)=0 exch2_pij(3,2,52)=0 exch2_pij(4,2,52)=1 exch2_oi(2,52)=0 exch2_oj(2,52)=0 exch2_neighbourId(3,52)=53 exch2_iLo(3,52)=86 exch2_iHi(3,52)=86 exch2_jLo(3,52)=0 exch2_jHi(3,52)=86 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)=86 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)=85 exch2_tNy(53)=85 exch2_tBasex(53)=340 exch2_tBasey(53)=170 exch2_txGlobalo(53)=851 exch2_tyGlobalo(53)=171 exch2_isWedge(53)=0 exch2_isNedge(53)=0 exch2_isEedge(53)=0 exch2_isSedge(53)=0 exch2_myFace(53)=2 exch2_mydNx(53)=510 exch2_mydNy(53)=510 exch2_nNeighbours(53)=4 exch2_neighbourId(1,53)=59 exch2_iLo(1,53)=0 exch2_iHi(1,53)=86 exch2_jLo(1,53)=86 exch2_jHi(1,53)=86 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)=0 exch2_neighbourId(2,53)=47 exch2_iLo(2,53)=0 exch2_iHi(2,53)=86 exch2_jLo(2,53)=0 exch2_jHi(2,53)=0 exch2_opposingSend(2,53)=1 exch2_pij(1,2,53)=1 exch2_pij(2,2,53)=0 exch2_pij(3,2,53)=0 exch2_pij(4,2,53)=1 exch2_oi(2,53)=0 exch2_oj(2,53)=0 exch2_neighbourId(3,53)=54 exch2_iLo(3,53)=86 exch2_iHi(3,53)=86 exch2_jLo(3,53)=0 exch2_jHi(3,53)=86 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)=86 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)=85 exch2_tNy(54)=85 exch2_tBasex(54)=425 exch2_tBasey(54)=170 exch2_txGlobalo(54)=936 exch2_tyGlobalo(54)=171 exch2_isWedge(54)=0 exch2_isNedge(54)=0 exch2_isEedge(54)=1 exch2_isSedge(54)=0 exch2_myFace(54)=2 exch2_mydNx(54)=510 exch2_mydNy(54)=510 exch2_nNeighbours(54)=4 exch2_neighbourId(1,54)=60 exch2_iLo(1,54)=0 exch2_iHi(1,54)=86 exch2_jLo(1,54)=86 exch2_jHi(1,54)=86 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)=0 exch2_neighbourId(2,54)=48 exch2_iLo(2,54)=0 exch2_iHi(2,54)=86 exch2_jLo(2,54)=0 exch2_jHi(2,54)=0 exch2_opposingSend(2,54)=1 exch2_pij(1,2,54)=1 exch2_pij(2,2,54)=0 exch2_pij(3,2,54)=0 exch2_pij(4,2,54)=1 exch2_oi(2,54)=0 exch2_oj(2,54)=0 exch2_neighbourId(3,54)=112 exch2_iLo(3,54)=86 exch2_iHi(3,54)=86 exch2_jLo(3,54)=0 exch2_jHi(3,54)=86 exch2_opposingSend(3,54)=2 exch2_pij(1,3,54)=0 exch2_pij(2,3,54)=1 exch2_pij(3,3,54)=-1 exch2_pij(4,3,54)=0 exch2_oi(3,54)=510 exch2_oj(3,54)=511 exch2_neighbourId(4,54)=53 exch2_iLo(4,54)=0 exch2_iHi(4,54)=0 exch2_jLo(4,54)=0 exch2_jHi(4,54)=86 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)=85 exch2_tNy(55)=85 exch2_tBasex(55)=0 exch2_tBasey(55)=255 exch2_txGlobalo(55)=511 exch2_tyGlobalo(55)=256 exch2_isWedge(55)=1 exch2_isNedge(55)=0 exch2_isEedge(55)=0 exch2_isSedge(55)=0 exch2_myFace(55)=2 exch2_mydNx(55)=510 exch2_mydNy(55)=510 exch2_nNeighbours(55)=4 exch2_neighbourId(1,55)=61 exch2_iLo(1,55)=0 exch2_iHi(1,55)=86 exch2_jLo(1,55)=86 exch2_jHi(1,55)=86 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)=0 exch2_neighbourId(2,55)=49 exch2_iLo(2,55)=0 exch2_iHi(2,55)=86 exch2_jLo(2,55)=0 exch2_jHi(2,55)=0 exch2_opposingSend(2,55)=1 exch2_pij(1,2,55)=1 exch2_pij(2,2,55)=0 exch2_pij(3,2,55)=0 exch2_pij(4,2,55)=1 exch2_oi(2,55)=0 exch2_oj(2,55)=0 exch2_neighbourId(3,55)=56 exch2_iLo(3,55)=86 exch2_iHi(3,55)=86 exch2_jLo(3,55)=0 exch2_jHi(3,55)=86 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)=24 exch2_iLo(4,55)=0 exch2_iHi(4,55)=0 exch2_jLo(4,55)=0 exch2_jHi(4,55)=86 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)=-510 exch2_oj(4,55)=0 RETURN END SUBROUTINE W2_E2SETUP_56 C Topology for tile 56 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(56)=85 exch2_tNy(56)=85 exch2_tBasex(56)=85 exch2_tBasey(56)=255 exch2_txGlobalo(56)=596 exch2_tyGlobalo(56)=256 exch2_isWedge(56)=0 exch2_isNedge(56)=0 exch2_isEedge(56)=0 exch2_isSedge(56)=0 exch2_myFace(56)=2 exch2_mydNx(56)=510 exch2_mydNy(56)=510 exch2_nNeighbours(56)=4 exch2_neighbourId(1,56)=62 exch2_iLo(1,56)=0 exch2_iHi(1,56)=86 exch2_jLo(1,56)=86 exch2_jHi(1,56)=86 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)=0 exch2_neighbourId(2,56)=50 exch2_iLo(2,56)=0 exch2_iHi(2,56)=86 exch2_jLo(2,56)=0 exch2_jHi(2,56)=0 exch2_opposingSend(2,56)=1 exch2_pij(1,2,56)=1 exch2_pij(2,2,56)=0 exch2_pij(3,2,56)=0 exch2_pij(4,2,56)=1 exch2_oi(2,56)=0 exch2_oj(2,56)=0 exch2_neighbourId(3,56)=57 exch2_iLo(3,56)=86 exch2_iHi(3,56)=86 exch2_jLo(3,56)=0 exch2_jHi(3,56)=86 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)=86 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)=85 exch2_tNy(57)=85 exch2_tBasex(57)=170 exch2_tBasey(57)=255 exch2_txGlobalo(57)=681 exch2_tyGlobalo(57)=256 exch2_isWedge(57)=0 exch2_isNedge(57)=0 exch2_isEedge(57)=0 exch2_isSedge(57)=0 exch2_myFace(57)=2 exch2_mydNx(57)=510 exch2_mydNy(57)=510 exch2_nNeighbours(57)=4 exch2_neighbourId(1,57)=63 exch2_iLo(1,57)=0 exch2_iHi(1,57)=86 exch2_jLo(1,57)=86 exch2_jHi(1,57)=86 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)=0 exch2_neighbourId(2,57)=51 exch2_iLo(2,57)=0 exch2_iHi(2,57)=86 exch2_jLo(2,57)=0 exch2_jHi(2,57)=0 exch2_opposingSend(2,57)=1 exch2_pij(1,2,57)=1 exch2_pij(2,2,57)=0 exch2_pij(3,2,57)=0 exch2_pij(4,2,57)=1 exch2_oi(2,57)=0 exch2_oj(2,57)=0 exch2_neighbourId(3,57)=58 exch2_iLo(3,57)=86 exch2_iHi(3,57)=86 exch2_jLo(3,57)=0 exch2_jHi(3,57)=86 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)=86 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)=85 exch2_tNy(58)=85 exch2_tBasex(58)=255 exch2_tBasey(58)=255 exch2_txGlobalo(58)=766 exch2_tyGlobalo(58)=256 exch2_isWedge(58)=0 exch2_isNedge(58)=0 exch2_isEedge(58)=0 exch2_isSedge(58)=0 exch2_myFace(58)=2 exch2_mydNx(58)=510 exch2_mydNy(58)=510 exch2_nNeighbours(58)=4 exch2_neighbourId(1,58)=64 exch2_iLo(1,58)=0 exch2_iHi(1,58)=86 exch2_jLo(1,58)=86 exch2_jHi(1,58)=86 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)=0 exch2_neighbourId(2,58)=52 exch2_iLo(2,58)=0 exch2_iHi(2,58)=86 exch2_jLo(2,58)=0 exch2_jHi(2,58)=0 exch2_opposingSend(2,58)=1 exch2_pij(1,2,58)=1 exch2_pij(2,2,58)=0 exch2_pij(3,2,58)=0 exch2_pij(4,2,58)=1 exch2_oi(2,58)=0 exch2_oj(2,58)=0 exch2_neighbourId(3,58)=59 exch2_iLo(3,58)=86 exch2_iHi(3,58)=86 exch2_jLo(3,58)=0 exch2_jHi(3,58)=86 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)=86 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)=85 exch2_tNy(59)=85 exch2_tBasex(59)=340 exch2_tBasey(59)=255 exch2_txGlobalo(59)=851 exch2_tyGlobalo(59)=256 exch2_isWedge(59)=0 exch2_isNedge(59)=0 exch2_isEedge(59)=0 exch2_isSedge(59)=0 exch2_myFace(59)=2 exch2_mydNx(59)=510 exch2_mydNy(59)=510 exch2_nNeighbours(59)=4 exch2_neighbourId(1,59)=65 exch2_iLo(1,59)=0 exch2_iHi(1,59)=86 exch2_jLo(1,59)=86 exch2_jHi(1,59)=86 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)=0 exch2_neighbourId(2,59)=53 exch2_iLo(2,59)=0 exch2_iHi(2,59)=86 exch2_jLo(2,59)=0 exch2_jHi(2,59)=0 exch2_opposingSend(2,59)=1 exch2_pij(1,2,59)=1 exch2_pij(2,2,59)=0 exch2_pij(3,2,59)=0 exch2_pij(4,2,59)=1 exch2_oi(2,59)=0 exch2_oj(2,59)=0 exch2_neighbourId(3,59)=60 exch2_iLo(3,59)=86 exch2_iHi(3,59)=86 exch2_jLo(3,59)=0 exch2_jHi(3,59)=86 exch2_opposingSend(3,59)=4 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)=86 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)=85 exch2_tNy(60)=85 exch2_tBasex(60)=425 exch2_tBasey(60)=255 exch2_txGlobalo(60)=936 exch2_tyGlobalo(60)=256 exch2_isWedge(60)=0 exch2_isNedge(60)=0 exch2_isEedge(60)=1 exch2_isSedge(60)=0 exch2_myFace(60)=2 exch2_mydNx(60)=510 exch2_mydNy(60)=510 exch2_nNeighbours(60)=4 exch2_neighbourId(1,60)=66 exch2_iLo(1,60)=0 exch2_iHi(1,60)=86 exch2_jLo(1,60)=86 exch2_jHi(1,60)=86 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)=0 exch2_neighbourId(2,60)=54 exch2_iLo(2,60)=0 exch2_iHi(2,60)=86 exch2_jLo(2,60)=0 exch2_jHi(2,60)=0 exch2_opposingSend(2,60)=1 exch2_pij(1,2,60)=1 exch2_pij(2,2,60)=0 exch2_pij(3,2,60)=0 exch2_pij(4,2,60)=1 exch2_oi(2,60)=0 exch2_oj(2,60)=0 exch2_neighbourId(3,60)=111 exch2_iLo(3,60)=86 exch2_iHi(3,60)=86 exch2_jLo(3,60)=0 exch2_jHi(3,60)=86 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)=59 exch2_iLo(4,60)=0 exch2_iHi(4,60)=0 exch2_jLo(4,60)=0 exch2_jHi(4,60)=86 exch2_opposingSend(4,60)=3 exch2_pij(1,4,60)=1 exch2_pij(2,4,60)=0 exch2_pij(3,4,60)=0 exch2_pij(4,4,60)=1 exch2_oi(4,60)=0 exch2_oj(4,60)=0 RETURN END SUBROUTINE W2_E2SETUP_61 C Topology for tile 61 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(61)=85 exch2_tNy(61)=85 exch2_tBasex(61)=0 exch2_tBasey(61)=340 exch2_txGlobalo(61)=511 exch2_tyGlobalo(61)=341 exch2_isWedge(61)=1 exch2_isNedge(61)=0 exch2_isEedge(61)=0 exch2_isSedge(61)=0 exch2_myFace(61)=2 exch2_mydNx(61)=510 exch2_mydNy(61)=510 exch2_nNeighbours(61)=4 exch2_neighbourId(1,61)=67 exch2_iLo(1,61)=0 exch2_iHi(1,61)=86 exch2_jLo(1,61)=86 exch2_jHi(1,61)=86 exch2_opposingSend(1,61)=2 exch2_pij(1,1,61)=1 exch2_pij(2,1,61)=0 exch2_pij(3,1,61)=0 exch2_pij(4,1,61)=1 exch2_oi(1,61)=0 exch2_oj(1,61)=0 exch2_neighbourId(2,61)=55 exch2_iLo(2,61)=0 exch2_iHi(2,61)=86 exch2_jLo(2,61)=0 exch2_jHi(2,61)=0 exch2_opposingSend(2,61)=1 exch2_pij(1,2,61)=1 exch2_pij(2,2,61)=0 exch2_pij(3,2,61)=0 exch2_pij(4,2,61)=1 exch2_oi(2,61)=0 exch2_oj(2,61)=0 exch2_neighbourId(3,61)=62 exch2_iLo(3,61)=86 exch2_iHi(3,61)=86 exch2_jLo(3,61)=0 exch2_jHi(3,61)=86 exch2_opposingSend(3,61)=4 exch2_pij(1,3,61)=1 exch2_pij(2,3,61)=0 exch2_pij(3,3,61)=0 exch2_pij(4,3,61)=1 exch2_oi(3,61)=0 exch2_oj(3,61)=0 exch2_neighbourId(4,61)=30 exch2_iLo(4,61)=0 exch2_iHi(4,61)=0 exch2_jLo(4,61)=0 exch2_jHi(4,61)=86 exch2_opposingSend(4,61)=3 exch2_pij(1,4,61)=1 exch2_pij(2,4,61)=0 exch2_pij(3,4,61)=0 exch2_pij(4,4,61)=1 exch2_oi(4,61)=-510 exch2_oj(4,61)=0 RETURN END SUBROUTINE W2_E2SETUP_62 C Topology for tile 62 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(62)=85 exch2_tNy(62)=85 exch2_tBasex(62)=85 exch2_tBasey(62)=340 exch2_txGlobalo(62)=596 exch2_tyGlobalo(62)=341 exch2_isWedge(62)=0 exch2_isNedge(62)=0 exch2_isEedge(62)=0 exch2_isSedge(62)=0 exch2_myFace(62)=2 exch2_mydNx(62)=510 exch2_mydNy(62)=510 exch2_nNeighbours(62)=4 exch2_neighbourId(1,62)=68 exch2_iLo(1,62)=0 exch2_iHi(1,62)=86 exch2_jLo(1,62)=86 exch2_jHi(1,62)=86 exch2_opposingSend(1,62)=2 exch2_pij(1,1,62)=1 exch2_pij(2,1,62)=0 exch2_pij(3,1,62)=0 exch2_pij(4,1,62)=1 exch2_oi(1,62)=0 exch2_oj(1,62)=0 exch2_neighbourId(2,62)=56 exch2_iLo(2,62)=0 exch2_iHi(2,62)=86 exch2_jLo(2,62)=0 exch2_jHi(2,62)=0 exch2_opposingSend(2,62)=1 exch2_pij(1,2,62)=1 exch2_pij(2,2,62)=0 exch2_pij(3,2,62)=0 exch2_pij(4,2,62)=1 exch2_oi(2,62)=0 exch2_oj(2,62)=0 exch2_neighbourId(3,62)=63 exch2_iLo(3,62)=86 exch2_iHi(3,62)=86 exch2_jLo(3,62)=0 exch2_jHi(3,62)=86 exch2_opposingSend(3,62)=4 exch2_pij(1,3,62)=1 exch2_pij(2,3,62)=0 exch2_pij(3,3,62)=0 exch2_pij(4,3,62)=1 exch2_oi(3,62)=0 exch2_oj(3,62)=0 exch2_neighbourId(4,62)=61 exch2_iLo(4,62)=0 exch2_iHi(4,62)=0 exch2_jLo(4,62)=0 exch2_jHi(4,62)=86 exch2_opposingSend(4,62)=3 exch2_pij(1,4,62)=1 exch2_pij(2,4,62)=0 exch2_pij(3,4,62)=0 exch2_pij(4,4,62)=1 exch2_oi(4,62)=0 exch2_oj(4,62)=0 RETURN END SUBROUTINE W2_E2SETUP_63 C Topology for tile 63 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(63)=85 exch2_tNy(63)=85 exch2_tBasex(63)=170 exch2_tBasey(63)=340 exch2_txGlobalo(63)=681 exch2_tyGlobalo(63)=341 exch2_isWedge(63)=0 exch2_isNedge(63)=0 exch2_isEedge(63)=0 exch2_isSedge(63)=0 exch2_myFace(63)=2 exch2_mydNx(63)=510 exch2_mydNy(63)=510 exch2_nNeighbours(63)=4 exch2_neighbourId(1,63)=69 exch2_iLo(1,63)=0 exch2_iHi(1,63)=86 exch2_jLo(1,63)=86 exch2_jHi(1,63)=86 exch2_opposingSend(1,63)=2 exch2_pij(1,1,63)=1 exch2_pij(2,1,63)=0 exch2_pij(3,1,63)=0 exch2_pij(4,1,63)=1 exch2_oi(1,63)=0 exch2_oj(1,63)=0 exch2_neighbourId(2,63)=57 exch2_iLo(2,63)=0 exch2_iHi(2,63)=86 exch2_jLo(2,63)=0 exch2_jHi(2,63)=0 exch2_opposingSend(2,63)=1 exch2_pij(1,2,63)=1 exch2_pij(2,2,63)=0 exch2_pij(3,2,63)=0 exch2_pij(4,2,63)=1 exch2_oi(2,63)=0 exch2_oj(2,63)=0 exch2_neighbourId(3,63)=64 exch2_iLo(3,63)=86 exch2_iHi(3,63)=86 exch2_jLo(3,63)=0 exch2_jHi(3,63)=86 exch2_opposingSend(3,63)=4 exch2_pij(1,3,63)=1 exch2_pij(2,3,63)=0 exch2_pij(3,3,63)=0 exch2_pij(4,3,63)=1 exch2_oi(3,63)=0 exch2_oj(3,63)=0 exch2_neighbourId(4,63)=62 exch2_iLo(4,63)=0 exch2_iHi(4,63)=0 exch2_jLo(4,63)=0 exch2_jHi(4,63)=86 exch2_opposingSend(4,63)=3 exch2_pij(1,4,63)=1 exch2_pij(2,4,63)=0 exch2_pij(3,4,63)=0 exch2_pij(4,4,63)=1 exch2_oi(4,63)=0 exch2_oj(4,63)=0 RETURN END SUBROUTINE W2_E2SETUP_64 C Topology for tile 64 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(64)=85 exch2_tNy(64)=85 exch2_tBasex(64)=255 exch2_tBasey(64)=340 exch2_txGlobalo(64)=766 exch2_tyGlobalo(64)=341 exch2_isWedge(64)=0 exch2_isNedge(64)=0 exch2_isEedge(64)=0 exch2_isSedge(64)=0 exch2_myFace(64)=2 exch2_mydNx(64)=510 exch2_mydNy(64)=510 exch2_nNeighbours(64)=4 exch2_neighbourId(1,64)=70 exch2_iLo(1,64)=0 exch2_iHi(1,64)=86 exch2_jLo(1,64)=86 exch2_jHi(1,64)=86 exch2_opposingSend(1,64)=2 exch2_pij(1,1,64)=1 exch2_pij(2,1,64)=0 exch2_pij(3,1,64)=0 exch2_pij(4,1,64)=1 exch2_oi(1,64)=0 exch2_oj(1,64)=0 exch2_neighbourId(2,64)=58 exch2_iLo(2,64)=0 exch2_iHi(2,64)=86 exch2_jLo(2,64)=0 exch2_jHi(2,64)=0 exch2_opposingSend(2,64)=1 exch2_pij(1,2,64)=1 exch2_pij(2,2,64)=0 exch2_pij(3,2,64)=0 exch2_pij(4,2,64)=1 exch2_oi(2,64)=0 exch2_oj(2,64)=0 exch2_neighbourId(3,64)=65 exch2_iLo(3,64)=86 exch2_iHi(3,64)=86 exch2_jLo(3,64)=0 exch2_jHi(3,64)=86 exch2_opposingSend(3,64)=4 exch2_pij(1,3,64)=1 exch2_pij(2,3,64)=0 exch2_pij(3,3,64)=0 exch2_pij(4,3,64)=1 exch2_oi(3,64)=0 exch2_oj(3,64)=0 exch2_neighbourId(4,64)=63 exch2_iLo(4,64)=0 exch2_iHi(4,64)=0 exch2_jLo(4,64)=0 exch2_jHi(4,64)=86 exch2_opposingSend(4,64)=3 exch2_pij(1,4,64)=1 exch2_pij(2,4,64)=0 exch2_pij(3,4,64)=0 exch2_pij(4,4,64)=1 exch2_oi(4,64)=0 exch2_oj(4,64)=0 RETURN END SUBROUTINE W2_E2SETUP_65 C Topology for tile 65 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(65)=85 exch2_tNy(65)=85 exch2_tBasex(65)=340 exch2_tBasey(65)=340 exch2_txGlobalo(65)=851 exch2_tyGlobalo(65)=341 exch2_isWedge(65)=0 exch2_isNedge(65)=0 exch2_isEedge(65)=0 exch2_isSedge(65)=0 exch2_myFace(65)=2 exch2_mydNx(65)=510 exch2_mydNy(65)=510 exch2_nNeighbours(65)=4 exch2_neighbourId(1,65)=71 exch2_iLo(1,65)=0 exch2_iHi(1,65)=86 exch2_jLo(1,65)=86 exch2_jHi(1,65)=86 exch2_opposingSend(1,65)=2 exch2_pij(1,1,65)=1 exch2_pij(2,1,65)=0 exch2_pij(3,1,65)=0 exch2_pij(4,1,65)=1 exch2_oi(1,65)=0 exch2_oj(1,65)=0 exch2_neighbourId(2,65)=59 exch2_iLo(2,65)=0 exch2_iHi(2,65)=86 exch2_jLo(2,65)=0 exch2_jHi(2,65)=0 exch2_opposingSend(2,65)=1 exch2_pij(1,2,65)=1 exch2_pij(2,2,65)=0 exch2_pij(3,2,65)=0 exch2_pij(4,2,65)=1 exch2_oi(2,65)=0 exch2_oj(2,65)=0 exch2_neighbourId(3,65)=66 exch2_iLo(3,65)=86 exch2_iHi(3,65)=86 exch2_jLo(3,65)=0 exch2_jHi(3,65)=86 exch2_opposingSend(3,65)=4 exch2_pij(1,3,65)=1 exch2_pij(2,3,65)=0 exch2_pij(3,3,65)=0 exch2_pij(4,3,65)=1 exch2_oi(3,65)=0 exch2_oj(3,65)=0 exch2_neighbourId(4,65)=64 exch2_iLo(4,65)=0 exch2_iHi(4,65)=0 exch2_jLo(4,65)=0 exch2_jHi(4,65)=86 exch2_opposingSend(4,65)=3 exch2_pij(1,4,65)=1 exch2_pij(2,4,65)=0 exch2_pij(3,4,65)=0 exch2_pij(4,4,65)=1 exch2_oi(4,65)=0 exch2_oj(4,65)=0 RETURN END SUBROUTINE W2_E2SETUP_66 C Topology for tile 66 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(66)=85 exch2_tNy(66)=85 exch2_tBasex(66)=425 exch2_tBasey(66)=340 exch2_txGlobalo(66)=936 exch2_tyGlobalo(66)=341 exch2_isWedge(66)=0 exch2_isNedge(66)=0 exch2_isEedge(66)=1 exch2_isSedge(66)=0 exch2_myFace(66)=2 exch2_mydNx(66)=510 exch2_mydNy(66)=510 exch2_nNeighbours(66)=4 exch2_neighbourId(1,66)=72 exch2_iLo(1,66)=0 exch2_iHi(1,66)=86 exch2_jLo(1,66)=86 exch2_jHi(1,66)=86 exch2_opposingSend(1,66)=2 exch2_pij(1,1,66)=1 exch2_pij(2,1,66)=0 exch2_pij(3,1,66)=0 exch2_pij(4,1,66)=1 exch2_oi(1,66)=0 exch2_oj(1,66)=0 exch2_neighbourId(2,66)=60 exch2_iLo(2,66)=0 exch2_iHi(2,66)=86 exch2_jLo(2,66)=0 exch2_jHi(2,66)=0 exch2_opposingSend(2,66)=1 exch2_pij(1,2,66)=1 exch2_pij(2,2,66)=0 exch2_pij(3,2,66)=0 exch2_pij(4,2,66)=1 exch2_oi(2,66)=0 exch2_oj(2,66)=0 exch2_neighbourId(3,66)=110 exch2_iLo(3,66)=86 exch2_iHi(3,66)=86 exch2_jLo(3,66)=0 exch2_jHi(3,66)=86 exch2_opposingSend(3,66)=2 exch2_pij(1,3,66)=0 exch2_pij(2,3,66)=1 exch2_pij(3,3,66)=-1 exch2_pij(4,3,66)=0 exch2_oi(3,66)=510 exch2_oj(3,66)=511 exch2_neighbourId(4,66)=65 exch2_iLo(4,66)=0 exch2_iHi(4,66)=0 exch2_jLo(4,66)=0 exch2_jHi(4,66)=86 exch2_opposingSend(4,66)=3 exch2_pij(1,4,66)=1 exch2_pij(2,4,66)=0 exch2_pij(3,4,66)=0 exch2_pij(4,4,66)=1 exch2_oi(4,66)=0 exch2_oj(4,66)=0 RETURN END SUBROUTINE W2_E2SETUP_67 C Topology for tile 67 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(67)=85 exch2_tNy(67)=85 exch2_tBasex(67)=0 exch2_tBasey(67)=425 exch2_txGlobalo(67)=511 exch2_tyGlobalo(67)=426 exch2_isWedge(67)=1 exch2_isNedge(67)=1 exch2_isEedge(67)=0 exch2_isSedge(67)=0 exch2_myFace(67)=2 exch2_mydNx(67)=510 exch2_mydNy(67)=510 exch2_nNeighbours(67)=4 exch2_neighbourId(1,67)=73 exch2_iLo(1,67)=0 exch2_iHi(1,67)=86 exch2_jLo(1,67)=86 exch2_jHi(1,67)=86 exch2_opposingSend(1,67)=2 exch2_pij(1,1,67)=1 exch2_pij(2,1,67)=0 exch2_pij(3,1,67)=0 exch2_pij(4,1,67)=1 exch2_oi(1,67)=0 exch2_oj(1,67)=510 exch2_neighbourId(2,67)=61 exch2_iLo(2,67)=0 exch2_iHi(2,67)=86 exch2_jLo(2,67)=0 exch2_jHi(2,67)=0 exch2_opposingSend(2,67)=1 exch2_pij(1,2,67)=1 exch2_pij(2,2,67)=0 exch2_pij(3,2,67)=0 exch2_pij(4,2,67)=1 exch2_oi(2,67)=0 exch2_oj(2,67)=0 exch2_neighbourId(3,67)=68 exch2_iLo(3,67)=86 exch2_iHi(3,67)=86 exch2_jLo(3,67)=0 exch2_jHi(3,67)=86 exch2_opposingSend(3,67)=4 exch2_pij(1,3,67)=1 exch2_pij(2,3,67)=0 exch2_pij(3,3,67)=0 exch2_pij(4,3,67)=1 exch2_oi(3,67)=0 exch2_oj(3,67)=0 exch2_neighbourId(4,67)=36 exch2_iLo(4,67)=0 exch2_iHi(4,67)=0 exch2_jLo(4,67)=0 exch2_jHi(4,67)=86 exch2_opposingSend(4,67)=3 exch2_pij(1,4,67)=1 exch2_pij(2,4,67)=0 exch2_pij(3,4,67)=0 exch2_pij(4,4,67)=1 exch2_oi(4,67)=-510 exch2_oj(4,67)=0 RETURN END SUBROUTINE W2_E2SETUP_68 C Topology for tile 68 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(68)=85 exch2_tNy(68)=85 exch2_tBasex(68)=85 exch2_tBasey(68)=425 exch2_txGlobalo(68)=596 exch2_tyGlobalo(68)=426 exch2_isWedge(68)=0 exch2_isNedge(68)=1 exch2_isEedge(68)=0 exch2_isSedge(68)=0 exch2_myFace(68)=2 exch2_mydNx(68)=510 exch2_mydNy(68)=510 exch2_nNeighbours(68)=4 exch2_neighbourId(1,68)=74 exch2_iLo(1,68)=0 exch2_iHi(1,68)=86 exch2_jLo(1,68)=86 exch2_jHi(1,68)=86 exch2_opposingSend(1,68)=2 exch2_pij(1,1,68)=1 exch2_pij(2,1,68)=0 exch2_pij(3,1,68)=0 exch2_pij(4,1,68)=1 exch2_oi(1,68)=0 exch2_oj(1,68)=510 exch2_neighbourId(2,68)=62 exch2_iLo(2,68)=0 exch2_iHi(2,68)=86 exch2_jLo(2,68)=0 exch2_jHi(2,68)=0 exch2_opposingSend(2,68)=1 exch2_pij(1,2,68)=1 exch2_pij(2,2,68)=0 exch2_pij(3,2,68)=0 exch2_pij(4,2,68)=1 exch2_oi(2,68)=0 exch2_oj(2,68)=0 exch2_neighbourId(3,68)=69 exch2_iLo(3,68)=86 exch2_iHi(3,68)=86 exch2_jLo(3,68)=0 exch2_jHi(3,68)=86 exch2_opposingSend(3,68)=4 exch2_pij(1,3,68)=1 exch2_pij(2,3,68)=0 exch2_pij(3,3,68)=0 exch2_pij(4,3,68)=1 exch2_oi(3,68)=0 exch2_oj(3,68)=0 exch2_neighbourId(4,68)=67 exch2_iLo(4,68)=0 exch2_iHi(4,68)=0 exch2_jLo(4,68)=0 exch2_jHi(4,68)=86 exch2_opposingSend(4,68)=3 exch2_pij(1,4,68)=1 exch2_pij(2,4,68)=0 exch2_pij(3,4,68)=0 exch2_pij(4,4,68)=1 exch2_oi(4,68)=0 exch2_oj(4,68)=0 RETURN END SUBROUTINE W2_E2SETUP_69 C Topology for tile 69 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(69)=85 exch2_tNy(69)=85 exch2_tBasex(69)=170 exch2_tBasey(69)=425 exch2_txGlobalo(69)=681 exch2_tyGlobalo(69)=426 exch2_isWedge(69)=0 exch2_isNedge(69)=1 exch2_isEedge(69)=0 exch2_isSedge(69)=0 exch2_myFace(69)=2 exch2_mydNx(69)=510 exch2_mydNy(69)=510 exch2_nNeighbours(69)=4 exch2_neighbourId(1,69)=75 exch2_iLo(1,69)=0 exch2_iHi(1,69)=86 exch2_jLo(1,69)=86 exch2_jHi(1,69)=86 exch2_opposingSend(1,69)=2 exch2_pij(1,1,69)=1 exch2_pij(2,1,69)=0 exch2_pij(3,1,69)=0 exch2_pij(4,1,69)=1 exch2_oi(1,69)=0 exch2_oj(1,69)=510 exch2_neighbourId(2,69)=63 exch2_iLo(2,69)=0 exch2_iHi(2,69)=86 exch2_jLo(2,69)=0 exch2_jHi(2,69)=0 exch2_opposingSend(2,69)=1 exch2_pij(1,2,69)=1 exch2_pij(2,2,69)=0 exch2_pij(3,2,69)=0 exch2_pij(4,2,69)=1 exch2_oi(2,69)=0 exch2_oj(2,69)=0 exch2_neighbourId(3,69)=70 exch2_iLo(3,69)=86 exch2_iHi(3,69)=86 exch2_jLo(3,69)=0 exch2_jHi(3,69)=86 exch2_opposingSend(3,69)=4 exch2_pij(1,3,69)=1 exch2_pij(2,3,69)=0 exch2_pij(3,3,69)=0 exch2_pij(4,3,69)=1 exch2_oi(3,69)=0 exch2_oj(3,69)=0 exch2_neighbourId(4,69)=68 exch2_iLo(4,69)=0 exch2_iHi(4,69)=0 exch2_jLo(4,69)=0 exch2_jHi(4,69)=86 exch2_opposingSend(4,69)=3 exch2_pij(1,4,69)=1 exch2_pij(2,4,69)=0 exch2_pij(3,4,69)=0 exch2_pij(4,4,69)=1 exch2_oi(4,69)=0 exch2_oj(4,69)=0 RETURN END SUBROUTINE W2_E2SETUP_70 C Topology for tile 70 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(70)=85 exch2_tNy(70)=85 exch2_tBasex(70)=255 exch2_tBasey(70)=425 exch2_txGlobalo(70)=766 exch2_tyGlobalo(70)=426 exch2_isWedge(70)=0 exch2_isNedge(70)=1 exch2_isEedge(70)=0 exch2_isSedge(70)=0 exch2_myFace(70)=2 exch2_mydNx(70)=510 exch2_mydNy(70)=510 exch2_nNeighbours(70)=4 exch2_neighbourId(1,70)=76 exch2_iLo(1,70)=0 exch2_iHi(1,70)=86 exch2_jLo(1,70)=86 exch2_jHi(1,70)=86 exch2_opposingSend(1,70)=2 exch2_pij(1,1,70)=1 exch2_pij(2,1,70)=0 exch2_pij(3,1,70)=0 exch2_pij(4,1,70)=1 exch2_oi(1,70)=0 exch2_oj(1,70)=510 exch2_neighbourId(2,70)=64 exch2_iLo(2,70)=0 exch2_iHi(2,70)=86 exch2_jLo(2,70)=0 exch2_jHi(2,70)=0 exch2_opposingSend(2,70)=1 exch2_pij(1,2,70)=1 exch2_pij(2,2,70)=0 exch2_pij(3,2,70)=0 exch2_pij(4,2,70)=1 exch2_oi(2,70)=0 exch2_oj(2,70)=0 exch2_neighbourId(3,70)=71 exch2_iLo(3,70)=86 exch2_iHi(3,70)=86 exch2_jLo(3,70)=0 exch2_jHi(3,70)=86 exch2_opposingSend(3,70)=4 exch2_pij(1,3,70)=1 exch2_pij(2,3,70)=0 exch2_pij(3,3,70)=0 exch2_pij(4,3,70)=1 exch2_oi(3,70)=0 exch2_oj(3,70)=0 exch2_neighbourId(4,70)=69 exch2_iLo(4,70)=0 exch2_iHi(4,70)=0 exch2_jLo(4,70)=0 exch2_jHi(4,70)=86 exch2_opposingSend(4,70)=3 exch2_pij(1,4,70)=1 exch2_pij(2,4,70)=0 exch2_pij(3,4,70)=0 exch2_pij(4,4,70)=1 exch2_oi(4,70)=0 exch2_oj(4,70)=0 RETURN END SUBROUTINE W2_E2SETUP_71 C Topology for tile 71 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(71)=85 exch2_tNy(71)=85 exch2_tBasex(71)=340 exch2_tBasey(71)=425 exch2_txGlobalo(71)=851 exch2_tyGlobalo(71)=426 exch2_isWedge(71)=0 exch2_isNedge(71)=1 exch2_isEedge(71)=0 exch2_isSedge(71)=0 exch2_myFace(71)=2 exch2_mydNx(71)=510 exch2_mydNy(71)=510 exch2_nNeighbours(71)=4 exch2_neighbourId(1,71)=77 exch2_iLo(1,71)=0 exch2_iHi(1,71)=86 exch2_jLo(1,71)=86 exch2_jHi(1,71)=86 exch2_opposingSend(1,71)=2 exch2_pij(1,1,71)=1 exch2_pij(2,1,71)=0 exch2_pij(3,1,71)=0 exch2_pij(4,1,71)=1 exch2_oi(1,71)=0 exch2_oj(1,71)=510 exch2_neighbourId(2,71)=65 exch2_iLo(2,71)=0 exch2_iHi(2,71)=86 exch2_jLo(2,71)=0 exch2_jHi(2,71)=0 exch2_opposingSend(2,71)=1 exch2_pij(1,2,71)=1 exch2_pij(2,2,71)=0 exch2_pij(3,2,71)=0 exch2_pij(4,2,71)=1 exch2_oi(2,71)=0 exch2_oj(2,71)=0 exch2_neighbourId(3,71)=72 exch2_iLo(3,71)=86 exch2_iHi(3,71)=86 exch2_jLo(3,71)=0 exch2_jHi(3,71)=86 exch2_opposingSend(3,71)=4 exch2_pij(1,3,71)=1 exch2_pij(2,3,71)=0 exch2_pij(3,3,71)=0 exch2_pij(4,3,71)=1 exch2_oi(3,71)=0 exch2_oj(3,71)=0 exch2_neighbourId(4,71)=70 exch2_iLo(4,71)=0 exch2_iHi(4,71)=0 exch2_jLo(4,71)=0 exch2_jHi(4,71)=86 exch2_opposingSend(4,71)=3 exch2_pij(1,4,71)=1 exch2_pij(2,4,71)=0 exch2_pij(3,4,71)=0 exch2_pij(4,4,71)=1 exch2_oi(4,71)=0 exch2_oj(4,71)=0 RETURN END SUBROUTINE W2_E2SETUP_72 C Topology for tile 72 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(72)=85 exch2_tNy(72)=85 exch2_tBasex(72)=425 exch2_tBasey(72)=425 exch2_txGlobalo(72)=936 exch2_tyGlobalo(72)=426 exch2_isWedge(72)=0 exch2_isNedge(72)=1 exch2_isEedge(72)=1 exch2_isSedge(72)=0 exch2_myFace(72)=2 exch2_mydNx(72)=510 exch2_mydNy(72)=510 exch2_nNeighbours(72)=4 exch2_neighbourId(1,72)=78 exch2_iLo(1,72)=0 exch2_iHi(1,72)=86 exch2_jLo(1,72)=86 exch2_jHi(1,72)=86 exch2_opposingSend(1,72)=2 exch2_pij(1,1,72)=1 exch2_pij(2,1,72)=0 exch2_pij(3,1,72)=0 exch2_pij(4,1,72)=1 exch2_oi(1,72)=0 exch2_oj(1,72)=510 exch2_neighbourId(2,72)=66 exch2_iLo(2,72)=0 exch2_iHi(2,72)=86 exch2_jLo(2,72)=0 exch2_jHi(2,72)=0 exch2_opposingSend(2,72)=1 exch2_pij(1,2,72)=1 exch2_pij(2,2,72)=0 exch2_pij(3,2,72)=0 exch2_pij(4,2,72)=1 exch2_oi(2,72)=0 exch2_oj(2,72)=0 exch2_neighbourId(3,72)=109 exch2_iLo(3,72)=86 exch2_iHi(3,72)=86 exch2_jLo(3,72)=0 exch2_jHi(3,72)=86 exch2_opposingSend(3,72)=2 exch2_pij(1,3,72)=0 exch2_pij(2,3,72)=1 exch2_pij(3,3,72)=-1 exch2_pij(4,3,72)=0 exch2_oi(3,72)=510 exch2_oj(3,72)=511 exch2_neighbourId(4,72)=71 exch2_iLo(4,72)=0 exch2_iHi(4,72)=0 exch2_jLo(4,72)=0 exch2_jHi(4,72)=86 exch2_opposingSend(4,72)=3 exch2_pij(1,4,72)=1 exch2_pij(2,4,72)=0 exch2_pij(3,4,72)=0 exch2_pij(4,4,72)=1 exch2_oi(4,72)=0 exch2_oj(4,72)=0 RETURN END SUBROUTINE W2_E2SETUP_73 C Topology for tile 73 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(73)=85 exch2_tNy(73)=85 exch2_tBasex(73)=0 exch2_tBasey(73)=0 exch2_txGlobalo(73)=1021 exch2_tyGlobalo(73)=1 exch2_isWedge(73)=1 exch2_isNedge(73)=0 exch2_isEedge(73)=0 exch2_isSedge(73)=1 exch2_myFace(73)=3 exch2_mydNx(73)=510 exch2_mydNy(73)=510 exch2_nNeighbours(73)=4 exch2_neighbourId(1,73)=79 exch2_iLo(1,73)=0 exch2_iHi(1,73)=86 exch2_jLo(1,73)=86 exch2_jHi(1,73)=86 exch2_opposingSend(1,73)=2 exch2_pij(1,1,73)=1 exch2_pij(2,1,73)=0 exch2_pij(3,1,73)=0 exch2_pij(4,1,73)=1 exch2_oi(1,73)=0 exch2_oj(1,73)=0 exch2_neighbourId(2,73)=67 exch2_iLo(2,73)=0 exch2_iHi(2,73)=86 exch2_jLo(2,73)=0 exch2_jHi(2,73)=0 exch2_opposingSend(2,73)=1 exch2_pij(1,2,73)=1 exch2_pij(2,2,73)=0 exch2_pij(3,2,73)=0 exch2_pij(4,2,73)=1 exch2_oi(2,73)=0 exch2_oj(2,73)=-510 exch2_neighbourId(3,73)=74 exch2_iLo(3,73)=86 exch2_iHi(3,73)=86 exch2_jLo(3,73)=0 exch2_jHi(3,73)=86 exch2_opposingSend(3,73)=4 exch2_pij(1,3,73)=1 exch2_pij(2,3,73)=0 exch2_pij(3,3,73)=0 exch2_pij(4,3,73)=1 exch2_oi(3,73)=0 exch2_oj(3,73)=0 exch2_neighbourId(4,73)=36 exch2_iLo(4,73)=0 exch2_iHi(4,73)=0 exch2_jLo(4,73)=0 exch2_jHi(4,73)=86 exch2_opposingSend(4,73)=1 exch2_pij(1,4,73)=0 exch2_pij(2,4,73)=1 exch2_pij(3,4,73)=-1 exch2_pij(4,4,73)=0 exch2_oi(4,73)=-510 exch2_oj(4,73)=511 RETURN END SUBROUTINE W2_E2SETUP_74 C Topology for tile 74 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(74)=85 exch2_tNy(74)=85 exch2_tBasex(74)=85 exch2_tBasey(74)=0 exch2_txGlobalo(74)=1106 exch2_tyGlobalo(74)=1 exch2_isWedge(74)=0 exch2_isNedge(74)=0 exch2_isEedge(74)=0 exch2_isSedge(74)=1 exch2_myFace(74)=3 exch2_mydNx(74)=510 exch2_mydNy(74)=510 exch2_nNeighbours(74)=4 exch2_neighbourId(1,74)=80 exch2_iLo(1,74)=0 exch2_iHi(1,74)=86 exch2_jLo(1,74)=86 exch2_jHi(1,74)=86 exch2_opposingSend(1,74)=2 exch2_pij(1,1,74)=1 exch2_pij(2,1,74)=0 exch2_pij(3,1,74)=0 exch2_pij(4,1,74)=1 exch2_oi(1,74)=0 exch2_oj(1,74)=0 exch2_neighbourId(2,74)=68 exch2_iLo(2,74)=0 exch2_iHi(2,74)=86 exch2_jLo(2,74)=0 exch2_jHi(2,74)=0 exch2_opposingSend(2,74)=1 exch2_pij(1,2,74)=1 exch2_pij(2,2,74)=0 exch2_pij(3,2,74)=0 exch2_pij(4,2,74)=1 exch2_oi(2,74)=0 exch2_oj(2,74)=-510 exch2_neighbourId(3,74)=75 exch2_iLo(3,74)=86 exch2_iHi(3,74)=86 exch2_jLo(3,74)=0 exch2_jHi(3,74)=86 exch2_opposingSend(3,74)=4 exch2_pij(1,3,74)=1 exch2_pij(2,3,74)=0 exch2_pij(3,3,74)=0 exch2_pij(4,3,74)=1 exch2_oi(3,74)=0 exch2_oj(3,74)=0 exch2_neighbourId(4,74)=73 exch2_iLo(4,74)=0 exch2_iHi(4,74)=0 exch2_jLo(4,74)=0 exch2_jHi(4,74)=86 exch2_opposingSend(4,74)=3 exch2_pij(1,4,74)=1 exch2_pij(2,4,74)=0 exch2_pij(3,4,74)=0 exch2_pij(4,4,74)=1 exch2_oi(4,74)=0 exch2_oj(4,74)=0 RETURN END SUBROUTINE W2_E2SETUP_75 C Topology for tile 75 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(75)=85 exch2_tNy(75)=85 exch2_tBasex(75)=170 exch2_tBasey(75)=0 exch2_txGlobalo(75)=1191 exch2_tyGlobalo(75)=1 exch2_isWedge(75)=0 exch2_isNedge(75)=0 exch2_isEedge(75)=0 exch2_isSedge(75)=1 exch2_myFace(75)=3 exch2_mydNx(75)=510 exch2_mydNy(75)=510 exch2_nNeighbours(75)=4 exch2_neighbourId(1,75)=81 exch2_iLo(1,75)=0 exch2_iHi(1,75)=86 exch2_jLo(1,75)=86 exch2_jHi(1,75)=86 exch2_opposingSend(1,75)=2 exch2_pij(1,1,75)=1 exch2_pij(2,1,75)=0 exch2_pij(3,1,75)=0 exch2_pij(4,1,75)=1 exch2_oi(1,75)=0 exch2_oj(1,75)=0 exch2_neighbourId(2,75)=69 exch2_iLo(2,75)=0 exch2_iHi(2,75)=86 exch2_jLo(2,75)=0 exch2_jHi(2,75)=0 exch2_opposingSend(2,75)=1 exch2_pij(1,2,75)=1 exch2_pij(2,2,75)=0 exch2_pij(3,2,75)=0 exch2_pij(4,2,75)=1 exch2_oi(2,75)=0 exch2_oj(2,75)=-510 exch2_neighbourId(3,75)=76 exch2_iLo(3,75)=86 exch2_iHi(3,75)=86 exch2_jLo(3,75)=0 exch2_jHi(3,75)=86 exch2_opposingSend(3,75)=4 exch2_pij(1,3,75)=1 exch2_pij(2,3,75)=0 exch2_pij(3,3,75)=0 exch2_pij(4,3,75)=1 exch2_oi(3,75)=0 exch2_oj(3,75)=0 exch2_neighbourId(4,75)=74 exch2_iLo(4,75)=0 exch2_iHi(4,75)=0 exch2_jLo(4,75)=0 exch2_jHi(4,75)=86 exch2_opposingSend(4,75)=3 exch2_pij(1,4,75)=1 exch2_pij(2,4,75)=0 exch2_pij(3,4,75)=0 exch2_pij(4,4,75)=1 exch2_oi(4,75)=0 exch2_oj(4,75)=0 RETURN END SUBROUTINE W2_E2SETUP_76 C Topology for tile 76 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(76)=85 exch2_tNy(76)=85 exch2_tBasex(76)=255 exch2_tBasey(76)=0 exch2_txGlobalo(76)=1276 exch2_tyGlobalo(76)=1 exch2_isWedge(76)=0 exch2_isNedge(76)=0 exch2_isEedge(76)=0 exch2_isSedge(76)=1 exch2_myFace(76)=3 exch2_mydNx(76)=510 exch2_mydNy(76)=510 exch2_nNeighbours(76)=4 exch2_neighbourId(1,76)=82 exch2_iLo(1,76)=0 exch2_iHi(1,76)=86 exch2_jLo(1,76)=86 exch2_jHi(1,76)=86 exch2_opposingSend(1,76)=2 exch2_pij(1,1,76)=1 exch2_pij(2,1,76)=0 exch2_pij(3,1,76)=0 exch2_pij(4,1,76)=1 exch2_oi(1,76)=0 exch2_oj(1,76)=0 exch2_neighbourId(2,76)=70 exch2_iLo(2,76)=0 exch2_iHi(2,76)=86 exch2_jLo(2,76)=0 exch2_jHi(2,76)=0 exch2_opposingSend(2,76)=1 exch2_pij(1,2,76)=1 exch2_pij(2,2,76)=0 exch2_pij(3,2,76)=0 exch2_pij(4,2,76)=1 exch2_oi(2,76)=0 exch2_oj(2,76)=-510 exch2_neighbourId(3,76)=77 exch2_iLo(3,76)=86 exch2_iHi(3,76)=86 exch2_jLo(3,76)=0 exch2_jHi(3,76)=86 exch2_opposingSend(3,76)=4 exch2_pij(1,3,76)=1 exch2_pij(2,3,76)=0 exch2_pij(3,3,76)=0 exch2_pij(4,3,76)=1 exch2_oi(3,76)=0 exch2_oj(3,76)=0 exch2_neighbourId(4,76)=75 exch2_iLo(4,76)=0 exch2_iHi(4,76)=0 exch2_jLo(4,76)=0 exch2_jHi(4,76)=86 exch2_opposingSend(4,76)=3 exch2_pij(1,4,76)=1 exch2_pij(2,4,76)=0 exch2_pij(3,4,76)=0 exch2_pij(4,4,76)=1 exch2_oi(4,76)=0 exch2_oj(4,76)=0 RETURN END SUBROUTINE W2_E2SETUP_77 C Topology for tile 77 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(77)=85 exch2_tNy(77)=85 exch2_tBasex(77)=340 exch2_tBasey(77)=0 exch2_txGlobalo(77)=1361 exch2_tyGlobalo(77)=1 exch2_isWedge(77)=0 exch2_isNedge(77)=0 exch2_isEedge(77)=0 exch2_isSedge(77)=1 exch2_myFace(77)=3 exch2_mydNx(77)=510 exch2_mydNy(77)=510 exch2_nNeighbours(77)=4 exch2_neighbourId(1,77)=83 exch2_iLo(1,77)=0 exch2_iHi(1,77)=86 exch2_jLo(1,77)=86 exch2_jHi(1,77)=86 exch2_opposingSend(1,77)=2 exch2_pij(1,1,77)=1 exch2_pij(2,1,77)=0 exch2_pij(3,1,77)=0 exch2_pij(4,1,77)=1 exch2_oi(1,77)=0 exch2_oj(1,77)=0 exch2_neighbourId(2,77)=71 exch2_iLo(2,77)=0 exch2_iHi(2,77)=86 exch2_jLo(2,77)=0 exch2_jHi(2,77)=0 exch2_opposingSend(2,77)=1 exch2_pij(1,2,77)=1 exch2_pij(2,2,77)=0 exch2_pij(3,2,77)=0 exch2_pij(4,2,77)=1 exch2_oi(2,77)=0 exch2_oj(2,77)=-510 exch2_neighbourId(3,77)=78 exch2_iLo(3,77)=86 exch2_iHi(3,77)=86 exch2_jLo(3,77)=0 exch2_jHi(3,77)=86 exch2_opposingSend(3,77)=4 exch2_pij(1,3,77)=1 exch2_pij(2,3,77)=0 exch2_pij(3,3,77)=0 exch2_pij(4,3,77)=1 exch2_oi(3,77)=0 exch2_oj(3,77)=0 exch2_neighbourId(4,77)=76 exch2_iLo(4,77)=0 exch2_iHi(4,77)=0 exch2_jLo(4,77)=0 exch2_jHi(4,77)=86 exch2_opposingSend(4,77)=3 exch2_pij(1,4,77)=1 exch2_pij(2,4,77)=0 exch2_pij(3,4,77)=0 exch2_pij(4,4,77)=1 exch2_oi(4,77)=0 exch2_oj(4,77)=0 RETURN END SUBROUTINE W2_E2SETUP_78 C Topology for tile 78 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(78)=85 exch2_tNy(78)=85 exch2_tBasex(78)=425 exch2_tBasey(78)=0 exch2_txGlobalo(78)=1446 exch2_tyGlobalo(78)=1 exch2_isWedge(78)=0 exch2_isNedge(78)=0 exch2_isEedge(78)=1 exch2_isSedge(78)=1 exch2_myFace(78)=3 exch2_mydNx(78)=510 exch2_mydNy(78)=510 exch2_nNeighbours(78)=4 exch2_neighbourId(1,78)=84 exch2_iLo(1,78)=0 exch2_iHi(1,78)=86 exch2_jLo(1,78)=86 exch2_jHi(1,78)=86 exch2_opposingSend(1,78)=2 exch2_pij(1,1,78)=1 exch2_pij(2,1,78)=0 exch2_pij(3,1,78)=0 exch2_pij(4,1,78)=1 exch2_oi(1,78)=0 exch2_oj(1,78)=0 exch2_neighbourId(2,78)=72 exch2_iLo(2,78)=0 exch2_iHi(2,78)=86 exch2_jLo(2,78)=0 exch2_jHi(2,78)=0 exch2_opposingSend(2,78)=1 exch2_pij(1,2,78)=1 exch2_pij(2,2,78)=0 exch2_pij(3,2,78)=0 exch2_pij(4,2,78)=1 exch2_oi(2,78)=0 exch2_oj(2,78)=-510 exch2_neighbourId(3,78)=109 exch2_iLo(3,78)=86 exch2_iHi(3,78)=86 exch2_jLo(3,78)=0 exch2_jHi(3,78)=86 exch2_opposingSend(3,78)=4 exch2_pij(1,3,78)=1 exch2_pij(2,3,78)=0 exch2_pij(3,3,78)=0 exch2_pij(4,3,78)=1 exch2_oi(3,78)=510 exch2_oj(3,78)=0 exch2_neighbourId(4,78)=77 exch2_iLo(4,78)=0 exch2_iHi(4,78)=0 exch2_jLo(4,78)=0 exch2_jHi(4,78)=86 exch2_opposingSend(4,78)=3 exch2_pij(1,4,78)=1 exch2_pij(2,4,78)=0 exch2_pij(3,4,78)=0 exch2_pij(4,4,78)=1 exch2_oi(4,78)=0 exch2_oj(4,78)=0 RETURN END SUBROUTINE W2_E2SETUP_79 C Topology for tile 79 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(79)=85 exch2_tNy(79)=85 exch2_tBasex(79)=0 exch2_tBasey(79)=85 exch2_txGlobalo(79)=1021 exch2_tyGlobalo(79)=86 exch2_isWedge(79)=1 exch2_isNedge(79)=0 exch2_isEedge(79)=0 exch2_isSedge(79)=0 exch2_myFace(79)=3 exch2_mydNx(79)=510 exch2_mydNy(79)=510 exch2_nNeighbours(79)=4 exch2_neighbourId(1,79)=85 exch2_iLo(1,79)=0 exch2_iHi(1,79)=86 exch2_jLo(1,79)=86 exch2_jHi(1,79)=86 exch2_opposingSend(1,79)=2 exch2_pij(1,1,79)=1 exch2_pij(2,1,79)=0 exch2_pij(3,1,79)=0 exch2_pij(4,1,79)=1 exch2_oi(1,79)=0 exch2_oj(1,79)=0 exch2_neighbourId(2,79)=73 exch2_iLo(2,79)=0 exch2_iHi(2,79)=86 exch2_jLo(2,79)=0 exch2_jHi(2,79)=0 exch2_opposingSend(2,79)=1 exch2_pij(1,2,79)=1 exch2_pij(2,2,79)=0 exch2_pij(3,2,79)=0 exch2_pij(4,2,79)=1 exch2_oi(2,79)=0 exch2_oj(2,79)=0 exch2_neighbourId(3,79)=80 exch2_iLo(3,79)=86 exch2_iHi(3,79)=86 exch2_jLo(3,79)=0 exch2_jHi(3,79)=86 exch2_opposingSend(3,79)=4 exch2_pij(1,3,79)=1 exch2_pij(2,3,79)=0 exch2_pij(3,3,79)=0 exch2_pij(4,3,79)=1 exch2_oi(3,79)=0 exch2_oj(3,79)=0 exch2_neighbourId(4,79)=35 exch2_iLo(4,79)=0 exch2_iHi(4,79)=0 exch2_jLo(4,79)=0 exch2_jHi(4,79)=86 exch2_opposingSend(4,79)=1 exch2_pij(1,4,79)=0 exch2_pij(2,4,79)=1 exch2_pij(3,4,79)=-1 exch2_pij(4,4,79)=0 exch2_oi(4,79)=-510 exch2_oj(4,79)=511 RETURN END SUBROUTINE W2_E2SETUP_80 C Topology for tile 80 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(80)=85 exch2_tNy(80)=85 exch2_tBasex(80)=85 exch2_tBasey(80)=85 exch2_txGlobalo(80)=1106 exch2_tyGlobalo(80)=86 exch2_isWedge(80)=0 exch2_isNedge(80)=0 exch2_isEedge(80)=0 exch2_isSedge(80)=0 exch2_myFace(80)=3 exch2_mydNx(80)=510 exch2_mydNy(80)=510 exch2_nNeighbours(80)=4 exch2_neighbourId(1,80)=86 exch2_iLo(1,80)=0 exch2_iHi(1,80)=86 exch2_jLo(1,80)=86 exch2_jHi(1,80)=86 exch2_opposingSend(1,80)=2 exch2_pij(1,1,80)=1 exch2_pij(2,1,80)=0 exch2_pij(3,1,80)=0 exch2_pij(4,1,80)=1 exch2_oi(1,80)=0 exch2_oj(1,80)=0 exch2_neighbourId(2,80)=74 exch2_iLo(2,80)=0 exch2_iHi(2,80)=86 exch2_jLo(2,80)=0 exch2_jHi(2,80)=0 exch2_opposingSend(2,80)=1 exch2_pij(1,2,80)=1 exch2_pij(2,2,80)=0 exch2_pij(3,2,80)=0 exch2_pij(4,2,80)=1 exch2_oi(2,80)=0 exch2_oj(2,80)=0 exch2_neighbourId(3,80)=81 exch2_iLo(3,80)=86 exch2_iHi(3,80)=86 exch2_jLo(3,80)=0 exch2_jHi(3,80)=86 exch2_opposingSend(3,80)=4 exch2_pij(1,3,80)=1 exch2_pij(2,3,80)=0 exch2_pij(3,3,80)=0 exch2_pij(4,3,80)=1 exch2_oi(3,80)=0 exch2_oj(3,80)=0 exch2_neighbourId(4,80)=79 exch2_iLo(4,80)=0 exch2_iHi(4,80)=0 exch2_jLo(4,80)=0 exch2_jHi(4,80)=86 exch2_opposingSend(4,80)=3 exch2_pij(1,4,80)=1 exch2_pij(2,4,80)=0 exch2_pij(3,4,80)=0 exch2_pij(4,4,80)=1 exch2_oi(4,80)=0 exch2_oj(4,80)=0 RETURN END SUBROUTINE W2_E2SETUP_81 C Topology for tile 81 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(81)=85 exch2_tNy(81)=85 exch2_tBasex(81)=170 exch2_tBasey(81)=85 exch2_txGlobalo(81)=1191 exch2_tyGlobalo(81)=86 exch2_isWedge(81)=0 exch2_isNedge(81)=0 exch2_isEedge(81)=0 exch2_isSedge(81)=0 exch2_myFace(81)=3 exch2_mydNx(81)=510 exch2_mydNy(81)=510 exch2_nNeighbours(81)=4 exch2_neighbourId(1,81)=87 exch2_iLo(1,81)=0 exch2_iHi(1,81)=86 exch2_jLo(1,81)=86 exch2_jHi(1,81)=86 exch2_opposingSend(1,81)=2 exch2_pij(1,1,81)=1 exch2_pij(2,1,81)=0 exch2_pij(3,1,81)=0 exch2_pij(4,1,81)=1 exch2_oi(1,81)=0 exch2_oj(1,81)=0 exch2_neighbourId(2,81)=75 exch2_iLo(2,81)=0 exch2_iHi(2,81)=86 exch2_jLo(2,81)=0 exch2_jHi(2,81)=0 exch2_opposingSend(2,81)=1 exch2_pij(1,2,81)=1 exch2_pij(2,2,81)=0 exch2_pij(3,2,81)=0 exch2_pij(4,2,81)=1 exch2_oi(2,81)=0 exch2_oj(2,81)=0 exch2_neighbourId(3,81)=82 exch2_iLo(3,81)=86 exch2_iHi(3,81)=86 exch2_jLo(3,81)=0 exch2_jHi(3,81)=86 exch2_opposingSend(3,81)=4 exch2_pij(1,3,81)=1 exch2_pij(2,3,81)=0 exch2_pij(3,3,81)=0 exch2_pij(4,3,81)=1 exch2_oi(3,81)=0 exch2_oj(3,81)=0 exch2_neighbourId(4,81)=80 exch2_iLo(4,81)=0 exch2_iHi(4,81)=0 exch2_jLo(4,81)=0 exch2_jHi(4,81)=86 exch2_opposingSend(4,81)=3 exch2_pij(1,4,81)=1 exch2_pij(2,4,81)=0 exch2_pij(3,4,81)=0 exch2_pij(4,4,81)=1 exch2_oi(4,81)=0 exch2_oj(4,81)=0 RETURN END SUBROUTINE W2_E2SETUP_82 C Topology for tile 82 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(82)=85 exch2_tNy(82)=85 exch2_tBasex(82)=255 exch2_tBasey(82)=85 exch2_txGlobalo(82)=1276 exch2_tyGlobalo(82)=86 exch2_isWedge(82)=0 exch2_isNedge(82)=0 exch2_isEedge(82)=0 exch2_isSedge(82)=0 exch2_myFace(82)=3 exch2_mydNx(82)=510 exch2_mydNy(82)=510 exch2_nNeighbours(82)=4 exch2_neighbourId(1,82)=88 exch2_iLo(1,82)=0 exch2_iHi(1,82)=86 exch2_jLo(1,82)=86 exch2_jHi(1,82)=86 exch2_opposingSend(1,82)=2 exch2_pij(1,1,82)=1 exch2_pij(2,1,82)=0 exch2_pij(3,1,82)=0 exch2_pij(4,1,82)=1 exch2_oi(1,82)=0 exch2_oj(1,82)=0 exch2_neighbourId(2,82)=76 exch2_iLo(2,82)=0 exch2_iHi(2,82)=86 exch2_jLo(2,82)=0 exch2_jHi(2,82)=0 exch2_opposingSend(2,82)=1 exch2_pij(1,2,82)=1 exch2_pij(2,2,82)=0 exch2_pij(3,2,82)=0 exch2_pij(4,2,82)=1 exch2_oi(2,82)=0 exch2_oj(2,82)=0 exch2_neighbourId(3,82)=83 exch2_iLo(3,82)=86 exch2_iHi(3,82)=86 exch2_jLo(3,82)=0 exch2_jHi(3,82)=86 exch2_opposingSend(3,82)=4 exch2_pij(1,3,82)=1 exch2_pij(2,3,82)=0 exch2_pij(3,3,82)=0 exch2_pij(4,3,82)=1 exch2_oi(3,82)=0 exch2_oj(3,82)=0 exch2_neighbourId(4,82)=81 exch2_iLo(4,82)=0 exch2_iHi(4,82)=0 exch2_jLo(4,82)=0 exch2_jHi(4,82)=86 exch2_opposingSend(4,82)=3 exch2_pij(1,4,82)=1 exch2_pij(2,4,82)=0 exch2_pij(3,4,82)=0 exch2_pij(4,4,82)=1 exch2_oi(4,82)=0 exch2_oj(4,82)=0 RETURN END SUBROUTINE W2_E2SETUP_83 C Topology for tile 83 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(83)=85 exch2_tNy(83)=85 exch2_tBasex(83)=340 exch2_tBasey(83)=85 exch2_txGlobalo(83)=1361 exch2_tyGlobalo(83)=86 exch2_isWedge(83)=0 exch2_isNedge(83)=0 exch2_isEedge(83)=0 exch2_isSedge(83)=0 exch2_myFace(83)=3 exch2_mydNx(83)=510 exch2_mydNy(83)=510 exch2_nNeighbours(83)=4 exch2_neighbourId(1,83)=89 exch2_iLo(1,83)=0 exch2_iHi(1,83)=86 exch2_jLo(1,83)=86 exch2_jHi(1,83)=86 exch2_opposingSend(1,83)=2 exch2_pij(1,1,83)=1 exch2_pij(2,1,83)=0 exch2_pij(3,1,83)=0 exch2_pij(4,1,83)=1 exch2_oi(1,83)=0 exch2_oj(1,83)=0 exch2_neighbourId(2,83)=77 exch2_iLo(2,83)=0 exch2_iHi(2,83)=86 exch2_jLo(2,83)=0 exch2_jHi(2,83)=0 exch2_opposingSend(2,83)=1 exch2_pij(1,2,83)=1 exch2_pij(2,2,83)=0 exch2_pij(3,2,83)=0 exch2_pij(4,2,83)=1 exch2_oi(2,83)=0 exch2_oj(2,83)=0 exch2_neighbourId(3,83)=84 exch2_iLo(3,83)=86 exch2_iHi(3,83)=86 exch2_jLo(3,83)=0 exch2_jHi(3,83)=86 exch2_opposingSend(3,83)=4 exch2_pij(1,3,83)=1 exch2_pij(2,3,83)=0 exch2_pij(3,3,83)=0 exch2_pij(4,3,83)=1 exch2_oi(3,83)=0 exch2_oj(3,83)=0 exch2_neighbourId(4,83)=82 exch2_iLo(4,83)=0 exch2_iHi(4,83)=0 exch2_jLo(4,83)=0 exch2_jHi(4,83)=86 exch2_opposingSend(4,83)=3 exch2_pij(1,4,83)=1 exch2_pij(2,4,83)=0 exch2_pij(3,4,83)=0 exch2_pij(4,4,83)=1 exch2_oi(4,83)=0 exch2_oj(4,83)=0 RETURN END SUBROUTINE W2_E2SETUP_84 C Topology for tile 84 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(84)=85 exch2_tNy(84)=85 exch2_tBasex(84)=425 exch2_tBasey(84)=85 exch2_txGlobalo(84)=1446 exch2_tyGlobalo(84)=86 exch2_isWedge(84)=0 exch2_isNedge(84)=0 exch2_isEedge(84)=1 exch2_isSedge(84)=0 exch2_myFace(84)=3 exch2_mydNx(84)=510 exch2_mydNy(84)=510 exch2_nNeighbours(84)=4 exch2_neighbourId(1,84)=90 exch2_iLo(1,84)=0 exch2_iHi(1,84)=86 exch2_jLo(1,84)=86 exch2_jHi(1,84)=86 exch2_opposingSend(1,84)=2 exch2_pij(1,1,84)=1 exch2_pij(2,1,84)=0 exch2_pij(3,1,84)=0 exch2_pij(4,1,84)=1 exch2_oi(1,84)=0 exch2_oj(1,84)=0 exch2_neighbourId(2,84)=78 exch2_iLo(2,84)=0 exch2_iHi(2,84)=86 exch2_jLo(2,84)=0 exch2_jHi(2,84)=0 exch2_opposingSend(2,84)=1 exch2_pij(1,2,84)=1 exch2_pij(2,2,84)=0 exch2_pij(3,2,84)=0 exch2_pij(4,2,84)=1 exch2_oi(2,84)=0 exch2_oj(2,84)=0 exch2_neighbourId(3,84)=115 exch2_iLo(3,84)=86 exch2_iHi(3,84)=86 exch2_jLo(3,84)=0 exch2_jHi(3,84)=86 exch2_opposingSend(3,84)=4 exch2_pij(1,3,84)=1 exch2_pij(2,3,84)=0 exch2_pij(3,3,84)=0 exch2_pij(4,3,84)=1 exch2_oi(3,84)=510 exch2_oj(3,84)=0 exch2_neighbourId(4,84)=83 exch2_iLo(4,84)=0 exch2_iHi(4,84)=0 exch2_jLo(4,84)=0 exch2_jHi(4,84)=86 exch2_opposingSend(4,84)=3 exch2_pij(1,4,84)=1 exch2_pij(2,4,84)=0 exch2_pij(3,4,84)=0 exch2_pij(4,4,84)=1 exch2_oi(4,84)=0 exch2_oj(4,84)=0 RETURN END SUBROUTINE W2_E2SETUP_85 C Topology for tile 85 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(85)=85 exch2_tNy(85)=85 exch2_tBasex(85)=0 exch2_tBasey(85)=170 exch2_txGlobalo(85)=1021 exch2_tyGlobalo(85)=171 exch2_isWedge(85)=1 exch2_isNedge(85)=0 exch2_isEedge(85)=0 exch2_isSedge(85)=0 exch2_myFace(85)=3 exch2_mydNx(85)=510 exch2_mydNy(85)=510 exch2_nNeighbours(85)=4 exch2_neighbourId(1,85)=91 exch2_iLo(1,85)=0 exch2_iHi(1,85)=86 exch2_jLo(1,85)=86 exch2_jHi(1,85)=86 exch2_opposingSend(1,85)=2 exch2_pij(1,1,85)=1 exch2_pij(2,1,85)=0 exch2_pij(3,1,85)=0 exch2_pij(4,1,85)=1 exch2_oi(1,85)=0 exch2_oj(1,85)=0 exch2_neighbourId(2,85)=79 exch2_iLo(2,85)=0 exch2_iHi(2,85)=86 exch2_jLo(2,85)=0 exch2_jHi(2,85)=0 exch2_opposingSend(2,85)=1 exch2_pij(1,2,85)=1 exch2_pij(2,2,85)=0 exch2_pij(3,2,85)=0 exch2_pij(4,2,85)=1 exch2_oi(2,85)=0 exch2_oj(2,85)=0 exch2_neighbourId(3,85)=86 exch2_iLo(3,85)=86 exch2_iHi(3,85)=86 exch2_jLo(3,85)=0 exch2_jHi(3,85)=86 exch2_opposingSend(3,85)=4 exch2_pij(1,3,85)=1 exch2_pij(2,3,85)=0 exch2_pij(3,3,85)=0 exch2_pij(4,3,85)=1 exch2_oi(3,85)=0 exch2_oj(3,85)=0 exch2_neighbourId(4,85)=34 exch2_iLo(4,85)=0 exch2_iHi(4,85)=0 exch2_jLo(4,85)=0 exch2_jHi(4,85)=86 exch2_opposingSend(4,85)=1 exch2_pij(1,4,85)=0 exch2_pij(2,4,85)=1 exch2_pij(3,4,85)=-1 exch2_pij(4,4,85)=0 exch2_oi(4,85)=-510 exch2_oj(4,85)=511 RETURN END SUBROUTINE W2_E2SETUP_86 C Topology for tile 86 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(86)=85 exch2_tNy(86)=85 exch2_tBasex(86)=85 exch2_tBasey(86)=170 exch2_txGlobalo(86)=1106 exch2_tyGlobalo(86)=171 exch2_isWedge(86)=0 exch2_isNedge(86)=0 exch2_isEedge(86)=0 exch2_isSedge(86)=0 exch2_myFace(86)=3 exch2_mydNx(86)=510 exch2_mydNy(86)=510 exch2_nNeighbours(86)=4 exch2_neighbourId(1,86)=92 exch2_iLo(1,86)=0 exch2_iHi(1,86)=86 exch2_jLo(1,86)=86 exch2_jHi(1,86)=86 exch2_opposingSend(1,86)=2 exch2_pij(1,1,86)=1 exch2_pij(2,1,86)=0 exch2_pij(3,1,86)=0 exch2_pij(4,1,86)=1 exch2_oi(1,86)=0 exch2_oj(1,86)=0 exch2_neighbourId(2,86)=80 exch2_iLo(2,86)=0 exch2_iHi(2,86)=86 exch2_jLo(2,86)=0 exch2_jHi(2,86)=0 exch2_opposingSend(2,86)=1 exch2_pij(1,2,86)=1 exch2_pij(2,2,86)=0 exch2_pij(3,2,86)=0 exch2_pij(4,2,86)=1 exch2_oi(2,86)=0 exch2_oj(2,86)=0 exch2_neighbourId(3,86)=87 exch2_iLo(3,86)=86 exch2_iHi(3,86)=86 exch2_jLo(3,86)=0 exch2_jHi(3,86)=86 exch2_opposingSend(3,86)=4 exch2_pij(1,3,86)=1 exch2_pij(2,3,86)=0 exch2_pij(3,3,86)=0 exch2_pij(4,3,86)=1 exch2_oi(3,86)=0 exch2_oj(3,86)=0 exch2_neighbourId(4,86)=85 exch2_iLo(4,86)=0 exch2_iHi(4,86)=0 exch2_jLo(4,86)=0 exch2_jHi(4,86)=86 exch2_opposingSend(4,86)=3 exch2_pij(1,4,86)=1 exch2_pij(2,4,86)=0 exch2_pij(3,4,86)=0 exch2_pij(4,4,86)=1 exch2_oi(4,86)=0 exch2_oj(4,86)=0 RETURN END SUBROUTINE W2_E2SETUP_87 C Topology for tile 87 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(87)=85 exch2_tNy(87)=85 exch2_tBasex(87)=170 exch2_tBasey(87)=170 exch2_txGlobalo(87)=1191 exch2_tyGlobalo(87)=171 exch2_isWedge(87)=0 exch2_isNedge(87)=0 exch2_isEedge(87)=0 exch2_isSedge(87)=0 exch2_myFace(87)=3 exch2_mydNx(87)=510 exch2_mydNy(87)=510 exch2_nNeighbours(87)=4 exch2_neighbourId(1,87)=93 exch2_iLo(1,87)=0 exch2_iHi(1,87)=86 exch2_jLo(1,87)=86 exch2_jHi(1,87)=86 exch2_opposingSend(1,87)=2 exch2_pij(1,1,87)=1 exch2_pij(2,1,87)=0 exch2_pij(3,1,87)=0 exch2_pij(4,1,87)=1 exch2_oi(1,87)=0 exch2_oj(1,87)=0 exch2_neighbourId(2,87)=81 exch2_iLo(2,87)=0 exch2_iHi(2,87)=86 exch2_jLo(2,87)=0 exch2_jHi(2,87)=0 exch2_opposingSend(2,87)=1 exch2_pij(1,2,87)=1 exch2_pij(2,2,87)=0 exch2_pij(3,2,87)=0 exch2_pij(4,2,87)=1 exch2_oi(2,87)=0 exch2_oj(2,87)=0 exch2_neighbourId(3,87)=88 exch2_iLo(3,87)=86 exch2_iHi(3,87)=86 exch2_jLo(3,87)=0 exch2_jHi(3,87)=86 exch2_opposingSend(3,87)=4 exch2_pij(1,3,87)=1 exch2_pij(2,3,87)=0 exch2_pij(3,3,87)=0 exch2_pij(4,3,87)=1 exch2_oi(3,87)=0 exch2_oj(3,87)=0 exch2_neighbourId(4,87)=86 exch2_iLo(4,87)=0 exch2_iHi(4,87)=0 exch2_jLo(4,87)=0 exch2_jHi(4,87)=86 exch2_opposingSend(4,87)=3 exch2_pij(1,4,87)=1 exch2_pij(2,4,87)=0 exch2_pij(3,4,87)=0 exch2_pij(4,4,87)=1 exch2_oi(4,87)=0 exch2_oj(4,87)=0 RETURN END SUBROUTINE W2_E2SETUP_88 C Topology for tile 88 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(88)=85 exch2_tNy(88)=85 exch2_tBasex(88)=255 exch2_tBasey(88)=170 exch2_txGlobalo(88)=1276 exch2_tyGlobalo(88)=171 exch2_isWedge(88)=0 exch2_isNedge(88)=0 exch2_isEedge(88)=0 exch2_isSedge(88)=0 exch2_myFace(88)=3 exch2_mydNx(88)=510 exch2_mydNy(88)=510 exch2_nNeighbours(88)=4 exch2_neighbourId(1,88)=94 exch2_iLo(1,88)=0 exch2_iHi(1,88)=86 exch2_jLo(1,88)=86 exch2_jHi(1,88)=86 exch2_opposingSend(1,88)=2 exch2_pij(1,1,88)=1 exch2_pij(2,1,88)=0 exch2_pij(3,1,88)=0 exch2_pij(4,1,88)=1 exch2_oi(1,88)=0 exch2_oj(1,88)=0 exch2_neighbourId(2,88)=82 exch2_iLo(2,88)=0 exch2_iHi(2,88)=86 exch2_jLo(2,88)=0 exch2_jHi(2,88)=0 exch2_opposingSend(2,88)=1 exch2_pij(1,2,88)=1 exch2_pij(2,2,88)=0 exch2_pij(3,2,88)=0 exch2_pij(4,2,88)=1 exch2_oi(2,88)=0 exch2_oj(2,88)=0 exch2_neighbourId(3,88)=89 exch2_iLo(3,88)=86 exch2_iHi(3,88)=86 exch2_jLo(3,88)=0 exch2_jHi(3,88)=86 exch2_opposingSend(3,88)=4 exch2_pij(1,3,88)=1 exch2_pij(2,3,88)=0 exch2_pij(3,3,88)=0 exch2_pij(4,3,88)=1 exch2_oi(3,88)=0 exch2_oj(3,88)=0 exch2_neighbourId(4,88)=87 exch2_iLo(4,88)=0 exch2_iHi(4,88)=0 exch2_jLo(4,88)=0 exch2_jHi(4,88)=86 exch2_opposingSend(4,88)=3 exch2_pij(1,4,88)=1 exch2_pij(2,4,88)=0 exch2_pij(3,4,88)=0 exch2_pij(4,4,88)=1 exch2_oi(4,88)=0 exch2_oj(4,88)=0 RETURN END SUBROUTINE W2_E2SETUP_89 C Topology for tile 89 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(89)=85 exch2_tNy(89)=85 exch2_tBasex(89)=340 exch2_tBasey(89)=170 exch2_txGlobalo(89)=1361 exch2_tyGlobalo(89)=171 exch2_isWedge(89)=0 exch2_isNedge(89)=0 exch2_isEedge(89)=0 exch2_isSedge(89)=0 exch2_myFace(89)=3 exch2_mydNx(89)=510 exch2_mydNy(89)=510 exch2_nNeighbours(89)=4 exch2_neighbourId(1,89)=95 exch2_iLo(1,89)=0 exch2_iHi(1,89)=86 exch2_jLo(1,89)=86 exch2_jHi(1,89)=86 exch2_opposingSend(1,89)=2 exch2_pij(1,1,89)=1 exch2_pij(2,1,89)=0 exch2_pij(3,1,89)=0 exch2_pij(4,1,89)=1 exch2_oi(1,89)=0 exch2_oj(1,89)=0 exch2_neighbourId(2,89)=83 exch2_iLo(2,89)=0 exch2_iHi(2,89)=86 exch2_jLo(2,89)=0 exch2_jHi(2,89)=0 exch2_opposingSend(2,89)=1 exch2_pij(1,2,89)=1 exch2_pij(2,2,89)=0 exch2_pij(3,2,89)=0 exch2_pij(4,2,89)=1 exch2_oi(2,89)=0 exch2_oj(2,89)=0 exch2_neighbourId(3,89)=90 exch2_iLo(3,89)=86 exch2_iHi(3,89)=86 exch2_jLo(3,89)=0 exch2_jHi(3,89)=86 exch2_opposingSend(3,89)=4 exch2_pij(1,3,89)=1 exch2_pij(2,3,89)=0 exch2_pij(3,3,89)=0 exch2_pij(4,3,89)=1 exch2_oi(3,89)=0 exch2_oj(3,89)=0 exch2_neighbourId(4,89)=88 exch2_iLo(4,89)=0 exch2_iHi(4,89)=0 exch2_jLo(4,89)=0 exch2_jHi(4,89)=86 exch2_opposingSend(4,89)=3 exch2_pij(1,4,89)=1 exch2_pij(2,4,89)=0 exch2_pij(3,4,89)=0 exch2_pij(4,4,89)=1 exch2_oi(4,89)=0 exch2_oj(4,89)=0 RETURN END SUBROUTINE W2_E2SETUP_90 C Topology for tile 90 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(90)=85 exch2_tNy(90)=85 exch2_tBasex(90)=425 exch2_tBasey(90)=170 exch2_txGlobalo(90)=1446 exch2_tyGlobalo(90)=171 exch2_isWedge(90)=0 exch2_isNedge(90)=0 exch2_isEedge(90)=1 exch2_isSedge(90)=0 exch2_myFace(90)=3 exch2_mydNx(90)=510 exch2_mydNy(90)=510 exch2_nNeighbours(90)=4 exch2_neighbourId(1,90)=96 exch2_iLo(1,90)=0 exch2_iHi(1,90)=86 exch2_jLo(1,90)=86 exch2_jHi(1,90)=86 exch2_opposingSend(1,90)=2 exch2_pij(1,1,90)=1 exch2_pij(2,1,90)=0 exch2_pij(3,1,90)=0 exch2_pij(4,1,90)=1 exch2_oi(1,90)=0 exch2_oj(1,90)=0 exch2_neighbourId(2,90)=84 exch2_iLo(2,90)=0 exch2_iHi(2,90)=86 exch2_jLo(2,90)=0 exch2_jHi(2,90)=0 exch2_opposingSend(2,90)=1 exch2_pij(1,2,90)=1 exch2_pij(2,2,90)=0 exch2_pij(3,2,90)=0 exch2_pij(4,2,90)=1 exch2_oi(2,90)=0 exch2_oj(2,90)=0 exch2_neighbourId(3,90)=121 exch2_iLo(3,90)=86 exch2_iHi(3,90)=86 exch2_jLo(3,90)=0 exch2_jHi(3,90)=86 exch2_opposingSend(3,90)=4 exch2_pij(1,3,90)=1 exch2_pij(2,3,90)=0 exch2_pij(3,3,90)=0 exch2_pij(4,3,90)=1 exch2_oi(3,90)=510 exch2_oj(3,90)=0 exch2_neighbourId(4,90)=89 exch2_iLo(4,90)=0 exch2_iHi(4,90)=0 exch2_jLo(4,90)=0 exch2_jHi(4,90)=86 exch2_opposingSend(4,90)=3 exch2_pij(1,4,90)=1 exch2_pij(2,4,90)=0 exch2_pij(3,4,90)=0 exch2_pij(4,4,90)=1 exch2_oi(4,90)=0 exch2_oj(4,90)=0 RETURN END SUBROUTINE W2_E2SETUP_91 C Topology for tile 91 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(91)=85 exch2_tNy(91)=85 exch2_tBasex(91)=0 exch2_tBasey(91)=255 exch2_txGlobalo(91)=1021 exch2_tyGlobalo(91)=256 exch2_isWedge(91)=1 exch2_isNedge(91)=0 exch2_isEedge(91)=0 exch2_isSedge(91)=0 exch2_myFace(91)=3 exch2_mydNx(91)=510 exch2_mydNy(91)=510 exch2_nNeighbours(91)=4 exch2_neighbourId(1,91)=97 exch2_iLo(1,91)=0 exch2_iHi(1,91)=86 exch2_jLo(1,91)=86 exch2_jHi(1,91)=86 exch2_opposingSend(1,91)=2 exch2_pij(1,1,91)=1 exch2_pij(2,1,91)=0 exch2_pij(3,1,91)=0 exch2_pij(4,1,91)=1 exch2_oi(1,91)=0 exch2_oj(1,91)=0 exch2_neighbourId(2,91)=85 exch2_iLo(2,91)=0 exch2_iHi(2,91)=86 exch2_jLo(2,91)=0 exch2_jHi(2,91)=0 exch2_opposingSend(2,91)=1 exch2_pij(1,2,91)=1 exch2_pij(2,2,91)=0 exch2_pij(3,2,91)=0 exch2_pij(4,2,91)=1 exch2_oi(2,91)=0 exch2_oj(2,91)=0 exch2_neighbourId(3,91)=92 exch2_iLo(3,91)=86 exch2_iHi(3,91)=86 exch2_jLo(3,91)=0 exch2_jHi(3,91)=86 exch2_opposingSend(3,91)=4 exch2_pij(1,3,91)=1 exch2_pij(2,3,91)=0 exch2_pij(3,3,91)=0 exch2_pij(4,3,91)=1 exch2_oi(3,91)=0 exch2_oj(3,91)=0 exch2_neighbourId(4,91)=33 exch2_iLo(4,91)=0 exch2_iHi(4,91)=0 exch2_jLo(4,91)=0 exch2_jHi(4,91)=86 exch2_opposingSend(4,91)=1 exch2_pij(1,4,91)=0 exch2_pij(2,4,91)=1 exch2_pij(3,4,91)=-1 exch2_pij(4,4,91)=0 exch2_oi(4,91)=-510 exch2_oj(4,91)=511 RETURN END SUBROUTINE W2_E2SETUP_92 C Topology for tile 92 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(92)=85 exch2_tNy(92)=85 exch2_tBasex(92)=85 exch2_tBasey(92)=255 exch2_txGlobalo(92)=1106 exch2_tyGlobalo(92)=256 exch2_isWedge(92)=0 exch2_isNedge(92)=0 exch2_isEedge(92)=0 exch2_isSedge(92)=0 exch2_myFace(92)=3 exch2_mydNx(92)=510 exch2_mydNy(92)=510 exch2_nNeighbours(92)=4 exch2_neighbourId(1,92)=98 exch2_iLo(1,92)=0 exch2_iHi(1,92)=86 exch2_jLo(1,92)=86 exch2_jHi(1,92)=86 exch2_opposingSend(1,92)=2 exch2_pij(1,1,92)=1 exch2_pij(2,1,92)=0 exch2_pij(3,1,92)=0 exch2_pij(4,1,92)=1 exch2_oi(1,92)=0 exch2_oj(1,92)=0 exch2_neighbourId(2,92)=86 exch2_iLo(2,92)=0 exch2_iHi(2,92)=86 exch2_jLo(2,92)=0 exch2_jHi(2,92)=0 exch2_opposingSend(2,92)=1 exch2_pij(1,2,92)=1 exch2_pij(2,2,92)=0 exch2_pij(3,2,92)=0 exch2_pij(4,2,92)=1 exch2_oi(2,92)=0 exch2_oj(2,92)=0 exch2_neighbourId(3,92)=93 exch2_iLo(3,92)=86 exch2_iHi(3,92)=86 exch2_jLo(3,92)=0 exch2_jHi(3,92)=86 exch2_opposingSend(3,92)=4 exch2_pij(1,3,92)=1 exch2_pij(2,3,92)=0 exch2_pij(3,3,92)=0 exch2_pij(4,3,92)=1 exch2_oi(3,92)=0 exch2_oj(3,92)=0 exch2_neighbourId(4,92)=91 exch2_iLo(4,92)=0 exch2_iHi(4,92)=0 exch2_jLo(4,92)=0 exch2_jHi(4,92)=86 exch2_opposingSend(4,92)=3 exch2_pij(1,4,92)=1 exch2_pij(2,4,92)=0 exch2_pij(3,4,92)=0 exch2_pij(4,4,92)=1 exch2_oi(4,92)=0 exch2_oj(4,92)=0 RETURN END SUBROUTINE W2_E2SETUP_93 C Topology for tile 93 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(93)=85 exch2_tNy(93)=85 exch2_tBasex(93)=170 exch2_tBasey(93)=255 exch2_txGlobalo(93)=1191 exch2_tyGlobalo(93)=256 exch2_isWedge(93)=0 exch2_isNedge(93)=0 exch2_isEedge(93)=0 exch2_isSedge(93)=0 exch2_myFace(93)=3 exch2_mydNx(93)=510 exch2_mydNy(93)=510 exch2_nNeighbours(93)=4 exch2_neighbourId(1,93)=99 exch2_iLo(1,93)=0 exch2_iHi(1,93)=86 exch2_jLo(1,93)=86 exch2_jHi(1,93)=86 exch2_opposingSend(1,93)=2 exch2_pij(1,1,93)=1 exch2_pij(2,1,93)=0 exch2_pij(3,1,93)=0 exch2_pij(4,1,93)=1 exch2_oi(1,93)=0 exch2_oj(1,93)=0 exch2_neighbourId(2,93)=87 exch2_iLo(2,93)=0 exch2_iHi(2,93)=86 exch2_jLo(2,93)=0 exch2_jHi(2,93)=0 exch2_opposingSend(2,93)=1 exch2_pij(1,2,93)=1 exch2_pij(2,2,93)=0 exch2_pij(3,2,93)=0 exch2_pij(4,2,93)=1 exch2_oi(2,93)=0 exch2_oj(2,93)=0 exch2_neighbourId(3,93)=94 exch2_iLo(3,93)=86 exch2_iHi(3,93)=86 exch2_jLo(3,93)=0 exch2_jHi(3,93)=86 exch2_opposingSend(3,93)=4 exch2_pij(1,3,93)=1 exch2_pij(2,3,93)=0 exch2_pij(3,3,93)=0 exch2_pij(4,3,93)=1 exch2_oi(3,93)=0 exch2_oj(3,93)=0 exch2_neighbourId(4,93)=92 exch2_iLo(4,93)=0 exch2_iHi(4,93)=0 exch2_jLo(4,93)=0 exch2_jHi(4,93)=86 exch2_opposingSend(4,93)=3 exch2_pij(1,4,93)=1 exch2_pij(2,4,93)=0 exch2_pij(3,4,93)=0 exch2_pij(4,4,93)=1 exch2_oi(4,93)=0 exch2_oj(4,93)=0 RETURN END SUBROUTINE W2_E2SETUP_94 C Topology for tile 94 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(94)=85 exch2_tNy(94)=85 exch2_tBasex(94)=255 exch2_tBasey(94)=255 exch2_txGlobalo(94)=1276 exch2_tyGlobalo(94)=256 exch2_isWedge(94)=0 exch2_isNedge(94)=0 exch2_isEedge(94)=0 exch2_isSedge(94)=0 exch2_myFace(94)=3 exch2_mydNx(94)=510 exch2_mydNy(94)=510 exch2_nNeighbours(94)=4 exch2_neighbourId(1,94)=100 exch2_iLo(1,94)=0 exch2_iHi(1,94)=86 exch2_jLo(1,94)=86 exch2_jHi(1,94)=86 exch2_opposingSend(1,94)=2 exch2_pij(1,1,94)=1 exch2_pij(2,1,94)=0 exch2_pij(3,1,94)=0 exch2_pij(4,1,94)=1 exch2_oi(1,94)=0 exch2_oj(1,94)=0 exch2_neighbourId(2,94)=88 exch2_iLo(2,94)=0 exch2_iHi(2,94)=86 exch2_jLo(2,94)=0 exch2_jHi(2,94)=0 exch2_opposingSend(2,94)=1 exch2_pij(1,2,94)=1 exch2_pij(2,2,94)=0 exch2_pij(3,2,94)=0 exch2_pij(4,2,94)=1 exch2_oi(2,94)=0 exch2_oj(2,94)=0 exch2_neighbourId(3,94)=95 exch2_iLo(3,94)=86 exch2_iHi(3,94)=86 exch2_jLo(3,94)=0 exch2_jHi(3,94)=86 exch2_opposingSend(3,94)=4 exch2_pij(1,3,94)=1 exch2_pij(2,3,94)=0 exch2_pij(3,3,94)=0 exch2_pij(4,3,94)=1 exch2_oi(3,94)=0 exch2_oj(3,94)=0 exch2_neighbourId(4,94)=93 exch2_iLo(4,94)=0 exch2_iHi(4,94)=0 exch2_jLo(4,94)=0 exch2_jHi(4,94)=86 exch2_opposingSend(4,94)=3 exch2_pij(1,4,94)=1 exch2_pij(2,4,94)=0 exch2_pij(3,4,94)=0 exch2_pij(4,4,94)=1 exch2_oi(4,94)=0 exch2_oj(4,94)=0 RETURN END SUBROUTINE W2_E2SETUP_95 C Topology for tile 95 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(95)=85 exch2_tNy(95)=85 exch2_tBasex(95)=340 exch2_tBasey(95)=255 exch2_txGlobalo(95)=1361 exch2_tyGlobalo(95)=256 exch2_isWedge(95)=0 exch2_isNedge(95)=0 exch2_isEedge(95)=0 exch2_isSedge(95)=0 exch2_myFace(95)=3 exch2_mydNx(95)=510 exch2_mydNy(95)=510 exch2_nNeighbours(95)=4 exch2_neighbourId(1,95)=101 exch2_iLo(1,95)=0 exch2_iHi(1,95)=86 exch2_jLo(1,95)=86 exch2_jHi(1,95)=86 exch2_opposingSend(1,95)=2 exch2_pij(1,1,95)=1 exch2_pij(2,1,95)=0 exch2_pij(3,1,95)=0 exch2_pij(4,1,95)=1 exch2_oi(1,95)=0 exch2_oj(1,95)=0 exch2_neighbourId(2,95)=89 exch2_iLo(2,95)=0 exch2_iHi(2,95)=86 exch2_jLo(2,95)=0 exch2_jHi(2,95)=0 exch2_opposingSend(2,95)=1 exch2_pij(1,2,95)=1 exch2_pij(2,2,95)=0 exch2_pij(3,2,95)=0 exch2_pij(4,2,95)=1 exch2_oi(2,95)=0 exch2_oj(2,95)=0 exch2_neighbourId(3,95)=96 exch2_iLo(3,95)=86 exch2_iHi(3,95)=86 exch2_jLo(3,95)=0 exch2_jHi(3,95)=86 exch2_opposingSend(3,95)=4 exch2_pij(1,3,95)=1 exch2_pij(2,3,95)=0 exch2_pij(3,3,95)=0 exch2_pij(4,3,95)=1 exch2_oi(3,95)=0 exch2_oj(3,95)=0 exch2_neighbourId(4,95)=94 exch2_iLo(4,95)=0 exch2_iHi(4,95)=0 exch2_jLo(4,95)=0 exch2_jHi(4,95)=86 exch2_opposingSend(4,95)=3 exch2_pij(1,4,95)=1 exch2_pij(2,4,95)=0 exch2_pij(3,4,95)=0 exch2_pij(4,4,95)=1 exch2_oi(4,95)=0 exch2_oj(4,95)=0 RETURN END SUBROUTINE W2_E2SETUP_96 C Topology for tile 96 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(96)=85 exch2_tNy(96)=85 exch2_tBasex(96)=425 exch2_tBasey(96)=255 exch2_txGlobalo(96)=1446 exch2_tyGlobalo(96)=256 exch2_isWedge(96)=0 exch2_isNedge(96)=0 exch2_isEedge(96)=1 exch2_isSedge(96)=0 exch2_myFace(96)=3 exch2_mydNx(96)=510 exch2_mydNy(96)=510 exch2_nNeighbours(96)=4 exch2_neighbourId(1,96)=102 exch2_iLo(1,96)=0 exch2_iHi(1,96)=86 exch2_jLo(1,96)=86 exch2_jHi(1,96)=86 exch2_opposingSend(1,96)=2 exch2_pij(1,1,96)=1 exch2_pij(2,1,96)=0 exch2_pij(3,1,96)=0 exch2_pij(4,1,96)=1 exch2_oi(1,96)=0 exch2_oj(1,96)=0 exch2_neighbourId(2,96)=90 exch2_iLo(2,96)=0 exch2_iHi(2,96)=86 exch2_jLo(2,96)=0 exch2_jHi(2,96)=0 exch2_opposingSend(2,96)=1 exch2_pij(1,2,96)=1 exch2_pij(2,2,96)=0 exch2_pij(3,2,96)=0 exch2_pij(4,2,96)=1 exch2_oi(2,96)=0 exch2_oj(2,96)=0 exch2_neighbourId(3,96)=127 exch2_iLo(3,96)=86 exch2_iHi(3,96)=86 exch2_jLo(3,96)=0 exch2_jHi(3,96)=86 exch2_opposingSend(3,96)=4 exch2_pij(1,3,96)=1 exch2_pij(2,3,96)=0 exch2_pij(3,3,96)=0 exch2_pij(4,3,96)=1 exch2_oi(3,96)=510 exch2_oj(3,96)=0 exch2_neighbourId(4,96)=95 exch2_iLo(4,96)=0 exch2_iHi(4,96)=0 exch2_jLo(4,96)=0 exch2_jHi(4,96)=86 exch2_opposingSend(4,96)=3 exch2_pij(1,4,96)=1 exch2_pij(2,4,96)=0 exch2_pij(3,4,96)=0 exch2_pij(4,4,96)=1 exch2_oi(4,96)=0 exch2_oj(4,96)=0 RETURN END SUBROUTINE W2_E2SETUP_97 C Topology for tile 97 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(97)=85 exch2_tNy(97)=85 exch2_tBasex(97)=0 exch2_tBasey(97)=340 exch2_txGlobalo(97)=1021 exch2_tyGlobalo(97)=341 exch2_isWedge(97)=1 exch2_isNedge(97)=0 exch2_isEedge(97)=0 exch2_isSedge(97)=0 exch2_myFace(97)=3 exch2_mydNx(97)=510 exch2_mydNy(97)=510 exch2_nNeighbours(97)=4 exch2_neighbourId(1,97)=103 exch2_iLo(1,97)=0 exch2_iHi(1,97)=86 exch2_jLo(1,97)=86 exch2_jHi(1,97)=86 exch2_opposingSend(1,97)=2 exch2_pij(1,1,97)=1 exch2_pij(2,1,97)=0 exch2_pij(3,1,97)=0 exch2_pij(4,1,97)=1 exch2_oi(1,97)=0 exch2_oj(1,97)=0 exch2_neighbourId(2,97)=91 exch2_iLo(2,97)=0 exch2_iHi(2,97)=86 exch2_jLo(2,97)=0 exch2_jHi(2,97)=0 exch2_opposingSend(2,97)=1 exch2_pij(1,2,97)=1 exch2_pij(2,2,97)=0 exch2_pij(3,2,97)=0 exch2_pij(4,2,97)=1 exch2_oi(2,97)=0 exch2_oj(2,97)=0 exch2_neighbourId(3,97)=98 exch2_iLo(3,97)=86 exch2_iHi(3,97)=86 exch2_jLo(3,97)=0 exch2_jHi(3,97)=86 exch2_opposingSend(3,97)=4 exch2_pij(1,3,97)=1 exch2_pij(2,3,97)=0 exch2_pij(3,3,97)=0 exch2_pij(4,3,97)=1 exch2_oi(3,97)=0 exch2_oj(3,97)=0 exch2_neighbourId(4,97)=32 exch2_iLo(4,97)=0 exch2_iHi(4,97)=0 exch2_jLo(4,97)=0 exch2_jHi(4,97)=86 exch2_opposingSend(4,97)=1 exch2_pij(1,4,97)=0 exch2_pij(2,4,97)=1 exch2_pij(3,4,97)=-1 exch2_pij(4,4,97)=0 exch2_oi(4,97)=-510 exch2_oj(4,97)=511 RETURN END SUBROUTINE W2_E2SETUP_98 C Topology for tile 98 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(98)=85 exch2_tNy(98)=85 exch2_tBasex(98)=85 exch2_tBasey(98)=340 exch2_txGlobalo(98)=1106 exch2_tyGlobalo(98)=341 exch2_isWedge(98)=0 exch2_isNedge(98)=0 exch2_isEedge(98)=0 exch2_isSedge(98)=0 exch2_myFace(98)=3 exch2_mydNx(98)=510 exch2_mydNy(98)=510 exch2_nNeighbours(98)=4 exch2_neighbourId(1,98)=104 exch2_iLo(1,98)=0 exch2_iHi(1,98)=86 exch2_jLo(1,98)=86 exch2_jHi(1,98)=86 exch2_opposingSend(1,98)=2 exch2_pij(1,1,98)=1 exch2_pij(2,1,98)=0 exch2_pij(3,1,98)=0 exch2_pij(4,1,98)=1 exch2_oi(1,98)=0 exch2_oj(1,98)=0 exch2_neighbourId(2,98)=92 exch2_iLo(2,98)=0 exch2_iHi(2,98)=86 exch2_jLo(2,98)=0 exch2_jHi(2,98)=0 exch2_opposingSend(2,98)=1 exch2_pij(1,2,98)=1 exch2_pij(2,2,98)=0 exch2_pij(3,2,98)=0 exch2_pij(4,2,98)=1 exch2_oi(2,98)=0 exch2_oj(2,98)=0 exch2_neighbourId(3,98)=99 exch2_iLo(3,98)=86 exch2_iHi(3,98)=86 exch2_jLo(3,98)=0 exch2_jHi(3,98)=86 exch2_opposingSend(3,98)=4 exch2_pij(1,3,98)=1 exch2_pij(2,3,98)=0 exch2_pij(3,3,98)=0 exch2_pij(4,3,98)=1 exch2_oi(3,98)=0 exch2_oj(3,98)=0 exch2_neighbourId(4,98)=97 exch2_iLo(4,98)=0 exch2_iHi(4,98)=0 exch2_jLo(4,98)=0 exch2_jHi(4,98)=86 exch2_opposingSend(4,98)=3 exch2_pij(1,4,98)=1 exch2_pij(2,4,98)=0 exch2_pij(3,4,98)=0 exch2_pij(4,4,98)=1 exch2_oi(4,98)=0 exch2_oj(4,98)=0 RETURN END SUBROUTINE W2_E2SETUP_99 C Topology for tile 99 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(99)=85 exch2_tNy(99)=85 exch2_tBasex(99)=170 exch2_tBasey(99)=340 exch2_txGlobalo(99)=1191 exch2_tyGlobalo(99)=341 exch2_isWedge(99)=0 exch2_isNedge(99)=0 exch2_isEedge(99)=0 exch2_isSedge(99)=0 exch2_myFace(99)=3 exch2_mydNx(99)=510 exch2_mydNy(99)=510 exch2_nNeighbours(99)=4 exch2_neighbourId(1,99)=105 exch2_iLo(1,99)=0 exch2_iHi(1,99)=86 exch2_jLo(1,99)=86 exch2_jHi(1,99)=86 exch2_opposingSend(1,99)=2 exch2_pij(1,1,99)=1 exch2_pij(2,1,99)=0 exch2_pij(3,1,99)=0 exch2_pij(4,1,99)=1 exch2_oi(1,99)=0 exch2_oj(1,99)=0 exch2_neighbourId(2,99)=93 exch2_iLo(2,99)=0 exch2_iHi(2,99)=86 exch2_jLo(2,99)=0 exch2_jHi(2,99)=0 exch2_opposingSend(2,99)=1 exch2_pij(1,2,99)=1 exch2_pij(2,2,99)=0 exch2_pij(3,2,99)=0 exch2_pij(4,2,99)=1 exch2_oi(2,99)=0 exch2_oj(2,99)=0 exch2_neighbourId(3,99)=100 exch2_iLo(3,99)=86 exch2_iHi(3,99)=86 exch2_jLo(3,99)=0 exch2_jHi(3,99)=86 exch2_opposingSend(3,99)=4 exch2_pij(1,3,99)=1 exch2_pij(2,3,99)=0 exch2_pij(3,3,99)=0 exch2_pij(4,3,99)=1 exch2_oi(3,99)=0 exch2_oj(3,99)=0 exch2_neighbourId(4,99)=98 exch2_iLo(4,99)=0 exch2_iHi(4,99)=0 exch2_jLo(4,99)=0 exch2_jHi(4,99)=86 exch2_opposingSend(4,99)=3 exch2_pij(1,4,99)=1 exch2_pij(2,4,99)=0 exch2_pij(3,4,99)=0 exch2_pij(4,4,99)=1 exch2_oi(4,99)=0 exch2_oj(4,99)=0 RETURN END SUBROUTINE W2_E2SETUP_100 C Topology for tile 100 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(100)=85 exch2_tNy(100)=85 exch2_tBasex(100)=255 exch2_tBasey(100)=340 exch2_txGlobalo(100)=1276 exch2_tyGlobalo(100)=341 exch2_isWedge(100)=0 exch2_isNedge(100)=0 exch2_isEedge(100)=0 exch2_isSedge(100)=0 exch2_myFace(100)=3 exch2_mydNx(100)=510 exch2_mydNy(100)=510 exch2_nNeighbours(100)=4 exch2_neighbourId(1,100)=106 exch2_iLo(1,100)=0 exch2_iHi(1,100)=86 exch2_jLo(1,100)=86 exch2_jHi(1,100)=86 exch2_opposingSend(1,100)=2 exch2_pij(1,1,100)=1 exch2_pij(2,1,100)=0 exch2_pij(3,1,100)=0 exch2_pij(4,1,100)=1 exch2_oi(1,100)=0 exch2_oj(1,100)=0 exch2_neighbourId(2,100)=94 exch2_iLo(2,100)=0 exch2_iHi(2,100)=86 exch2_jLo(2,100)=0 exch2_jHi(2,100)=0 exch2_opposingSend(2,100)=1 exch2_pij(1,2,100)=1 exch2_pij(2,2,100)=0 exch2_pij(3,2,100)=0 exch2_pij(4,2,100)=1 exch2_oi(2,100)=0 exch2_oj(2,100)=0 exch2_neighbourId(3,100)=101 exch2_iLo(3,100)=86 exch2_iHi(3,100)=86 exch2_jLo(3,100)=0 exch2_jHi(3,100)=86 exch2_opposingSend(3,100)=4 exch2_pij(1,3,100)=1 exch2_pij(2,3,100)=0 exch2_pij(3,3,100)=0 exch2_pij(4,3,100)=1 exch2_oi(3,100)=0 exch2_oj(3,100)=0 exch2_neighbourId(4,100)=99 exch2_iLo(4,100)=0 exch2_iHi(4,100)=0 exch2_jLo(4,100)=0 exch2_jHi(4,100)=86 exch2_opposingSend(4,100)=3 exch2_pij(1,4,100)=1 exch2_pij(2,4,100)=0 exch2_pij(3,4,100)=0 exch2_pij(4,4,100)=1 exch2_oi(4,100)=0 exch2_oj(4,100)=0 RETURN END SUBROUTINE W2_E2SETUP_101 C Topology for tile 101 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(101)=85 exch2_tNy(101)=85 exch2_tBasex(101)=340 exch2_tBasey(101)=340 exch2_txGlobalo(101)=1361 exch2_tyGlobalo(101)=341 exch2_isWedge(101)=0 exch2_isNedge(101)=0 exch2_isEedge(101)=0 exch2_isSedge(101)=0 exch2_myFace(101)=3 exch2_mydNx(101)=510 exch2_mydNy(101)=510 exch2_nNeighbours(101)=4 exch2_neighbourId(1,101)=107 exch2_iLo(1,101)=0 exch2_iHi(1,101)=86 exch2_jLo(1,101)=86 exch2_jHi(1,101)=86 exch2_opposingSend(1,101)=2 exch2_pij(1,1,101)=1 exch2_pij(2,1,101)=0 exch2_pij(3,1,101)=0 exch2_pij(4,1,101)=1 exch2_oi(1,101)=0 exch2_oj(1,101)=0 exch2_neighbourId(2,101)=95 exch2_iLo(2,101)=0 exch2_iHi(2,101)=86 exch2_jLo(2,101)=0 exch2_jHi(2,101)=0 exch2_opposingSend(2,101)=1 exch2_pij(1,2,101)=1 exch2_pij(2,2,101)=0 exch2_pij(3,2,101)=0 exch2_pij(4,2,101)=1 exch2_oi(2,101)=0 exch2_oj(2,101)=0 exch2_neighbourId(3,101)=102 exch2_iLo(3,101)=86 exch2_iHi(3,101)=86 exch2_jLo(3,101)=0 exch2_jHi(3,101)=86 exch2_opposingSend(3,101)=4 exch2_pij(1,3,101)=1 exch2_pij(2,3,101)=0 exch2_pij(3,3,101)=0 exch2_pij(4,3,101)=1 exch2_oi(3,101)=0 exch2_oj(3,101)=0 exch2_neighbourId(4,101)=100 exch2_iLo(4,101)=0 exch2_iHi(4,101)=0 exch2_jLo(4,101)=0 exch2_jHi(4,101)=86 exch2_opposingSend(4,101)=3 exch2_pij(1,4,101)=1 exch2_pij(2,4,101)=0 exch2_pij(3,4,101)=0 exch2_pij(4,4,101)=1 exch2_oi(4,101)=0 exch2_oj(4,101)=0 RETURN END SUBROUTINE W2_E2SETUP_102 C Topology for tile 102 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(102)=85 exch2_tNy(102)=85 exch2_tBasex(102)=425 exch2_tBasey(102)=340 exch2_txGlobalo(102)=1446 exch2_tyGlobalo(102)=341 exch2_isWedge(102)=0 exch2_isNedge(102)=0 exch2_isEedge(102)=1 exch2_isSedge(102)=0 exch2_myFace(102)=3 exch2_mydNx(102)=510 exch2_mydNy(102)=510 exch2_nNeighbours(102)=4 exch2_neighbourId(1,102)=108 exch2_iLo(1,102)=0 exch2_iHi(1,102)=86 exch2_jLo(1,102)=86 exch2_jHi(1,102)=86 exch2_opposingSend(1,102)=2 exch2_pij(1,1,102)=1 exch2_pij(2,1,102)=0 exch2_pij(3,1,102)=0 exch2_pij(4,1,102)=1 exch2_oi(1,102)=0 exch2_oj(1,102)=0 exch2_neighbourId(2,102)=96 exch2_iLo(2,102)=0 exch2_iHi(2,102)=86 exch2_jLo(2,102)=0 exch2_jHi(2,102)=0 exch2_opposingSend(2,102)=1 exch2_pij(1,2,102)=1 exch2_pij(2,2,102)=0 exch2_pij(3,2,102)=0 exch2_pij(4,2,102)=1 exch2_oi(2,102)=0 exch2_oj(2,102)=0 exch2_neighbourId(3,102)=133 exch2_iLo(3,102)=86 exch2_iHi(3,102)=86 exch2_jLo(3,102)=0 exch2_jHi(3,102)=86 exch2_opposingSend(3,102)=4 exch2_pij(1,3,102)=1 exch2_pij(2,3,102)=0 exch2_pij(3,3,102)=0 exch2_pij(4,3,102)=1 exch2_oi(3,102)=510 exch2_oj(3,102)=0 exch2_neighbourId(4,102)=101 exch2_iLo(4,102)=0 exch2_iHi(4,102)=0 exch2_jLo(4,102)=0 exch2_jHi(4,102)=86 exch2_opposingSend(4,102)=3 exch2_pij(1,4,102)=1 exch2_pij(2,4,102)=0 exch2_pij(3,4,102)=0 exch2_pij(4,4,102)=1 exch2_oi(4,102)=0 exch2_oj(4,102)=0 RETURN END SUBROUTINE W2_E2SETUP_103 C Topology for tile 103 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(103)=85 exch2_tNy(103)=85 exch2_tBasex(103)=0 exch2_tBasey(103)=425 exch2_txGlobalo(103)=1021 exch2_tyGlobalo(103)=426 exch2_isWedge(103)=1 exch2_isNedge(103)=1 exch2_isEedge(103)=0 exch2_isSedge(103)=0 exch2_myFace(103)=3 exch2_mydNx(103)=510 exch2_mydNy(103)=510 exch2_nNeighbours(103)=4 exch2_neighbourId(1,103)=175 exch2_iLo(1,103)=0 exch2_iHi(1,103)=86 exch2_jLo(1,103)=86 exch2_jHi(1,103)=86 exch2_opposingSend(1,103)=4 exch2_pij(1,1,103)=0 exch2_pij(2,1,103)=-1 exch2_pij(3,1,103)=1 exch2_pij(4,1,103)=0 exch2_oi(1,103)=511 exch2_oj(1,103)=510 exch2_neighbourId(2,103)=97 exch2_iLo(2,103)=0 exch2_iHi(2,103)=86 exch2_jLo(2,103)=0 exch2_jHi(2,103)=0 exch2_opposingSend(2,103)=1 exch2_pij(1,2,103)=1 exch2_pij(2,2,103)=0 exch2_pij(3,2,103)=0 exch2_pij(4,2,103)=1 exch2_oi(2,103)=0 exch2_oj(2,103)=0 exch2_neighbourId(3,103)=104 exch2_iLo(3,103)=86 exch2_iHi(3,103)=86 exch2_jLo(3,103)=0 exch2_jHi(3,103)=86 exch2_opposingSend(3,103)=4 exch2_pij(1,3,103)=1 exch2_pij(2,3,103)=0 exch2_pij(3,3,103)=0 exch2_pij(4,3,103)=1 exch2_oi(3,103)=0 exch2_oj(3,103)=0 exch2_neighbourId(4,103)=31 exch2_iLo(4,103)=0 exch2_iHi(4,103)=0 exch2_jLo(4,103)=0 exch2_jHi(4,103)=86 exch2_opposingSend(4,103)=1 exch2_pij(1,4,103)=0 exch2_pij(2,4,103)=1 exch2_pij(3,4,103)=-1 exch2_pij(4,4,103)=0 exch2_oi(4,103)=-510 exch2_oj(4,103)=511 RETURN END SUBROUTINE W2_E2SETUP_104 C Topology for tile 104 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(104)=85 exch2_tNy(104)=85 exch2_tBasex(104)=85 exch2_tBasey(104)=425 exch2_txGlobalo(104)=1106 exch2_tyGlobalo(104)=426 exch2_isWedge(104)=0 exch2_isNedge(104)=1 exch2_isEedge(104)=0 exch2_isSedge(104)=0 exch2_myFace(104)=3 exch2_mydNx(104)=510 exch2_mydNy(104)=510 exch2_nNeighbours(104)=4 exch2_neighbourId(1,104)=169 exch2_iLo(1,104)=0 exch2_iHi(1,104)=86 exch2_jLo(1,104)=86 exch2_jHi(1,104)=86 exch2_opposingSend(1,104)=4 exch2_pij(1,1,104)=0 exch2_pij(2,1,104)=-1 exch2_pij(3,1,104)=1 exch2_pij(4,1,104)=0 exch2_oi(1,104)=511 exch2_oj(1,104)=510 exch2_neighbourId(2,104)=98 exch2_iLo(2,104)=0 exch2_iHi(2,104)=86 exch2_jLo(2,104)=0 exch2_jHi(2,104)=0 exch2_opposingSend(2,104)=1 exch2_pij(1,2,104)=1 exch2_pij(2,2,104)=0 exch2_pij(3,2,104)=0 exch2_pij(4,2,104)=1 exch2_oi(2,104)=0 exch2_oj(2,104)=0 exch2_neighbourId(3,104)=105 exch2_iLo(3,104)=86 exch2_iHi(3,104)=86 exch2_jLo(3,104)=0 exch2_jHi(3,104)=86 exch2_opposingSend(3,104)=4 exch2_pij(1,3,104)=1 exch2_pij(2,3,104)=0 exch2_pij(3,3,104)=0 exch2_pij(4,3,104)=1 exch2_oi(3,104)=0 exch2_oj(3,104)=0 exch2_neighbourId(4,104)=103 exch2_iLo(4,104)=0 exch2_iHi(4,104)=0 exch2_jLo(4,104)=0 exch2_jHi(4,104)=86 exch2_opposingSend(4,104)=3 exch2_pij(1,4,104)=1 exch2_pij(2,4,104)=0 exch2_pij(3,4,104)=0 exch2_pij(4,4,104)=1 exch2_oi(4,104)=0 exch2_oj(4,104)=0 RETURN END SUBROUTINE W2_E2SETUP_105 C Topology for tile 105 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(105)=85 exch2_tNy(105)=85 exch2_tBasex(105)=170 exch2_tBasey(105)=425 exch2_txGlobalo(105)=1191 exch2_tyGlobalo(105)=426 exch2_isWedge(105)=0 exch2_isNedge(105)=1 exch2_isEedge(105)=0 exch2_isSedge(105)=0 exch2_myFace(105)=3 exch2_mydNx(105)=510 exch2_mydNy(105)=510 exch2_nNeighbours(105)=4 exch2_neighbourId(1,105)=163 exch2_iLo(1,105)=0 exch2_iHi(1,105)=86 exch2_jLo(1,105)=86 exch2_jHi(1,105)=86 exch2_opposingSend(1,105)=4 exch2_pij(1,1,105)=0 exch2_pij(2,1,105)=-1 exch2_pij(3,1,105)=1 exch2_pij(4,1,105)=0 exch2_oi(1,105)=511 exch2_oj(1,105)=510 exch2_neighbourId(2,105)=99 exch2_iLo(2,105)=0 exch2_iHi(2,105)=86 exch2_jLo(2,105)=0 exch2_jHi(2,105)=0 exch2_opposingSend(2,105)=1 exch2_pij(1,2,105)=1 exch2_pij(2,2,105)=0 exch2_pij(3,2,105)=0 exch2_pij(4,2,105)=1 exch2_oi(2,105)=0 exch2_oj(2,105)=0 exch2_neighbourId(3,105)=106 exch2_iLo(3,105)=86 exch2_iHi(3,105)=86 exch2_jLo(3,105)=0 exch2_jHi(3,105)=86 exch2_opposingSend(3,105)=4 exch2_pij(1,3,105)=1 exch2_pij(2,3,105)=0 exch2_pij(3,3,105)=0 exch2_pij(4,3,105)=1 exch2_oi(3,105)=0 exch2_oj(3,105)=0 exch2_neighbourId(4,105)=104 exch2_iLo(4,105)=0 exch2_iHi(4,105)=0 exch2_jLo(4,105)=0 exch2_jHi(4,105)=86 exch2_opposingSend(4,105)=3 exch2_pij(1,4,105)=1 exch2_pij(2,4,105)=0 exch2_pij(3,4,105)=0 exch2_pij(4,4,105)=1 exch2_oi(4,105)=0 exch2_oj(4,105)=0 RETURN END SUBROUTINE W2_E2SETUP_106 C Topology for tile 106 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(106)=85 exch2_tNy(106)=85 exch2_tBasex(106)=255 exch2_tBasey(106)=425 exch2_txGlobalo(106)=1276 exch2_tyGlobalo(106)=426 exch2_isWedge(106)=0 exch2_isNedge(106)=1 exch2_isEedge(106)=0 exch2_isSedge(106)=0 exch2_myFace(106)=3 exch2_mydNx(106)=510 exch2_mydNy(106)=510 exch2_nNeighbours(106)=4 exch2_neighbourId(1,106)=157 exch2_iLo(1,106)=0 exch2_iHi(1,106)=86 exch2_jLo(1,106)=86 exch2_jHi(1,106)=86 exch2_opposingSend(1,106)=4 exch2_pij(1,1,106)=0 exch2_pij(2,1,106)=-1 exch2_pij(3,1,106)=1 exch2_pij(4,1,106)=0 exch2_oi(1,106)=511 exch2_oj(1,106)=510 exch2_neighbourId(2,106)=100 exch2_iLo(2,106)=0 exch2_iHi(2,106)=86 exch2_jLo(2,106)=0 exch2_jHi(2,106)=0 exch2_opposingSend(2,106)=1 exch2_pij(1,2,106)=1 exch2_pij(2,2,106)=0 exch2_pij(3,2,106)=0 exch2_pij(4,2,106)=1 exch2_oi(2,106)=0 exch2_oj(2,106)=0 exch2_neighbourId(3,106)=107 exch2_iLo(3,106)=86 exch2_iHi(3,106)=86 exch2_jLo(3,106)=0 exch2_jHi(3,106)=86 exch2_opposingSend(3,106)=4 exch2_pij(1,3,106)=1 exch2_pij(2,3,106)=0 exch2_pij(3,3,106)=0 exch2_pij(4,3,106)=1 exch2_oi(3,106)=0 exch2_oj(3,106)=0 exch2_neighbourId(4,106)=105 exch2_iLo(4,106)=0 exch2_iHi(4,106)=0 exch2_jLo(4,106)=0 exch2_jHi(4,106)=86 exch2_opposingSend(4,106)=3 exch2_pij(1,4,106)=1 exch2_pij(2,4,106)=0 exch2_pij(3,4,106)=0 exch2_pij(4,4,106)=1 exch2_oi(4,106)=0 exch2_oj(4,106)=0 RETURN END SUBROUTINE W2_E2SETUP_107 C Topology for tile 107 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(107)=85 exch2_tNy(107)=85 exch2_tBasex(107)=340 exch2_tBasey(107)=425 exch2_txGlobalo(107)=1361 exch2_tyGlobalo(107)=426 exch2_isWedge(107)=0 exch2_isNedge(107)=1 exch2_isEedge(107)=0 exch2_isSedge(107)=0 exch2_myFace(107)=3 exch2_mydNx(107)=510 exch2_mydNy(107)=510 exch2_nNeighbours(107)=4 exch2_neighbourId(1,107)=151 exch2_iLo(1,107)=0 exch2_iHi(1,107)=86 exch2_jLo(1,107)=86 exch2_jHi(1,107)=86 exch2_opposingSend(1,107)=4 exch2_pij(1,1,107)=0 exch2_pij(2,1,107)=-1 exch2_pij(3,1,107)=1 exch2_pij(4,1,107)=0 exch2_oi(1,107)=511 exch2_oj(1,107)=510 exch2_neighbourId(2,107)=101 exch2_iLo(2,107)=0 exch2_iHi(2,107)=86 exch2_jLo(2,107)=0 exch2_jHi(2,107)=0 exch2_opposingSend(2,107)=1 exch2_pij(1,2,107)=1 exch2_pij(2,2,107)=0 exch2_pij(3,2,107)=0 exch2_pij(4,2,107)=1 exch2_oi(2,107)=0 exch2_oj(2,107)=0 exch2_neighbourId(3,107)=108 exch2_iLo(3,107)=86 exch2_iHi(3,107)=86 exch2_jLo(3,107)=0 exch2_jHi(3,107)=86 exch2_opposingSend(3,107)=4 exch2_pij(1,3,107)=1 exch2_pij(2,3,107)=0 exch2_pij(3,3,107)=0 exch2_pij(4,3,107)=1 exch2_oi(3,107)=0 exch2_oj(3,107)=0 exch2_neighbourId(4,107)=106 exch2_iLo(4,107)=0 exch2_iHi(4,107)=0 exch2_jLo(4,107)=0 exch2_jHi(4,107)=86 exch2_opposingSend(4,107)=3 exch2_pij(1,4,107)=1 exch2_pij(2,4,107)=0 exch2_pij(3,4,107)=0 exch2_pij(4,4,107)=1 exch2_oi(4,107)=0 exch2_oj(4,107)=0 RETURN END SUBROUTINE W2_E2SETUP_108 C Topology for tile 108 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(108)=85 exch2_tNy(108)=85 exch2_tBasex(108)=425 exch2_tBasey(108)=425 exch2_txGlobalo(108)=1446 exch2_tyGlobalo(108)=426 exch2_isWedge(108)=0 exch2_isNedge(108)=1 exch2_isEedge(108)=1 exch2_isSedge(108)=0 exch2_myFace(108)=3 exch2_mydNx(108)=510 exch2_mydNy(108)=510 exch2_nNeighbours(108)=4 exch2_neighbourId(1,108)=145 exch2_iLo(1,108)=0 exch2_iHi(1,108)=86 exch2_jLo(1,108)=86 exch2_jHi(1,108)=86 exch2_opposingSend(1,108)=4 exch2_pij(1,1,108)=0 exch2_pij(2,1,108)=-1 exch2_pij(3,1,108)=1 exch2_pij(4,1,108)=0 exch2_oi(1,108)=511 exch2_oj(1,108)=510 exch2_neighbourId(2,108)=102 exch2_iLo(2,108)=0 exch2_iHi(2,108)=86 exch2_jLo(2,108)=0 exch2_jHi(2,108)=0 exch2_opposingSend(2,108)=1 exch2_pij(1,2,108)=1 exch2_pij(2,2,108)=0 exch2_pij(3,2,108)=0 exch2_pij(4,2,108)=1 exch2_oi(2,108)=0 exch2_oj(2,108)=0 exch2_neighbourId(3,108)=139 exch2_iLo(3,108)=86 exch2_iHi(3,108)=86 exch2_jLo(3,108)=0 exch2_jHi(3,108)=86 exch2_opposingSend(3,108)=4 exch2_pij(1,3,108)=1 exch2_pij(2,3,108)=0 exch2_pij(3,3,108)=0 exch2_pij(4,3,108)=1 exch2_oi(3,108)=510 exch2_oj(3,108)=0 exch2_neighbourId(4,108)=107 exch2_iLo(4,108)=0 exch2_iHi(4,108)=0 exch2_jLo(4,108)=0 exch2_jHi(4,108)=86 exch2_opposingSend(4,108)=3 exch2_pij(1,4,108)=1 exch2_pij(2,4,108)=0 exch2_pij(3,4,108)=0 exch2_pij(4,4,108)=1 exch2_oi(4,108)=0 exch2_oj(4,108)=0 RETURN END SUBROUTINE W2_E2SETUP_109 C Topology for tile 109 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(109)=85 exch2_tNy(109)=85 exch2_tBasex(109)=0 exch2_tBasey(109)=0 exch2_txGlobalo(109)=1531 exch2_tyGlobalo(109)=1 exch2_isWedge(109)=1 exch2_isNedge(109)=0 exch2_isEedge(109)=0 exch2_isSedge(109)=1 exch2_myFace(109)=4 exch2_mydNx(109)=510 exch2_mydNy(109)=510 exch2_nNeighbours(109)=4 exch2_neighbourId(1,109)=115 exch2_iLo(1,109)=0 exch2_iHi(1,109)=86 exch2_jLo(1,109)=86 exch2_jHi(1,109)=86 exch2_opposingSend(1,109)=2 exch2_pij(1,1,109)=1 exch2_pij(2,1,109)=0 exch2_pij(3,1,109)=0 exch2_pij(4,1,109)=1 exch2_oi(1,109)=0 exch2_oj(1,109)=0 exch2_neighbourId(2,109)=72 exch2_iLo(2,109)=0 exch2_iHi(2,109)=86 exch2_jLo(2,109)=0 exch2_jHi(2,109)=0 exch2_opposingSend(2,109)=3 exch2_pij(1,2,109)=0 exch2_pij(2,2,109)=-1 exch2_pij(3,2,109)=1 exch2_pij(4,2,109)=0 exch2_oi(2,109)=511 exch2_oj(2,109)=-510 exch2_neighbourId(3,109)=110 exch2_iLo(3,109)=86 exch2_iHi(3,109)=86 exch2_jLo(3,109)=0 exch2_jHi(3,109)=86 exch2_opposingSend(3,109)=4 exch2_pij(1,3,109)=1 exch2_pij(2,3,109)=0 exch2_pij(3,3,109)=0 exch2_pij(4,3,109)=1 exch2_oi(3,109)=0 exch2_oj(3,109)=0 exch2_neighbourId(4,109)=78 exch2_iLo(4,109)=0 exch2_iHi(4,109)=0 exch2_jLo(4,109)=0 exch2_jHi(4,109)=86 exch2_opposingSend(4,109)=3 exch2_pij(1,4,109)=1 exch2_pij(2,4,109)=0 exch2_pij(3,4,109)=0 exch2_pij(4,4,109)=1 exch2_oi(4,109)=-510 exch2_oj(4,109)=0 RETURN END SUBROUTINE W2_E2SETUP_110 C Topology for tile 110 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(110)=85 exch2_tNy(110)=85 exch2_tBasex(110)=85 exch2_tBasey(110)=0 exch2_txGlobalo(110)=1616 exch2_tyGlobalo(110)=1 exch2_isWedge(110)=0 exch2_isNedge(110)=0 exch2_isEedge(110)=0 exch2_isSedge(110)=1 exch2_myFace(110)=4 exch2_mydNx(110)=510 exch2_mydNy(110)=510 exch2_nNeighbours(110)=4 exch2_neighbourId(1,110)=116 exch2_iLo(1,110)=0 exch2_iHi(1,110)=86 exch2_jLo(1,110)=86 exch2_jHi(1,110)=86 exch2_opposingSend(1,110)=2 exch2_pij(1,1,110)=1 exch2_pij(2,1,110)=0 exch2_pij(3,1,110)=0 exch2_pij(4,1,110)=1 exch2_oi(1,110)=0 exch2_oj(1,110)=0 exch2_neighbourId(2,110)=66 exch2_iLo(2,110)=0 exch2_iHi(2,110)=86 exch2_jLo(2,110)=0 exch2_jHi(2,110)=0 exch2_opposingSend(2,110)=3 exch2_pij(1,2,110)=0 exch2_pij(2,2,110)=-1 exch2_pij(3,2,110)=1 exch2_pij(4,2,110)=0 exch2_oi(2,110)=511 exch2_oj(2,110)=-510 exch2_neighbourId(3,110)=111 exch2_iLo(3,110)=86 exch2_iHi(3,110)=86 exch2_jLo(3,110)=0 exch2_jHi(3,110)=86 exch2_opposingSend(3,110)=4 exch2_pij(1,3,110)=1 exch2_pij(2,3,110)=0 exch2_pij(3,3,110)=0 exch2_pij(4,3,110)=1 exch2_oi(3,110)=0 exch2_oj(3,110)=0 exch2_neighbourId(4,110)=109 exch2_iLo(4,110)=0 exch2_iHi(4,110)=0 exch2_jLo(4,110)=0 exch2_jHi(4,110)=86 exch2_opposingSend(4,110)=3 exch2_pij(1,4,110)=1 exch2_pij(2,4,110)=0 exch2_pij(3,4,110)=0 exch2_pij(4,4,110)=1 exch2_oi(4,110)=0 exch2_oj(4,110)=0 RETURN END SUBROUTINE W2_E2SETUP_111 C Topology for tile 111 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(111)=85 exch2_tNy(111)=85 exch2_tBasex(111)=170 exch2_tBasey(111)=0 exch2_txGlobalo(111)=1701 exch2_tyGlobalo(111)=1 exch2_isWedge(111)=0 exch2_isNedge(111)=0 exch2_isEedge(111)=0 exch2_isSedge(111)=1 exch2_myFace(111)=4 exch2_mydNx(111)=510 exch2_mydNy(111)=510 exch2_nNeighbours(111)=4 exch2_neighbourId(1,111)=117 exch2_iLo(1,111)=0 exch2_iHi(1,111)=86 exch2_jLo(1,111)=86 exch2_jHi(1,111)=86 exch2_opposingSend(1,111)=2 exch2_pij(1,1,111)=1 exch2_pij(2,1,111)=0 exch2_pij(3,1,111)=0 exch2_pij(4,1,111)=1 exch2_oi(1,111)=0 exch2_oj(1,111)=0 exch2_neighbourId(2,111)=60 exch2_iLo(2,111)=0 exch2_iHi(2,111)=86 exch2_jLo(2,111)=0 exch2_jHi(2,111)=0 exch2_opposingSend(2,111)=3 exch2_pij(1,2,111)=0 exch2_pij(2,2,111)=-1 exch2_pij(3,2,111)=1 exch2_pij(4,2,111)=0 exch2_oi(2,111)=511 exch2_oj(2,111)=-510 exch2_neighbourId(3,111)=112 exch2_iLo(3,111)=86 exch2_iHi(3,111)=86 exch2_jLo(3,111)=0 exch2_jHi(3,111)=86 exch2_opposingSend(3,111)=4 exch2_pij(1,3,111)=1 exch2_pij(2,3,111)=0 exch2_pij(3,3,111)=0 exch2_pij(4,3,111)=1 exch2_oi(3,111)=0 exch2_oj(3,111)=0 exch2_neighbourId(4,111)=110 exch2_iLo(4,111)=0 exch2_iHi(4,111)=0 exch2_jLo(4,111)=0 exch2_jHi(4,111)=86 exch2_opposingSend(4,111)=3 exch2_pij(1,4,111)=1 exch2_pij(2,4,111)=0 exch2_pij(3,4,111)=0 exch2_pij(4,4,111)=1 exch2_oi(4,111)=0 exch2_oj(4,111)=0 RETURN END SUBROUTINE W2_E2SETUP_112 C Topology for tile 112 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(112)=85 exch2_tNy(112)=85 exch2_tBasex(112)=255 exch2_tBasey(112)=0 exch2_txGlobalo(112)=1786 exch2_tyGlobalo(112)=1 exch2_isWedge(112)=0 exch2_isNedge(112)=0 exch2_isEedge(112)=0 exch2_isSedge(112)=1 exch2_myFace(112)=4 exch2_mydNx(112)=510 exch2_mydNy(112)=510 exch2_nNeighbours(112)=4 exch2_neighbourId(1,112)=118 exch2_iLo(1,112)=0 exch2_iHi(1,112)=86 exch2_jLo(1,112)=86 exch2_jHi(1,112)=86 exch2_opposingSend(1,112)=2 exch2_pij(1,1,112)=1 exch2_pij(2,1,112)=0 exch2_pij(3,1,112)=0 exch2_pij(4,1,112)=1 exch2_oi(1,112)=0 exch2_oj(1,112)=0 exch2_neighbourId(2,112)=54 exch2_iLo(2,112)=0 exch2_iHi(2,112)=86 exch2_jLo(2,112)=0 exch2_jHi(2,112)=0 exch2_opposingSend(2,112)=3 exch2_pij(1,2,112)=0 exch2_pij(2,2,112)=-1 exch2_pij(3,2,112)=1 exch2_pij(4,2,112)=0 exch2_oi(2,112)=511 exch2_oj(2,112)=-510 exch2_neighbourId(3,112)=113 exch2_iLo(3,112)=86 exch2_iHi(3,112)=86 exch2_jLo(3,112)=0 exch2_jHi(3,112)=86 exch2_opposingSend(3,112)=4 exch2_pij(1,3,112)=1 exch2_pij(2,3,112)=0 exch2_pij(3,3,112)=0 exch2_pij(4,3,112)=1 exch2_oi(3,112)=0 exch2_oj(3,112)=0 exch2_neighbourId(4,112)=111 exch2_iLo(4,112)=0 exch2_iHi(4,112)=0 exch2_jLo(4,112)=0 exch2_jHi(4,112)=86 exch2_opposingSend(4,112)=3 exch2_pij(1,4,112)=1 exch2_pij(2,4,112)=0 exch2_pij(3,4,112)=0 exch2_pij(4,4,112)=1 exch2_oi(4,112)=0 exch2_oj(4,112)=0 RETURN END SUBROUTINE W2_E2SETUP_113 C Topology for tile 113 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(113)=85 exch2_tNy(113)=85 exch2_tBasex(113)=340 exch2_tBasey(113)=0 exch2_txGlobalo(113)=1871 exch2_tyGlobalo(113)=1 exch2_isWedge(113)=0 exch2_isNedge(113)=0 exch2_isEedge(113)=0 exch2_isSedge(113)=1 exch2_myFace(113)=4 exch2_mydNx(113)=510 exch2_mydNy(113)=510 exch2_nNeighbours(113)=4 exch2_neighbourId(1,113)=119 exch2_iLo(1,113)=0 exch2_iHi(1,113)=86 exch2_jLo(1,113)=86 exch2_jHi(1,113)=86 exch2_opposingSend(1,113)=2 exch2_pij(1,1,113)=1 exch2_pij(2,1,113)=0 exch2_pij(3,1,113)=0 exch2_pij(4,1,113)=1 exch2_oi(1,113)=0 exch2_oj(1,113)=0 exch2_neighbourId(2,113)=48 exch2_iLo(2,113)=0 exch2_iHi(2,113)=86 exch2_jLo(2,113)=0 exch2_jHi(2,113)=0 exch2_opposingSend(2,113)=3 exch2_pij(1,2,113)=0 exch2_pij(2,2,113)=-1 exch2_pij(3,2,113)=1 exch2_pij(4,2,113)=0 exch2_oi(2,113)=511 exch2_oj(2,113)=-510 exch2_neighbourId(3,113)=114 exch2_iLo(3,113)=86 exch2_iHi(3,113)=86 exch2_jLo(3,113)=0 exch2_jHi(3,113)=86 exch2_opposingSend(3,113)=4 exch2_pij(1,3,113)=1 exch2_pij(2,3,113)=0 exch2_pij(3,3,113)=0 exch2_pij(4,3,113)=1 exch2_oi(3,113)=0 exch2_oj(3,113)=0 exch2_neighbourId(4,113)=112 exch2_iLo(4,113)=0 exch2_iHi(4,113)=0 exch2_jLo(4,113)=0 exch2_jHi(4,113)=86 exch2_opposingSend(4,113)=3 exch2_pij(1,4,113)=1 exch2_pij(2,4,113)=0 exch2_pij(3,4,113)=0 exch2_pij(4,4,113)=1 exch2_oi(4,113)=0 exch2_oj(4,113)=0 RETURN END SUBROUTINE W2_E2SETUP_114 C Topology for tile 114 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(114)=85 exch2_tNy(114)=85 exch2_tBasex(114)=425 exch2_tBasey(114)=0 exch2_txGlobalo(114)=1956 exch2_tyGlobalo(114)=1 exch2_isWedge(114)=0 exch2_isNedge(114)=0 exch2_isEedge(114)=1 exch2_isSedge(114)=1 exch2_myFace(114)=4 exch2_mydNx(114)=510 exch2_mydNy(114)=510 exch2_nNeighbours(114)=4 exch2_neighbourId(1,114)=120 exch2_iLo(1,114)=0 exch2_iHi(1,114)=86 exch2_jLo(1,114)=86 exch2_jHi(1,114)=86 exch2_opposingSend(1,114)=2 exch2_pij(1,1,114)=1 exch2_pij(2,1,114)=0 exch2_pij(3,1,114)=0 exch2_pij(4,1,114)=1 exch2_oi(1,114)=0 exch2_oj(1,114)=0 exch2_neighbourId(2,114)=42 exch2_iLo(2,114)=0 exch2_iHi(2,114)=86 exch2_jLo(2,114)=0 exch2_jHi(2,114)=0 exch2_opposingSend(2,114)=3 exch2_pij(1,2,114)=0 exch2_pij(2,2,114)=-1 exch2_pij(3,2,114)=1 exch2_pij(4,2,114)=0 exch2_oi(2,114)=511 exch2_oj(2,114)=-510 exch2_neighbourId(3,114)=186 exch2_iLo(3,114)=86 exch2_iHi(3,114)=86 exch2_jLo(3,114)=0 exch2_jHi(3,114)=86 exch2_opposingSend(3,114)=2 exch2_pij(1,3,114)=0 exch2_pij(2,3,114)=1 exch2_pij(3,3,114)=-1 exch2_pij(4,3,114)=0 exch2_oi(3,114)=510 exch2_oj(3,114)=511 exch2_neighbourId(4,114)=113 exch2_iLo(4,114)=0 exch2_iHi(4,114)=0 exch2_jLo(4,114)=0 exch2_jHi(4,114)=86 exch2_opposingSend(4,114)=3 exch2_pij(1,4,114)=1 exch2_pij(2,4,114)=0 exch2_pij(3,4,114)=0 exch2_pij(4,4,114)=1 exch2_oi(4,114)=0 exch2_oj(4,114)=0 RETURN END SUBROUTINE W2_E2SETUP_115 C Topology for tile 115 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(115)=85 exch2_tNy(115)=85 exch2_tBasex(115)=0 exch2_tBasey(115)=85 exch2_txGlobalo(115)=1531 exch2_tyGlobalo(115)=86 exch2_isWedge(115)=1 exch2_isNedge(115)=0 exch2_isEedge(115)=0 exch2_isSedge(115)=0 exch2_myFace(115)=4 exch2_mydNx(115)=510 exch2_mydNy(115)=510 exch2_nNeighbours(115)=4 exch2_neighbourId(1,115)=121 exch2_iLo(1,115)=0 exch2_iHi(1,115)=86 exch2_jLo(1,115)=86 exch2_jHi(1,115)=86 exch2_opposingSend(1,115)=2 exch2_pij(1,1,115)=1 exch2_pij(2,1,115)=0 exch2_pij(3,1,115)=0 exch2_pij(4,1,115)=1 exch2_oi(1,115)=0 exch2_oj(1,115)=0 exch2_neighbourId(2,115)=109 exch2_iLo(2,115)=0 exch2_iHi(2,115)=86 exch2_jLo(2,115)=0 exch2_jHi(2,115)=0 exch2_opposingSend(2,115)=1 exch2_pij(1,2,115)=1 exch2_pij(2,2,115)=0 exch2_pij(3,2,115)=0 exch2_pij(4,2,115)=1 exch2_oi(2,115)=0 exch2_oj(2,115)=0 exch2_neighbourId(3,115)=116 exch2_iLo(3,115)=86 exch2_iHi(3,115)=86 exch2_jLo(3,115)=0 exch2_jHi(3,115)=86 exch2_opposingSend(3,115)=4 exch2_pij(1,3,115)=1 exch2_pij(2,3,115)=0 exch2_pij(3,3,115)=0 exch2_pij(4,3,115)=1 exch2_oi(3,115)=0 exch2_oj(3,115)=0 exch2_neighbourId(4,115)=84 exch2_iLo(4,115)=0 exch2_iHi(4,115)=0 exch2_jLo(4,115)=0 exch2_jHi(4,115)=86 exch2_opposingSend(4,115)=3 exch2_pij(1,4,115)=1 exch2_pij(2,4,115)=0 exch2_pij(3,4,115)=0 exch2_pij(4,4,115)=1 exch2_oi(4,115)=-510 exch2_oj(4,115)=0 RETURN END SUBROUTINE W2_E2SETUP_116 C Topology for tile 116 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(116)=85 exch2_tNy(116)=85 exch2_tBasex(116)=85 exch2_tBasey(116)=85 exch2_txGlobalo(116)=1616 exch2_tyGlobalo(116)=86 exch2_isWedge(116)=0 exch2_isNedge(116)=0 exch2_isEedge(116)=0 exch2_isSedge(116)=0 exch2_myFace(116)=4 exch2_mydNx(116)=510 exch2_mydNy(116)=510 exch2_nNeighbours(116)=4 exch2_neighbourId(1,116)=122 exch2_iLo(1,116)=0 exch2_iHi(1,116)=86 exch2_jLo(1,116)=86 exch2_jHi(1,116)=86 exch2_opposingSend(1,116)=2 exch2_pij(1,1,116)=1 exch2_pij(2,1,116)=0 exch2_pij(3,1,116)=0 exch2_pij(4,1,116)=1 exch2_oi(1,116)=0 exch2_oj(1,116)=0 exch2_neighbourId(2,116)=110 exch2_iLo(2,116)=0 exch2_iHi(2,116)=86 exch2_jLo(2,116)=0 exch2_jHi(2,116)=0 exch2_opposingSend(2,116)=1 exch2_pij(1,2,116)=1 exch2_pij(2,2,116)=0 exch2_pij(3,2,116)=0 exch2_pij(4,2,116)=1 exch2_oi(2,116)=0 exch2_oj(2,116)=0 exch2_neighbourId(3,116)=117 exch2_iLo(3,116)=86 exch2_iHi(3,116)=86 exch2_jLo(3,116)=0 exch2_jHi(3,116)=86 exch2_opposingSend(3,116)=4 exch2_pij(1,3,116)=1 exch2_pij(2,3,116)=0 exch2_pij(3,3,116)=0 exch2_pij(4,3,116)=1 exch2_oi(3,116)=0 exch2_oj(3,116)=0 exch2_neighbourId(4,116)=115 exch2_iLo(4,116)=0 exch2_iHi(4,116)=0 exch2_jLo(4,116)=0 exch2_jHi(4,116)=86 exch2_opposingSend(4,116)=3 exch2_pij(1,4,116)=1 exch2_pij(2,4,116)=0 exch2_pij(3,4,116)=0 exch2_pij(4,4,116)=1 exch2_oi(4,116)=0 exch2_oj(4,116)=0 RETURN END SUBROUTINE W2_E2SETUP_117 C Topology for tile 117 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(117)=85 exch2_tNy(117)=85 exch2_tBasex(117)=170 exch2_tBasey(117)=85 exch2_txGlobalo(117)=1701 exch2_tyGlobalo(117)=86 exch2_isWedge(117)=0 exch2_isNedge(117)=0 exch2_isEedge(117)=0 exch2_isSedge(117)=0 exch2_myFace(117)=4 exch2_mydNx(117)=510 exch2_mydNy(117)=510 exch2_nNeighbours(117)=4 exch2_neighbourId(1,117)=123 exch2_iLo(1,117)=0 exch2_iHi(1,117)=86 exch2_jLo(1,117)=86 exch2_jHi(1,117)=86 exch2_opposingSend(1,117)=2 exch2_pij(1,1,117)=1 exch2_pij(2,1,117)=0 exch2_pij(3,1,117)=0 exch2_pij(4,1,117)=1 exch2_oi(1,117)=0 exch2_oj(1,117)=0 exch2_neighbourId(2,117)=111 exch2_iLo(2,117)=0 exch2_iHi(2,117)=86 exch2_jLo(2,117)=0 exch2_jHi(2,117)=0 exch2_opposingSend(2,117)=1 exch2_pij(1,2,117)=1 exch2_pij(2,2,117)=0 exch2_pij(3,2,117)=0 exch2_pij(4,2,117)=1 exch2_oi(2,117)=0 exch2_oj(2,117)=0 exch2_neighbourId(3,117)=118 exch2_iLo(3,117)=86 exch2_iHi(3,117)=86 exch2_jLo(3,117)=0 exch2_jHi(3,117)=86 exch2_opposingSend(3,117)=4 exch2_pij(1,3,117)=1 exch2_pij(2,3,117)=0 exch2_pij(3,3,117)=0 exch2_pij(4,3,117)=1 exch2_oi(3,117)=0 exch2_oj(3,117)=0 exch2_neighbourId(4,117)=116 exch2_iLo(4,117)=0 exch2_iHi(4,117)=0 exch2_jLo(4,117)=0 exch2_jHi(4,117)=86 exch2_opposingSend(4,117)=3 exch2_pij(1,4,117)=1 exch2_pij(2,4,117)=0 exch2_pij(3,4,117)=0 exch2_pij(4,4,117)=1 exch2_oi(4,117)=0 exch2_oj(4,117)=0 RETURN END SUBROUTINE W2_E2SETUP_118 C Topology for tile 118 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(118)=85 exch2_tNy(118)=85 exch2_tBasex(118)=255 exch2_tBasey(118)=85 exch2_txGlobalo(118)=1786 exch2_tyGlobalo(118)=86 exch2_isWedge(118)=0 exch2_isNedge(118)=0 exch2_isEedge(118)=0 exch2_isSedge(118)=0 exch2_myFace(118)=4 exch2_mydNx(118)=510 exch2_mydNy(118)=510 exch2_nNeighbours(118)=4 exch2_neighbourId(1,118)=124 exch2_iLo(1,118)=0 exch2_iHi(1,118)=86 exch2_jLo(1,118)=86 exch2_jHi(1,118)=86 exch2_opposingSend(1,118)=2 exch2_pij(1,1,118)=1 exch2_pij(2,1,118)=0 exch2_pij(3,1,118)=0 exch2_pij(4,1,118)=1 exch2_oi(1,118)=0 exch2_oj(1,118)=0 exch2_neighbourId(2,118)=112 exch2_iLo(2,118)=0 exch2_iHi(2,118)=86 exch2_jLo(2,118)=0 exch2_jHi(2,118)=0 exch2_opposingSend(2,118)=1 exch2_pij(1,2,118)=1 exch2_pij(2,2,118)=0 exch2_pij(3,2,118)=0 exch2_pij(4,2,118)=1 exch2_oi(2,118)=0 exch2_oj(2,118)=0 exch2_neighbourId(3,118)=119 exch2_iLo(3,118)=86 exch2_iHi(3,118)=86 exch2_jLo(3,118)=0 exch2_jHi(3,118)=86 exch2_opposingSend(3,118)=4 exch2_pij(1,3,118)=1 exch2_pij(2,3,118)=0 exch2_pij(3,3,118)=0 exch2_pij(4,3,118)=1 exch2_oi(3,118)=0 exch2_oj(3,118)=0 exch2_neighbourId(4,118)=117 exch2_iLo(4,118)=0 exch2_iHi(4,118)=0 exch2_jLo(4,118)=0 exch2_jHi(4,118)=86 exch2_opposingSend(4,118)=3 exch2_pij(1,4,118)=1 exch2_pij(2,4,118)=0 exch2_pij(3,4,118)=0 exch2_pij(4,4,118)=1 exch2_oi(4,118)=0 exch2_oj(4,118)=0 RETURN END SUBROUTINE W2_E2SETUP_119 C Topology for tile 119 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(119)=85 exch2_tNy(119)=85 exch2_tBasex(119)=340 exch2_tBasey(119)=85 exch2_txGlobalo(119)=1871 exch2_tyGlobalo(119)=86 exch2_isWedge(119)=0 exch2_isNedge(119)=0 exch2_isEedge(119)=0 exch2_isSedge(119)=0 exch2_myFace(119)=4 exch2_mydNx(119)=510 exch2_mydNy(119)=510 exch2_nNeighbours(119)=4 exch2_neighbourId(1,119)=125 exch2_iLo(1,119)=0 exch2_iHi(1,119)=86 exch2_jLo(1,119)=86 exch2_jHi(1,119)=86 exch2_opposingSend(1,119)=2 exch2_pij(1,1,119)=1 exch2_pij(2,1,119)=0 exch2_pij(3,1,119)=0 exch2_pij(4,1,119)=1 exch2_oi(1,119)=0 exch2_oj(1,119)=0 exch2_neighbourId(2,119)=113 exch2_iLo(2,119)=0 exch2_iHi(2,119)=86 exch2_jLo(2,119)=0 exch2_jHi(2,119)=0 exch2_opposingSend(2,119)=1 exch2_pij(1,2,119)=1 exch2_pij(2,2,119)=0 exch2_pij(3,2,119)=0 exch2_pij(4,2,119)=1 exch2_oi(2,119)=0 exch2_oj(2,119)=0 exch2_neighbourId(3,119)=120 exch2_iLo(3,119)=86 exch2_iHi(3,119)=86 exch2_jLo(3,119)=0 exch2_jHi(3,119)=86 exch2_opposingSend(3,119)=4 exch2_pij(1,3,119)=1 exch2_pij(2,3,119)=0 exch2_pij(3,3,119)=0 exch2_pij(4,3,119)=1 exch2_oi(3,119)=0 exch2_oj(3,119)=0 exch2_neighbourId(4,119)=118 exch2_iLo(4,119)=0 exch2_iHi(4,119)=0 exch2_jLo(4,119)=0 exch2_jHi(4,119)=86 exch2_opposingSend(4,119)=3 exch2_pij(1,4,119)=1 exch2_pij(2,4,119)=0 exch2_pij(3,4,119)=0 exch2_pij(4,4,119)=1 exch2_oi(4,119)=0 exch2_oj(4,119)=0 RETURN END SUBROUTINE W2_E2SETUP_120 C Topology for tile 120 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(120)=85 exch2_tNy(120)=85 exch2_tBasex(120)=425 exch2_tBasey(120)=85 exch2_txGlobalo(120)=1956 exch2_tyGlobalo(120)=86 exch2_isWedge(120)=0 exch2_isNedge(120)=0 exch2_isEedge(120)=1 exch2_isSedge(120)=0 exch2_myFace(120)=4 exch2_mydNx(120)=510 exch2_mydNy(120)=510 exch2_nNeighbours(120)=4 exch2_neighbourId(1,120)=126 exch2_iLo(1,120)=0 exch2_iHi(1,120)=86 exch2_jLo(1,120)=86 exch2_jHi(1,120)=86 exch2_opposingSend(1,120)=2 exch2_pij(1,1,120)=1 exch2_pij(2,1,120)=0 exch2_pij(3,1,120)=0 exch2_pij(4,1,120)=1 exch2_oi(1,120)=0 exch2_oj(1,120)=0 exch2_neighbourId(2,120)=114 exch2_iLo(2,120)=0 exch2_iHi(2,120)=86 exch2_jLo(2,120)=0 exch2_jHi(2,120)=0 exch2_opposingSend(2,120)=1 exch2_pij(1,2,120)=1 exch2_pij(2,2,120)=0 exch2_pij(3,2,120)=0 exch2_pij(4,2,120)=1 exch2_oi(2,120)=0 exch2_oj(2,120)=0 exch2_neighbourId(3,120)=185 exch2_iLo(3,120)=86 exch2_iHi(3,120)=86 exch2_jLo(3,120)=0 exch2_jHi(3,120)=86 exch2_opposingSend(3,120)=2 exch2_pij(1,3,120)=0 exch2_pij(2,3,120)=1 exch2_pij(3,3,120)=-1 exch2_pij(4,3,120)=0 exch2_oi(3,120)=510 exch2_oj(3,120)=511 exch2_neighbourId(4,120)=119 exch2_iLo(4,120)=0 exch2_iHi(4,120)=0 exch2_jLo(4,120)=0 exch2_jHi(4,120)=86 exch2_opposingSend(4,120)=3 exch2_pij(1,4,120)=1 exch2_pij(2,4,120)=0 exch2_pij(3,4,120)=0 exch2_pij(4,4,120)=1 exch2_oi(4,120)=0 exch2_oj(4,120)=0 RETURN END SUBROUTINE W2_E2SETUP_121 C Topology for tile 121 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(121)=85 exch2_tNy(121)=85 exch2_tBasex(121)=0 exch2_tBasey(121)=170 exch2_txGlobalo(121)=1531 exch2_tyGlobalo(121)=171 exch2_isWedge(121)=1 exch2_isNedge(121)=0 exch2_isEedge(121)=0 exch2_isSedge(121)=0 exch2_myFace(121)=4 exch2_mydNx(121)=510 exch2_mydNy(121)=510 exch2_nNeighbours(121)=4 exch2_neighbourId(1,121)=127 exch2_iLo(1,121)=0 exch2_iHi(1,121)=86 exch2_jLo(1,121)=86 exch2_jHi(1,121)=86 exch2_opposingSend(1,121)=2 exch2_pij(1,1,121)=1 exch2_pij(2,1,121)=0 exch2_pij(3,1,121)=0 exch2_pij(4,1,121)=1 exch2_oi(1,121)=0 exch2_oj(1,121)=0 exch2_neighbourId(2,121)=115 exch2_iLo(2,121)=0 exch2_iHi(2,121)=86 exch2_jLo(2,121)=0 exch2_jHi(2,121)=0 exch2_opposingSend(2,121)=1 exch2_pij(1,2,121)=1 exch2_pij(2,2,121)=0 exch2_pij(3,2,121)=0 exch2_pij(4,2,121)=1 exch2_oi(2,121)=0 exch2_oj(2,121)=0 exch2_neighbourId(3,121)=122 exch2_iLo(3,121)=86 exch2_iHi(3,121)=86 exch2_jLo(3,121)=0 exch2_jHi(3,121)=86 exch2_opposingSend(3,121)=4 exch2_pij(1,3,121)=1 exch2_pij(2,3,121)=0 exch2_pij(3,3,121)=0 exch2_pij(4,3,121)=1 exch2_oi(3,121)=0 exch2_oj(3,121)=0 exch2_neighbourId(4,121)=90 exch2_iLo(4,121)=0 exch2_iHi(4,121)=0 exch2_jLo(4,121)=0 exch2_jHi(4,121)=86 exch2_opposingSend(4,121)=3 exch2_pij(1,4,121)=1 exch2_pij(2,4,121)=0 exch2_pij(3,4,121)=0 exch2_pij(4,4,121)=1 exch2_oi(4,121)=-510 exch2_oj(4,121)=0 RETURN END SUBROUTINE W2_E2SETUP_122 C Topology for tile 122 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(122)=85 exch2_tNy(122)=85 exch2_tBasex(122)=85 exch2_tBasey(122)=170 exch2_txGlobalo(122)=1616 exch2_tyGlobalo(122)=171 exch2_isWedge(122)=0 exch2_isNedge(122)=0 exch2_isEedge(122)=0 exch2_isSedge(122)=0 exch2_myFace(122)=4 exch2_mydNx(122)=510 exch2_mydNy(122)=510 exch2_nNeighbours(122)=4 exch2_neighbourId(1,122)=128 exch2_iLo(1,122)=0 exch2_iHi(1,122)=86 exch2_jLo(1,122)=86 exch2_jHi(1,122)=86 exch2_opposingSend(1,122)=2 exch2_pij(1,1,122)=1 exch2_pij(2,1,122)=0 exch2_pij(3,1,122)=0 exch2_pij(4,1,122)=1 exch2_oi(1,122)=0 exch2_oj(1,122)=0 exch2_neighbourId(2,122)=116 exch2_iLo(2,122)=0 exch2_iHi(2,122)=86 exch2_jLo(2,122)=0 exch2_jHi(2,122)=0 exch2_opposingSend(2,122)=1 exch2_pij(1,2,122)=1 exch2_pij(2,2,122)=0 exch2_pij(3,2,122)=0 exch2_pij(4,2,122)=1 exch2_oi(2,122)=0 exch2_oj(2,122)=0 exch2_neighbourId(3,122)=123 exch2_iLo(3,122)=86 exch2_iHi(3,122)=86 exch2_jLo(3,122)=0 exch2_jHi(3,122)=86 exch2_opposingSend(3,122)=4 exch2_pij(1,3,122)=1 exch2_pij(2,3,122)=0 exch2_pij(3,3,122)=0 exch2_pij(4,3,122)=1 exch2_oi(3,122)=0 exch2_oj(3,122)=0 exch2_neighbourId(4,122)=121 exch2_iLo(4,122)=0 exch2_iHi(4,122)=0 exch2_jLo(4,122)=0 exch2_jHi(4,122)=86 exch2_opposingSend(4,122)=3 exch2_pij(1,4,122)=1 exch2_pij(2,4,122)=0 exch2_pij(3,4,122)=0 exch2_pij(4,4,122)=1 exch2_oi(4,122)=0 exch2_oj(4,122)=0 RETURN END SUBROUTINE W2_E2SETUP_123 C Topology for tile 123 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(123)=85 exch2_tNy(123)=85 exch2_tBasex(123)=170 exch2_tBasey(123)=170 exch2_txGlobalo(123)=1701 exch2_tyGlobalo(123)=171 exch2_isWedge(123)=0 exch2_isNedge(123)=0 exch2_isEedge(123)=0 exch2_isSedge(123)=0 exch2_myFace(123)=4 exch2_mydNx(123)=510 exch2_mydNy(123)=510 exch2_nNeighbours(123)=4 exch2_neighbourId(1,123)=129 exch2_iLo(1,123)=0 exch2_iHi(1,123)=86 exch2_jLo(1,123)=86 exch2_jHi(1,123)=86 exch2_opposingSend(1,123)=2 exch2_pij(1,1,123)=1 exch2_pij(2,1,123)=0 exch2_pij(3,1,123)=0 exch2_pij(4,1,123)=1 exch2_oi(1,123)=0 exch2_oj(1,123)=0 exch2_neighbourId(2,123)=117 exch2_iLo(2,123)=0 exch2_iHi(2,123)=86 exch2_jLo(2,123)=0 exch2_jHi(2,123)=0 exch2_opposingSend(2,123)=1 exch2_pij(1,2,123)=1 exch2_pij(2,2,123)=0 exch2_pij(3,2,123)=0 exch2_pij(4,2,123)=1 exch2_oi(2,123)=0 exch2_oj(2,123)=0 exch2_neighbourId(3,123)=124 exch2_iLo(3,123)=86 exch2_iHi(3,123)=86 exch2_jLo(3,123)=0 exch2_jHi(3,123)=86 exch2_opposingSend(3,123)=4 exch2_pij(1,3,123)=1 exch2_pij(2,3,123)=0 exch2_pij(3,3,123)=0 exch2_pij(4,3,123)=1 exch2_oi(3,123)=0 exch2_oj(3,123)=0 exch2_neighbourId(4,123)=122 exch2_iLo(4,123)=0 exch2_iHi(4,123)=0 exch2_jLo(4,123)=0 exch2_jHi(4,123)=86 exch2_opposingSend(4,123)=3 exch2_pij(1,4,123)=1 exch2_pij(2,4,123)=0 exch2_pij(3,4,123)=0 exch2_pij(4,4,123)=1 exch2_oi(4,123)=0 exch2_oj(4,123)=0 RETURN END SUBROUTINE W2_E2SETUP_124 C Topology for tile 124 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(124)=85 exch2_tNy(124)=85 exch2_tBasex(124)=255 exch2_tBasey(124)=170 exch2_txGlobalo(124)=1786 exch2_tyGlobalo(124)=171 exch2_isWedge(124)=0 exch2_isNedge(124)=0 exch2_isEedge(124)=0 exch2_isSedge(124)=0 exch2_myFace(124)=4 exch2_mydNx(124)=510 exch2_mydNy(124)=510 exch2_nNeighbours(124)=4 exch2_neighbourId(1,124)=130 exch2_iLo(1,124)=0 exch2_iHi(1,124)=86 exch2_jLo(1,124)=86 exch2_jHi(1,124)=86 exch2_opposingSend(1,124)=2 exch2_pij(1,1,124)=1 exch2_pij(2,1,124)=0 exch2_pij(3,1,124)=0 exch2_pij(4,1,124)=1 exch2_oi(1,124)=0 exch2_oj(1,124)=0 exch2_neighbourId(2,124)=118 exch2_iLo(2,124)=0 exch2_iHi(2,124)=86 exch2_jLo(2,124)=0 exch2_jHi(2,124)=0 exch2_opposingSend(2,124)=1 exch2_pij(1,2,124)=1 exch2_pij(2,2,124)=0 exch2_pij(3,2,124)=0 exch2_pij(4,2,124)=1 exch2_oi(2,124)=0 exch2_oj(2,124)=0 exch2_neighbourId(3,124)=125 exch2_iLo(3,124)=86 exch2_iHi(3,124)=86 exch2_jLo(3,124)=0 exch2_jHi(3,124)=86 exch2_opposingSend(3,124)=4 exch2_pij(1,3,124)=1 exch2_pij(2,3,124)=0 exch2_pij(3,3,124)=0 exch2_pij(4,3,124)=1 exch2_oi(3,124)=0 exch2_oj(3,124)=0 exch2_neighbourId(4,124)=123 exch2_iLo(4,124)=0 exch2_iHi(4,124)=0 exch2_jLo(4,124)=0 exch2_jHi(4,124)=86 exch2_opposingSend(4,124)=3 exch2_pij(1,4,124)=1 exch2_pij(2,4,124)=0 exch2_pij(3,4,124)=0 exch2_pij(4,4,124)=1 exch2_oi(4,124)=0 exch2_oj(4,124)=0 RETURN END SUBROUTINE W2_E2SETUP_125 C Topology for tile 125 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(125)=85 exch2_tNy(125)=85 exch2_tBasex(125)=340 exch2_tBasey(125)=170 exch2_txGlobalo(125)=1871 exch2_tyGlobalo(125)=171 exch2_isWedge(125)=0 exch2_isNedge(125)=0 exch2_isEedge(125)=0 exch2_isSedge(125)=0 exch2_myFace(125)=4 exch2_mydNx(125)=510 exch2_mydNy(125)=510 exch2_nNeighbours(125)=4 exch2_neighbourId(1,125)=131 exch2_iLo(1,125)=0 exch2_iHi(1,125)=86 exch2_jLo(1,125)=86 exch2_jHi(1,125)=86 exch2_opposingSend(1,125)=2 exch2_pij(1,1,125)=1 exch2_pij(2,1,125)=0 exch2_pij(3,1,125)=0 exch2_pij(4,1,125)=1 exch2_oi(1,125)=0 exch2_oj(1,125)=0 exch2_neighbourId(2,125)=119 exch2_iLo(2,125)=0 exch2_iHi(2,125)=86 exch2_jLo(2,125)=0 exch2_jHi(2,125)=0 exch2_opposingSend(2,125)=1 exch2_pij(1,2,125)=1 exch2_pij(2,2,125)=0 exch2_pij(3,2,125)=0 exch2_pij(4,2,125)=1 exch2_oi(2,125)=0 exch2_oj(2,125)=0 exch2_neighbourId(3,125)=126 exch2_iLo(3,125)=86 exch2_iHi(3,125)=86 exch2_jLo(3,125)=0 exch2_jHi(3,125)=86 exch2_opposingSend(3,125)=4 exch2_pij(1,3,125)=1 exch2_pij(2,3,125)=0 exch2_pij(3,3,125)=0 exch2_pij(4,3,125)=1 exch2_oi(3,125)=0 exch2_oj(3,125)=0 exch2_neighbourId(4,125)=124 exch2_iLo(4,125)=0 exch2_iHi(4,125)=0 exch2_jLo(4,125)=0 exch2_jHi(4,125)=86 exch2_opposingSend(4,125)=3 exch2_pij(1,4,125)=1 exch2_pij(2,4,125)=0 exch2_pij(3,4,125)=0 exch2_pij(4,4,125)=1 exch2_oi(4,125)=0 exch2_oj(4,125)=0 RETURN END SUBROUTINE W2_E2SETUP_126 C Topology for tile 126 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(126)=85 exch2_tNy(126)=85 exch2_tBasex(126)=425 exch2_tBasey(126)=170 exch2_txGlobalo(126)=1956 exch2_tyGlobalo(126)=171 exch2_isWedge(126)=0 exch2_isNedge(126)=0 exch2_isEedge(126)=1 exch2_isSedge(126)=0 exch2_myFace(126)=4 exch2_mydNx(126)=510 exch2_mydNy(126)=510 exch2_nNeighbours(126)=4 exch2_neighbourId(1,126)=132 exch2_iLo(1,126)=0 exch2_iHi(1,126)=86 exch2_jLo(1,126)=86 exch2_jHi(1,126)=86 exch2_opposingSend(1,126)=2 exch2_pij(1,1,126)=1 exch2_pij(2,1,126)=0 exch2_pij(3,1,126)=0 exch2_pij(4,1,126)=1 exch2_oi(1,126)=0 exch2_oj(1,126)=0 exch2_neighbourId(2,126)=120 exch2_iLo(2,126)=0 exch2_iHi(2,126)=86 exch2_jLo(2,126)=0 exch2_jHi(2,126)=0 exch2_opposingSend(2,126)=1 exch2_pij(1,2,126)=1 exch2_pij(2,2,126)=0 exch2_pij(3,2,126)=0 exch2_pij(4,2,126)=1 exch2_oi(2,126)=0 exch2_oj(2,126)=0 exch2_neighbourId(3,126)=184 exch2_iLo(3,126)=86 exch2_iHi(3,126)=86 exch2_jLo(3,126)=0 exch2_jHi(3,126)=86 exch2_opposingSend(3,126)=2 exch2_pij(1,3,126)=0 exch2_pij(2,3,126)=1 exch2_pij(3,3,126)=-1 exch2_pij(4,3,126)=0 exch2_oi(3,126)=510 exch2_oj(3,126)=511 exch2_neighbourId(4,126)=125 exch2_iLo(4,126)=0 exch2_iHi(4,126)=0 exch2_jLo(4,126)=0 exch2_jHi(4,126)=86 exch2_opposingSend(4,126)=3 exch2_pij(1,4,126)=1 exch2_pij(2,4,126)=0 exch2_pij(3,4,126)=0 exch2_pij(4,4,126)=1 exch2_oi(4,126)=0 exch2_oj(4,126)=0 RETURN END SUBROUTINE W2_E2SETUP_127 C Topology for tile 127 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(127)=85 exch2_tNy(127)=85 exch2_tBasex(127)=0 exch2_tBasey(127)=255 exch2_txGlobalo(127)=1531 exch2_tyGlobalo(127)=256 exch2_isWedge(127)=1 exch2_isNedge(127)=0 exch2_isEedge(127)=0 exch2_isSedge(127)=0 exch2_myFace(127)=4 exch2_mydNx(127)=510 exch2_mydNy(127)=510 exch2_nNeighbours(127)=4 exch2_neighbourId(1,127)=133 exch2_iLo(1,127)=0 exch2_iHi(1,127)=86 exch2_jLo(1,127)=86 exch2_jHi(1,127)=86 exch2_opposingSend(1,127)=2 exch2_pij(1,1,127)=1 exch2_pij(2,1,127)=0 exch2_pij(3,1,127)=0 exch2_pij(4,1,127)=1 exch2_oi(1,127)=0 exch2_oj(1,127)=0 exch2_neighbourId(2,127)=121 exch2_iLo(2,127)=0 exch2_iHi(2,127)=86 exch2_jLo(2,127)=0 exch2_jHi(2,127)=0 exch2_opposingSend(2,127)=1 exch2_pij(1,2,127)=1 exch2_pij(2,2,127)=0 exch2_pij(3,2,127)=0 exch2_pij(4,2,127)=1 exch2_oi(2,127)=0 exch2_oj(2,127)=0 exch2_neighbourId(3,127)=128 exch2_iLo(3,127)=86 exch2_iHi(3,127)=86 exch2_jLo(3,127)=0 exch2_jHi(3,127)=86 exch2_opposingSend(3,127)=4 exch2_pij(1,3,127)=1 exch2_pij(2,3,127)=0 exch2_pij(3,3,127)=0 exch2_pij(4,3,127)=1 exch2_oi(3,127)=0 exch2_oj(3,127)=0 exch2_neighbourId(4,127)=96 exch2_iLo(4,127)=0 exch2_iHi(4,127)=0 exch2_jLo(4,127)=0 exch2_jHi(4,127)=86 exch2_opposingSend(4,127)=3 exch2_pij(1,4,127)=1 exch2_pij(2,4,127)=0 exch2_pij(3,4,127)=0 exch2_pij(4,4,127)=1 exch2_oi(4,127)=-510 exch2_oj(4,127)=0 RETURN END SUBROUTINE W2_E2SETUP_128 C Topology for tile 128 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(128)=85 exch2_tNy(128)=85 exch2_tBasex(128)=85 exch2_tBasey(128)=255 exch2_txGlobalo(128)=1616 exch2_tyGlobalo(128)=256 exch2_isWedge(128)=0 exch2_isNedge(128)=0 exch2_isEedge(128)=0 exch2_isSedge(128)=0 exch2_myFace(128)=4 exch2_mydNx(128)=510 exch2_mydNy(128)=510 exch2_nNeighbours(128)=4 exch2_neighbourId(1,128)=134 exch2_iLo(1,128)=0 exch2_iHi(1,128)=86 exch2_jLo(1,128)=86 exch2_jHi(1,128)=86 exch2_opposingSend(1,128)=2 exch2_pij(1,1,128)=1 exch2_pij(2,1,128)=0 exch2_pij(3,1,128)=0 exch2_pij(4,1,128)=1 exch2_oi(1,128)=0 exch2_oj(1,128)=0 exch2_neighbourId(2,128)=122 exch2_iLo(2,128)=0 exch2_iHi(2,128)=86 exch2_jLo(2,128)=0 exch2_jHi(2,128)=0 exch2_opposingSend(2,128)=1 exch2_pij(1,2,128)=1 exch2_pij(2,2,128)=0 exch2_pij(3,2,128)=0 exch2_pij(4,2,128)=1 exch2_oi(2,128)=0 exch2_oj(2,128)=0 exch2_neighbourId(3,128)=129 exch2_iLo(3,128)=86 exch2_iHi(3,128)=86 exch2_jLo(3,128)=0 exch2_jHi(3,128)=86 exch2_opposingSend(3,128)=4 exch2_pij(1,3,128)=1 exch2_pij(2,3,128)=0 exch2_pij(3,3,128)=0 exch2_pij(4,3,128)=1 exch2_oi(3,128)=0 exch2_oj(3,128)=0 exch2_neighbourId(4,128)=127 exch2_iLo(4,128)=0 exch2_iHi(4,128)=0 exch2_jLo(4,128)=0 exch2_jHi(4,128)=86 exch2_opposingSend(4,128)=3 exch2_pij(1,4,128)=1 exch2_pij(2,4,128)=0 exch2_pij(3,4,128)=0 exch2_pij(4,4,128)=1 exch2_oi(4,128)=0 exch2_oj(4,128)=0 RETURN END SUBROUTINE W2_E2SETUP_129 C Topology for tile 129 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(129)=85 exch2_tNy(129)=85 exch2_tBasex(129)=170 exch2_tBasey(129)=255 exch2_txGlobalo(129)=1701 exch2_tyGlobalo(129)=256 exch2_isWedge(129)=0 exch2_isNedge(129)=0 exch2_isEedge(129)=0 exch2_isSedge(129)=0 exch2_myFace(129)=4 exch2_mydNx(129)=510 exch2_mydNy(129)=510 exch2_nNeighbours(129)=4 exch2_neighbourId(1,129)=135 exch2_iLo(1,129)=0 exch2_iHi(1,129)=86 exch2_jLo(1,129)=86 exch2_jHi(1,129)=86 exch2_opposingSend(1,129)=2 exch2_pij(1,1,129)=1 exch2_pij(2,1,129)=0 exch2_pij(3,1,129)=0 exch2_pij(4,1,129)=1 exch2_oi(1,129)=0 exch2_oj(1,129)=0 exch2_neighbourId(2,129)=123 exch2_iLo(2,129)=0 exch2_iHi(2,129)=86 exch2_jLo(2,129)=0 exch2_jHi(2,129)=0 exch2_opposingSend(2,129)=1 exch2_pij(1,2,129)=1 exch2_pij(2,2,129)=0 exch2_pij(3,2,129)=0 exch2_pij(4,2,129)=1 exch2_oi(2,129)=0 exch2_oj(2,129)=0 exch2_neighbourId(3,129)=130 exch2_iLo(3,129)=86 exch2_iHi(3,129)=86 exch2_jLo(3,129)=0 exch2_jHi(3,129)=86 exch2_opposingSend(3,129)=4 exch2_pij(1,3,129)=1 exch2_pij(2,3,129)=0 exch2_pij(3,3,129)=0 exch2_pij(4,3,129)=1 exch2_oi(3,129)=0 exch2_oj(3,129)=0 exch2_neighbourId(4,129)=128 exch2_iLo(4,129)=0 exch2_iHi(4,129)=0 exch2_jLo(4,129)=0 exch2_jHi(4,129)=86 exch2_opposingSend(4,129)=3 exch2_pij(1,4,129)=1 exch2_pij(2,4,129)=0 exch2_pij(3,4,129)=0 exch2_pij(4,4,129)=1 exch2_oi(4,129)=0 exch2_oj(4,129)=0 RETURN END SUBROUTINE W2_E2SETUP_130 C Topology for tile 130 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(130)=85 exch2_tNy(130)=85 exch2_tBasex(130)=255 exch2_tBasey(130)=255 exch2_txGlobalo(130)=1786 exch2_tyGlobalo(130)=256 exch2_isWedge(130)=0 exch2_isNedge(130)=0 exch2_isEedge(130)=0 exch2_isSedge(130)=0 exch2_myFace(130)=4 exch2_mydNx(130)=510 exch2_mydNy(130)=510 exch2_nNeighbours(130)=4 exch2_neighbourId(1,130)=136 exch2_iLo(1,130)=0 exch2_iHi(1,130)=86 exch2_jLo(1,130)=86 exch2_jHi(1,130)=86 exch2_opposingSend(1,130)=2 exch2_pij(1,1,130)=1 exch2_pij(2,1,130)=0 exch2_pij(3,1,130)=0 exch2_pij(4,1,130)=1 exch2_oi(1,130)=0 exch2_oj(1,130)=0 exch2_neighbourId(2,130)=124 exch2_iLo(2,130)=0 exch2_iHi(2,130)=86 exch2_jLo(2,130)=0 exch2_jHi(2,130)=0 exch2_opposingSend(2,130)=1 exch2_pij(1,2,130)=1 exch2_pij(2,2,130)=0 exch2_pij(3,2,130)=0 exch2_pij(4,2,130)=1 exch2_oi(2,130)=0 exch2_oj(2,130)=0 exch2_neighbourId(3,130)=131 exch2_iLo(3,130)=86 exch2_iHi(3,130)=86 exch2_jLo(3,130)=0 exch2_jHi(3,130)=86 exch2_opposingSend(3,130)=4 exch2_pij(1,3,130)=1 exch2_pij(2,3,130)=0 exch2_pij(3,3,130)=0 exch2_pij(4,3,130)=1 exch2_oi(3,130)=0 exch2_oj(3,130)=0 exch2_neighbourId(4,130)=129 exch2_iLo(4,130)=0 exch2_iHi(4,130)=0 exch2_jLo(4,130)=0 exch2_jHi(4,130)=86 exch2_opposingSend(4,130)=3 exch2_pij(1,4,130)=1 exch2_pij(2,4,130)=0 exch2_pij(3,4,130)=0 exch2_pij(4,4,130)=1 exch2_oi(4,130)=0 exch2_oj(4,130)=0 RETURN END SUBROUTINE W2_E2SETUP_131 C Topology for tile 131 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(131)=85 exch2_tNy(131)=85 exch2_tBasex(131)=340 exch2_tBasey(131)=255 exch2_txGlobalo(131)=1871 exch2_tyGlobalo(131)=256 exch2_isWedge(131)=0 exch2_isNedge(131)=0 exch2_isEedge(131)=0 exch2_isSedge(131)=0 exch2_myFace(131)=4 exch2_mydNx(131)=510 exch2_mydNy(131)=510 exch2_nNeighbours(131)=4 exch2_neighbourId(1,131)=137 exch2_iLo(1,131)=0 exch2_iHi(1,131)=86 exch2_jLo(1,131)=86 exch2_jHi(1,131)=86 exch2_opposingSend(1,131)=2 exch2_pij(1,1,131)=1 exch2_pij(2,1,131)=0 exch2_pij(3,1,131)=0 exch2_pij(4,1,131)=1 exch2_oi(1,131)=0 exch2_oj(1,131)=0 exch2_neighbourId(2,131)=125 exch2_iLo(2,131)=0 exch2_iHi(2,131)=86 exch2_jLo(2,131)=0 exch2_jHi(2,131)=0 exch2_opposingSend(2,131)=1 exch2_pij(1,2,131)=1 exch2_pij(2,2,131)=0 exch2_pij(3,2,131)=0 exch2_pij(4,2,131)=1 exch2_oi(2,131)=0 exch2_oj(2,131)=0 exch2_neighbourId(3,131)=132 exch2_iLo(3,131)=86 exch2_iHi(3,131)=86 exch2_jLo(3,131)=0 exch2_jHi(3,131)=86 exch2_opposingSend(3,131)=4 exch2_pij(1,3,131)=1 exch2_pij(2,3,131)=0 exch2_pij(3,3,131)=0 exch2_pij(4,3,131)=1 exch2_oi(3,131)=0 exch2_oj(3,131)=0 exch2_neighbourId(4,131)=130 exch2_iLo(4,131)=0 exch2_iHi(4,131)=0 exch2_jLo(4,131)=0 exch2_jHi(4,131)=86 exch2_opposingSend(4,131)=3 exch2_pij(1,4,131)=1 exch2_pij(2,4,131)=0 exch2_pij(3,4,131)=0 exch2_pij(4,4,131)=1 exch2_oi(4,131)=0 exch2_oj(4,131)=0 RETURN END SUBROUTINE W2_E2SETUP_132 C Topology for tile 132 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(132)=85 exch2_tNy(132)=85 exch2_tBasex(132)=425 exch2_tBasey(132)=255 exch2_txGlobalo(132)=1956 exch2_tyGlobalo(132)=256 exch2_isWedge(132)=0 exch2_isNedge(132)=0 exch2_isEedge(132)=1 exch2_isSedge(132)=0 exch2_myFace(132)=4 exch2_mydNx(132)=510 exch2_mydNy(132)=510 exch2_nNeighbours(132)=4 exch2_neighbourId(1,132)=138 exch2_iLo(1,132)=0 exch2_iHi(1,132)=86 exch2_jLo(1,132)=86 exch2_jHi(1,132)=86 exch2_opposingSend(1,132)=2 exch2_pij(1,1,132)=1 exch2_pij(2,1,132)=0 exch2_pij(3,1,132)=0 exch2_pij(4,1,132)=1 exch2_oi(1,132)=0 exch2_oj(1,132)=0 exch2_neighbourId(2,132)=126 exch2_iLo(2,132)=0 exch2_iHi(2,132)=86 exch2_jLo(2,132)=0 exch2_jHi(2,132)=0 exch2_opposingSend(2,132)=1 exch2_pij(1,2,132)=1 exch2_pij(2,2,132)=0 exch2_pij(3,2,132)=0 exch2_pij(4,2,132)=1 exch2_oi(2,132)=0 exch2_oj(2,132)=0 exch2_neighbourId(3,132)=183 exch2_iLo(3,132)=86 exch2_iHi(3,132)=86 exch2_jLo(3,132)=0 exch2_jHi(3,132)=86 exch2_opposingSend(3,132)=2 exch2_pij(1,3,132)=0 exch2_pij(2,3,132)=1 exch2_pij(3,3,132)=-1 exch2_pij(4,3,132)=0 exch2_oi(3,132)=510 exch2_oj(3,132)=511 exch2_neighbourId(4,132)=131 exch2_iLo(4,132)=0 exch2_iHi(4,132)=0 exch2_jLo(4,132)=0 exch2_jHi(4,132)=86 exch2_opposingSend(4,132)=3 exch2_pij(1,4,132)=1 exch2_pij(2,4,132)=0 exch2_pij(3,4,132)=0 exch2_pij(4,4,132)=1 exch2_oi(4,132)=0 exch2_oj(4,132)=0 RETURN END SUBROUTINE W2_E2SETUP_133 C Topology for tile 133 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(133)=85 exch2_tNy(133)=85 exch2_tBasex(133)=0 exch2_tBasey(133)=340 exch2_txGlobalo(133)=1531 exch2_tyGlobalo(133)=341 exch2_isWedge(133)=1 exch2_isNedge(133)=0 exch2_isEedge(133)=0 exch2_isSedge(133)=0 exch2_myFace(133)=4 exch2_mydNx(133)=510 exch2_mydNy(133)=510 exch2_nNeighbours(133)=4 exch2_neighbourId(1,133)=139 exch2_iLo(1,133)=0 exch2_iHi(1,133)=86 exch2_jLo(1,133)=86 exch2_jHi(1,133)=86 exch2_opposingSend(1,133)=2 exch2_pij(1,1,133)=1 exch2_pij(2,1,133)=0 exch2_pij(3,1,133)=0 exch2_pij(4,1,133)=1 exch2_oi(1,133)=0 exch2_oj(1,133)=0 exch2_neighbourId(2,133)=127 exch2_iLo(2,133)=0 exch2_iHi(2,133)=86 exch2_jLo(2,133)=0 exch2_jHi(2,133)=0 exch2_opposingSend(2,133)=1 exch2_pij(1,2,133)=1 exch2_pij(2,2,133)=0 exch2_pij(3,2,133)=0 exch2_pij(4,2,133)=1 exch2_oi(2,133)=0 exch2_oj(2,133)=0 exch2_neighbourId(3,133)=134 exch2_iLo(3,133)=86 exch2_iHi(3,133)=86 exch2_jLo(3,133)=0 exch2_jHi(3,133)=86 exch2_opposingSend(3,133)=4 exch2_pij(1,3,133)=1 exch2_pij(2,3,133)=0 exch2_pij(3,3,133)=0 exch2_pij(4,3,133)=1 exch2_oi(3,133)=0 exch2_oj(3,133)=0 exch2_neighbourId(4,133)=102 exch2_iLo(4,133)=0 exch2_iHi(4,133)=0 exch2_jLo(4,133)=0 exch2_jHi(4,133)=86 exch2_opposingSend(4,133)=3 exch2_pij(1,4,133)=1 exch2_pij(2,4,133)=0 exch2_pij(3,4,133)=0 exch2_pij(4,4,133)=1 exch2_oi(4,133)=-510 exch2_oj(4,133)=0 RETURN END SUBROUTINE W2_E2SETUP_134 C Topology for tile 134 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(134)=85 exch2_tNy(134)=85 exch2_tBasex(134)=85 exch2_tBasey(134)=340 exch2_txGlobalo(134)=1616 exch2_tyGlobalo(134)=341 exch2_isWedge(134)=0 exch2_isNedge(134)=0 exch2_isEedge(134)=0 exch2_isSedge(134)=0 exch2_myFace(134)=4 exch2_mydNx(134)=510 exch2_mydNy(134)=510 exch2_nNeighbours(134)=4 exch2_neighbourId(1,134)=140 exch2_iLo(1,134)=0 exch2_iHi(1,134)=86 exch2_jLo(1,134)=86 exch2_jHi(1,134)=86 exch2_opposingSend(1,134)=2 exch2_pij(1,1,134)=1 exch2_pij(2,1,134)=0 exch2_pij(3,1,134)=0 exch2_pij(4,1,134)=1 exch2_oi(1,134)=0 exch2_oj(1,134)=0 exch2_neighbourId(2,134)=128 exch2_iLo(2,134)=0 exch2_iHi(2,134)=86 exch2_jLo(2,134)=0 exch2_jHi(2,134)=0 exch2_opposingSend(2,134)=1 exch2_pij(1,2,134)=1 exch2_pij(2,2,134)=0 exch2_pij(3,2,134)=0 exch2_pij(4,2,134)=1 exch2_oi(2,134)=0 exch2_oj(2,134)=0 exch2_neighbourId(3,134)=135 exch2_iLo(3,134)=86 exch2_iHi(3,134)=86 exch2_jLo(3,134)=0 exch2_jHi(3,134)=86 exch2_opposingSend(3,134)=4 exch2_pij(1,3,134)=1 exch2_pij(2,3,134)=0 exch2_pij(3,3,134)=0 exch2_pij(4,3,134)=1 exch2_oi(3,134)=0 exch2_oj(3,134)=0 exch2_neighbourId(4,134)=133 exch2_iLo(4,134)=0 exch2_iHi(4,134)=0 exch2_jLo(4,134)=0 exch2_jHi(4,134)=86 exch2_opposingSend(4,134)=3 exch2_pij(1,4,134)=1 exch2_pij(2,4,134)=0 exch2_pij(3,4,134)=0 exch2_pij(4,4,134)=1 exch2_oi(4,134)=0 exch2_oj(4,134)=0 RETURN END SUBROUTINE W2_E2SETUP_135 C Topology for tile 135 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(135)=85 exch2_tNy(135)=85 exch2_tBasex(135)=170 exch2_tBasey(135)=340 exch2_txGlobalo(135)=1701 exch2_tyGlobalo(135)=341 exch2_isWedge(135)=0 exch2_isNedge(135)=0 exch2_isEedge(135)=0 exch2_isSedge(135)=0 exch2_myFace(135)=4 exch2_mydNx(135)=510 exch2_mydNy(135)=510 exch2_nNeighbours(135)=4 exch2_neighbourId(1,135)=141 exch2_iLo(1,135)=0 exch2_iHi(1,135)=86 exch2_jLo(1,135)=86 exch2_jHi(1,135)=86 exch2_opposingSend(1,135)=2 exch2_pij(1,1,135)=1 exch2_pij(2,1,135)=0 exch2_pij(3,1,135)=0 exch2_pij(4,1,135)=1 exch2_oi(1,135)=0 exch2_oj(1,135)=0 exch2_neighbourId(2,135)=129 exch2_iLo(2,135)=0 exch2_iHi(2,135)=86 exch2_jLo(2,135)=0 exch2_jHi(2,135)=0 exch2_opposingSend(2,135)=1 exch2_pij(1,2,135)=1 exch2_pij(2,2,135)=0 exch2_pij(3,2,135)=0 exch2_pij(4,2,135)=1 exch2_oi(2,135)=0 exch2_oj(2,135)=0 exch2_neighbourId(3,135)=136 exch2_iLo(3,135)=86 exch2_iHi(3,135)=86 exch2_jLo(3,135)=0 exch2_jHi(3,135)=86 exch2_opposingSend(3,135)=4 exch2_pij(1,3,135)=1 exch2_pij(2,3,135)=0 exch2_pij(3,3,135)=0 exch2_pij(4,3,135)=1 exch2_oi(3,135)=0 exch2_oj(3,135)=0 exch2_neighbourId(4,135)=134 exch2_iLo(4,135)=0 exch2_iHi(4,135)=0 exch2_jLo(4,135)=0 exch2_jHi(4,135)=86 exch2_opposingSend(4,135)=3 exch2_pij(1,4,135)=1 exch2_pij(2,4,135)=0 exch2_pij(3,4,135)=0 exch2_pij(4,4,135)=1 exch2_oi(4,135)=0 exch2_oj(4,135)=0 RETURN END SUBROUTINE W2_E2SETUP_136 C Topology for tile 136 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(136)=85 exch2_tNy(136)=85 exch2_tBasex(136)=255 exch2_tBasey(136)=340 exch2_txGlobalo(136)=1786 exch2_tyGlobalo(136)=341 exch2_isWedge(136)=0 exch2_isNedge(136)=0 exch2_isEedge(136)=0 exch2_isSedge(136)=0 exch2_myFace(136)=4 exch2_mydNx(136)=510 exch2_mydNy(136)=510 exch2_nNeighbours(136)=4 exch2_neighbourId(1,136)=142 exch2_iLo(1,136)=0 exch2_iHi(1,136)=86 exch2_jLo(1,136)=86 exch2_jHi(1,136)=86 exch2_opposingSend(1,136)=2 exch2_pij(1,1,136)=1 exch2_pij(2,1,136)=0 exch2_pij(3,1,136)=0 exch2_pij(4,1,136)=1 exch2_oi(1,136)=0 exch2_oj(1,136)=0 exch2_neighbourId(2,136)=130 exch2_iLo(2,136)=0 exch2_iHi(2,136)=86 exch2_jLo(2,136)=0 exch2_jHi(2,136)=0 exch2_opposingSend(2,136)=1 exch2_pij(1,2,136)=1 exch2_pij(2,2,136)=0 exch2_pij(3,2,136)=0 exch2_pij(4,2,136)=1 exch2_oi(2,136)=0 exch2_oj(2,136)=0 exch2_neighbourId(3,136)=137 exch2_iLo(3,136)=86 exch2_iHi(3,136)=86 exch2_jLo(3,136)=0 exch2_jHi(3,136)=86 exch2_opposingSend(3,136)=4 exch2_pij(1,3,136)=1 exch2_pij(2,3,136)=0 exch2_pij(3,3,136)=0 exch2_pij(4,3,136)=1 exch2_oi(3,136)=0 exch2_oj(3,136)=0 exch2_neighbourId(4,136)=135 exch2_iLo(4,136)=0 exch2_iHi(4,136)=0 exch2_jLo(4,136)=0 exch2_jHi(4,136)=86 exch2_opposingSend(4,136)=3 exch2_pij(1,4,136)=1 exch2_pij(2,4,136)=0 exch2_pij(3,4,136)=0 exch2_pij(4,4,136)=1 exch2_oi(4,136)=0 exch2_oj(4,136)=0 RETURN END SUBROUTINE W2_E2SETUP_137 C Topology for tile 137 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(137)=85 exch2_tNy(137)=85 exch2_tBasex(137)=340 exch2_tBasey(137)=340 exch2_txGlobalo(137)=1871 exch2_tyGlobalo(137)=341 exch2_isWedge(137)=0 exch2_isNedge(137)=0 exch2_isEedge(137)=0 exch2_isSedge(137)=0 exch2_myFace(137)=4 exch2_mydNx(137)=510 exch2_mydNy(137)=510 exch2_nNeighbours(137)=4 exch2_neighbourId(1,137)=143 exch2_iLo(1,137)=0 exch2_iHi(1,137)=86 exch2_jLo(1,137)=86 exch2_jHi(1,137)=86 exch2_opposingSend(1,137)=2 exch2_pij(1,1,137)=1 exch2_pij(2,1,137)=0 exch2_pij(3,1,137)=0 exch2_pij(4,1,137)=1 exch2_oi(1,137)=0 exch2_oj(1,137)=0 exch2_neighbourId(2,137)=131 exch2_iLo(2,137)=0 exch2_iHi(2,137)=86 exch2_jLo(2,137)=0 exch2_jHi(2,137)=0 exch2_opposingSend(2,137)=1 exch2_pij(1,2,137)=1 exch2_pij(2,2,137)=0 exch2_pij(3,2,137)=0 exch2_pij(4,2,137)=1 exch2_oi(2,137)=0 exch2_oj(2,137)=0 exch2_neighbourId(3,137)=138 exch2_iLo(3,137)=86 exch2_iHi(3,137)=86 exch2_jLo(3,137)=0 exch2_jHi(3,137)=86 exch2_opposingSend(3,137)=4 exch2_pij(1,3,137)=1 exch2_pij(2,3,137)=0 exch2_pij(3,3,137)=0 exch2_pij(4,3,137)=1 exch2_oi(3,137)=0 exch2_oj(3,137)=0 exch2_neighbourId(4,137)=136 exch2_iLo(4,137)=0 exch2_iHi(4,137)=0 exch2_jLo(4,137)=0 exch2_jHi(4,137)=86 exch2_opposingSend(4,137)=3 exch2_pij(1,4,137)=1 exch2_pij(2,4,137)=0 exch2_pij(3,4,137)=0 exch2_pij(4,4,137)=1 exch2_oi(4,137)=0 exch2_oj(4,137)=0 RETURN END SUBROUTINE W2_E2SETUP_138 C Topology for tile 138 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(138)=85 exch2_tNy(138)=85 exch2_tBasex(138)=425 exch2_tBasey(138)=340 exch2_txGlobalo(138)=1956 exch2_tyGlobalo(138)=341 exch2_isWedge(138)=0 exch2_isNedge(138)=0 exch2_isEedge(138)=1 exch2_isSedge(138)=0 exch2_myFace(138)=4 exch2_mydNx(138)=510 exch2_mydNy(138)=510 exch2_nNeighbours(138)=4 exch2_neighbourId(1,138)=144 exch2_iLo(1,138)=0 exch2_iHi(1,138)=86 exch2_jLo(1,138)=86 exch2_jHi(1,138)=86 exch2_opposingSend(1,138)=2 exch2_pij(1,1,138)=1 exch2_pij(2,1,138)=0 exch2_pij(3,1,138)=0 exch2_pij(4,1,138)=1 exch2_oi(1,138)=0 exch2_oj(1,138)=0 exch2_neighbourId(2,138)=132 exch2_iLo(2,138)=0 exch2_iHi(2,138)=86 exch2_jLo(2,138)=0 exch2_jHi(2,138)=0 exch2_opposingSend(2,138)=1 exch2_pij(1,2,138)=1 exch2_pij(2,2,138)=0 exch2_pij(3,2,138)=0 exch2_pij(4,2,138)=1 exch2_oi(2,138)=0 exch2_oj(2,138)=0 exch2_neighbourId(3,138)=182 exch2_iLo(3,138)=86 exch2_iHi(3,138)=86 exch2_jLo(3,138)=0 exch2_jHi(3,138)=86 exch2_opposingSend(3,138)=2 exch2_pij(1,3,138)=0 exch2_pij(2,3,138)=1 exch2_pij(3,3,138)=-1 exch2_pij(4,3,138)=0 exch2_oi(3,138)=510 exch2_oj(3,138)=511 exch2_neighbourId(4,138)=137 exch2_iLo(4,138)=0 exch2_iHi(4,138)=0 exch2_jLo(4,138)=0 exch2_jHi(4,138)=86 exch2_opposingSend(4,138)=3 exch2_pij(1,4,138)=1 exch2_pij(2,4,138)=0 exch2_pij(3,4,138)=0 exch2_pij(4,4,138)=1 exch2_oi(4,138)=0 exch2_oj(4,138)=0 RETURN END SUBROUTINE W2_E2SETUP_139 C Topology for tile 139 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(139)=85 exch2_tNy(139)=85 exch2_tBasex(139)=0 exch2_tBasey(139)=425 exch2_txGlobalo(139)=1531 exch2_tyGlobalo(139)=426 exch2_isWedge(139)=1 exch2_isNedge(139)=1 exch2_isEedge(139)=0 exch2_isSedge(139)=0 exch2_myFace(139)=4 exch2_mydNx(139)=510 exch2_mydNy(139)=510 exch2_nNeighbours(139)=4 exch2_neighbourId(1,139)=145 exch2_iLo(1,139)=0 exch2_iHi(1,139)=86 exch2_jLo(1,139)=86 exch2_jHi(1,139)=86 exch2_opposingSend(1,139)=2 exch2_pij(1,1,139)=1 exch2_pij(2,1,139)=0 exch2_pij(3,1,139)=0 exch2_pij(4,1,139)=1 exch2_oi(1,139)=0 exch2_oj(1,139)=510 exch2_neighbourId(2,139)=133 exch2_iLo(2,139)=0 exch2_iHi(2,139)=86 exch2_jLo(2,139)=0 exch2_jHi(2,139)=0 exch2_opposingSend(2,139)=1 exch2_pij(1,2,139)=1 exch2_pij(2,2,139)=0 exch2_pij(3,2,139)=0 exch2_pij(4,2,139)=1 exch2_oi(2,139)=0 exch2_oj(2,139)=0 exch2_neighbourId(3,139)=140 exch2_iLo(3,139)=86 exch2_iHi(3,139)=86 exch2_jLo(3,139)=0 exch2_jHi(3,139)=86 exch2_opposingSend(3,139)=4 exch2_pij(1,3,139)=1 exch2_pij(2,3,139)=0 exch2_pij(3,3,139)=0 exch2_pij(4,3,139)=1 exch2_oi(3,139)=0 exch2_oj(3,139)=0 exch2_neighbourId(4,139)=108 exch2_iLo(4,139)=0 exch2_iHi(4,139)=0 exch2_jLo(4,139)=0 exch2_jHi(4,139)=86 exch2_opposingSend(4,139)=3 exch2_pij(1,4,139)=1 exch2_pij(2,4,139)=0 exch2_pij(3,4,139)=0 exch2_pij(4,4,139)=1 exch2_oi(4,139)=-510 exch2_oj(4,139)=0 RETURN END SUBROUTINE W2_E2SETUP_140 C Topology for tile 140 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(140)=85 exch2_tNy(140)=85 exch2_tBasex(140)=85 exch2_tBasey(140)=425 exch2_txGlobalo(140)=1616 exch2_tyGlobalo(140)=426 exch2_isWedge(140)=0 exch2_isNedge(140)=1 exch2_isEedge(140)=0 exch2_isSedge(140)=0 exch2_myFace(140)=4 exch2_mydNx(140)=510 exch2_mydNy(140)=510 exch2_nNeighbours(140)=4 exch2_neighbourId(1,140)=146 exch2_iLo(1,140)=0 exch2_iHi(1,140)=86 exch2_jLo(1,140)=86 exch2_jHi(1,140)=86 exch2_opposingSend(1,140)=2 exch2_pij(1,1,140)=1 exch2_pij(2,1,140)=0 exch2_pij(3,1,140)=0 exch2_pij(4,1,140)=1 exch2_oi(1,140)=0 exch2_oj(1,140)=510 exch2_neighbourId(2,140)=134 exch2_iLo(2,140)=0 exch2_iHi(2,140)=86 exch2_jLo(2,140)=0 exch2_jHi(2,140)=0 exch2_opposingSend(2,140)=1 exch2_pij(1,2,140)=1 exch2_pij(2,2,140)=0 exch2_pij(3,2,140)=0 exch2_pij(4,2,140)=1 exch2_oi(2,140)=0 exch2_oj(2,140)=0 exch2_neighbourId(3,140)=141 exch2_iLo(3,140)=86 exch2_iHi(3,140)=86 exch2_jLo(3,140)=0 exch2_jHi(3,140)=86 exch2_opposingSend(3,140)=4 exch2_pij(1,3,140)=1 exch2_pij(2,3,140)=0 exch2_pij(3,3,140)=0 exch2_pij(4,3,140)=1 exch2_oi(3,140)=0 exch2_oj(3,140)=0 exch2_neighbourId(4,140)=139 exch2_iLo(4,140)=0 exch2_iHi(4,140)=0 exch2_jLo(4,140)=0 exch2_jHi(4,140)=86 exch2_opposingSend(4,140)=3 exch2_pij(1,4,140)=1 exch2_pij(2,4,140)=0 exch2_pij(3,4,140)=0 exch2_pij(4,4,140)=1 exch2_oi(4,140)=0 exch2_oj(4,140)=0 RETURN END SUBROUTINE W2_E2SETUP_141 C Topology for tile 141 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(141)=85 exch2_tNy(141)=85 exch2_tBasex(141)=170 exch2_tBasey(141)=425 exch2_txGlobalo(141)=1701 exch2_tyGlobalo(141)=426 exch2_isWedge(141)=0 exch2_isNedge(141)=1 exch2_isEedge(141)=0 exch2_isSedge(141)=0 exch2_myFace(141)=4 exch2_mydNx(141)=510 exch2_mydNy(141)=510 exch2_nNeighbours(141)=4 exch2_neighbourId(1,141)=147 exch2_iLo(1,141)=0 exch2_iHi(1,141)=86 exch2_jLo(1,141)=86 exch2_jHi(1,141)=86 exch2_opposingSend(1,141)=2 exch2_pij(1,1,141)=1 exch2_pij(2,1,141)=0 exch2_pij(3,1,141)=0 exch2_pij(4,1,141)=1 exch2_oi(1,141)=0 exch2_oj(1,141)=510 exch2_neighbourId(2,141)=135 exch2_iLo(2,141)=0 exch2_iHi(2,141)=86 exch2_jLo(2,141)=0 exch2_jHi(2,141)=0 exch2_opposingSend(2,141)=1 exch2_pij(1,2,141)=1 exch2_pij(2,2,141)=0 exch2_pij(3,2,141)=0 exch2_pij(4,2,141)=1 exch2_oi(2,141)=0 exch2_oj(2,141)=0 exch2_neighbourId(3,141)=142 exch2_iLo(3,141)=86 exch2_iHi(3,141)=86 exch2_jLo(3,141)=0 exch2_jHi(3,141)=86 exch2_opposingSend(3,141)=4 exch2_pij(1,3,141)=1 exch2_pij(2,3,141)=0 exch2_pij(3,3,141)=0 exch2_pij(4,3,141)=1 exch2_oi(3,141)=0 exch2_oj(3,141)=0 exch2_neighbourId(4,141)=140 exch2_iLo(4,141)=0 exch2_iHi(4,141)=0 exch2_jLo(4,141)=0 exch2_jHi(4,141)=86 exch2_opposingSend(4,141)=3 exch2_pij(1,4,141)=1 exch2_pij(2,4,141)=0 exch2_pij(3,4,141)=0 exch2_pij(4,4,141)=1 exch2_oi(4,141)=0 exch2_oj(4,141)=0 RETURN END SUBROUTINE W2_E2SETUP_142 C Topology for tile 142 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(142)=85 exch2_tNy(142)=85 exch2_tBasex(142)=255 exch2_tBasey(142)=425 exch2_txGlobalo(142)=1786 exch2_tyGlobalo(142)=426 exch2_isWedge(142)=0 exch2_isNedge(142)=1 exch2_isEedge(142)=0 exch2_isSedge(142)=0 exch2_myFace(142)=4 exch2_mydNx(142)=510 exch2_mydNy(142)=510 exch2_nNeighbours(142)=4 exch2_neighbourId(1,142)=148 exch2_iLo(1,142)=0 exch2_iHi(1,142)=86 exch2_jLo(1,142)=86 exch2_jHi(1,142)=86 exch2_opposingSend(1,142)=2 exch2_pij(1,1,142)=1 exch2_pij(2,1,142)=0 exch2_pij(3,1,142)=0 exch2_pij(4,1,142)=1 exch2_oi(1,142)=0 exch2_oj(1,142)=510 exch2_neighbourId(2,142)=136 exch2_iLo(2,142)=0 exch2_iHi(2,142)=86 exch2_jLo(2,142)=0 exch2_jHi(2,142)=0 exch2_opposingSend(2,142)=1 exch2_pij(1,2,142)=1 exch2_pij(2,2,142)=0 exch2_pij(3,2,142)=0 exch2_pij(4,2,142)=1 exch2_oi(2,142)=0 exch2_oj(2,142)=0 exch2_neighbourId(3,142)=143 exch2_iLo(3,142)=86 exch2_iHi(3,142)=86 exch2_jLo(3,142)=0 exch2_jHi(3,142)=86 exch2_opposingSend(3,142)=4 exch2_pij(1,3,142)=1 exch2_pij(2,3,142)=0 exch2_pij(3,3,142)=0 exch2_pij(4,3,142)=1 exch2_oi(3,142)=0 exch2_oj(3,142)=0 exch2_neighbourId(4,142)=141 exch2_iLo(4,142)=0 exch2_iHi(4,142)=0 exch2_jLo(4,142)=0 exch2_jHi(4,142)=86 exch2_opposingSend(4,142)=3 exch2_pij(1,4,142)=1 exch2_pij(2,4,142)=0 exch2_pij(3,4,142)=0 exch2_pij(4,4,142)=1 exch2_oi(4,142)=0 exch2_oj(4,142)=0 RETURN END SUBROUTINE W2_E2SETUP_143 C Topology for tile 143 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(143)=85 exch2_tNy(143)=85 exch2_tBasex(143)=340 exch2_tBasey(143)=425 exch2_txGlobalo(143)=1871 exch2_tyGlobalo(143)=426 exch2_isWedge(143)=0 exch2_isNedge(143)=1 exch2_isEedge(143)=0 exch2_isSedge(143)=0 exch2_myFace(143)=4 exch2_mydNx(143)=510 exch2_mydNy(143)=510 exch2_nNeighbours(143)=4 exch2_neighbourId(1,143)=149 exch2_iLo(1,143)=0 exch2_iHi(1,143)=86 exch2_jLo(1,143)=86 exch2_jHi(1,143)=86 exch2_opposingSend(1,143)=2 exch2_pij(1,1,143)=1 exch2_pij(2,1,143)=0 exch2_pij(3,1,143)=0 exch2_pij(4,1,143)=1 exch2_oi(1,143)=0 exch2_oj(1,143)=510 exch2_neighbourId(2,143)=137 exch2_iLo(2,143)=0 exch2_iHi(2,143)=86 exch2_jLo(2,143)=0 exch2_jHi(2,143)=0 exch2_opposingSend(2,143)=1 exch2_pij(1,2,143)=1 exch2_pij(2,2,143)=0 exch2_pij(3,2,143)=0 exch2_pij(4,2,143)=1 exch2_oi(2,143)=0 exch2_oj(2,143)=0 exch2_neighbourId(3,143)=144 exch2_iLo(3,143)=86 exch2_iHi(3,143)=86 exch2_jLo(3,143)=0 exch2_jHi(3,143)=86 exch2_opposingSend(3,143)=4 exch2_pij(1,3,143)=1 exch2_pij(2,3,143)=0 exch2_pij(3,3,143)=0 exch2_pij(4,3,143)=1 exch2_oi(3,143)=0 exch2_oj(3,143)=0 exch2_neighbourId(4,143)=142 exch2_iLo(4,143)=0 exch2_iHi(4,143)=0 exch2_jLo(4,143)=0 exch2_jHi(4,143)=86 exch2_opposingSend(4,143)=3 exch2_pij(1,4,143)=1 exch2_pij(2,4,143)=0 exch2_pij(3,4,143)=0 exch2_pij(4,4,143)=1 exch2_oi(4,143)=0 exch2_oj(4,143)=0 RETURN END SUBROUTINE W2_E2SETUP_144 C Topology for tile 144 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(144)=85 exch2_tNy(144)=85 exch2_tBasex(144)=425 exch2_tBasey(144)=425 exch2_txGlobalo(144)=1956 exch2_tyGlobalo(144)=426 exch2_isWedge(144)=0 exch2_isNedge(144)=1 exch2_isEedge(144)=1 exch2_isSedge(144)=0 exch2_myFace(144)=4 exch2_mydNx(144)=510 exch2_mydNy(144)=510 exch2_nNeighbours(144)=4 exch2_neighbourId(1,144)=150 exch2_iLo(1,144)=0 exch2_iHi(1,144)=86 exch2_jLo(1,144)=86 exch2_jHi(1,144)=86 exch2_opposingSend(1,144)=2 exch2_pij(1,1,144)=1 exch2_pij(2,1,144)=0 exch2_pij(3,1,144)=0 exch2_pij(4,1,144)=1 exch2_oi(1,144)=0 exch2_oj(1,144)=510 exch2_neighbourId(2,144)=138 exch2_iLo(2,144)=0 exch2_iHi(2,144)=86 exch2_jLo(2,144)=0 exch2_jHi(2,144)=0 exch2_opposingSend(2,144)=1 exch2_pij(1,2,144)=1 exch2_pij(2,2,144)=0 exch2_pij(3,2,144)=0 exch2_pij(4,2,144)=1 exch2_oi(2,144)=0 exch2_oj(2,144)=0 exch2_neighbourId(3,144)=181 exch2_iLo(3,144)=86 exch2_iHi(3,144)=86 exch2_jLo(3,144)=0 exch2_jHi(3,144)=86 exch2_opposingSend(3,144)=2 exch2_pij(1,3,144)=0 exch2_pij(2,3,144)=1 exch2_pij(3,3,144)=-1 exch2_pij(4,3,144)=0 exch2_oi(3,144)=510 exch2_oj(3,144)=511 exch2_neighbourId(4,144)=143 exch2_iLo(4,144)=0 exch2_iHi(4,144)=0 exch2_jLo(4,144)=0 exch2_jHi(4,144)=86 exch2_opposingSend(4,144)=3 exch2_pij(1,4,144)=1 exch2_pij(2,4,144)=0 exch2_pij(3,4,144)=0 exch2_pij(4,4,144)=1 exch2_oi(4,144)=0 exch2_oj(4,144)=0 RETURN END SUBROUTINE W2_E2SETUP_145 C Topology for tile 145 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(145)=85 exch2_tNy(145)=85 exch2_tBasex(145)=0 exch2_tBasey(145)=0 exch2_txGlobalo(145)=2041 exch2_tyGlobalo(145)=1 exch2_isWedge(145)=1 exch2_isNedge(145)=0 exch2_isEedge(145)=0 exch2_isSedge(145)=1 exch2_myFace(145)=5 exch2_mydNx(145)=510 exch2_mydNy(145)=510 exch2_nNeighbours(145)=4 exch2_neighbourId(1,145)=151 exch2_iLo(1,145)=0 exch2_iHi(1,145)=86 exch2_jLo(1,145)=86 exch2_jHi(1,145)=86 exch2_opposingSend(1,145)=2 exch2_pij(1,1,145)=1 exch2_pij(2,1,145)=0 exch2_pij(3,1,145)=0 exch2_pij(4,1,145)=1 exch2_oi(1,145)=0 exch2_oj(1,145)=0 exch2_neighbourId(2,145)=139 exch2_iLo(2,145)=0 exch2_iHi(2,145)=86 exch2_jLo(2,145)=0 exch2_jHi(2,145)=0 exch2_opposingSend(2,145)=1 exch2_pij(1,2,145)=1 exch2_pij(2,2,145)=0 exch2_pij(3,2,145)=0 exch2_pij(4,2,145)=1 exch2_oi(2,145)=0 exch2_oj(2,145)=-510 exch2_neighbourId(3,145)=146 exch2_iLo(3,145)=86 exch2_iHi(3,145)=86 exch2_jLo(3,145)=0 exch2_jHi(3,145)=86 exch2_opposingSend(3,145)=4 exch2_pij(1,3,145)=1 exch2_pij(2,3,145)=0 exch2_pij(3,3,145)=0 exch2_pij(4,3,145)=1 exch2_oi(3,145)=0 exch2_oj(3,145)=0 exch2_neighbourId(4,145)=108 exch2_iLo(4,145)=0 exch2_iHi(4,145)=0 exch2_jLo(4,145)=0 exch2_jHi(4,145)=86 exch2_opposingSend(4,145)=1 exch2_pij(1,4,145)=0 exch2_pij(2,4,145)=1 exch2_pij(3,4,145)=-1 exch2_pij(4,4,145)=0 exch2_oi(4,145)=-510 exch2_oj(4,145)=511 RETURN END SUBROUTINE W2_E2SETUP_146 C Topology for tile 146 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(146)=85 exch2_tNy(146)=85 exch2_tBasex(146)=85 exch2_tBasey(146)=0 exch2_txGlobalo(146)=2126 exch2_tyGlobalo(146)=1 exch2_isWedge(146)=0 exch2_isNedge(146)=0 exch2_isEedge(146)=0 exch2_isSedge(146)=1 exch2_myFace(146)=5 exch2_mydNx(146)=510 exch2_mydNy(146)=510 exch2_nNeighbours(146)=4 exch2_neighbourId(1,146)=152 exch2_iLo(1,146)=0 exch2_iHi(1,146)=86 exch2_jLo(1,146)=86 exch2_jHi(1,146)=86 exch2_opposingSend(1,146)=2 exch2_pij(1,1,146)=1 exch2_pij(2,1,146)=0 exch2_pij(3,1,146)=0 exch2_pij(4,1,146)=1 exch2_oi(1,146)=0 exch2_oj(1,146)=0 exch2_neighbourId(2,146)=140 exch2_iLo(2,146)=0 exch2_iHi(2,146)=86 exch2_jLo(2,146)=0 exch2_jHi(2,146)=0 exch2_opposingSend(2,146)=1 exch2_pij(1,2,146)=1 exch2_pij(2,2,146)=0 exch2_pij(3,2,146)=0 exch2_pij(4,2,146)=1 exch2_oi(2,146)=0 exch2_oj(2,146)=-510 exch2_neighbourId(3,146)=147 exch2_iLo(3,146)=86 exch2_iHi(3,146)=86 exch2_jLo(3,146)=0 exch2_jHi(3,146)=86 exch2_opposingSend(3,146)=4 exch2_pij(1,3,146)=1 exch2_pij(2,3,146)=0 exch2_pij(3,3,146)=0 exch2_pij(4,3,146)=1 exch2_oi(3,146)=0 exch2_oj(3,146)=0 exch2_neighbourId(4,146)=145 exch2_iLo(4,146)=0 exch2_iHi(4,146)=0 exch2_jLo(4,146)=0 exch2_jHi(4,146)=86 exch2_opposingSend(4,146)=3 exch2_pij(1,4,146)=1 exch2_pij(2,4,146)=0 exch2_pij(3,4,146)=0 exch2_pij(4,4,146)=1 exch2_oi(4,146)=0 exch2_oj(4,146)=0 RETURN END SUBROUTINE W2_E2SETUP_147 C Topology for tile 147 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(147)=85 exch2_tNy(147)=85 exch2_tBasex(147)=170 exch2_tBasey(147)=0 exch2_txGlobalo(147)=2211 exch2_tyGlobalo(147)=1 exch2_isWedge(147)=0 exch2_isNedge(147)=0 exch2_isEedge(147)=0 exch2_isSedge(147)=1 exch2_myFace(147)=5 exch2_mydNx(147)=510 exch2_mydNy(147)=510 exch2_nNeighbours(147)=4 exch2_neighbourId(1,147)=153 exch2_iLo(1,147)=0 exch2_iHi(1,147)=86 exch2_jLo(1,147)=86 exch2_jHi(1,147)=86 exch2_opposingSend(1,147)=2 exch2_pij(1,1,147)=1 exch2_pij(2,1,147)=0 exch2_pij(3,1,147)=0 exch2_pij(4,1,147)=1 exch2_oi(1,147)=0 exch2_oj(1,147)=0 exch2_neighbourId(2,147)=141 exch2_iLo(2,147)=0 exch2_iHi(2,147)=86 exch2_jLo(2,147)=0 exch2_jHi(2,147)=0 exch2_opposingSend(2,147)=1 exch2_pij(1,2,147)=1 exch2_pij(2,2,147)=0 exch2_pij(3,2,147)=0 exch2_pij(4,2,147)=1 exch2_oi(2,147)=0 exch2_oj(2,147)=-510 exch2_neighbourId(3,147)=148 exch2_iLo(3,147)=86 exch2_iHi(3,147)=86 exch2_jLo(3,147)=0 exch2_jHi(3,147)=86 exch2_opposingSend(3,147)=4 exch2_pij(1,3,147)=1 exch2_pij(2,3,147)=0 exch2_pij(3,3,147)=0 exch2_pij(4,3,147)=1 exch2_oi(3,147)=0 exch2_oj(3,147)=0 exch2_neighbourId(4,147)=146 exch2_iLo(4,147)=0 exch2_iHi(4,147)=0 exch2_jLo(4,147)=0 exch2_jHi(4,147)=86 exch2_opposingSend(4,147)=3 exch2_pij(1,4,147)=1 exch2_pij(2,4,147)=0 exch2_pij(3,4,147)=0 exch2_pij(4,4,147)=1 exch2_oi(4,147)=0 exch2_oj(4,147)=0 RETURN END SUBROUTINE W2_E2SETUP_148 C Topology for tile 148 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(148)=85 exch2_tNy(148)=85 exch2_tBasex(148)=255 exch2_tBasey(148)=0 exch2_txGlobalo(148)=2296 exch2_tyGlobalo(148)=1 exch2_isWedge(148)=0 exch2_isNedge(148)=0 exch2_isEedge(148)=0 exch2_isSedge(148)=1 exch2_myFace(148)=5 exch2_mydNx(148)=510 exch2_mydNy(148)=510 exch2_nNeighbours(148)=4 exch2_neighbourId(1,148)=154 exch2_iLo(1,148)=0 exch2_iHi(1,148)=86 exch2_jLo(1,148)=86 exch2_jHi(1,148)=86 exch2_opposingSend(1,148)=2 exch2_pij(1,1,148)=1 exch2_pij(2,1,148)=0 exch2_pij(3,1,148)=0 exch2_pij(4,1,148)=1 exch2_oi(1,148)=0 exch2_oj(1,148)=0 exch2_neighbourId(2,148)=142 exch2_iLo(2,148)=0 exch2_iHi(2,148)=86 exch2_jLo(2,148)=0 exch2_jHi(2,148)=0 exch2_opposingSend(2,148)=1 exch2_pij(1,2,148)=1 exch2_pij(2,2,148)=0 exch2_pij(3,2,148)=0 exch2_pij(4,2,148)=1 exch2_oi(2,148)=0 exch2_oj(2,148)=-510 exch2_neighbourId(3,148)=149 exch2_iLo(3,148)=86 exch2_iHi(3,148)=86 exch2_jLo(3,148)=0 exch2_jHi(3,148)=86 exch2_opposingSend(3,148)=4 exch2_pij(1,3,148)=1 exch2_pij(2,3,148)=0 exch2_pij(3,3,148)=0 exch2_pij(4,3,148)=1 exch2_oi(3,148)=0 exch2_oj(3,148)=0 exch2_neighbourId(4,148)=147 exch2_iLo(4,148)=0 exch2_iHi(4,148)=0 exch2_jLo(4,148)=0 exch2_jHi(4,148)=86 exch2_opposingSend(4,148)=3 exch2_pij(1,4,148)=1 exch2_pij(2,4,148)=0 exch2_pij(3,4,148)=0 exch2_pij(4,4,148)=1 exch2_oi(4,148)=0 exch2_oj(4,148)=0 RETURN END SUBROUTINE W2_E2SETUP_149 C Topology for tile 149 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(149)=85 exch2_tNy(149)=85 exch2_tBasex(149)=340 exch2_tBasey(149)=0 exch2_txGlobalo(149)=2381 exch2_tyGlobalo(149)=1 exch2_isWedge(149)=0 exch2_isNedge(149)=0 exch2_isEedge(149)=0 exch2_isSedge(149)=1 exch2_myFace(149)=5 exch2_mydNx(149)=510 exch2_mydNy(149)=510 exch2_nNeighbours(149)=4 exch2_neighbourId(1,149)=155 exch2_iLo(1,149)=0 exch2_iHi(1,149)=86 exch2_jLo(1,149)=86 exch2_jHi(1,149)=86 exch2_opposingSend(1,149)=2 exch2_pij(1,1,149)=1 exch2_pij(2,1,149)=0 exch2_pij(3,1,149)=0 exch2_pij(4,1,149)=1 exch2_oi(1,149)=0 exch2_oj(1,149)=0 exch2_neighbourId(2,149)=143 exch2_iLo(2,149)=0 exch2_iHi(2,149)=86 exch2_jLo(2,149)=0 exch2_jHi(2,149)=0 exch2_opposingSend(2,149)=1 exch2_pij(1,2,149)=1 exch2_pij(2,2,149)=0 exch2_pij(3,2,149)=0 exch2_pij(4,2,149)=1 exch2_oi(2,149)=0 exch2_oj(2,149)=-510 exch2_neighbourId(3,149)=150 exch2_iLo(3,149)=86 exch2_iHi(3,149)=86 exch2_jLo(3,149)=0 exch2_jHi(3,149)=86 exch2_opposingSend(3,149)=4 exch2_pij(1,3,149)=1 exch2_pij(2,3,149)=0 exch2_pij(3,3,149)=0 exch2_pij(4,3,149)=1 exch2_oi(3,149)=0 exch2_oj(3,149)=0 exch2_neighbourId(4,149)=148 exch2_iLo(4,149)=0 exch2_iHi(4,149)=0 exch2_jLo(4,149)=0 exch2_jHi(4,149)=86 exch2_opposingSend(4,149)=3 exch2_pij(1,4,149)=1 exch2_pij(2,4,149)=0 exch2_pij(3,4,149)=0 exch2_pij(4,4,149)=1 exch2_oi(4,149)=0 exch2_oj(4,149)=0 RETURN END SUBROUTINE W2_E2SETUP_150 C Topology for tile 150 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(150)=85 exch2_tNy(150)=85 exch2_tBasex(150)=425 exch2_tBasey(150)=0 exch2_txGlobalo(150)=2466 exch2_tyGlobalo(150)=1 exch2_isWedge(150)=0 exch2_isNedge(150)=0 exch2_isEedge(150)=1 exch2_isSedge(150)=1 exch2_myFace(150)=5 exch2_mydNx(150)=510 exch2_mydNy(150)=510 exch2_nNeighbours(150)=4 exch2_neighbourId(1,150)=156 exch2_iLo(1,150)=0 exch2_iHi(1,150)=86 exch2_jLo(1,150)=86 exch2_jHi(1,150)=86 exch2_opposingSend(1,150)=2 exch2_pij(1,1,150)=1 exch2_pij(2,1,150)=0 exch2_pij(3,1,150)=0 exch2_pij(4,1,150)=1 exch2_oi(1,150)=0 exch2_oj(1,150)=0 exch2_neighbourId(2,150)=144 exch2_iLo(2,150)=0 exch2_iHi(2,150)=86 exch2_jLo(2,150)=0 exch2_jHi(2,150)=0 exch2_opposingSend(2,150)=1 exch2_pij(1,2,150)=1 exch2_pij(2,2,150)=0 exch2_pij(3,2,150)=0 exch2_pij(4,2,150)=1 exch2_oi(2,150)=0 exch2_oj(2,150)=-510 exch2_neighbourId(3,150)=181 exch2_iLo(3,150)=86 exch2_iHi(3,150)=86 exch2_jLo(3,150)=0 exch2_jHi(3,150)=86 exch2_opposingSend(3,150)=4 exch2_pij(1,3,150)=1 exch2_pij(2,3,150)=0 exch2_pij(3,3,150)=0 exch2_pij(4,3,150)=1 exch2_oi(3,150)=510 exch2_oj(3,150)=0 exch2_neighbourId(4,150)=149 exch2_iLo(4,150)=0 exch2_iHi(4,150)=0 exch2_jLo(4,150)=0 exch2_jHi(4,150)=86 exch2_opposingSend(4,150)=3 exch2_pij(1,4,150)=1 exch2_pij(2,4,150)=0 exch2_pij(3,4,150)=0 exch2_pij(4,4,150)=1 exch2_oi(4,150)=0 exch2_oj(4,150)=0 RETURN END SUBROUTINE W2_E2SETUP_151 C Topology for tile 151 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(151)=85 exch2_tNy(151)=85 exch2_tBasex(151)=0 exch2_tBasey(151)=85 exch2_txGlobalo(151)=2041 exch2_tyGlobalo(151)=86 exch2_isWedge(151)=1 exch2_isNedge(151)=0 exch2_isEedge(151)=0 exch2_isSedge(151)=0 exch2_myFace(151)=5 exch2_mydNx(151)=510 exch2_mydNy(151)=510 exch2_nNeighbours(151)=4 exch2_neighbourId(1,151)=157 exch2_iLo(1,151)=0 exch2_iHi(1,151)=86 exch2_jLo(1,151)=86 exch2_jHi(1,151)=86 exch2_opposingSend(1,151)=2 exch2_pij(1,1,151)=1 exch2_pij(2,1,151)=0 exch2_pij(3,1,151)=0 exch2_pij(4,1,151)=1 exch2_oi(1,151)=0 exch2_oj(1,151)=0 exch2_neighbourId(2,151)=145 exch2_iLo(2,151)=0 exch2_iHi(2,151)=86 exch2_jLo(2,151)=0 exch2_jHi(2,151)=0 exch2_opposingSend(2,151)=1 exch2_pij(1,2,151)=1 exch2_pij(2,2,151)=0 exch2_pij(3,2,151)=0 exch2_pij(4,2,151)=1 exch2_oi(2,151)=0 exch2_oj(2,151)=0 exch2_neighbourId(3,151)=152 exch2_iLo(3,151)=86 exch2_iHi(3,151)=86 exch2_jLo(3,151)=0 exch2_jHi(3,151)=86 exch2_opposingSend(3,151)=4 exch2_pij(1,3,151)=1 exch2_pij(2,3,151)=0 exch2_pij(3,3,151)=0 exch2_pij(4,3,151)=1 exch2_oi(3,151)=0 exch2_oj(3,151)=0 exch2_neighbourId(4,151)=107 exch2_iLo(4,151)=0 exch2_iHi(4,151)=0 exch2_jLo(4,151)=0 exch2_jHi(4,151)=86 exch2_opposingSend(4,151)=1 exch2_pij(1,4,151)=0 exch2_pij(2,4,151)=1 exch2_pij(3,4,151)=-1 exch2_pij(4,4,151)=0 exch2_oi(4,151)=-510 exch2_oj(4,151)=511 RETURN END SUBROUTINE W2_E2SETUP_152 C Topology for tile 152 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(152)=85 exch2_tNy(152)=85 exch2_tBasex(152)=85 exch2_tBasey(152)=85 exch2_txGlobalo(152)=2126 exch2_tyGlobalo(152)=86 exch2_isWedge(152)=0 exch2_isNedge(152)=0 exch2_isEedge(152)=0 exch2_isSedge(152)=0 exch2_myFace(152)=5 exch2_mydNx(152)=510 exch2_mydNy(152)=510 exch2_nNeighbours(152)=4 exch2_neighbourId(1,152)=158 exch2_iLo(1,152)=0 exch2_iHi(1,152)=86 exch2_jLo(1,152)=86 exch2_jHi(1,152)=86 exch2_opposingSend(1,152)=2 exch2_pij(1,1,152)=1 exch2_pij(2,1,152)=0 exch2_pij(3,1,152)=0 exch2_pij(4,1,152)=1 exch2_oi(1,152)=0 exch2_oj(1,152)=0 exch2_neighbourId(2,152)=146 exch2_iLo(2,152)=0 exch2_iHi(2,152)=86 exch2_jLo(2,152)=0 exch2_jHi(2,152)=0 exch2_opposingSend(2,152)=1 exch2_pij(1,2,152)=1 exch2_pij(2,2,152)=0 exch2_pij(3,2,152)=0 exch2_pij(4,2,152)=1 exch2_oi(2,152)=0 exch2_oj(2,152)=0 exch2_neighbourId(3,152)=153 exch2_iLo(3,152)=86 exch2_iHi(3,152)=86 exch2_jLo(3,152)=0 exch2_jHi(3,152)=86 exch2_opposingSend(3,152)=4 exch2_pij(1,3,152)=1 exch2_pij(2,3,152)=0 exch2_pij(3,3,152)=0 exch2_pij(4,3,152)=1 exch2_oi(3,152)=0 exch2_oj(3,152)=0 exch2_neighbourId(4,152)=151 exch2_iLo(4,152)=0 exch2_iHi(4,152)=0 exch2_jLo(4,152)=0 exch2_jHi(4,152)=86 exch2_opposingSend(4,152)=3 exch2_pij(1,4,152)=1 exch2_pij(2,4,152)=0 exch2_pij(3,4,152)=0 exch2_pij(4,4,152)=1 exch2_oi(4,152)=0 exch2_oj(4,152)=0 RETURN END SUBROUTINE W2_E2SETUP_153 C Topology for tile 153 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(153)=85 exch2_tNy(153)=85 exch2_tBasex(153)=170 exch2_tBasey(153)=85 exch2_txGlobalo(153)=2211 exch2_tyGlobalo(153)=86 exch2_isWedge(153)=0 exch2_isNedge(153)=0 exch2_isEedge(153)=0 exch2_isSedge(153)=0 exch2_myFace(153)=5 exch2_mydNx(153)=510 exch2_mydNy(153)=510 exch2_nNeighbours(153)=4 exch2_neighbourId(1,153)=159 exch2_iLo(1,153)=0 exch2_iHi(1,153)=86 exch2_jLo(1,153)=86 exch2_jHi(1,153)=86 exch2_opposingSend(1,153)=2 exch2_pij(1,1,153)=1 exch2_pij(2,1,153)=0 exch2_pij(3,1,153)=0 exch2_pij(4,1,153)=1 exch2_oi(1,153)=0 exch2_oj(1,153)=0 exch2_neighbourId(2,153)=147 exch2_iLo(2,153)=0 exch2_iHi(2,153)=86 exch2_jLo(2,153)=0 exch2_jHi(2,153)=0 exch2_opposingSend(2,153)=1 exch2_pij(1,2,153)=1 exch2_pij(2,2,153)=0 exch2_pij(3,2,153)=0 exch2_pij(4,2,153)=1 exch2_oi(2,153)=0 exch2_oj(2,153)=0 exch2_neighbourId(3,153)=154 exch2_iLo(3,153)=86 exch2_iHi(3,153)=86 exch2_jLo(3,153)=0 exch2_jHi(3,153)=86 exch2_opposingSend(3,153)=4 exch2_pij(1,3,153)=1 exch2_pij(2,3,153)=0 exch2_pij(3,3,153)=0 exch2_pij(4,3,153)=1 exch2_oi(3,153)=0 exch2_oj(3,153)=0 exch2_neighbourId(4,153)=152 exch2_iLo(4,153)=0 exch2_iHi(4,153)=0 exch2_jLo(4,153)=0 exch2_jHi(4,153)=86 exch2_opposingSend(4,153)=3 exch2_pij(1,4,153)=1 exch2_pij(2,4,153)=0 exch2_pij(3,4,153)=0 exch2_pij(4,4,153)=1 exch2_oi(4,153)=0 exch2_oj(4,153)=0 RETURN END SUBROUTINE W2_E2SETUP_154 C Topology for tile 154 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(154)=85 exch2_tNy(154)=85 exch2_tBasex(154)=255 exch2_tBasey(154)=85 exch2_txGlobalo(154)=2296 exch2_tyGlobalo(154)=86 exch2_isWedge(154)=0 exch2_isNedge(154)=0 exch2_isEedge(154)=0 exch2_isSedge(154)=0 exch2_myFace(154)=5 exch2_mydNx(154)=510 exch2_mydNy(154)=510 exch2_nNeighbours(154)=4 exch2_neighbourId(1,154)=160 exch2_iLo(1,154)=0 exch2_iHi(1,154)=86 exch2_jLo(1,154)=86 exch2_jHi(1,154)=86 exch2_opposingSend(1,154)=2 exch2_pij(1,1,154)=1 exch2_pij(2,1,154)=0 exch2_pij(3,1,154)=0 exch2_pij(4,1,154)=1 exch2_oi(1,154)=0 exch2_oj(1,154)=0 exch2_neighbourId(2,154)=148 exch2_iLo(2,154)=0 exch2_iHi(2,154)=86 exch2_jLo(2,154)=0 exch2_jHi(2,154)=0 exch2_opposingSend(2,154)=1 exch2_pij(1,2,154)=1 exch2_pij(2,2,154)=0 exch2_pij(3,2,154)=0 exch2_pij(4,2,154)=1 exch2_oi(2,154)=0 exch2_oj(2,154)=0 exch2_neighbourId(3,154)=155 exch2_iLo(3,154)=86 exch2_iHi(3,154)=86 exch2_jLo(3,154)=0 exch2_jHi(3,154)=86 exch2_opposingSend(3,154)=4 exch2_pij(1,3,154)=1 exch2_pij(2,3,154)=0 exch2_pij(3,3,154)=0 exch2_pij(4,3,154)=1 exch2_oi(3,154)=0 exch2_oj(3,154)=0 exch2_neighbourId(4,154)=153 exch2_iLo(4,154)=0 exch2_iHi(4,154)=0 exch2_jLo(4,154)=0 exch2_jHi(4,154)=86 exch2_opposingSend(4,154)=3 exch2_pij(1,4,154)=1 exch2_pij(2,4,154)=0 exch2_pij(3,4,154)=0 exch2_pij(4,4,154)=1 exch2_oi(4,154)=0 exch2_oj(4,154)=0 RETURN END SUBROUTINE W2_E2SETUP_155 C Topology for tile 155 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(155)=85 exch2_tNy(155)=85 exch2_tBasex(155)=340 exch2_tBasey(155)=85 exch2_txGlobalo(155)=2381 exch2_tyGlobalo(155)=86 exch2_isWedge(155)=0 exch2_isNedge(155)=0 exch2_isEedge(155)=0 exch2_isSedge(155)=0 exch2_myFace(155)=5 exch2_mydNx(155)=510 exch2_mydNy(155)=510 exch2_nNeighbours(155)=4 exch2_neighbourId(1,155)=161 exch2_iLo(1,155)=0 exch2_iHi(1,155)=86 exch2_jLo(1,155)=86 exch2_jHi(1,155)=86 exch2_opposingSend(1,155)=2 exch2_pij(1,1,155)=1 exch2_pij(2,1,155)=0 exch2_pij(3,1,155)=0 exch2_pij(4,1,155)=1 exch2_oi(1,155)=0 exch2_oj(1,155)=0 exch2_neighbourId(2,155)=149 exch2_iLo(2,155)=0 exch2_iHi(2,155)=86 exch2_jLo(2,155)=0 exch2_jHi(2,155)=0 exch2_opposingSend(2,155)=1 exch2_pij(1,2,155)=1 exch2_pij(2,2,155)=0 exch2_pij(3,2,155)=0 exch2_pij(4,2,155)=1 exch2_oi(2,155)=0 exch2_oj(2,155)=0 exch2_neighbourId(3,155)=156 exch2_iLo(3,155)=86 exch2_iHi(3,155)=86 exch2_jLo(3,155)=0 exch2_jHi(3,155)=86 exch2_opposingSend(3,155)=4 exch2_pij(1,3,155)=1 exch2_pij(2,3,155)=0 exch2_pij(3,3,155)=0 exch2_pij(4,3,155)=1 exch2_oi(3,155)=0 exch2_oj(3,155)=0 exch2_neighbourId(4,155)=154 exch2_iLo(4,155)=0 exch2_iHi(4,155)=0 exch2_jLo(4,155)=0 exch2_jHi(4,155)=86 exch2_opposingSend(4,155)=3 exch2_pij(1,4,155)=1 exch2_pij(2,4,155)=0 exch2_pij(3,4,155)=0 exch2_pij(4,4,155)=1 exch2_oi(4,155)=0 exch2_oj(4,155)=0 RETURN END SUBROUTINE W2_E2SETUP_156 C Topology for tile 156 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(156)=85 exch2_tNy(156)=85 exch2_tBasex(156)=425 exch2_tBasey(156)=85 exch2_txGlobalo(156)=2466 exch2_tyGlobalo(156)=86 exch2_isWedge(156)=0 exch2_isNedge(156)=0 exch2_isEedge(156)=1 exch2_isSedge(156)=0 exch2_myFace(156)=5 exch2_mydNx(156)=510 exch2_mydNy(156)=510 exch2_nNeighbours(156)=4 exch2_neighbourId(1,156)=162 exch2_iLo(1,156)=0 exch2_iHi(1,156)=86 exch2_jLo(1,156)=86 exch2_jHi(1,156)=86 exch2_opposingSend(1,156)=2 exch2_pij(1,1,156)=1 exch2_pij(2,1,156)=0 exch2_pij(3,1,156)=0 exch2_pij(4,1,156)=1 exch2_oi(1,156)=0 exch2_oj(1,156)=0 exch2_neighbourId(2,156)=150 exch2_iLo(2,156)=0 exch2_iHi(2,156)=86 exch2_jLo(2,156)=0 exch2_jHi(2,156)=0 exch2_opposingSend(2,156)=1 exch2_pij(1,2,156)=1 exch2_pij(2,2,156)=0 exch2_pij(3,2,156)=0 exch2_pij(4,2,156)=1 exch2_oi(2,156)=0 exch2_oj(2,156)=0 exch2_neighbourId(3,156)=187 exch2_iLo(3,156)=86 exch2_iHi(3,156)=86 exch2_jLo(3,156)=0 exch2_jHi(3,156)=86 exch2_opposingSend(3,156)=4 exch2_pij(1,3,156)=1 exch2_pij(2,3,156)=0 exch2_pij(3,3,156)=0 exch2_pij(4,3,156)=1 exch2_oi(3,156)=510 exch2_oj(3,156)=0 exch2_neighbourId(4,156)=155 exch2_iLo(4,156)=0 exch2_iHi(4,156)=0 exch2_jLo(4,156)=0 exch2_jHi(4,156)=86 exch2_opposingSend(4,156)=3 exch2_pij(1,4,156)=1 exch2_pij(2,4,156)=0 exch2_pij(3,4,156)=0 exch2_pij(4,4,156)=1 exch2_oi(4,156)=0 exch2_oj(4,156)=0 RETURN END SUBROUTINE W2_E2SETUP_157 C Topology for tile 157 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(157)=85 exch2_tNy(157)=85 exch2_tBasex(157)=0 exch2_tBasey(157)=170 exch2_txGlobalo(157)=2041 exch2_tyGlobalo(157)=171 exch2_isWedge(157)=1 exch2_isNedge(157)=0 exch2_isEedge(157)=0 exch2_isSedge(157)=0 exch2_myFace(157)=5 exch2_mydNx(157)=510 exch2_mydNy(157)=510 exch2_nNeighbours(157)=4 exch2_neighbourId(1,157)=163 exch2_iLo(1,157)=0 exch2_iHi(1,157)=86 exch2_jLo(1,157)=86 exch2_jHi(1,157)=86 exch2_opposingSend(1,157)=2 exch2_pij(1,1,157)=1 exch2_pij(2,1,157)=0 exch2_pij(3,1,157)=0 exch2_pij(4,1,157)=1 exch2_oi(1,157)=0 exch2_oj(1,157)=0 exch2_neighbourId(2,157)=151 exch2_iLo(2,157)=0 exch2_iHi(2,157)=86 exch2_jLo(2,157)=0 exch2_jHi(2,157)=0 exch2_opposingSend(2,157)=1 exch2_pij(1,2,157)=1 exch2_pij(2,2,157)=0 exch2_pij(3,2,157)=0 exch2_pij(4,2,157)=1 exch2_oi(2,157)=0 exch2_oj(2,157)=0 exch2_neighbourId(3,157)=158 exch2_iLo(3,157)=86 exch2_iHi(3,157)=86 exch2_jLo(3,157)=0 exch2_jHi(3,157)=86 exch2_opposingSend(3,157)=4 exch2_pij(1,3,157)=1 exch2_pij(2,3,157)=0 exch2_pij(3,3,157)=0 exch2_pij(4,3,157)=1 exch2_oi(3,157)=0 exch2_oj(3,157)=0 exch2_neighbourId(4,157)=106 exch2_iLo(4,157)=0 exch2_iHi(4,157)=0 exch2_jLo(4,157)=0 exch2_jHi(4,157)=86 exch2_opposingSend(4,157)=1 exch2_pij(1,4,157)=0 exch2_pij(2,4,157)=1 exch2_pij(3,4,157)=-1 exch2_pij(4,4,157)=0 exch2_oi(4,157)=-510 exch2_oj(4,157)=511 RETURN END SUBROUTINE W2_E2SETUP_158 C Topology for tile 158 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(158)=85 exch2_tNy(158)=85 exch2_tBasex(158)=85 exch2_tBasey(158)=170 exch2_txGlobalo(158)=2126 exch2_tyGlobalo(158)=171 exch2_isWedge(158)=0 exch2_isNedge(158)=0 exch2_isEedge(158)=0 exch2_isSedge(158)=0 exch2_myFace(158)=5 exch2_mydNx(158)=510 exch2_mydNy(158)=510 exch2_nNeighbours(158)=4 exch2_neighbourId(1,158)=164 exch2_iLo(1,158)=0 exch2_iHi(1,158)=86 exch2_jLo(1,158)=86 exch2_jHi(1,158)=86 exch2_opposingSend(1,158)=2 exch2_pij(1,1,158)=1 exch2_pij(2,1,158)=0 exch2_pij(3,1,158)=0 exch2_pij(4,1,158)=1 exch2_oi(1,158)=0 exch2_oj(1,158)=0 exch2_neighbourId(2,158)=152 exch2_iLo(2,158)=0 exch2_iHi(2,158)=86 exch2_jLo(2,158)=0 exch2_jHi(2,158)=0 exch2_opposingSend(2,158)=1 exch2_pij(1,2,158)=1 exch2_pij(2,2,158)=0 exch2_pij(3,2,158)=0 exch2_pij(4,2,158)=1 exch2_oi(2,158)=0 exch2_oj(2,158)=0 exch2_neighbourId(3,158)=159 exch2_iLo(3,158)=86 exch2_iHi(3,158)=86 exch2_jLo(3,158)=0 exch2_jHi(3,158)=86 exch2_opposingSend(3,158)=4 exch2_pij(1,3,158)=1 exch2_pij(2,3,158)=0 exch2_pij(3,3,158)=0 exch2_pij(4,3,158)=1 exch2_oi(3,158)=0 exch2_oj(3,158)=0 exch2_neighbourId(4,158)=157 exch2_iLo(4,158)=0 exch2_iHi(4,158)=0 exch2_jLo(4,158)=0 exch2_jHi(4,158)=86 exch2_opposingSend(4,158)=3 exch2_pij(1,4,158)=1 exch2_pij(2,4,158)=0 exch2_pij(3,4,158)=0 exch2_pij(4,4,158)=1 exch2_oi(4,158)=0 exch2_oj(4,158)=0 RETURN END SUBROUTINE W2_E2SETUP_159 C Topology for tile 159 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(159)=85 exch2_tNy(159)=85 exch2_tBasex(159)=170 exch2_tBasey(159)=170 exch2_txGlobalo(159)=2211 exch2_tyGlobalo(159)=171 exch2_isWedge(159)=0 exch2_isNedge(159)=0 exch2_isEedge(159)=0 exch2_isSedge(159)=0 exch2_myFace(159)=5 exch2_mydNx(159)=510 exch2_mydNy(159)=510 exch2_nNeighbours(159)=4 exch2_neighbourId(1,159)=165 exch2_iLo(1,159)=0 exch2_iHi(1,159)=86 exch2_jLo(1,159)=86 exch2_jHi(1,159)=86 exch2_opposingSend(1,159)=2 exch2_pij(1,1,159)=1 exch2_pij(2,1,159)=0 exch2_pij(3,1,159)=0 exch2_pij(4,1,159)=1 exch2_oi(1,159)=0 exch2_oj(1,159)=0 exch2_neighbourId(2,159)=153 exch2_iLo(2,159)=0 exch2_iHi(2,159)=86 exch2_jLo(2,159)=0 exch2_jHi(2,159)=0 exch2_opposingSend(2,159)=1 exch2_pij(1,2,159)=1 exch2_pij(2,2,159)=0 exch2_pij(3,2,159)=0 exch2_pij(4,2,159)=1 exch2_oi(2,159)=0 exch2_oj(2,159)=0 exch2_neighbourId(3,159)=160 exch2_iLo(3,159)=86 exch2_iHi(3,159)=86 exch2_jLo(3,159)=0 exch2_jHi(3,159)=86 exch2_opposingSend(3,159)=4 exch2_pij(1,3,159)=1 exch2_pij(2,3,159)=0 exch2_pij(3,3,159)=0 exch2_pij(4,3,159)=1 exch2_oi(3,159)=0 exch2_oj(3,159)=0 exch2_neighbourId(4,159)=158 exch2_iLo(4,159)=0 exch2_iHi(4,159)=0 exch2_jLo(4,159)=0 exch2_jHi(4,159)=86 exch2_opposingSend(4,159)=3 exch2_pij(1,4,159)=1 exch2_pij(2,4,159)=0 exch2_pij(3,4,159)=0 exch2_pij(4,4,159)=1 exch2_oi(4,159)=0 exch2_oj(4,159)=0 RETURN END SUBROUTINE W2_E2SETUP_160 C Topology for tile 160 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(160)=85 exch2_tNy(160)=85 exch2_tBasex(160)=255 exch2_tBasey(160)=170 exch2_txGlobalo(160)=2296 exch2_tyGlobalo(160)=171 exch2_isWedge(160)=0 exch2_isNedge(160)=0 exch2_isEedge(160)=0 exch2_isSedge(160)=0 exch2_myFace(160)=5 exch2_mydNx(160)=510 exch2_mydNy(160)=510 exch2_nNeighbours(160)=4 exch2_neighbourId(1,160)=166 exch2_iLo(1,160)=0 exch2_iHi(1,160)=86 exch2_jLo(1,160)=86 exch2_jHi(1,160)=86 exch2_opposingSend(1,160)=2 exch2_pij(1,1,160)=1 exch2_pij(2,1,160)=0 exch2_pij(3,1,160)=0 exch2_pij(4,1,160)=1 exch2_oi(1,160)=0 exch2_oj(1,160)=0 exch2_neighbourId(2,160)=154 exch2_iLo(2,160)=0 exch2_iHi(2,160)=86 exch2_jLo(2,160)=0 exch2_jHi(2,160)=0 exch2_opposingSend(2,160)=1 exch2_pij(1,2,160)=1 exch2_pij(2,2,160)=0 exch2_pij(3,2,160)=0 exch2_pij(4,2,160)=1 exch2_oi(2,160)=0 exch2_oj(2,160)=0 exch2_neighbourId(3,160)=161 exch2_iLo(3,160)=86 exch2_iHi(3,160)=86 exch2_jLo(3,160)=0 exch2_jHi(3,160)=86 exch2_opposingSend(3,160)=4 exch2_pij(1,3,160)=1 exch2_pij(2,3,160)=0 exch2_pij(3,3,160)=0 exch2_pij(4,3,160)=1 exch2_oi(3,160)=0 exch2_oj(3,160)=0 exch2_neighbourId(4,160)=159 exch2_iLo(4,160)=0 exch2_iHi(4,160)=0 exch2_jLo(4,160)=0 exch2_jHi(4,160)=86 exch2_opposingSend(4,160)=3 exch2_pij(1,4,160)=1 exch2_pij(2,4,160)=0 exch2_pij(3,4,160)=0 exch2_pij(4,4,160)=1 exch2_oi(4,160)=0 exch2_oj(4,160)=0 RETURN END SUBROUTINE W2_E2SETUP_161 C Topology for tile 161 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(161)=85 exch2_tNy(161)=85 exch2_tBasex(161)=340 exch2_tBasey(161)=170 exch2_txGlobalo(161)=2381 exch2_tyGlobalo(161)=171 exch2_isWedge(161)=0 exch2_isNedge(161)=0 exch2_isEedge(161)=0 exch2_isSedge(161)=0 exch2_myFace(161)=5 exch2_mydNx(161)=510 exch2_mydNy(161)=510 exch2_nNeighbours(161)=4 exch2_neighbourId(1,161)=167 exch2_iLo(1,161)=0 exch2_iHi(1,161)=86 exch2_jLo(1,161)=86 exch2_jHi(1,161)=86 exch2_opposingSend(1,161)=2 exch2_pij(1,1,161)=1 exch2_pij(2,1,161)=0 exch2_pij(3,1,161)=0 exch2_pij(4,1,161)=1 exch2_oi(1,161)=0 exch2_oj(1,161)=0 exch2_neighbourId(2,161)=155 exch2_iLo(2,161)=0 exch2_iHi(2,161)=86 exch2_jLo(2,161)=0 exch2_jHi(2,161)=0 exch2_opposingSend(2,161)=1 exch2_pij(1,2,161)=1 exch2_pij(2,2,161)=0 exch2_pij(3,2,161)=0 exch2_pij(4,2,161)=1 exch2_oi(2,161)=0 exch2_oj(2,161)=0 exch2_neighbourId(3,161)=162 exch2_iLo(3,161)=86 exch2_iHi(3,161)=86 exch2_jLo(3,161)=0 exch2_jHi(3,161)=86 exch2_opposingSend(3,161)=4 exch2_pij(1,3,161)=1 exch2_pij(2,3,161)=0 exch2_pij(3,3,161)=0 exch2_pij(4,3,161)=1 exch2_oi(3,161)=0 exch2_oj(3,161)=0 exch2_neighbourId(4,161)=160 exch2_iLo(4,161)=0 exch2_iHi(4,161)=0 exch2_jLo(4,161)=0 exch2_jHi(4,161)=86 exch2_opposingSend(4,161)=3 exch2_pij(1,4,161)=1 exch2_pij(2,4,161)=0 exch2_pij(3,4,161)=0 exch2_pij(4,4,161)=1 exch2_oi(4,161)=0 exch2_oj(4,161)=0 RETURN END SUBROUTINE W2_E2SETUP_162 C Topology for tile 162 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(162)=85 exch2_tNy(162)=85 exch2_tBasex(162)=425 exch2_tBasey(162)=170 exch2_txGlobalo(162)=2466 exch2_tyGlobalo(162)=171 exch2_isWedge(162)=0 exch2_isNedge(162)=0 exch2_isEedge(162)=1 exch2_isSedge(162)=0 exch2_myFace(162)=5 exch2_mydNx(162)=510 exch2_mydNy(162)=510 exch2_nNeighbours(162)=4 exch2_neighbourId(1,162)=168 exch2_iLo(1,162)=0 exch2_iHi(1,162)=86 exch2_jLo(1,162)=86 exch2_jHi(1,162)=86 exch2_opposingSend(1,162)=2 exch2_pij(1,1,162)=1 exch2_pij(2,1,162)=0 exch2_pij(3,1,162)=0 exch2_pij(4,1,162)=1 exch2_oi(1,162)=0 exch2_oj(1,162)=0 exch2_neighbourId(2,162)=156 exch2_iLo(2,162)=0 exch2_iHi(2,162)=86 exch2_jLo(2,162)=0 exch2_jHi(2,162)=0 exch2_opposingSend(2,162)=1 exch2_pij(1,2,162)=1 exch2_pij(2,2,162)=0 exch2_pij(3,2,162)=0 exch2_pij(4,2,162)=1 exch2_oi(2,162)=0 exch2_oj(2,162)=0 exch2_neighbourId(3,162)=193 exch2_iLo(3,162)=86 exch2_iHi(3,162)=86 exch2_jLo(3,162)=0 exch2_jHi(3,162)=86 exch2_opposingSend(3,162)=4 exch2_pij(1,3,162)=1 exch2_pij(2,3,162)=0 exch2_pij(3,3,162)=0 exch2_pij(4,3,162)=1 exch2_oi(3,162)=510 exch2_oj(3,162)=0 exch2_neighbourId(4,162)=161 exch2_iLo(4,162)=0 exch2_iHi(4,162)=0 exch2_jLo(4,162)=0 exch2_jHi(4,162)=86 exch2_opposingSend(4,162)=3 exch2_pij(1,4,162)=1 exch2_pij(2,4,162)=0 exch2_pij(3,4,162)=0 exch2_pij(4,4,162)=1 exch2_oi(4,162)=0 exch2_oj(4,162)=0 RETURN END SUBROUTINE W2_E2SETUP_163 C Topology for tile 163 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(163)=85 exch2_tNy(163)=85 exch2_tBasex(163)=0 exch2_tBasey(163)=255 exch2_txGlobalo(163)=2041 exch2_tyGlobalo(163)=256 exch2_isWedge(163)=1 exch2_isNedge(163)=0 exch2_isEedge(163)=0 exch2_isSedge(163)=0 exch2_myFace(163)=5 exch2_mydNx(163)=510 exch2_mydNy(163)=510 exch2_nNeighbours(163)=4 exch2_neighbourId(1,163)=169 exch2_iLo(1,163)=0 exch2_iHi(1,163)=86 exch2_jLo(1,163)=86 exch2_jHi(1,163)=86 exch2_opposingSend(1,163)=2 exch2_pij(1,1,163)=1 exch2_pij(2,1,163)=0 exch2_pij(3,1,163)=0 exch2_pij(4,1,163)=1 exch2_oi(1,163)=0 exch2_oj(1,163)=0 exch2_neighbourId(2,163)=157 exch2_iLo(2,163)=0 exch2_iHi(2,163)=86 exch2_jLo(2,163)=0 exch2_jHi(2,163)=0 exch2_opposingSend(2,163)=1 exch2_pij(1,2,163)=1 exch2_pij(2,2,163)=0 exch2_pij(3,2,163)=0 exch2_pij(4,2,163)=1 exch2_oi(2,163)=0 exch2_oj(2,163)=0 exch2_neighbourId(3,163)=164 exch2_iLo(3,163)=86 exch2_iHi(3,163)=86 exch2_jLo(3,163)=0 exch2_jHi(3,163)=86 exch2_opposingSend(3,163)=4 exch2_pij(1,3,163)=1 exch2_pij(2,3,163)=0 exch2_pij(3,3,163)=0 exch2_pij(4,3,163)=1 exch2_oi(3,163)=0 exch2_oj(3,163)=0 exch2_neighbourId(4,163)=105 exch2_iLo(4,163)=0 exch2_iHi(4,163)=0 exch2_jLo(4,163)=0 exch2_jHi(4,163)=86 exch2_opposingSend(4,163)=1 exch2_pij(1,4,163)=0 exch2_pij(2,4,163)=1 exch2_pij(3,4,163)=-1 exch2_pij(4,4,163)=0 exch2_oi(4,163)=-510 exch2_oj(4,163)=511 RETURN END SUBROUTINE W2_E2SETUP_164 C Topology for tile 164 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(164)=85 exch2_tNy(164)=85 exch2_tBasex(164)=85 exch2_tBasey(164)=255 exch2_txGlobalo(164)=2126 exch2_tyGlobalo(164)=256 exch2_isWedge(164)=0 exch2_isNedge(164)=0 exch2_isEedge(164)=0 exch2_isSedge(164)=0 exch2_myFace(164)=5 exch2_mydNx(164)=510 exch2_mydNy(164)=510 exch2_nNeighbours(164)=4 exch2_neighbourId(1,164)=170 exch2_iLo(1,164)=0 exch2_iHi(1,164)=86 exch2_jLo(1,164)=86 exch2_jHi(1,164)=86 exch2_opposingSend(1,164)=2 exch2_pij(1,1,164)=1 exch2_pij(2,1,164)=0 exch2_pij(3,1,164)=0 exch2_pij(4,1,164)=1 exch2_oi(1,164)=0 exch2_oj(1,164)=0 exch2_neighbourId(2,164)=158 exch2_iLo(2,164)=0 exch2_iHi(2,164)=86 exch2_jLo(2,164)=0 exch2_jHi(2,164)=0 exch2_opposingSend(2,164)=1 exch2_pij(1,2,164)=1 exch2_pij(2,2,164)=0 exch2_pij(3,2,164)=0 exch2_pij(4,2,164)=1 exch2_oi(2,164)=0 exch2_oj(2,164)=0 exch2_neighbourId(3,164)=165 exch2_iLo(3,164)=86 exch2_iHi(3,164)=86 exch2_jLo(3,164)=0 exch2_jHi(3,164)=86 exch2_opposingSend(3,164)=4 exch2_pij(1,3,164)=1 exch2_pij(2,3,164)=0 exch2_pij(3,3,164)=0 exch2_pij(4,3,164)=1 exch2_oi(3,164)=0 exch2_oj(3,164)=0 exch2_neighbourId(4,164)=163 exch2_iLo(4,164)=0 exch2_iHi(4,164)=0 exch2_jLo(4,164)=0 exch2_jHi(4,164)=86 exch2_opposingSend(4,164)=3 exch2_pij(1,4,164)=1 exch2_pij(2,4,164)=0 exch2_pij(3,4,164)=0 exch2_pij(4,4,164)=1 exch2_oi(4,164)=0 exch2_oj(4,164)=0 RETURN END SUBROUTINE W2_E2SETUP_165 C Topology for tile 165 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(165)=85 exch2_tNy(165)=85 exch2_tBasex(165)=170 exch2_tBasey(165)=255 exch2_txGlobalo(165)=2211 exch2_tyGlobalo(165)=256 exch2_isWedge(165)=0 exch2_isNedge(165)=0 exch2_isEedge(165)=0 exch2_isSedge(165)=0 exch2_myFace(165)=5 exch2_mydNx(165)=510 exch2_mydNy(165)=510 exch2_nNeighbours(165)=4 exch2_neighbourId(1,165)=171 exch2_iLo(1,165)=0 exch2_iHi(1,165)=86 exch2_jLo(1,165)=86 exch2_jHi(1,165)=86 exch2_opposingSend(1,165)=2 exch2_pij(1,1,165)=1 exch2_pij(2,1,165)=0 exch2_pij(3,1,165)=0 exch2_pij(4,1,165)=1 exch2_oi(1,165)=0 exch2_oj(1,165)=0 exch2_neighbourId(2,165)=159 exch2_iLo(2,165)=0 exch2_iHi(2,165)=86 exch2_jLo(2,165)=0 exch2_jHi(2,165)=0 exch2_opposingSend(2,165)=1 exch2_pij(1,2,165)=1 exch2_pij(2,2,165)=0 exch2_pij(3,2,165)=0 exch2_pij(4,2,165)=1 exch2_oi(2,165)=0 exch2_oj(2,165)=0 exch2_neighbourId(3,165)=166 exch2_iLo(3,165)=86 exch2_iHi(3,165)=86 exch2_jLo(3,165)=0 exch2_jHi(3,165)=86 exch2_opposingSend(3,165)=4 exch2_pij(1,3,165)=1 exch2_pij(2,3,165)=0 exch2_pij(3,3,165)=0 exch2_pij(4,3,165)=1 exch2_oi(3,165)=0 exch2_oj(3,165)=0 exch2_neighbourId(4,165)=164 exch2_iLo(4,165)=0 exch2_iHi(4,165)=0 exch2_jLo(4,165)=0 exch2_jHi(4,165)=86 exch2_opposingSend(4,165)=3 exch2_pij(1,4,165)=1 exch2_pij(2,4,165)=0 exch2_pij(3,4,165)=0 exch2_pij(4,4,165)=1 exch2_oi(4,165)=0 exch2_oj(4,165)=0 RETURN END SUBROUTINE W2_E2SETUP_166 C Topology for tile 166 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(166)=85 exch2_tNy(166)=85 exch2_tBasex(166)=255 exch2_tBasey(166)=255 exch2_txGlobalo(166)=2296 exch2_tyGlobalo(166)=256 exch2_isWedge(166)=0 exch2_isNedge(166)=0 exch2_isEedge(166)=0 exch2_isSedge(166)=0 exch2_myFace(166)=5 exch2_mydNx(166)=510 exch2_mydNy(166)=510 exch2_nNeighbours(166)=4 exch2_neighbourId(1,166)=172 exch2_iLo(1,166)=0 exch2_iHi(1,166)=86 exch2_jLo(1,166)=86 exch2_jHi(1,166)=86 exch2_opposingSend(1,166)=2 exch2_pij(1,1,166)=1 exch2_pij(2,1,166)=0 exch2_pij(3,1,166)=0 exch2_pij(4,1,166)=1 exch2_oi(1,166)=0 exch2_oj(1,166)=0 exch2_neighbourId(2,166)=160 exch2_iLo(2,166)=0 exch2_iHi(2,166)=86 exch2_jLo(2,166)=0 exch2_jHi(2,166)=0 exch2_opposingSend(2,166)=1 exch2_pij(1,2,166)=1 exch2_pij(2,2,166)=0 exch2_pij(3,2,166)=0 exch2_pij(4,2,166)=1 exch2_oi(2,166)=0 exch2_oj(2,166)=0 exch2_neighbourId(3,166)=167 exch2_iLo(3,166)=86 exch2_iHi(3,166)=86 exch2_jLo(3,166)=0 exch2_jHi(3,166)=86 exch2_opposingSend(3,166)=4 exch2_pij(1,3,166)=1 exch2_pij(2,3,166)=0 exch2_pij(3,3,166)=0 exch2_pij(4,3,166)=1 exch2_oi(3,166)=0 exch2_oj(3,166)=0 exch2_neighbourId(4,166)=165 exch2_iLo(4,166)=0 exch2_iHi(4,166)=0 exch2_jLo(4,166)=0 exch2_jHi(4,166)=86 exch2_opposingSend(4,166)=3 exch2_pij(1,4,166)=1 exch2_pij(2,4,166)=0 exch2_pij(3,4,166)=0 exch2_pij(4,4,166)=1 exch2_oi(4,166)=0 exch2_oj(4,166)=0 RETURN END SUBROUTINE W2_E2SETUP_167 C Topology for tile 167 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(167)=85 exch2_tNy(167)=85 exch2_tBasex(167)=340 exch2_tBasey(167)=255 exch2_txGlobalo(167)=2381 exch2_tyGlobalo(167)=256 exch2_isWedge(167)=0 exch2_isNedge(167)=0 exch2_isEedge(167)=0 exch2_isSedge(167)=0 exch2_myFace(167)=5 exch2_mydNx(167)=510 exch2_mydNy(167)=510 exch2_nNeighbours(167)=4 exch2_neighbourId(1,167)=173 exch2_iLo(1,167)=0 exch2_iHi(1,167)=86 exch2_jLo(1,167)=86 exch2_jHi(1,167)=86 exch2_opposingSend(1,167)=2 exch2_pij(1,1,167)=1 exch2_pij(2,1,167)=0 exch2_pij(3,1,167)=0 exch2_pij(4,1,167)=1 exch2_oi(1,167)=0 exch2_oj(1,167)=0 exch2_neighbourId(2,167)=161 exch2_iLo(2,167)=0 exch2_iHi(2,167)=86 exch2_jLo(2,167)=0 exch2_jHi(2,167)=0 exch2_opposingSend(2,167)=1 exch2_pij(1,2,167)=1 exch2_pij(2,2,167)=0 exch2_pij(3,2,167)=0 exch2_pij(4,2,167)=1 exch2_oi(2,167)=0 exch2_oj(2,167)=0 exch2_neighbourId(3,167)=168 exch2_iLo(3,167)=86 exch2_iHi(3,167)=86 exch2_jLo(3,167)=0 exch2_jHi(3,167)=86 exch2_opposingSend(3,167)=4 exch2_pij(1,3,167)=1 exch2_pij(2,3,167)=0 exch2_pij(3,3,167)=0 exch2_pij(4,3,167)=1 exch2_oi(3,167)=0 exch2_oj(3,167)=0 exch2_neighbourId(4,167)=166 exch2_iLo(4,167)=0 exch2_iHi(4,167)=0 exch2_jLo(4,167)=0 exch2_jHi(4,167)=86 exch2_opposingSend(4,167)=3 exch2_pij(1,4,167)=1 exch2_pij(2,4,167)=0 exch2_pij(3,4,167)=0 exch2_pij(4,4,167)=1 exch2_oi(4,167)=0 exch2_oj(4,167)=0 RETURN END SUBROUTINE W2_E2SETUP_168 C Topology for tile 168 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(168)=85 exch2_tNy(168)=85 exch2_tBasex(168)=425 exch2_tBasey(168)=255 exch2_txGlobalo(168)=2466 exch2_tyGlobalo(168)=256 exch2_isWedge(168)=0 exch2_isNedge(168)=0 exch2_isEedge(168)=1 exch2_isSedge(168)=0 exch2_myFace(168)=5 exch2_mydNx(168)=510 exch2_mydNy(168)=510 exch2_nNeighbours(168)=4 exch2_neighbourId(1,168)=174 exch2_iLo(1,168)=0 exch2_iHi(1,168)=86 exch2_jLo(1,168)=86 exch2_jHi(1,168)=86 exch2_opposingSend(1,168)=2 exch2_pij(1,1,168)=1 exch2_pij(2,1,168)=0 exch2_pij(3,1,168)=0 exch2_pij(4,1,168)=1 exch2_oi(1,168)=0 exch2_oj(1,168)=0 exch2_neighbourId(2,168)=162 exch2_iLo(2,168)=0 exch2_iHi(2,168)=86 exch2_jLo(2,168)=0 exch2_jHi(2,168)=0 exch2_opposingSend(2,168)=1 exch2_pij(1,2,168)=1 exch2_pij(2,2,168)=0 exch2_pij(3,2,168)=0 exch2_pij(4,2,168)=1 exch2_oi(2,168)=0 exch2_oj(2,168)=0 exch2_neighbourId(3,168)=199 exch2_iLo(3,168)=86 exch2_iHi(3,168)=86 exch2_jLo(3,168)=0 exch2_jHi(3,168)=86 exch2_opposingSend(3,168)=4 exch2_pij(1,3,168)=1 exch2_pij(2,3,168)=0 exch2_pij(3,3,168)=0 exch2_pij(4,3,168)=1 exch2_oi(3,168)=510 exch2_oj(3,168)=0 exch2_neighbourId(4,168)=167 exch2_iLo(4,168)=0 exch2_iHi(4,168)=0 exch2_jLo(4,168)=0 exch2_jHi(4,168)=86 exch2_opposingSend(4,168)=3 exch2_pij(1,4,168)=1 exch2_pij(2,4,168)=0 exch2_pij(3,4,168)=0 exch2_pij(4,4,168)=1 exch2_oi(4,168)=0 exch2_oj(4,168)=0 RETURN END SUBROUTINE W2_E2SETUP_169 C Topology for tile 169 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(169)=85 exch2_tNy(169)=85 exch2_tBasex(169)=0 exch2_tBasey(169)=340 exch2_txGlobalo(169)=2041 exch2_tyGlobalo(169)=341 exch2_isWedge(169)=1 exch2_isNedge(169)=0 exch2_isEedge(169)=0 exch2_isSedge(169)=0 exch2_myFace(169)=5 exch2_mydNx(169)=510 exch2_mydNy(169)=510 exch2_nNeighbours(169)=4 exch2_neighbourId(1,169)=175 exch2_iLo(1,169)=0 exch2_iHi(1,169)=86 exch2_jLo(1,169)=86 exch2_jHi(1,169)=86 exch2_opposingSend(1,169)=2 exch2_pij(1,1,169)=1 exch2_pij(2,1,169)=0 exch2_pij(3,1,169)=0 exch2_pij(4,1,169)=1 exch2_oi(1,169)=0 exch2_oj(1,169)=0 exch2_neighbourId(2,169)=163 exch2_iLo(2,169)=0 exch2_iHi(2,169)=86 exch2_jLo(2,169)=0 exch2_jHi(2,169)=0 exch2_opposingSend(2,169)=1 exch2_pij(1,2,169)=1 exch2_pij(2,2,169)=0 exch2_pij(3,2,169)=0 exch2_pij(4,2,169)=1 exch2_oi(2,169)=0 exch2_oj(2,169)=0 exch2_neighbourId(3,169)=170 exch2_iLo(3,169)=86 exch2_iHi(3,169)=86 exch2_jLo(3,169)=0 exch2_jHi(3,169)=86 exch2_opposingSend(3,169)=4 exch2_pij(1,3,169)=1 exch2_pij(2,3,169)=0 exch2_pij(3,3,169)=0 exch2_pij(4,3,169)=1 exch2_oi(3,169)=0 exch2_oj(3,169)=0 exch2_neighbourId(4,169)=104 exch2_iLo(4,169)=0 exch2_iHi(4,169)=0 exch2_jLo(4,169)=0 exch2_jHi(4,169)=86 exch2_opposingSend(4,169)=1 exch2_pij(1,4,169)=0 exch2_pij(2,4,169)=1 exch2_pij(3,4,169)=-1 exch2_pij(4,4,169)=0 exch2_oi(4,169)=-510 exch2_oj(4,169)=511 RETURN END SUBROUTINE W2_E2SETUP_170 C Topology for tile 170 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(170)=85 exch2_tNy(170)=85 exch2_tBasex(170)=85 exch2_tBasey(170)=340 exch2_txGlobalo(170)=2126 exch2_tyGlobalo(170)=341 exch2_isWedge(170)=0 exch2_isNedge(170)=0 exch2_isEedge(170)=0 exch2_isSedge(170)=0 exch2_myFace(170)=5 exch2_mydNx(170)=510 exch2_mydNy(170)=510 exch2_nNeighbours(170)=4 exch2_neighbourId(1,170)=176 exch2_iLo(1,170)=0 exch2_iHi(1,170)=86 exch2_jLo(1,170)=86 exch2_jHi(1,170)=86 exch2_opposingSend(1,170)=2 exch2_pij(1,1,170)=1 exch2_pij(2,1,170)=0 exch2_pij(3,1,170)=0 exch2_pij(4,1,170)=1 exch2_oi(1,170)=0 exch2_oj(1,170)=0 exch2_neighbourId(2,170)=164 exch2_iLo(2,170)=0 exch2_iHi(2,170)=86 exch2_jLo(2,170)=0 exch2_jHi(2,170)=0 exch2_opposingSend(2,170)=1 exch2_pij(1,2,170)=1 exch2_pij(2,2,170)=0 exch2_pij(3,2,170)=0 exch2_pij(4,2,170)=1 exch2_oi(2,170)=0 exch2_oj(2,170)=0 exch2_neighbourId(3,170)=171 exch2_iLo(3,170)=86 exch2_iHi(3,170)=86 exch2_jLo(3,170)=0 exch2_jHi(3,170)=86 exch2_opposingSend(3,170)=4 exch2_pij(1,3,170)=1 exch2_pij(2,3,170)=0 exch2_pij(3,3,170)=0 exch2_pij(4,3,170)=1 exch2_oi(3,170)=0 exch2_oj(3,170)=0 exch2_neighbourId(4,170)=169 exch2_iLo(4,170)=0 exch2_iHi(4,170)=0 exch2_jLo(4,170)=0 exch2_jHi(4,170)=86 exch2_opposingSend(4,170)=3 exch2_pij(1,4,170)=1 exch2_pij(2,4,170)=0 exch2_pij(3,4,170)=0 exch2_pij(4,4,170)=1 exch2_oi(4,170)=0 exch2_oj(4,170)=0 RETURN END SUBROUTINE W2_E2SETUP_171 C Topology for tile 171 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(171)=85 exch2_tNy(171)=85 exch2_tBasex(171)=170 exch2_tBasey(171)=340 exch2_txGlobalo(171)=2211 exch2_tyGlobalo(171)=341 exch2_isWedge(171)=0 exch2_isNedge(171)=0 exch2_isEedge(171)=0 exch2_isSedge(171)=0 exch2_myFace(171)=5 exch2_mydNx(171)=510 exch2_mydNy(171)=510 exch2_nNeighbours(171)=4 exch2_neighbourId(1,171)=177 exch2_iLo(1,171)=0 exch2_iHi(1,171)=86 exch2_jLo(1,171)=86 exch2_jHi(1,171)=86 exch2_opposingSend(1,171)=2 exch2_pij(1,1,171)=1 exch2_pij(2,1,171)=0 exch2_pij(3,1,171)=0 exch2_pij(4,1,171)=1 exch2_oi(1,171)=0 exch2_oj(1,171)=0 exch2_neighbourId(2,171)=165 exch2_iLo(2,171)=0 exch2_iHi(2,171)=86 exch2_jLo(2,171)=0 exch2_jHi(2,171)=0 exch2_opposingSend(2,171)=1 exch2_pij(1,2,171)=1 exch2_pij(2,2,171)=0 exch2_pij(3,2,171)=0 exch2_pij(4,2,171)=1 exch2_oi(2,171)=0 exch2_oj(2,171)=0 exch2_neighbourId(3,171)=172 exch2_iLo(3,171)=86 exch2_iHi(3,171)=86 exch2_jLo(3,171)=0 exch2_jHi(3,171)=86 exch2_opposingSend(3,171)=4 exch2_pij(1,3,171)=1 exch2_pij(2,3,171)=0 exch2_pij(3,3,171)=0 exch2_pij(4,3,171)=1 exch2_oi(3,171)=0 exch2_oj(3,171)=0 exch2_neighbourId(4,171)=170 exch2_iLo(4,171)=0 exch2_iHi(4,171)=0 exch2_jLo(4,171)=0 exch2_jHi(4,171)=86 exch2_opposingSend(4,171)=3 exch2_pij(1,4,171)=1 exch2_pij(2,4,171)=0 exch2_pij(3,4,171)=0 exch2_pij(4,4,171)=1 exch2_oi(4,171)=0 exch2_oj(4,171)=0 RETURN END SUBROUTINE W2_E2SETUP_172 C Topology for tile 172 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(172)=85 exch2_tNy(172)=85 exch2_tBasex(172)=255 exch2_tBasey(172)=340 exch2_txGlobalo(172)=2296 exch2_tyGlobalo(172)=341 exch2_isWedge(172)=0 exch2_isNedge(172)=0 exch2_isEedge(172)=0 exch2_isSedge(172)=0 exch2_myFace(172)=5 exch2_mydNx(172)=510 exch2_mydNy(172)=510 exch2_nNeighbours(172)=4 exch2_neighbourId(1,172)=178 exch2_iLo(1,172)=0 exch2_iHi(1,172)=86 exch2_jLo(1,172)=86 exch2_jHi(1,172)=86 exch2_opposingSend(1,172)=2 exch2_pij(1,1,172)=1 exch2_pij(2,1,172)=0 exch2_pij(3,1,172)=0 exch2_pij(4,1,172)=1 exch2_oi(1,172)=0 exch2_oj(1,172)=0 exch2_neighbourId(2,172)=166 exch2_iLo(2,172)=0 exch2_iHi(2,172)=86 exch2_jLo(2,172)=0 exch2_jHi(2,172)=0 exch2_opposingSend(2,172)=1 exch2_pij(1,2,172)=1 exch2_pij(2,2,172)=0 exch2_pij(3,2,172)=0 exch2_pij(4,2,172)=1 exch2_oi(2,172)=0 exch2_oj(2,172)=0 exch2_neighbourId(3,172)=173 exch2_iLo(3,172)=86 exch2_iHi(3,172)=86 exch2_jLo(3,172)=0 exch2_jHi(3,172)=86 exch2_opposingSend(3,172)=4 exch2_pij(1,3,172)=1 exch2_pij(2,3,172)=0 exch2_pij(3,3,172)=0 exch2_pij(4,3,172)=1 exch2_oi(3,172)=0 exch2_oj(3,172)=0 exch2_neighbourId(4,172)=171 exch2_iLo(4,172)=0 exch2_iHi(4,172)=0 exch2_jLo(4,172)=0 exch2_jHi(4,172)=86 exch2_opposingSend(4,172)=3 exch2_pij(1,4,172)=1 exch2_pij(2,4,172)=0 exch2_pij(3,4,172)=0 exch2_pij(4,4,172)=1 exch2_oi(4,172)=0 exch2_oj(4,172)=0 RETURN END SUBROUTINE W2_E2SETUP_173 C Topology for tile 173 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(173)=85 exch2_tNy(173)=85 exch2_tBasex(173)=340 exch2_tBasey(173)=340 exch2_txGlobalo(173)=2381 exch2_tyGlobalo(173)=341 exch2_isWedge(173)=0 exch2_isNedge(173)=0 exch2_isEedge(173)=0 exch2_isSedge(173)=0 exch2_myFace(173)=5 exch2_mydNx(173)=510 exch2_mydNy(173)=510 exch2_nNeighbours(173)=4 exch2_neighbourId(1,173)=179 exch2_iLo(1,173)=0 exch2_iHi(1,173)=86 exch2_jLo(1,173)=86 exch2_jHi(1,173)=86 exch2_opposingSend(1,173)=2 exch2_pij(1,1,173)=1 exch2_pij(2,1,173)=0 exch2_pij(3,1,173)=0 exch2_pij(4,1,173)=1 exch2_oi(1,173)=0 exch2_oj(1,173)=0 exch2_neighbourId(2,173)=167 exch2_iLo(2,173)=0 exch2_iHi(2,173)=86 exch2_jLo(2,173)=0 exch2_jHi(2,173)=0 exch2_opposingSend(2,173)=1 exch2_pij(1,2,173)=1 exch2_pij(2,2,173)=0 exch2_pij(3,2,173)=0 exch2_pij(4,2,173)=1 exch2_oi(2,173)=0 exch2_oj(2,173)=0 exch2_neighbourId(3,173)=174 exch2_iLo(3,173)=86 exch2_iHi(3,173)=86 exch2_jLo(3,173)=0 exch2_jHi(3,173)=86 exch2_opposingSend(3,173)=4 exch2_pij(1,3,173)=1 exch2_pij(2,3,173)=0 exch2_pij(3,3,173)=0 exch2_pij(4,3,173)=1 exch2_oi(3,173)=0 exch2_oj(3,173)=0 exch2_neighbourId(4,173)=172 exch2_iLo(4,173)=0 exch2_iHi(4,173)=0 exch2_jLo(4,173)=0 exch2_jHi(4,173)=86 exch2_opposingSend(4,173)=3 exch2_pij(1,4,173)=1 exch2_pij(2,4,173)=0 exch2_pij(3,4,173)=0 exch2_pij(4,4,173)=1 exch2_oi(4,173)=0 exch2_oj(4,173)=0 RETURN END SUBROUTINE W2_E2SETUP_174 C Topology for tile 174 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(174)=85 exch2_tNy(174)=85 exch2_tBasex(174)=425 exch2_tBasey(174)=340 exch2_txGlobalo(174)=2466 exch2_tyGlobalo(174)=341 exch2_isWedge(174)=0 exch2_isNedge(174)=0 exch2_isEedge(174)=1 exch2_isSedge(174)=0 exch2_myFace(174)=5 exch2_mydNx(174)=510 exch2_mydNy(174)=510 exch2_nNeighbours(174)=4 exch2_neighbourId(1,174)=180 exch2_iLo(1,174)=0 exch2_iHi(1,174)=86 exch2_jLo(1,174)=86 exch2_jHi(1,174)=86 exch2_opposingSend(1,174)=2 exch2_pij(1,1,174)=1 exch2_pij(2,1,174)=0 exch2_pij(3,1,174)=0 exch2_pij(4,1,174)=1 exch2_oi(1,174)=0 exch2_oj(1,174)=0 exch2_neighbourId(2,174)=168 exch2_iLo(2,174)=0 exch2_iHi(2,174)=86 exch2_jLo(2,174)=0 exch2_jHi(2,174)=0 exch2_opposingSend(2,174)=1 exch2_pij(1,2,174)=1 exch2_pij(2,2,174)=0 exch2_pij(3,2,174)=0 exch2_pij(4,2,174)=1 exch2_oi(2,174)=0 exch2_oj(2,174)=0 exch2_neighbourId(3,174)=205 exch2_iLo(3,174)=86 exch2_iHi(3,174)=86 exch2_jLo(3,174)=0 exch2_jHi(3,174)=86 exch2_opposingSend(3,174)=4 exch2_pij(1,3,174)=1 exch2_pij(2,3,174)=0 exch2_pij(3,3,174)=0 exch2_pij(4,3,174)=1 exch2_oi(3,174)=510 exch2_oj(3,174)=0 exch2_neighbourId(4,174)=173 exch2_iLo(4,174)=0 exch2_iHi(4,174)=0 exch2_jLo(4,174)=0 exch2_jHi(4,174)=86 exch2_opposingSend(4,174)=3 exch2_pij(1,4,174)=1 exch2_pij(2,4,174)=0 exch2_pij(3,4,174)=0 exch2_pij(4,4,174)=1 exch2_oi(4,174)=0 exch2_oj(4,174)=0 RETURN END SUBROUTINE W2_E2SETUP_175 C Topology for tile 175 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(175)=85 exch2_tNy(175)=85 exch2_tBasex(175)=0 exch2_tBasey(175)=425 exch2_txGlobalo(175)=2041 exch2_tyGlobalo(175)=426 exch2_isWedge(175)=1 exch2_isNedge(175)=1 exch2_isEedge(175)=0 exch2_isSedge(175)=0 exch2_myFace(175)=5 exch2_mydNx(175)=510 exch2_mydNy(175)=510 exch2_nNeighbours(175)=4 exch2_neighbourId(1,175)=31 exch2_iLo(1,175)=0 exch2_iHi(1,175)=86 exch2_jLo(1,175)=86 exch2_jHi(1,175)=86 exch2_opposingSend(1,175)=4 exch2_pij(1,1,175)=0 exch2_pij(2,1,175)=-1 exch2_pij(3,1,175)=1 exch2_pij(4,1,175)=0 exch2_oi(1,175)=511 exch2_oj(1,175)=510 exch2_neighbourId(2,175)=169 exch2_iLo(2,175)=0 exch2_iHi(2,175)=86 exch2_jLo(2,175)=0 exch2_jHi(2,175)=0 exch2_opposingSend(2,175)=1 exch2_pij(1,2,175)=1 exch2_pij(2,2,175)=0 exch2_pij(3,2,175)=0 exch2_pij(4,2,175)=1 exch2_oi(2,175)=0 exch2_oj(2,175)=0 exch2_neighbourId(3,175)=176 exch2_iLo(3,175)=86 exch2_iHi(3,175)=86 exch2_jLo(3,175)=0 exch2_jHi(3,175)=86 exch2_opposingSend(3,175)=4 exch2_pij(1,3,175)=1 exch2_pij(2,3,175)=0 exch2_pij(3,3,175)=0 exch2_pij(4,3,175)=1 exch2_oi(3,175)=0 exch2_oj(3,175)=0 exch2_neighbourId(4,175)=103 exch2_iLo(4,175)=0 exch2_iHi(4,175)=0 exch2_jLo(4,175)=0 exch2_jHi(4,175)=86 exch2_opposingSend(4,175)=1 exch2_pij(1,4,175)=0 exch2_pij(2,4,175)=1 exch2_pij(3,4,175)=-1 exch2_pij(4,4,175)=0 exch2_oi(4,175)=-510 exch2_oj(4,175)=511 RETURN END SUBROUTINE W2_E2SETUP_176 C Topology for tile 176 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(176)=85 exch2_tNy(176)=85 exch2_tBasex(176)=85 exch2_tBasey(176)=425 exch2_txGlobalo(176)=2126 exch2_tyGlobalo(176)=426 exch2_isWedge(176)=0 exch2_isNedge(176)=1 exch2_isEedge(176)=0 exch2_isSedge(176)=0 exch2_myFace(176)=5 exch2_mydNx(176)=510 exch2_mydNy(176)=510 exch2_nNeighbours(176)=4 exch2_neighbourId(1,176)=25 exch2_iLo(1,176)=0 exch2_iHi(1,176)=86 exch2_jLo(1,176)=86 exch2_jHi(1,176)=86 exch2_opposingSend(1,176)=4 exch2_pij(1,1,176)=0 exch2_pij(2,1,176)=-1 exch2_pij(3,1,176)=1 exch2_pij(4,1,176)=0 exch2_oi(1,176)=511 exch2_oj(1,176)=510 exch2_neighbourId(2,176)=170 exch2_iLo(2,176)=0 exch2_iHi(2,176)=86 exch2_jLo(2,176)=0 exch2_jHi(2,176)=0 exch2_opposingSend(2,176)=1 exch2_pij(1,2,176)=1 exch2_pij(2,2,176)=0 exch2_pij(3,2,176)=0 exch2_pij(4,2,176)=1 exch2_oi(2,176)=0 exch2_oj(2,176)=0 exch2_neighbourId(3,176)=177 exch2_iLo(3,176)=86 exch2_iHi(3,176)=86 exch2_jLo(3,176)=0 exch2_jHi(3,176)=86 exch2_opposingSend(3,176)=4 exch2_pij(1,3,176)=1 exch2_pij(2,3,176)=0 exch2_pij(3,3,176)=0 exch2_pij(4,3,176)=1 exch2_oi(3,176)=0 exch2_oj(3,176)=0 exch2_neighbourId(4,176)=175 exch2_iLo(4,176)=0 exch2_iHi(4,176)=0 exch2_jLo(4,176)=0 exch2_jHi(4,176)=86 exch2_opposingSend(4,176)=3 exch2_pij(1,4,176)=1 exch2_pij(2,4,176)=0 exch2_pij(3,4,176)=0 exch2_pij(4,4,176)=1 exch2_oi(4,176)=0 exch2_oj(4,176)=0 RETURN END SUBROUTINE W2_E2SETUP_177 C Topology for tile 177 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(177)=85 exch2_tNy(177)=85 exch2_tBasex(177)=170 exch2_tBasey(177)=425 exch2_txGlobalo(177)=2211 exch2_tyGlobalo(177)=426 exch2_isWedge(177)=0 exch2_isNedge(177)=1 exch2_isEedge(177)=0 exch2_isSedge(177)=0 exch2_myFace(177)=5 exch2_mydNx(177)=510 exch2_mydNy(177)=510 exch2_nNeighbours(177)=4 exch2_neighbourId(1,177)=19 exch2_iLo(1,177)=0 exch2_iHi(1,177)=86 exch2_jLo(1,177)=86 exch2_jHi(1,177)=86 exch2_opposingSend(1,177)=4 exch2_pij(1,1,177)=0 exch2_pij(2,1,177)=-1 exch2_pij(3,1,177)=1 exch2_pij(4,1,177)=0 exch2_oi(1,177)=511 exch2_oj(1,177)=510 exch2_neighbourId(2,177)=171 exch2_iLo(2,177)=0 exch2_iHi(2,177)=86 exch2_jLo(2,177)=0 exch2_jHi(2,177)=0 exch2_opposingSend(2,177)=1 exch2_pij(1,2,177)=1 exch2_pij(2,2,177)=0 exch2_pij(3,2,177)=0 exch2_pij(4,2,177)=1 exch2_oi(2,177)=0 exch2_oj(2,177)=0 exch2_neighbourId(3,177)=178 exch2_iLo(3,177)=86 exch2_iHi(3,177)=86 exch2_jLo(3,177)=0 exch2_jHi(3,177)=86 exch2_opposingSend(3,177)=4 exch2_pij(1,3,177)=1 exch2_pij(2,3,177)=0 exch2_pij(3,3,177)=0 exch2_pij(4,3,177)=1 exch2_oi(3,177)=0 exch2_oj(3,177)=0 exch2_neighbourId(4,177)=176 exch2_iLo(4,177)=0 exch2_iHi(4,177)=0 exch2_jLo(4,177)=0 exch2_jHi(4,177)=86 exch2_opposingSend(4,177)=3 exch2_pij(1,4,177)=1 exch2_pij(2,4,177)=0 exch2_pij(3,4,177)=0 exch2_pij(4,4,177)=1 exch2_oi(4,177)=0 exch2_oj(4,177)=0 RETURN END SUBROUTINE W2_E2SETUP_178 C Topology for tile 178 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(178)=85 exch2_tNy(178)=85 exch2_tBasex(178)=255 exch2_tBasey(178)=425 exch2_txGlobalo(178)=2296 exch2_tyGlobalo(178)=426 exch2_isWedge(178)=0 exch2_isNedge(178)=1 exch2_isEedge(178)=0 exch2_isSedge(178)=0 exch2_myFace(178)=5 exch2_mydNx(178)=510 exch2_mydNy(178)=510 exch2_nNeighbours(178)=4 exch2_neighbourId(1,178)=13 exch2_iLo(1,178)=0 exch2_iHi(1,178)=86 exch2_jLo(1,178)=86 exch2_jHi(1,178)=86 exch2_opposingSend(1,178)=4 exch2_pij(1,1,178)=0 exch2_pij(2,1,178)=-1 exch2_pij(3,1,178)=1 exch2_pij(4,1,178)=0 exch2_oi(1,178)=511 exch2_oj(1,178)=510 exch2_neighbourId(2,178)=172 exch2_iLo(2,178)=0 exch2_iHi(2,178)=86 exch2_jLo(2,178)=0 exch2_jHi(2,178)=0 exch2_opposingSend(2,178)=1 exch2_pij(1,2,178)=1 exch2_pij(2,2,178)=0 exch2_pij(3,2,178)=0 exch2_pij(4,2,178)=1 exch2_oi(2,178)=0 exch2_oj(2,178)=0 exch2_neighbourId(3,178)=179 exch2_iLo(3,178)=86 exch2_iHi(3,178)=86 exch2_jLo(3,178)=0 exch2_jHi(3,178)=86 exch2_opposingSend(3,178)=4 exch2_pij(1,3,178)=1 exch2_pij(2,3,178)=0 exch2_pij(3,3,178)=0 exch2_pij(4,3,178)=1 exch2_oi(3,178)=0 exch2_oj(3,178)=0 exch2_neighbourId(4,178)=177 exch2_iLo(4,178)=0 exch2_iHi(4,178)=0 exch2_jLo(4,178)=0 exch2_jHi(4,178)=86 exch2_opposingSend(4,178)=3 exch2_pij(1,4,178)=1 exch2_pij(2,4,178)=0 exch2_pij(3,4,178)=0 exch2_pij(4,4,178)=1 exch2_oi(4,178)=0 exch2_oj(4,178)=0 RETURN END SUBROUTINE W2_E2SETUP_179 C Topology for tile 179 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(179)=85 exch2_tNy(179)=85 exch2_tBasex(179)=340 exch2_tBasey(179)=425 exch2_txGlobalo(179)=2381 exch2_tyGlobalo(179)=426 exch2_isWedge(179)=0 exch2_isNedge(179)=1 exch2_isEedge(179)=0 exch2_isSedge(179)=0 exch2_myFace(179)=5 exch2_mydNx(179)=510 exch2_mydNy(179)=510 exch2_nNeighbours(179)=4 exch2_neighbourId(1,179)=7 exch2_iLo(1,179)=0 exch2_iHi(1,179)=86 exch2_jLo(1,179)=86 exch2_jHi(1,179)=86 exch2_opposingSend(1,179)=4 exch2_pij(1,1,179)=0 exch2_pij(2,1,179)=-1 exch2_pij(3,1,179)=1 exch2_pij(4,1,179)=0 exch2_oi(1,179)=511 exch2_oj(1,179)=510 exch2_neighbourId(2,179)=173 exch2_iLo(2,179)=0 exch2_iHi(2,179)=86 exch2_jLo(2,179)=0 exch2_jHi(2,179)=0 exch2_opposingSend(2,179)=1 exch2_pij(1,2,179)=1 exch2_pij(2,2,179)=0 exch2_pij(3,2,179)=0 exch2_pij(4,2,179)=1 exch2_oi(2,179)=0 exch2_oj(2,179)=0 exch2_neighbourId(3,179)=180 exch2_iLo(3,179)=86 exch2_iHi(3,179)=86 exch2_jLo(3,179)=0 exch2_jHi(3,179)=86 exch2_opposingSend(3,179)=4 exch2_pij(1,3,179)=1 exch2_pij(2,3,179)=0 exch2_pij(3,3,179)=0 exch2_pij(4,3,179)=1 exch2_oi(3,179)=0 exch2_oj(3,179)=0 exch2_neighbourId(4,179)=178 exch2_iLo(4,179)=0 exch2_iHi(4,179)=0 exch2_jLo(4,179)=0 exch2_jHi(4,179)=86 exch2_opposingSend(4,179)=3 exch2_pij(1,4,179)=1 exch2_pij(2,4,179)=0 exch2_pij(3,4,179)=0 exch2_pij(4,4,179)=1 exch2_oi(4,179)=0 exch2_oj(4,179)=0 RETURN END SUBROUTINE W2_E2SETUP_180 C Topology for tile 180 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(180)=85 exch2_tNy(180)=85 exch2_tBasex(180)=425 exch2_tBasey(180)=425 exch2_txGlobalo(180)=2466 exch2_tyGlobalo(180)=426 exch2_isWedge(180)=0 exch2_isNedge(180)=1 exch2_isEedge(180)=1 exch2_isSedge(180)=0 exch2_myFace(180)=5 exch2_mydNx(180)=510 exch2_mydNy(180)=510 exch2_nNeighbours(180)=4 exch2_neighbourId(1,180)=1 exch2_iLo(1,180)=0 exch2_iHi(1,180)=86 exch2_jLo(1,180)=86 exch2_jHi(1,180)=86 exch2_opposingSend(1,180)=4 exch2_pij(1,1,180)=0 exch2_pij(2,1,180)=-1 exch2_pij(3,1,180)=1 exch2_pij(4,1,180)=0 exch2_oi(1,180)=511 exch2_oj(1,180)=510 exch2_neighbourId(2,180)=174 exch2_iLo(2,180)=0 exch2_iHi(2,180)=86 exch2_jLo(2,180)=0 exch2_jHi(2,180)=0 exch2_opposingSend(2,180)=1 exch2_pij(1,2,180)=1 exch2_pij(2,2,180)=0 exch2_pij(3,2,180)=0 exch2_pij(4,2,180)=1 exch2_oi(2,180)=0 exch2_oj(2,180)=0 exch2_neighbourId(3,180)=211 exch2_iLo(3,180)=86 exch2_iHi(3,180)=86 exch2_jLo(3,180)=0 exch2_jHi(3,180)=86 exch2_opposingSend(3,180)=4 exch2_pij(1,3,180)=1 exch2_pij(2,3,180)=0 exch2_pij(3,3,180)=0 exch2_pij(4,3,180)=1 exch2_oi(3,180)=510 exch2_oj(3,180)=0 exch2_neighbourId(4,180)=179 exch2_iLo(4,180)=0 exch2_iHi(4,180)=0 exch2_jLo(4,180)=0 exch2_jHi(4,180)=86 exch2_opposingSend(4,180)=3 exch2_pij(1,4,180)=1 exch2_pij(2,4,180)=0 exch2_pij(3,4,180)=0 exch2_pij(4,4,180)=1 exch2_oi(4,180)=0 exch2_oj(4,180)=0 RETURN END SUBROUTINE W2_E2SETUP_181 C Topology for tile 181 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(181)=85 exch2_tNy(181)=85 exch2_tBasex(181)=0 exch2_tBasey(181)=0 exch2_txGlobalo(181)=2551 exch2_tyGlobalo(181)=1 exch2_isWedge(181)=1 exch2_isNedge(181)=0 exch2_isEedge(181)=0 exch2_isSedge(181)=1 exch2_myFace(181)=6 exch2_mydNx(181)=510 exch2_mydNy(181)=510 exch2_nNeighbours(181)=4 exch2_neighbourId(1,181)=187 exch2_iLo(1,181)=0 exch2_iHi(1,181)=86 exch2_jLo(1,181)=86 exch2_jHi(1,181)=86 exch2_opposingSend(1,181)=2 exch2_pij(1,1,181)=1 exch2_pij(2,1,181)=0 exch2_pij(3,1,181)=0 exch2_pij(4,1,181)=1 exch2_oi(1,181)=0 exch2_oj(1,181)=0 exch2_neighbourId(2,181)=144 exch2_iLo(2,181)=0 exch2_iHi(2,181)=86 exch2_jLo(2,181)=0 exch2_jHi(2,181)=0 exch2_opposingSend(2,181)=3 exch2_pij(1,2,181)=0 exch2_pij(2,2,181)=-1 exch2_pij(3,2,181)=1 exch2_pij(4,2,181)=0 exch2_oi(2,181)=511 exch2_oj(2,181)=-510 exch2_neighbourId(3,181)=182 exch2_iLo(3,181)=86 exch2_iHi(3,181)=86 exch2_jLo(3,181)=0 exch2_jHi(3,181)=86 exch2_opposingSend(3,181)=4 exch2_pij(1,3,181)=1 exch2_pij(2,3,181)=0 exch2_pij(3,3,181)=0 exch2_pij(4,3,181)=1 exch2_oi(3,181)=0 exch2_oj(3,181)=0 exch2_neighbourId(4,181)=150 exch2_iLo(4,181)=0 exch2_iHi(4,181)=0 exch2_jLo(4,181)=0 exch2_jHi(4,181)=86 exch2_opposingSend(4,181)=3 exch2_pij(1,4,181)=1 exch2_pij(2,4,181)=0 exch2_pij(3,4,181)=0 exch2_pij(4,4,181)=1 exch2_oi(4,181)=-510 exch2_oj(4,181)=0 RETURN END SUBROUTINE W2_E2SETUP_182 C Topology for tile 182 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(182)=85 exch2_tNy(182)=85 exch2_tBasex(182)=85 exch2_tBasey(182)=0 exch2_txGlobalo(182)=2636 exch2_tyGlobalo(182)=1 exch2_isWedge(182)=0 exch2_isNedge(182)=0 exch2_isEedge(182)=0 exch2_isSedge(182)=1 exch2_myFace(182)=6 exch2_mydNx(182)=510 exch2_mydNy(182)=510 exch2_nNeighbours(182)=4 exch2_neighbourId(1,182)=188 exch2_iLo(1,182)=0 exch2_iHi(1,182)=86 exch2_jLo(1,182)=86 exch2_jHi(1,182)=86 exch2_opposingSend(1,182)=2 exch2_pij(1,1,182)=1 exch2_pij(2,1,182)=0 exch2_pij(3,1,182)=0 exch2_pij(4,1,182)=1 exch2_oi(1,182)=0 exch2_oj(1,182)=0 exch2_neighbourId(2,182)=138 exch2_iLo(2,182)=0 exch2_iHi(2,182)=86 exch2_jLo(2,182)=0 exch2_jHi(2,182)=0 exch2_opposingSend(2,182)=3 exch2_pij(1,2,182)=0 exch2_pij(2,2,182)=-1 exch2_pij(3,2,182)=1 exch2_pij(4,2,182)=0 exch2_oi(2,182)=511 exch2_oj(2,182)=-510 exch2_neighbourId(3,182)=183 exch2_iLo(3,182)=86 exch2_iHi(3,182)=86 exch2_jLo(3,182)=0 exch2_jHi(3,182)=86 exch2_opposingSend(3,182)=4 exch2_pij(1,3,182)=1 exch2_pij(2,3,182)=0 exch2_pij(3,3,182)=0 exch2_pij(4,3,182)=1 exch2_oi(3,182)=0 exch2_oj(3,182)=0 exch2_neighbourId(4,182)=181 exch2_iLo(4,182)=0 exch2_iHi(4,182)=0 exch2_jLo(4,182)=0 exch2_jHi(4,182)=86 exch2_opposingSend(4,182)=3 exch2_pij(1,4,182)=1 exch2_pij(2,4,182)=0 exch2_pij(3,4,182)=0 exch2_pij(4,4,182)=1 exch2_oi(4,182)=0 exch2_oj(4,182)=0 RETURN END SUBROUTINE W2_E2SETUP_183 C Topology for tile 183 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(183)=85 exch2_tNy(183)=85 exch2_tBasex(183)=170 exch2_tBasey(183)=0 exch2_txGlobalo(183)=2721 exch2_tyGlobalo(183)=1 exch2_isWedge(183)=0 exch2_isNedge(183)=0 exch2_isEedge(183)=0 exch2_isSedge(183)=1 exch2_myFace(183)=6 exch2_mydNx(183)=510 exch2_mydNy(183)=510 exch2_nNeighbours(183)=4 exch2_neighbourId(1,183)=189 exch2_iLo(1,183)=0 exch2_iHi(1,183)=86 exch2_jLo(1,183)=86 exch2_jHi(1,183)=86 exch2_opposingSend(1,183)=2 exch2_pij(1,1,183)=1 exch2_pij(2,1,183)=0 exch2_pij(3,1,183)=0 exch2_pij(4,1,183)=1 exch2_oi(1,183)=0 exch2_oj(1,183)=0 exch2_neighbourId(2,183)=132 exch2_iLo(2,183)=0 exch2_iHi(2,183)=86 exch2_jLo(2,183)=0 exch2_jHi(2,183)=0 exch2_opposingSend(2,183)=3 exch2_pij(1,2,183)=0 exch2_pij(2,2,183)=-1 exch2_pij(3,2,183)=1 exch2_pij(4,2,183)=0 exch2_oi(2,183)=511 exch2_oj(2,183)=-510 exch2_neighbourId(3,183)=184 exch2_iLo(3,183)=86 exch2_iHi(3,183)=86 exch2_jLo(3,183)=0 exch2_jHi(3,183)=86 exch2_opposingSend(3,183)=4 exch2_pij(1,3,183)=1 exch2_pij(2,3,183)=0 exch2_pij(3,3,183)=0 exch2_pij(4,3,183)=1 exch2_oi(3,183)=0 exch2_oj(3,183)=0 exch2_neighbourId(4,183)=182 exch2_iLo(4,183)=0 exch2_iHi(4,183)=0 exch2_jLo(4,183)=0 exch2_jHi(4,183)=86 exch2_opposingSend(4,183)=3 exch2_pij(1,4,183)=1 exch2_pij(2,4,183)=0 exch2_pij(3,4,183)=0 exch2_pij(4,4,183)=1 exch2_oi(4,183)=0 exch2_oj(4,183)=0 RETURN END SUBROUTINE W2_E2SETUP_184 C Topology for tile 184 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(184)=85 exch2_tNy(184)=85 exch2_tBasex(184)=255 exch2_tBasey(184)=0 exch2_txGlobalo(184)=2806 exch2_tyGlobalo(184)=1 exch2_isWedge(184)=0 exch2_isNedge(184)=0 exch2_isEedge(184)=0 exch2_isSedge(184)=1 exch2_myFace(184)=6 exch2_mydNx(184)=510 exch2_mydNy(184)=510 exch2_nNeighbours(184)=4 exch2_neighbourId(1,184)=190 exch2_iLo(1,184)=0 exch2_iHi(1,184)=86 exch2_jLo(1,184)=86 exch2_jHi(1,184)=86 exch2_opposingSend(1,184)=2 exch2_pij(1,1,184)=1 exch2_pij(2,1,184)=0 exch2_pij(3,1,184)=0 exch2_pij(4,1,184)=1 exch2_oi(1,184)=0 exch2_oj(1,184)=0 exch2_neighbourId(2,184)=126 exch2_iLo(2,184)=0 exch2_iHi(2,184)=86 exch2_jLo(2,184)=0 exch2_jHi(2,184)=0 exch2_opposingSend(2,184)=3 exch2_pij(1,2,184)=0 exch2_pij(2,2,184)=-1 exch2_pij(3,2,184)=1 exch2_pij(4,2,184)=0 exch2_oi(2,184)=511 exch2_oj(2,184)=-510 exch2_neighbourId(3,184)=185 exch2_iLo(3,184)=86 exch2_iHi(3,184)=86 exch2_jLo(3,184)=0 exch2_jHi(3,184)=86 exch2_opposingSend(3,184)=4 exch2_pij(1,3,184)=1 exch2_pij(2,3,184)=0 exch2_pij(3,3,184)=0 exch2_pij(4,3,184)=1 exch2_oi(3,184)=0 exch2_oj(3,184)=0 exch2_neighbourId(4,184)=183 exch2_iLo(4,184)=0 exch2_iHi(4,184)=0 exch2_jLo(4,184)=0 exch2_jHi(4,184)=86 exch2_opposingSend(4,184)=3 exch2_pij(1,4,184)=1 exch2_pij(2,4,184)=0 exch2_pij(3,4,184)=0 exch2_pij(4,4,184)=1 exch2_oi(4,184)=0 exch2_oj(4,184)=0 RETURN END SUBROUTINE W2_E2SETUP_185 C Topology for tile 185 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(185)=85 exch2_tNy(185)=85 exch2_tBasex(185)=340 exch2_tBasey(185)=0 exch2_txGlobalo(185)=2891 exch2_tyGlobalo(185)=1 exch2_isWedge(185)=0 exch2_isNedge(185)=0 exch2_isEedge(185)=0 exch2_isSedge(185)=1 exch2_myFace(185)=6 exch2_mydNx(185)=510 exch2_mydNy(185)=510 exch2_nNeighbours(185)=4 exch2_neighbourId(1,185)=191 exch2_iLo(1,185)=0 exch2_iHi(1,185)=86 exch2_jLo(1,185)=86 exch2_jHi(1,185)=86 exch2_opposingSend(1,185)=2 exch2_pij(1,1,185)=1 exch2_pij(2,1,185)=0 exch2_pij(3,1,185)=0 exch2_pij(4,1,185)=1 exch2_oi(1,185)=0 exch2_oj(1,185)=0 exch2_neighbourId(2,185)=120 exch2_iLo(2,185)=0 exch2_iHi(2,185)=86 exch2_jLo(2,185)=0 exch2_jHi(2,185)=0 exch2_opposingSend(2,185)=3 exch2_pij(1,2,185)=0 exch2_pij(2,2,185)=-1 exch2_pij(3,2,185)=1 exch2_pij(4,2,185)=0 exch2_oi(2,185)=511 exch2_oj(2,185)=-510 exch2_neighbourId(3,185)=186 exch2_iLo(3,185)=86 exch2_iHi(3,185)=86 exch2_jLo(3,185)=0 exch2_jHi(3,185)=86 exch2_opposingSend(3,185)=4 exch2_pij(1,3,185)=1 exch2_pij(2,3,185)=0 exch2_pij(3,3,185)=0 exch2_pij(4,3,185)=1 exch2_oi(3,185)=0 exch2_oj(3,185)=0 exch2_neighbourId(4,185)=184 exch2_iLo(4,185)=0 exch2_iHi(4,185)=0 exch2_jLo(4,185)=0 exch2_jHi(4,185)=86 exch2_opposingSend(4,185)=3 exch2_pij(1,4,185)=1 exch2_pij(2,4,185)=0 exch2_pij(3,4,185)=0 exch2_pij(4,4,185)=1 exch2_oi(4,185)=0 exch2_oj(4,185)=0 RETURN END SUBROUTINE W2_E2SETUP_186 C Topology for tile 186 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(186)=85 exch2_tNy(186)=85 exch2_tBasex(186)=425 exch2_tBasey(186)=0 exch2_txGlobalo(186)=2976 exch2_tyGlobalo(186)=1 exch2_isWedge(186)=0 exch2_isNedge(186)=0 exch2_isEedge(186)=1 exch2_isSedge(186)=1 exch2_myFace(186)=6 exch2_mydNx(186)=510 exch2_mydNy(186)=510 exch2_nNeighbours(186)=4 exch2_neighbourId(1,186)=192 exch2_iLo(1,186)=0 exch2_iHi(1,186)=86 exch2_jLo(1,186)=86 exch2_jHi(1,186)=86 exch2_opposingSend(1,186)=2 exch2_pij(1,1,186)=1 exch2_pij(2,1,186)=0 exch2_pij(3,1,186)=0 exch2_pij(4,1,186)=1 exch2_oi(1,186)=0 exch2_oj(1,186)=0 exch2_neighbourId(2,186)=114 exch2_iLo(2,186)=0 exch2_iHi(2,186)=86 exch2_jLo(2,186)=0 exch2_jHi(2,186)=0 exch2_opposingSend(2,186)=3 exch2_pij(1,2,186)=0 exch2_pij(2,2,186)=-1 exch2_pij(3,2,186)=1 exch2_pij(4,2,186)=0 exch2_oi(2,186)=511 exch2_oj(2,186)=-510 exch2_neighbourId(3,186)=42 exch2_iLo(3,186)=86 exch2_iHi(3,186)=86 exch2_jLo(3,186)=0 exch2_jHi(3,186)=86 exch2_opposingSend(3,186)=2 exch2_pij(1,3,186)=0 exch2_pij(2,3,186)=1 exch2_pij(3,3,186)=-1 exch2_pij(4,3,186)=0 exch2_oi(3,186)=510 exch2_oj(3,186)=511 exch2_neighbourId(4,186)=185 exch2_iLo(4,186)=0 exch2_iHi(4,186)=0 exch2_jLo(4,186)=0 exch2_jHi(4,186)=86 exch2_opposingSend(4,186)=3 exch2_pij(1,4,186)=1 exch2_pij(2,4,186)=0 exch2_pij(3,4,186)=0 exch2_pij(4,4,186)=1 exch2_oi(4,186)=0 exch2_oj(4,186)=0 RETURN END SUBROUTINE W2_E2SETUP_187 C Topology for tile 187 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(187)=85 exch2_tNy(187)=85 exch2_tBasex(187)=0 exch2_tBasey(187)=85 exch2_txGlobalo(187)=2551 exch2_tyGlobalo(187)=86 exch2_isWedge(187)=1 exch2_isNedge(187)=0 exch2_isEedge(187)=0 exch2_isSedge(187)=0 exch2_myFace(187)=6 exch2_mydNx(187)=510 exch2_mydNy(187)=510 exch2_nNeighbours(187)=4 exch2_neighbourId(1,187)=193 exch2_iLo(1,187)=0 exch2_iHi(1,187)=86 exch2_jLo(1,187)=86 exch2_jHi(1,187)=86 exch2_opposingSend(1,187)=2 exch2_pij(1,1,187)=1 exch2_pij(2,1,187)=0 exch2_pij(3,1,187)=0 exch2_pij(4,1,187)=1 exch2_oi(1,187)=0 exch2_oj(1,187)=0 exch2_neighbourId(2,187)=181 exch2_iLo(2,187)=0 exch2_iHi(2,187)=86 exch2_jLo(2,187)=0 exch2_jHi(2,187)=0 exch2_opposingSend(2,187)=1 exch2_pij(1,2,187)=1 exch2_pij(2,2,187)=0 exch2_pij(3,2,187)=0 exch2_pij(4,2,187)=1 exch2_oi(2,187)=0 exch2_oj(2,187)=0 exch2_neighbourId(3,187)=188 exch2_iLo(3,187)=86 exch2_iHi(3,187)=86 exch2_jLo(3,187)=0 exch2_jHi(3,187)=86 exch2_opposingSend(3,187)=4 exch2_pij(1,3,187)=1 exch2_pij(2,3,187)=0 exch2_pij(3,3,187)=0 exch2_pij(4,3,187)=1 exch2_oi(3,187)=0 exch2_oj(3,187)=0 exch2_neighbourId(4,187)=156 exch2_iLo(4,187)=0 exch2_iHi(4,187)=0 exch2_jLo(4,187)=0 exch2_jHi(4,187)=86 exch2_opposingSend(4,187)=3 exch2_pij(1,4,187)=1 exch2_pij(2,4,187)=0 exch2_pij(3,4,187)=0 exch2_pij(4,4,187)=1 exch2_oi(4,187)=-510 exch2_oj(4,187)=0 RETURN END SUBROUTINE W2_E2SETUP_188 C Topology for tile 188 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(188)=85 exch2_tNy(188)=85 exch2_tBasex(188)=85 exch2_tBasey(188)=85 exch2_txGlobalo(188)=2636 exch2_tyGlobalo(188)=86 exch2_isWedge(188)=0 exch2_isNedge(188)=0 exch2_isEedge(188)=0 exch2_isSedge(188)=0 exch2_myFace(188)=6 exch2_mydNx(188)=510 exch2_mydNy(188)=510 exch2_nNeighbours(188)=4 exch2_neighbourId(1,188)=194 exch2_iLo(1,188)=0 exch2_iHi(1,188)=86 exch2_jLo(1,188)=86 exch2_jHi(1,188)=86 exch2_opposingSend(1,188)=2 exch2_pij(1,1,188)=1 exch2_pij(2,1,188)=0 exch2_pij(3,1,188)=0 exch2_pij(4,1,188)=1 exch2_oi(1,188)=0 exch2_oj(1,188)=0 exch2_neighbourId(2,188)=182 exch2_iLo(2,188)=0 exch2_iHi(2,188)=86 exch2_jLo(2,188)=0 exch2_jHi(2,188)=0 exch2_opposingSend(2,188)=1 exch2_pij(1,2,188)=1 exch2_pij(2,2,188)=0 exch2_pij(3,2,188)=0 exch2_pij(4,2,188)=1 exch2_oi(2,188)=0 exch2_oj(2,188)=0 exch2_neighbourId(3,188)=189 exch2_iLo(3,188)=86 exch2_iHi(3,188)=86 exch2_jLo(3,188)=0 exch2_jHi(3,188)=86 exch2_opposingSend(3,188)=4 exch2_pij(1,3,188)=1 exch2_pij(2,3,188)=0 exch2_pij(3,3,188)=0 exch2_pij(4,3,188)=1 exch2_oi(3,188)=0 exch2_oj(3,188)=0 exch2_neighbourId(4,188)=187 exch2_iLo(4,188)=0 exch2_iHi(4,188)=0 exch2_jLo(4,188)=0 exch2_jHi(4,188)=86 exch2_opposingSend(4,188)=3 exch2_pij(1,4,188)=1 exch2_pij(2,4,188)=0 exch2_pij(3,4,188)=0 exch2_pij(4,4,188)=1 exch2_oi(4,188)=0 exch2_oj(4,188)=0 RETURN END SUBROUTINE W2_E2SETUP_189 C Topology for tile 189 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(189)=85 exch2_tNy(189)=85 exch2_tBasex(189)=170 exch2_tBasey(189)=85 exch2_txGlobalo(189)=2721 exch2_tyGlobalo(189)=86 exch2_isWedge(189)=0 exch2_isNedge(189)=0 exch2_isEedge(189)=0 exch2_isSedge(189)=0 exch2_myFace(189)=6 exch2_mydNx(189)=510 exch2_mydNy(189)=510 exch2_nNeighbours(189)=4 exch2_neighbourId(1,189)=195 exch2_iLo(1,189)=0 exch2_iHi(1,189)=86 exch2_jLo(1,189)=86 exch2_jHi(1,189)=86 exch2_opposingSend(1,189)=2 exch2_pij(1,1,189)=1 exch2_pij(2,1,189)=0 exch2_pij(3,1,189)=0 exch2_pij(4,1,189)=1 exch2_oi(1,189)=0 exch2_oj(1,189)=0 exch2_neighbourId(2,189)=183 exch2_iLo(2,189)=0 exch2_iHi(2,189)=86 exch2_jLo(2,189)=0 exch2_jHi(2,189)=0 exch2_opposingSend(2,189)=1 exch2_pij(1,2,189)=1 exch2_pij(2,2,189)=0 exch2_pij(3,2,189)=0 exch2_pij(4,2,189)=1 exch2_oi(2,189)=0 exch2_oj(2,189)=0 exch2_neighbourId(3,189)=190 exch2_iLo(3,189)=86 exch2_iHi(3,189)=86 exch2_jLo(3,189)=0 exch2_jHi(3,189)=86 exch2_opposingSend(3,189)=4 exch2_pij(1,3,189)=1 exch2_pij(2,3,189)=0 exch2_pij(3,3,189)=0 exch2_pij(4,3,189)=1 exch2_oi(3,189)=0 exch2_oj(3,189)=0 exch2_neighbourId(4,189)=188 exch2_iLo(4,189)=0 exch2_iHi(4,189)=0 exch2_jLo(4,189)=0 exch2_jHi(4,189)=86 exch2_opposingSend(4,189)=3 exch2_pij(1,4,189)=1 exch2_pij(2,4,189)=0 exch2_pij(3,4,189)=0 exch2_pij(4,4,189)=1 exch2_oi(4,189)=0 exch2_oj(4,189)=0 RETURN END SUBROUTINE W2_E2SETUP_190 C Topology for tile 190 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(190)=85 exch2_tNy(190)=85 exch2_tBasex(190)=255 exch2_tBasey(190)=85 exch2_txGlobalo(190)=2806 exch2_tyGlobalo(190)=86 exch2_isWedge(190)=0 exch2_isNedge(190)=0 exch2_isEedge(190)=0 exch2_isSedge(190)=0 exch2_myFace(190)=6 exch2_mydNx(190)=510 exch2_mydNy(190)=510 exch2_nNeighbours(190)=4 exch2_neighbourId(1,190)=196 exch2_iLo(1,190)=0 exch2_iHi(1,190)=86 exch2_jLo(1,190)=86 exch2_jHi(1,190)=86 exch2_opposingSend(1,190)=2 exch2_pij(1,1,190)=1 exch2_pij(2,1,190)=0 exch2_pij(3,1,190)=0 exch2_pij(4,1,190)=1 exch2_oi(1,190)=0 exch2_oj(1,190)=0 exch2_neighbourId(2,190)=184 exch2_iLo(2,190)=0 exch2_iHi(2,190)=86 exch2_jLo(2,190)=0 exch2_jHi(2,190)=0 exch2_opposingSend(2,190)=1 exch2_pij(1,2,190)=1 exch2_pij(2,2,190)=0 exch2_pij(3,2,190)=0 exch2_pij(4,2,190)=1 exch2_oi(2,190)=0 exch2_oj(2,190)=0 exch2_neighbourId(3,190)=191 exch2_iLo(3,190)=86 exch2_iHi(3,190)=86 exch2_jLo(3,190)=0 exch2_jHi(3,190)=86 exch2_opposingSend(3,190)=4 exch2_pij(1,3,190)=1 exch2_pij(2,3,190)=0 exch2_pij(3,3,190)=0 exch2_pij(4,3,190)=1 exch2_oi(3,190)=0 exch2_oj(3,190)=0 exch2_neighbourId(4,190)=189 exch2_iLo(4,190)=0 exch2_iHi(4,190)=0 exch2_jLo(4,190)=0 exch2_jHi(4,190)=86 exch2_opposingSend(4,190)=3 exch2_pij(1,4,190)=1 exch2_pij(2,4,190)=0 exch2_pij(3,4,190)=0 exch2_pij(4,4,190)=1 exch2_oi(4,190)=0 exch2_oj(4,190)=0 RETURN END SUBROUTINE W2_E2SETUP_191 C Topology for tile 191 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(191)=85 exch2_tNy(191)=85 exch2_tBasex(191)=340 exch2_tBasey(191)=85 exch2_txGlobalo(191)=2891 exch2_tyGlobalo(191)=86 exch2_isWedge(191)=0 exch2_isNedge(191)=0 exch2_isEedge(191)=0 exch2_isSedge(191)=0 exch2_myFace(191)=6 exch2_mydNx(191)=510 exch2_mydNy(191)=510 exch2_nNeighbours(191)=4 exch2_neighbourId(1,191)=197 exch2_iLo(1,191)=0 exch2_iHi(1,191)=86 exch2_jLo(1,191)=86 exch2_jHi(1,191)=86 exch2_opposingSend(1,191)=2 exch2_pij(1,1,191)=1 exch2_pij(2,1,191)=0 exch2_pij(3,1,191)=0 exch2_pij(4,1,191)=1 exch2_oi(1,191)=0 exch2_oj(1,191)=0 exch2_neighbourId(2,191)=185 exch2_iLo(2,191)=0 exch2_iHi(2,191)=86 exch2_jLo(2,191)=0 exch2_jHi(2,191)=0 exch2_opposingSend(2,191)=1 exch2_pij(1,2,191)=1 exch2_pij(2,2,191)=0 exch2_pij(3,2,191)=0 exch2_pij(4,2,191)=1 exch2_oi(2,191)=0 exch2_oj(2,191)=0 exch2_neighbourId(3,191)=192 exch2_iLo(3,191)=86 exch2_iHi(3,191)=86 exch2_jLo(3,191)=0 exch2_jHi(3,191)=86 exch2_opposingSend(3,191)=4 exch2_pij(1,3,191)=1 exch2_pij(2,3,191)=0 exch2_pij(3,3,191)=0 exch2_pij(4,3,191)=1 exch2_oi(3,191)=0 exch2_oj(3,191)=0 exch2_neighbourId(4,191)=190 exch2_iLo(4,191)=0 exch2_iHi(4,191)=0 exch2_jLo(4,191)=0 exch2_jHi(4,191)=86 exch2_opposingSend(4,191)=3 exch2_pij(1,4,191)=1 exch2_pij(2,4,191)=0 exch2_pij(3,4,191)=0 exch2_pij(4,4,191)=1 exch2_oi(4,191)=0 exch2_oj(4,191)=0 RETURN END SUBROUTINE W2_E2SETUP_192 C Topology for tile 192 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(192)=85 exch2_tNy(192)=85 exch2_tBasex(192)=425 exch2_tBasey(192)=85 exch2_txGlobalo(192)=2976 exch2_tyGlobalo(192)=86 exch2_isWedge(192)=0 exch2_isNedge(192)=0 exch2_isEedge(192)=1 exch2_isSedge(192)=0 exch2_myFace(192)=6 exch2_mydNx(192)=510 exch2_mydNy(192)=510 exch2_nNeighbours(192)=4 exch2_neighbourId(1,192)=198 exch2_iLo(1,192)=0 exch2_iHi(1,192)=86 exch2_jLo(1,192)=86 exch2_jHi(1,192)=86 exch2_opposingSend(1,192)=2 exch2_pij(1,1,192)=1 exch2_pij(2,1,192)=0 exch2_pij(3,1,192)=0 exch2_pij(4,1,192)=1 exch2_oi(1,192)=0 exch2_oj(1,192)=0 exch2_neighbourId(2,192)=186 exch2_iLo(2,192)=0 exch2_iHi(2,192)=86 exch2_jLo(2,192)=0 exch2_jHi(2,192)=0 exch2_opposingSend(2,192)=1 exch2_pij(1,2,192)=1 exch2_pij(2,2,192)=0 exch2_pij(3,2,192)=0 exch2_pij(4,2,192)=1 exch2_oi(2,192)=0 exch2_oj(2,192)=0 exch2_neighbourId(3,192)=41 exch2_iLo(3,192)=86 exch2_iHi(3,192)=86 exch2_jLo(3,192)=0 exch2_jHi(3,192)=86 exch2_opposingSend(3,192)=2 exch2_pij(1,3,192)=0 exch2_pij(2,3,192)=1 exch2_pij(3,3,192)=-1 exch2_pij(4,3,192)=0 exch2_oi(3,192)=510 exch2_oj(3,192)=511 exch2_neighbourId(4,192)=191 exch2_iLo(4,192)=0 exch2_iHi(4,192)=0 exch2_jLo(4,192)=0 exch2_jHi(4,192)=86 exch2_opposingSend(4,192)=3 exch2_pij(1,4,192)=1 exch2_pij(2,4,192)=0 exch2_pij(3,4,192)=0 exch2_pij(4,4,192)=1 exch2_oi(4,192)=0 exch2_oj(4,192)=0 RETURN END SUBROUTINE W2_E2SETUP_193 C Topology for tile 193 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(193)=85 exch2_tNy(193)=85 exch2_tBasex(193)=0 exch2_tBasey(193)=170 exch2_txGlobalo(193)=2551 exch2_tyGlobalo(193)=171 exch2_isWedge(193)=1 exch2_isNedge(193)=0 exch2_isEedge(193)=0 exch2_isSedge(193)=0 exch2_myFace(193)=6 exch2_mydNx(193)=510 exch2_mydNy(193)=510 exch2_nNeighbours(193)=4 exch2_neighbourId(1,193)=199 exch2_iLo(1,193)=0 exch2_iHi(1,193)=86 exch2_jLo(1,193)=86 exch2_jHi(1,193)=86 exch2_opposingSend(1,193)=2 exch2_pij(1,1,193)=1 exch2_pij(2,1,193)=0 exch2_pij(3,1,193)=0 exch2_pij(4,1,193)=1 exch2_oi(1,193)=0 exch2_oj(1,193)=0 exch2_neighbourId(2,193)=187 exch2_iLo(2,193)=0 exch2_iHi(2,193)=86 exch2_jLo(2,193)=0 exch2_jHi(2,193)=0 exch2_opposingSend(2,193)=1 exch2_pij(1,2,193)=1 exch2_pij(2,2,193)=0 exch2_pij(3,2,193)=0 exch2_pij(4,2,193)=1 exch2_oi(2,193)=0 exch2_oj(2,193)=0 exch2_neighbourId(3,193)=194 exch2_iLo(3,193)=86 exch2_iHi(3,193)=86 exch2_jLo(3,193)=0 exch2_jHi(3,193)=86 exch2_opposingSend(3,193)=4 exch2_pij(1,3,193)=1 exch2_pij(2,3,193)=0 exch2_pij(3,3,193)=0 exch2_pij(4,3,193)=1 exch2_oi(3,193)=0 exch2_oj(3,193)=0 exch2_neighbourId(4,193)=162 exch2_iLo(4,193)=0 exch2_iHi(4,193)=0 exch2_jLo(4,193)=0 exch2_jHi(4,193)=86 exch2_opposingSend(4,193)=3 exch2_pij(1,4,193)=1 exch2_pij(2,4,193)=0 exch2_pij(3,4,193)=0 exch2_pij(4,4,193)=1 exch2_oi(4,193)=-510 exch2_oj(4,193)=0 RETURN END SUBROUTINE W2_E2SETUP_194 C Topology for tile 194 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(194)=85 exch2_tNy(194)=85 exch2_tBasex(194)=85 exch2_tBasey(194)=170 exch2_txGlobalo(194)=2636 exch2_tyGlobalo(194)=171 exch2_isWedge(194)=0 exch2_isNedge(194)=0 exch2_isEedge(194)=0 exch2_isSedge(194)=0 exch2_myFace(194)=6 exch2_mydNx(194)=510 exch2_mydNy(194)=510 exch2_nNeighbours(194)=4 exch2_neighbourId(1,194)=200 exch2_iLo(1,194)=0 exch2_iHi(1,194)=86 exch2_jLo(1,194)=86 exch2_jHi(1,194)=86 exch2_opposingSend(1,194)=2 exch2_pij(1,1,194)=1 exch2_pij(2,1,194)=0 exch2_pij(3,1,194)=0 exch2_pij(4,1,194)=1 exch2_oi(1,194)=0 exch2_oj(1,194)=0 exch2_neighbourId(2,194)=188 exch2_iLo(2,194)=0 exch2_iHi(2,194)=86 exch2_jLo(2,194)=0 exch2_jHi(2,194)=0 exch2_opposingSend(2,194)=1 exch2_pij(1,2,194)=1 exch2_pij(2,2,194)=0 exch2_pij(3,2,194)=0 exch2_pij(4,2,194)=1 exch2_oi(2,194)=0 exch2_oj(2,194)=0 exch2_neighbourId(3,194)=195 exch2_iLo(3,194)=86 exch2_iHi(3,194)=86 exch2_jLo(3,194)=0 exch2_jHi(3,194)=86 exch2_opposingSend(3,194)=4 exch2_pij(1,3,194)=1 exch2_pij(2,3,194)=0 exch2_pij(3,3,194)=0 exch2_pij(4,3,194)=1 exch2_oi(3,194)=0 exch2_oj(3,194)=0 exch2_neighbourId(4,194)=193 exch2_iLo(4,194)=0 exch2_iHi(4,194)=0 exch2_jLo(4,194)=0 exch2_jHi(4,194)=86 exch2_opposingSend(4,194)=3 exch2_pij(1,4,194)=1 exch2_pij(2,4,194)=0 exch2_pij(3,4,194)=0 exch2_pij(4,4,194)=1 exch2_oi(4,194)=0 exch2_oj(4,194)=0 RETURN END SUBROUTINE W2_E2SETUP_195 C Topology for tile 195 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(195)=85 exch2_tNy(195)=85 exch2_tBasex(195)=170 exch2_tBasey(195)=170 exch2_txGlobalo(195)=2721 exch2_tyGlobalo(195)=171 exch2_isWedge(195)=0 exch2_isNedge(195)=0 exch2_isEedge(195)=0 exch2_isSedge(195)=0 exch2_myFace(195)=6 exch2_mydNx(195)=510 exch2_mydNy(195)=510 exch2_nNeighbours(195)=4 exch2_neighbourId(1,195)=201 exch2_iLo(1,195)=0 exch2_iHi(1,195)=86 exch2_jLo(1,195)=86 exch2_jHi(1,195)=86 exch2_opposingSend(1,195)=2 exch2_pij(1,1,195)=1 exch2_pij(2,1,195)=0 exch2_pij(3,1,195)=0 exch2_pij(4,1,195)=1 exch2_oi(1,195)=0 exch2_oj(1,195)=0 exch2_neighbourId(2,195)=189 exch2_iLo(2,195)=0 exch2_iHi(2,195)=86 exch2_jLo(2,195)=0 exch2_jHi(2,195)=0 exch2_opposingSend(2,195)=1 exch2_pij(1,2,195)=1 exch2_pij(2,2,195)=0 exch2_pij(3,2,195)=0 exch2_pij(4,2,195)=1 exch2_oi(2,195)=0 exch2_oj(2,195)=0 exch2_neighbourId(3,195)=196 exch2_iLo(3,195)=86 exch2_iHi(3,195)=86 exch2_jLo(3,195)=0 exch2_jHi(3,195)=86 exch2_opposingSend(3,195)=4 exch2_pij(1,3,195)=1 exch2_pij(2,3,195)=0 exch2_pij(3,3,195)=0 exch2_pij(4,3,195)=1 exch2_oi(3,195)=0 exch2_oj(3,195)=0 exch2_neighbourId(4,195)=194 exch2_iLo(4,195)=0 exch2_iHi(4,195)=0 exch2_jLo(4,195)=0 exch2_jHi(4,195)=86 exch2_opposingSend(4,195)=3 exch2_pij(1,4,195)=1 exch2_pij(2,4,195)=0 exch2_pij(3,4,195)=0 exch2_pij(4,4,195)=1 exch2_oi(4,195)=0 exch2_oj(4,195)=0 RETURN END SUBROUTINE W2_E2SETUP_196 C Topology for tile 196 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(196)=85 exch2_tNy(196)=85 exch2_tBasex(196)=255 exch2_tBasey(196)=170 exch2_txGlobalo(196)=2806 exch2_tyGlobalo(196)=171 exch2_isWedge(196)=0 exch2_isNedge(196)=0 exch2_isEedge(196)=0 exch2_isSedge(196)=0 exch2_myFace(196)=6 exch2_mydNx(196)=510 exch2_mydNy(196)=510 exch2_nNeighbours(196)=4 exch2_neighbourId(1,196)=202 exch2_iLo(1,196)=0 exch2_iHi(1,196)=86 exch2_jLo(1,196)=86 exch2_jHi(1,196)=86 exch2_opposingSend(1,196)=2 exch2_pij(1,1,196)=1 exch2_pij(2,1,196)=0 exch2_pij(3,1,196)=0 exch2_pij(4,1,196)=1 exch2_oi(1,196)=0 exch2_oj(1,196)=0 exch2_neighbourId(2,196)=190 exch2_iLo(2,196)=0 exch2_iHi(2,196)=86 exch2_jLo(2,196)=0 exch2_jHi(2,196)=0 exch2_opposingSend(2,196)=1 exch2_pij(1,2,196)=1 exch2_pij(2,2,196)=0 exch2_pij(3,2,196)=0 exch2_pij(4,2,196)=1 exch2_oi(2,196)=0 exch2_oj(2,196)=0 exch2_neighbourId(3,196)=197 exch2_iLo(3,196)=86 exch2_iHi(3,196)=86 exch2_jLo(3,196)=0 exch2_jHi(3,196)=86 exch2_opposingSend(3,196)=4 exch2_pij(1,3,196)=1 exch2_pij(2,3,196)=0 exch2_pij(3,3,196)=0 exch2_pij(4,3,196)=1 exch2_oi(3,196)=0 exch2_oj(3,196)=0 exch2_neighbourId(4,196)=195 exch2_iLo(4,196)=0 exch2_iHi(4,196)=0 exch2_jLo(4,196)=0 exch2_jHi(4,196)=86 exch2_opposingSend(4,196)=3 exch2_pij(1,4,196)=1 exch2_pij(2,4,196)=0 exch2_pij(3,4,196)=0 exch2_pij(4,4,196)=1 exch2_oi(4,196)=0 exch2_oj(4,196)=0 RETURN END SUBROUTINE W2_E2SETUP_197 C Topology for tile 197 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(197)=85 exch2_tNy(197)=85 exch2_tBasex(197)=340 exch2_tBasey(197)=170 exch2_txGlobalo(197)=2891 exch2_tyGlobalo(197)=171 exch2_isWedge(197)=0 exch2_isNedge(197)=0 exch2_isEedge(197)=0 exch2_isSedge(197)=0 exch2_myFace(197)=6 exch2_mydNx(197)=510 exch2_mydNy(197)=510 exch2_nNeighbours(197)=4 exch2_neighbourId(1,197)=203 exch2_iLo(1,197)=0 exch2_iHi(1,197)=86 exch2_jLo(1,197)=86 exch2_jHi(1,197)=86 exch2_opposingSend(1,197)=2 exch2_pij(1,1,197)=1 exch2_pij(2,1,197)=0 exch2_pij(3,1,197)=0 exch2_pij(4,1,197)=1 exch2_oi(1,197)=0 exch2_oj(1,197)=0 exch2_neighbourId(2,197)=191 exch2_iLo(2,197)=0 exch2_iHi(2,197)=86 exch2_jLo(2,197)=0 exch2_jHi(2,197)=0 exch2_opposingSend(2,197)=1 exch2_pij(1,2,197)=1 exch2_pij(2,2,197)=0 exch2_pij(3,2,197)=0 exch2_pij(4,2,197)=1 exch2_oi(2,197)=0 exch2_oj(2,197)=0 exch2_neighbourId(3,197)=198 exch2_iLo(3,197)=86 exch2_iHi(3,197)=86 exch2_jLo(3,197)=0 exch2_jHi(3,197)=86 exch2_opposingSend(3,197)=4 exch2_pij(1,3,197)=1 exch2_pij(2,3,197)=0 exch2_pij(3,3,197)=0 exch2_pij(4,3,197)=1 exch2_oi(3,197)=0 exch2_oj(3,197)=0 exch2_neighbourId(4,197)=196 exch2_iLo(4,197)=0 exch2_iHi(4,197)=0 exch2_jLo(4,197)=0 exch2_jHi(4,197)=86 exch2_opposingSend(4,197)=3 exch2_pij(1,4,197)=1 exch2_pij(2,4,197)=0 exch2_pij(3,4,197)=0 exch2_pij(4,4,197)=1 exch2_oi(4,197)=0 exch2_oj(4,197)=0 RETURN END SUBROUTINE W2_E2SETUP_198 C Topology for tile 198 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(198)=85 exch2_tNy(198)=85 exch2_tBasex(198)=425 exch2_tBasey(198)=170 exch2_txGlobalo(198)=2976 exch2_tyGlobalo(198)=171 exch2_isWedge(198)=0 exch2_isNedge(198)=0 exch2_isEedge(198)=1 exch2_isSedge(198)=0 exch2_myFace(198)=6 exch2_mydNx(198)=510 exch2_mydNy(198)=510 exch2_nNeighbours(198)=4 exch2_neighbourId(1,198)=204 exch2_iLo(1,198)=0 exch2_iHi(1,198)=86 exch2_jLo(1,198)=86 exch2_jHi(1,198)=86 exch2_opposingSend(1,198)=2 exch2_pij(1,1,198)=1 exch2_pij(2,1,198)=0 exch2_pij(3,1,198)=0 exch2_pij(4,1,198)=1 exch2_oi(1,198)=0 exch2_oj(1,198)=0 exch2_neighbourId(2,198)=192 exch2_iLo(2,198)=0 exch2_iHi(2,198)=86 exch2_jLo(2,198)=0 exch2_jHi(2,198)=0 exch2_opposingSend(2,198)=1 exch2_pij(1,2,198)=1 exch2_pij(2,2,198)=0 exch2_pij(3,2,198)=0 exch2_pij(4,2,198)=1 exch2_oi(2,198)=0 exch2_oj(2,198)=0 exch2_neighbourId(3,198)=40 exch2_iLo(3,198)=86 exch2_iHi(3,198)=86 exch2_jLo(3,198)=0 exch2_jHi(3,198)=86 exch2_opposingSend(3,198)=2 exch2_pij(1,3,198)=0 exch2_pij(2,3,198)=1 exch2_pij(3,3,198)=-1 exch2_pij(4,3,198)=0 exch2_oi(3,198)=510 exch2_oj(3,198)=511 exch2_neighbourId(4,198)=197 exch2_iLo(4,198)=0 exch2_iHi(4,198)=0 exch2_jLo(4,198)=0 exch2_jHi(4,198)=86 exch2_opposingSend(4,198)=3 exch2_pij(1,4,198)=1 exch2_pij(2,4,198)=0 exch2_pij(3,4,198)=0 exch2_pij(4,4,198)=1 exch2_oi(4,198)=0 exch2_oj(4,198)=0 RETURN END SUBROUTINE W2_E2SETUP_199 C Topology for tile 199 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(199)=85 exch2_tNy(199)=85 exch2_tBasex(199)=0 exch2_tBasey(199)=255 exch2_txGlobalo(199)=2551 exch2_tyGlobalo(199)=256 exch2_isWedge(199)=1 exch2_isNedge(199)=0 exch2_isEedge(199)=0 exch2_isSedge(199)=0 exch2_myFace(199)=6 exch2_mydNx(199)=510 exch2_mydNy(199)=510 exch2_nNeighbours(199)=4 exch2_neighbourId(1,199)=205 exch2_iLo(1,199)=0 exch2_iHi(1,199)=86 exch2_jLo(1,199)=86 exch2_jHi(1,199)=86 exch2_opposingSend(1,199)=2 exch2_pij(1,1,199)=1 exch2_pij(2,1,199)=0 exch2_pij(3,1,199)=0 exch2_pij(4,1,199)=1 exch2_oi(1,199)=0 exch2_oj(1,199)=0 exch2_neighbourId(2,199)=193 exch2_iLo(2,199)=0 exch2_iHi(2,199)=86 exch2_jLo(2,199)=0 exch2_jHi(2,199)=0 exch2_opposingSend(2,199)=1 exch2_pij(1,2,199)=1 exch2_pij(2,2,199)=0 exch2_pij(3,2,199)=0 exch2_pij(4,2,199)=1 exch2_oi(2,199)=0 exch2_oj(2,199)=0 exch2_neighbourId(3,199)=200 exch2_iLo(3,199)=86 exch2_iHi(3,199)=86 exch2_jLo(3,199)=0 exch2_jHi(3,199)=86 exch2_opposingSend(3,199)=4 exch2_pij(1,3,199)=1 exch2_pij(2,3,199)=0 exch2_pij(3,3,199)=0 exch2_pij(4,3,199)=1 exch2_oi(3,199)=0 exch2_oj(3,199)=0 exch2_neighbourId(4,199)=168 exch2_iLo(4,199)=0 exch2_iHi(4,199)=0 exch2_jLo(4,199)=0 exch2_jHi(4,199)=86 exch2_opposingSend(4,199)=3 exch2_pij(1,4,199)=1 exch2_pij(2,4,199)=0 exch2_pij(3,4,199)=0 exch2_pij(4,4,199)=1 exch2_oi(4,199)=-510 exch2_oj(4,199)=0 RETURN END SUBROUTINE W2_E2SETUP_200 C Topology for tile 200 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(200)=85 exch2_tNy(200)=85 exch2_tBasex(200)=85 exch2_tBasey(200)=255 exch2_txGlobalo(200)=2636 exch2_tyGlobalo(200)=256 exch2_isWedge(200)=0 exch2_isNedge(200)=0 exch2_isEedge(200)=0 exch2_isSedge(200)=0 exch2_myFace(200)=6 exch2_mydNx(200)=510 exch2_mydNy(200)=510 exch2_nNeighbours(200)=4 exch2_neighbourId(1,200)=206 exch2_iLo(1,200)=0 exch2_iHi(1,200)=86 exch2_jLo(1,200)=86 exch2_jHi(1,200)=86 exch2_opposingSend(1,200)=2 exch2_pij(1,1,200)=1 exch2_pij(2,1,200)=0 exch2_pij(3,1,200)=0 exch2_pij(4,1,200)=1 exch2_oi(1,200)=0 exch2_oj(1,200)=0 exch2_neighbourId(2,200)=194 exch2_iLo(2,200)=0 exch2_iHi(2,200)=86 exch2_jLo(2,200)=0 exch2_jHi(2,200)=0 exch2_opposingSend(2,200)=1 exch2_pij(1,2,200)=1 exch2_pij(2,2,200)=0 exch2_pij(3,2,200)=0 exch2_pij(4,2,200)=1 exch2_oi(2,200)=0 exch2_oj(2,200)=0 exch2_neighbourId(3,200)=201 exch2_iLo(3,200)=86 exch2_iHi(3,200)=86 exch2_jLo(3,200)=0 exch2_jHi(3,200)=86 exch2_opposingSend(3,200)=4 exch2_pij(1,3,200)=1 exch2_pij(2,3,200)=0 exch2_pij(3,3,200)=0 exch2_pij(4,3,200)=1 exch2_oi(3,200)=0 exch2_oj(3,200)=0 exch2_neighbourId(4,200)=199 exch2_iLo(4,200)=0 exch2_iHi(4,200)=0 exch2_jLo(4,200)=0 exch2_jHi(4,200)=86 exch2_opposingSend(4,200)=3 exch2_pij(1,4,200)=1 exch2_pij(2,4,200)=0 exch2_pij(3,4,200)=0 exch2_pij(4,4,200)=1 exch2_oi(4,200)=0 exch2_oj(4,200)=0 RETURN END SUBROUTINE W2_E2SETUP_201 C Topology for tile 201 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(201)=85 exch2_tNy(201)=85 exch2_tBasex(201)=170 exch2_tBasey(201)=255 exch2_txGlobalo(201)=2721 exch2_tyGlobalo(201)=256 exch2_isWedge(201)=0 exch2_isNedge(201)=0 exch2_isEedge(201)=0 exch2_isSedge(201)=0 exch2_myFace(201)=6 exch2_mydNx(201)=510 exch2_mydNy(201)=510 exch2_nNeighbours(201)=4 exch2_neighbourId(1,201)=207 exch2_iLo(1,201)=0 exch2_iHi(1,201)=86 exch2_jLo(1,201)=86 exch2_jHi(1,201)=86 exch2_opposingSend(1,201)=2 exch2_pij(1,1,201)=1 exch2_pij(2,1,201)=0 exch2_pij(3,1,201)=0 exch2_pij(4,1,201)=1 exch2_oi(1,201)=0 exch2_oj(1,201)=0 exch2_neighbourId(2,201)=195 exch2_iLo(2,201)=0 exch2_iHi(2,201)=86 exch2_jLo(2,201)=0 exch2_jHi(2,201)=0 exch2_opposingSend(2,201)=1 exch2_pij(1,2,201)=1 exch2_pij(2,2,201)=0 exch2_pij(3,2,201)=0 exch2_pij(4,2,201)=1 exch2_oi(2,201)=0 exch2_oj(2,201)=0 exch2_neighbourId(3,201)=202 exch2_iLo(3,201)=86 exch2_iHi(3,201)=86 exch2_jLo(3,201)=0 exch2_jHi(3,201)=86 exch2_opposingSend(3,201)=4 exch2_pij(1,3,201)=1 exch2_pij(2,3,201)=0 exch2_pij(3,3,201)=0 exch2_pij(4,3,201)=1 exch2_oi(3,201)=0 exch2_oj(3,201)=0 exch2_neighbourId(4,201)=200 exch2_iLo(4,201)=0 exch2_iHi(4,201)=0 exch2_jLo(4,201)=0 exch2_jHi(4,201)=86 exch2_opposingSend(4,201)=3 exch2_pij(1,4,201)=1 exch2_pij(2,4,201)=0 exch2_pij(3,4,201)=0 exch2_pij(4,4,201)=1 exch2_oi(4,201)=0 exch2_oj(4,201)=0 RETURN END SUBROUTINE W2_E2SETUP_202 C Topology for tile 202 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(202)=85 exch2_tNy(202)=85 exch2_tBasex(202)=255 exch2_tBasey(202)=255 exch2_txGlobalo(202)=2806 exch2_tyGlobalo(202)=256 exch2_isWedge(202)=0 exch2_isNedge(202)=0 exch2_isEedge(202)=0 exch2_isSedge(202)=0 exch2_myFace(202)=6 exch2_mydNx(202)=510 exch2_mydNy(202)=510 exch2_nNeighbours(202)=4 exch2_neighbourId(1,202)=208 exch2_iLo(1,202)=0 exch2_iHi(1,202)=86 exch2_jLo(1,202)=86 exch2_jHi(1,202)=86 exch2_opposingSend(1,202)=2 exch2_pij(1,1,202)=1 exch2_pij(2,1,202)=0 exch2_pij(3,1,202)=0 exch2_pij(4,1,202)=1 exch2_oi(1,202)=0 exch2_oj(1,202)=0 exch2_neighbourId(2,202)=196 exch2_iLo(2,202)=0 exch2_iHi(2,202)=86 exch2_jLo(2,202)=0 exch2_jHi(2,202)=0 exch2_opposingSend(2,202)=1 exch2_pij(1,2,202)=1 exch2_pij(2,2,202)=0 exch2_pij(3,2,202)=0 exch2_pij(4,2,202)=1 exch2_oi(2,202)=0 exch2_oj(2,202)=0 exch2_neighbourId(3,202)=203 exch2_iLo(3,202)=86 exch2_iHi(3,202)=86 exch2_jLo(3,202)=0 exch2_jHi(3,202)=86 exch2_opposingSend(3,202)=4 exch2_pij(1,3,202)=1 exch2_pij(2,3,202)=0 exch2_pij(3,3,202)=0 exch2_pij(4,3,202)=1 exch2_oi(3,202)=0 exch2_oj(3,202)=0 exch2_neighbourId(4,202)=201 exch2_iLo(4,202)=0 exch2_iHi(4,202)=0 exch2_jLo(4,202)=0 exch2_jHi(4,202)=86 exch2_opposingSend(4,202)=3 exch2_pij(1,4,202)=1 exch2_pij(2,4,202)=0 exch2_pij(3,4,202)=0 exch2_pij(4,4,202)=1 exch2_oi(4,202)=0 exch2_oj(4,202)=0 RETURN END SUBROUTINE W2_E2SETUP_203 C Topology for tile 203 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(203)=85 exch2_tNy(203)=85 exch2_tBasex(203)=340 exch2_tBasey(203)=255 exch2_txGlobalo(203)=2891 exch2_tyGlobalo(203)=256 exch2_isWedge(203)=0 exch2_isNedge(203)=0 exch2_isEedge(203)=0 exch2_isSedge(203)=0 exch2_myFace(203)=6 exch2_mydNx(203)=510 exch2_mydNy(203)=510 exch2_nNeighbours(203)=4 exch2_neighbourId(1,203)=209 exch2_iLo(1,203)=0 exch2_iHi(1,203)=86 exch2_jLo(1,203)=86 exch2_jHi(1,203)=86 exch2_opposingSend(1,203)=2 exch2_pij(1,1,203)=1 exch2_pij(2,1,203)=0 exch2_pij(3,1,203)=0 exch2_pij(4,1,203)=1 exch2_oi(1,203)=0 exch2_oj(1,203)=0 exch2_neighbourId(2,203)=197 exch2_iLo(2,203)=0 exch2_iHi(2,203)=86 exch2_jLo(2,203)=0 exch2_jHi(2,203)=0 exch2_opposingSend(2,203)=1 exch2_pij(1,2,203)=1 exch2_pij(2,2,203)=0 exch2_pij(3,2,203)=0 exch2_pij(4,2,203)=1 exch2_oi(2,203)=0 exch2_oj(2,203)=0 exch2_neighbourId(3,203)=204 exch2_iLo(3,203)=86 exch2_iHi(3,203)=86 exch2_jLo(3,203)=0 exch2_jHi(3,203)=86 exch2_opposingSend(3,203)=4 exch2_pij(1,3,203)=1 exch2_pij(2,3,203)=0 exch2_pij(3,3,203)=0 exch2_pij(4,3,203)=1 exch2_oi(3,203)=0 exch2_oj(3,203)=0 exch2_neighbourId(4,203)=202 exch2_iLo(4,203)=0 exch2_iHi(4,203)=0 exch2_jLo(4,203)=0 exch2_jHi(4,203)=86 exch2_opposingSend(4,203)=3 exch2_pij(1,4,203)=1 exch2_pij(2,4,203)=0 exch2_pij(3,4,203)=0 exch2_pij(4,4,203)=1 exch2_oi(4,203)=0 exch2_oj(4,203)=0 RETURN END SUBROUTINE W2_E2SETUP_204 C Topology for tile 204 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(204)=85 exch2_tNy(204)=85 exch2_tBasex(204)=425 exch2_tBasey(204)=255 exch2_txGlobalo(204)=2976 exch2_tyGlobalo(204)=256 exch2_isWedge(204)=0 exch2_isNedge(204)=0 exch2_isEedge(204)=1 exch2_isSedge(204)=0 exch2_myFace(204)=6 exch2_mydNx(204)=510 exch2_mydNy(204)=510 exch2_nNeighbours(204)=4 exch2_neighbourId(1,204)=210 exch2_iLo(1,204)=0 exch2_iHi(1,204)=86 exch2_jLo(1,204)=86 exch2_jHi(1,204)=86 exch2_opposingSend(1,204)=2 exch2_pij(1,1,204)=1 exch2_pij(2,1,204)=0 exch2_pij(3,1,204)=0 exch2_pij(4,1,204)=1 exch2_oi(1,204)=0 exch2_oj(1,204)=0 exch2_neighbourId(2,204)=198 exch2_iLo(2,204)=0 exch2_iHi(2,204)=86 exch2_jLo(2,204)=0 exch2_jHi(2,204)=0 exch2_opposingSend(2,204)=1 exch2_pij(1,2,204)=1 exch2_pij(2,2,204)=0 exch2_pij(3,2,204)=0 exch2_pij(4,2,204)=1 exch2_oi(2,204)=0 exch2_oj(2,204)=0 exch2_neighbourId(3,204)=39 exch2_iLo(3,204)=86 exch2_iHi(3,204)=86 exch2_jLo(3,204)=0 exch2_jHi(3,204)=86 exch2_opposingSend(3,204)=2 exch2_pij(1,3,204)=0 exch2_pij(2,3,204)=1 exch2_pij(3,3,204)=-1 exch2_pij(4,3,204)=0 exch2_oi(3,204)=510 exch2_oj(3,204)=511 exch2_neighbourId(4,204)=203 exch2_iLo(4,204)=0 exch2_iHi(4,204)=0 exch2_jLo(4,204)=0 exch2_jHi(4,204)=86 exch2_opposingSend(4,204)=3 exch2_pij(1,4,204)=1 exch2_pij(2,4,204)=0 exch2_pij(3,4,204)=0 exch2_pij(4,4,204)=1 exch2_oi(4,204)=0 exch2_oj(4,204)=0 RETURN END SUBROUTINE W2_E2SETUP_205 C Topology for tile 205 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(205)=85 exch2_tNy(205)=85 exch2_tBasex(205)=0 exch2_tBasey(205)=340 exch2_txGlobalo(205)=2551 exch2_tyGlobalo(205)=341 exch2_isWedge(205)=1 exch2_isNedge(205)=0 exch2_isEedge(205)=0 exch2_isSedge(205)=0 exch2_myFace(205)=6 exch2_mydNx(205)=510 exch2_mydNy(205)=510 exch2_nNeighbours(205)=4 exch2_neighbourId(1,205)=211 exch2_iLo(1,205)=0 exch2_iHi(1,205)=86 exch2_jLo(1,205)=86 exch2_jHi(1,205)=86 exch2_opposingSend(1,205)=2 exch2_pij(1,1,205)=1 exch2_pij(2,1,205)=0 exch2_pij(3,1,205)=0 exch2_pij(4,1,205)=1 exch2_oi(1,205)=0 exch2_oj(1,205)=0 exch2_neighbourId(2,205)=199 exch2_iLo(2,205)=0 exch2_iHi(2,205)=86 exch2_jLo(2,205)=0 exch2_jHi(2,205)=0 exch2_opposingSend(2,205)=1 exch2_pij(1,2,205)=1 exch2_pij(2,2,205)=0 exch2_pij(3,2,205)=0 exch2_pij(4,2,205)=1 exch2_oi(2,205)=0 exch2_oj(2,205)=0 exch2_neighbourId(3,205)=206 exch2_iLo(3,205)=86 exch2_iHi(3,205)=86 exch2_jLo(3,205)=0 exch2_jHi(3,205)=86 exch2_opposingSend(3,205)=4 exch2_pij(1,3,205)=1 exch2_pij(2,3,205)=0 exch2_pij(3,3,205)=0 exch2_pij(4,3,205)=1 exch2_oi(3,205)=0 exch2_oj(3,205)=0 exch2_neighbourId(4,205)=174 exch2_iLo(4,205)=0 exch2_iHi(4,205)=0 exch2_jLo(4,205)=0 exch2_jHi(4,205)=86 exch2_opposingSend(4,205)=3 exch2_pij(1,4,205)=1 exch2_pij(2,4,205)=0 exch2_pij(3,4,205)=0 exch2_pij(4,4,205)=1 exch2_oi(4,205)=-510 exch2_oj(4,205)=0 RETURN END SUBROUTINE W2_E2SETUP_206 C Topology for tile 206 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(206)=85 exch2_tNy(206)=85 exch2_tBasex(206)=85 exch2_tBasey(206)=340 exch2_txGlobalo(206)=2636 exch2_tyGlobalo(206)=341 exch2_isWedge(206)=0 exch2_isNedge(206)=0 exch2_isEedge(206)=0 exch2_isSedge(206)=0 exch2_myFace(206)=6 exch2_mydNx(206)=510 exch2_mydNy(206)=510 exch2_nNeighbours(206)=4 exch2_neighbourId(1,206)=212 exch2_iLo(1,206)=0 exch2_iHi(1,206)=86 exch2_jLo(1,206)=86 exch2_jHi(1,206)=86 exch2_opposingSend(1,206)=2 exch2_pij(1,1,206)=1 exch2_pij(2,1,206)=0 exch2_pij(3,1,206)=0 exch2_pij(4,1,206)=1 exch2_oi(1,206)=0 exch2_oj(1,206)=0 exch2_neighbourId(2,206)=200 exch2_iLo(2,206)=0 exch2_iHi(2,206)=86 exch2_jLo(2,206)=0 exch2_jHi(2,206)=0 exch2_opposingSend(2,206)=1 exch2_pij(1,2,206)=1 exch2_pij(2,2,206)=0 exch2_pij(3,2,206)=0 exch2_pij(4,2,206)=1 exch2_oi(2,206)=0 exch2_oj(2,206)=0 exch2_neighbourId(3,206)=207 exch2_iLo(3,206)=86 exch2_iHi(3,206)=86 exch2_jLo(3,206)=0 exch2_jHi(3,206)=86 exch2_opposingSend(3,206)=4 exch2_pij(1,3,206)=1 exch2_pij(2,3,206)=0 exch2_pij(3,3,206)=0 exch2_pij(4,3,206)=1 exch2_oi(3,206)=0 exch2_oj(3,206)=0 exch2_neighbourId(4,206)=205 exch2_iLo(4,206)=0 exch2_iHi(4,206)=0 exch2_jLo(4,206)=0 exch2_jHi(4,206)=86 exch2_opposingSend(4,206)=3 exch2_pij(1,4,206)=1 exch2_pij(2,4,206)=0 exch2_pij(3,4,206)=0 exch2_pij(4,4,206)=1 exch2_oi(4,206)=0 exch2_oj(4,206)=0 RETURN END SUBROUTINE W2_E2SETUP_207 C Topology for tile 207 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(207)=85 exch2_tNy(207)=85 exch2_tBasex(207)=170 exch2_tBasey(207)=340 exch2_txGlobalo(207)=2721 exch2_tyGlobalo(207)=341 exch2_isWedge(207)=0 exch2_isNedge(207)=0 exch2_isEedge(207)=0 exch2_isSedge(207)=0 exch2_myFace(207)=6 exch2_mydNx(207)=510 exch2_mydNy(207)=510 exch2_nNeighbours(207)=4 exch2_neighbourId(1,207)=213 exch2_iLo(1,207)=0 exch2_iHi(1,207)=86 exch2_jLo(1,207)=86 exch2_jHi(1,207)=86 exch2_opposingSend(1,207)=2 exch2_pij(1,1,207)=1 exch2_pij(2,1,207)=0 exch2_pij(3,1,207)=0 exch2_pij(4,1,207)=1 exch2_oi(1,207)=0 exch2_oj(1,207)=0 exch2_neighbourId(2,207)=201 exch2_iLo(2,207)=0 exch2_iHi(2,207)=86 exch2_jLo(2,207)=0 exch2_jHi(2,207)=0 exch2_opposingSend(2,207)=1 exch2_pij(1,2,207)=1 exch2_pij(2,2,207)=0 exch2_pij(3,2,207)=0 exch2_pij(4,2,207)=1 exch2_oi(2,207)=0 exch2_oj(2,207)=0 exch2_neighbourId(3,207)=208 exch2_iLo(3,207)=86 exch2_iHi(3,207)=86 exch2_jLo(3,207)=0 exch2_jHi(3,207)=86 exch2_opposingSend(3,207)=4 exch2_pij(1,3,207)=1 exch2_pij(2,3,207)=0 exch2_pij(3,3,207)=0 exch2_pij(4,3,207)=1 exch2_oi(3,207)=0 exch2_oj(3,207)=0 exch2_neighbourId(4,207)=206 exch2_iLo(4,207)=0 exch2_iHi(4,207)=0 exch2_jLo(4,207)=0 exch2_jHi(4,207)=86 exch2_opposingSend(4,207)=3 exch2_pij(1,4,207)=1 exch2_pij(2,4,207)=0 exch2_pij(3,4,207)=0 exch2_pij(4,4,207)=1 exch2_oi(4,207)=0 exch2_oj(4,207)=0 RETURN END SUBROUTINE W2_E2SETUP_208 C Topology for tile 208 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(208)=85 exch2_tNy(208)=85 exch2_tBasex(208)=255 exch2_tBasey(208)=340 exch2_txGlobalo(208)=2806 exch2_tyGlobalo(208)=341 exch2_isWedge(208)=0 exch2_isNedge(208)=0 exch2_isEedge(208)=0 exch2_isSedge(208)=0 exch2_myFace(208)=6 exch2_mydNx(208)=510 exch2_mydNy(208)=510 exch2_nNeighbours(208)=4 exch2_neighbourId(1,208)=214 exch2_iLo(1,208)=0 exch2_iHi(1,208)=86 exch2_jLo(1,208)=86 exch2_jHi(1,208)=86 exch2_opposingSend(1,208)=2 exch2_pij(1,1,208)=1 exch2_pij(2,1,208)=0 exch2_pij(3,1,208)=0 exch2_pij(4,1,208)=1 exch2_oi(1,208)=0 exch2_oj(1,208)=0 exch2_neighbourId(2,208)=202 exch2_iLo(2,208)=0 exch2_iHi(2,208)=86 exch2_jLo(2,208)=0 exch2_jHi(2,208)=0 exch2_opposingSend(2,208)=1 exch2_pij(1,2,208)=1 exch2_pij(2,2,208)=0 exch2_pij(3,2,208)=0 exch2_pij(4,2,208)=1 exch2_oi(2,208)=0 exch2_oj(2,208)=0 exch2_neighbourId(3,208)=209 exch2_iLo(3,208)=86 exch2_iHi(3,208)=86 exch2_jLo(3,208)=0 exch2_jHi(3,208)=86 exch2_opposingSend(3,208)=4 exch2_pij(1,3,208)=1 exch2_pij(2,3,208)=0 exch2_pij(3,3,208)=0 exch2_pij(4,3,208)=1 exch2_oi(3,208)=0 exch2_oj(3,208)=0 exch2_neighbourId(4,208)=207 exch2_iLo(4,208)=0 exch2_iHi(4,208)=0 exch2_jLo(4,208)=0 exch2_jHi(4,208)=86 exch2_opposingSend(4,208)=3 exch2_pij(1,4,208)=1 exch2_pij(2,4,208)=0 exch2_pij(3,4,208)=0 exch2_pij(4,4,208)=1 exch2_oi(4,208)=0 exch2_oj(4,208)=0 RETURN END SUBROUTINE W2_E2SETUP_209 C Topology for tile 209 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(209)=85 exch2_tNy(209)=85 exch2_tBasex(209)=340 exch2_tBasey(209)=340 exch2_txGlobalo(209)=2891 exch2_tyGlobalo(209)=341 exch2_isWedge(209)=0 exch2_isNedge(209)=0 exch2_isEedge(209)=0 exch2_isSedge(209)=0 exch2_myFace(209)=6 exch2_mydNx(209)=510 exch2_mydNy(209)=510 exch2_nNeighbours(209)=4 exch2_neighbourId(1,209)=215 exch2_iLo(1,209)=0 exch2_iHi(1,209)=86 exch2_jLo(1,209)=86 exch2_jHi(1,209)=86 exch2_opposingSend(1,209)=2 exch2_pij(1,1,209)=1 exch2_pij(2,1,209)=0 exch2_pij(3,1,209)=0 exch2_pij(4,1,209)=1 exch2_oi(1,209)=0 exch2_oj(1,209)=0 exch2_neighbourId(2,209)=203 exch2_iLo(2,209)=0 exch2_iHi(2,209)=86 exch2_jLo(2,209)=0 exch2_jHi(2,209)=0 exch2_opposingSend(2,209)=1 exch2_pij(1,2,209)=1 exch2_pij(2,2,209)=0 exch2_pij(3,2,209)=0 exch2_pij(4,2,209)=1 exch2_oi(2,209)=0 exch2_oj(2,209)=0 exch2_neighbourId(3,209)=210 exch2_iLo(3,209)=86 exch2_iHi(3,209)=86 exch2_jLo(3,209)=0 exch2_jHi(3,209)=86 exch2_opposingSend(3,209)=4 exch2_pij(1,3,209)=1 exch2_pij(2,3,209)=0 exch2_pij(3,3,209)=0 exch2_pij(4,3,209)=1 exch2_oi(3,209)=0 exch2_oj(3,209)=0 exch2_neighbourId(4,209)=208 exch2_iLo(4,209)=0 exch2_iHi(4,209)=0 exch2_jLo(4,209)=0 exch2_jHi(4,209)=86 exch2_opposingSend(4,209)=3 exch2_pij(1,4,209)=1 exch2_pij(2,4,209)=0 exch2_pij(3,4,209)=0 exch2_pij(4,4,209)=1 exch2_oi(4,209)=0 exch2_oj(4,209)=0 RETURN END SUBROUTINE W2_E2SETUP_210 C Topology for tile 210 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(210)=85 exch2_tNy(210)=85 exch2_tBasex(210)=425 exch2_tBasey(210)=340 exch2_txGlobalo(210)=2976 exch2_tyGlobalo(210)=341 exch2_isWedge(210)=0 exch2_isNedge(210)=0 exch2_isEedge(210)=1 exch2_isSedge(210)=0 exch2_myFace(210)=6 exch2_mydNx(210)=510 exch2_mydNy(210)=510 exch2_nNeighbours(210)=4 exch2_neighbourId(1,210)=216 exch2_iLo(1,210)=0 exch2_iHi(1,210)=86 exch2_jLo(1,210)=86 exch2_jHi(1,210)=86 exch2_opposingSend(1,210)=2 exch2_pij(1,1,210)=1 exch2_pij(2,1,210)=0 exch2_pij(3,1,210)=0 exch2_pij(4,1,210)=1 exch2_oi(1,210)=0 exch2_oj(1,210)=0 exch2_neighbourId(2,210)=204 exch2_iLo(2,210)=0 exch2_iHi(2,210)=86 exch2_jLo(2,210)=0 exch2_jHi(2,210)=0 exch2_opposingSend(2,210)=1 exch2_pij(1,2,210)=1 exch2_pij(2,2,210)=0 exch2_pij(3,2,210)=0 exch2_pij(4,2,210)=1 exch2_oi(2,210)=0 exch2_oj(2,210)=0 exch2_neighbourId(3,210)=38 exch2_iLo(3,210)=86 exch2_iHi(3,210)=86 exch2_jLo(3,210)=0 exch2_jHi(3,210)=86 exch2_opposingSend(3,210)=2 exch2_pij(1,3,210)=0 exch2_pij(2,3,210)=1 exch2_pij(3,3,210)=-1 exch2_pij(4,3,210)=0 exch2_oi(3,210)=510 exch2_oj(3,210)=511 exch2_neighbourId(4,210)=209 exch2_iLo(4,210)=0 exch2_iHi(4,210)=0 exch2_jLo(4,210)=0 exch2_jHi(4,210)=86 exch2_opposingSend(4,210)=3 exch2_pij(1,4,210)=1 exch2_pij(2,4,210)=0 exch2_pij(3,4,210)=0 exch2_pij(4,4,210)=1 exch2_oi(4,210)=0 exch2_oj(4,210)=0 RETURN END SUBROUTINE W2_E2SETUP_211 C Topology for tile 211 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(211)=85 exch2_tNy(211)=85 exch2_tBasex(211)=0 exch2_tBasey(211)=425 exch2_txGlobalo(211)=2551 exch2_tyGlobalo(211)=426 exch2_isWedge(211)=1 exch2_isNedge(211)=1 exch2_isEedge(211)=0 exch2_isSedge(211)=0 exch2_myFace(211)=6 exch2_mydNx(211)=510 exch2_mydNy(211)=510 exch2_nNeighbours(211)=4 exch2_neighbourId(1,211)=1 exch2_iLo(1,211)=0 exch2_iHi(1,211)=86 exch2_jLo(1,211)=86 exch2_jHi(1,211)=86 exch2_opposingSend(1,211)=2 exch2_pij(1,1,211)=1 exch2_pij(2,1,211)=0 exch2_pij(3,1,211)=0 exch2_pij(4,1,211)=1 exch2_oi(1,211)=0 exch2_oj(1,211)=510 exch2_neighbourId(2,211)=205 exch2_iLo(2,211)=0 exch2_iHi(2,211)=86 exch2_jLo(2,211)=0 exch2_jHi(2,211)=0 exch2_opposingSend(2,211)=1 exch2_pij(1,2,211)=1 exch2_pij(2,2,211)=0 exch2_pij(3,2,211)=0 exch2_pij(4,2,211)=1 exch2_oi(2,211)=0 exch2_oj(2,211)=0 exch2_neighbourId(3,211)=212 exch2_iLo(3,211)=86 exch2_iHi(3,211)=86 exch2_jLo(3,211)=0 exch2_jHi(3,211)=86 exch2_opposingSend(3,211)=4 exch2_pij(1,3,211)=1 exch2_pij(2,3,211)=0 exch2_pij(3,3,211)=0 exch2_pij(4,3,211)=1 exch2_oi(3,211)=0 exch2_oj(3,211)=0 exch2_neighbourId(4,211)=180 exch2_iLo(4,211)=0 exch2_iHi(4,211)=0 exch2_jLo(4,211)=0 exch2_jHi(4,211)=86 exch2_opposingSend(4,211)=3 exch2_pij(1,4,211)=1 exch2_pij(2,4,211)=0 exch2_pij(3,4,211)=0 exch2_pij(4,4,211)=1 exch2_oi(4,211)=-510 exch2_oj(4,211)=0 RETURN END SUBROUTINE W2_E2SETUP_212 C Topology for tile 212 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(212)=85 exch2_tNy(212)=85 exch2_tBasex(212)=85 exch2_tBasey(212)=425 exch2_txGlobalo(212)=2636 exch2_tyGlobalo(212)=426 exch2_isWedge(212)=0 exch2_isNedge(212)=1 exch2_isEedge(212)=0 exch2_isSedge(212)=0 exch2_myFace(212)=6 exch2_mydNx(212)=510 exch2_mydNy(212)=510 exch2_nNeighbours(212)=4 exch2_neighbourId(1,212)=2 exch2_iLo(1,212)=0 exch2_iHi(1,212)=86 exch2_jLo(1,212)=86 exch2_jHi(1,212)=86 exch2_opposingSend(1,212)=2 exch2_pij(1,1,212)=1 exch2_pij(2,1,212)=0 exch2_pij(3,1,212)=0 exch2_pij(4,1,212)=1 exch2_oi(1,212)=0 exch2_oj(1,212)=510 exch2_neighbourId(2,212)=206 exch2_iLo(2,212)=0 exch2_iHi(2,212)=86 exch2_jLo(2,212)=0 exch2_jHi(2,212)=0 exch2_opposingSend(2,212)=1 exch2_pij(1,2,212)=1 exch2_pij(2,2,212)=0 exch2_pij(3,2,212)=0 exch2_pij(4,2,212)=1 exch2_oi(2,212)=0 exch2_oj(2,212)=0 exch2_neighbourId(3,212)=213 exch2_iLo(3,212)=86 exch2_iHi(3,212)=86 exch2_jLo(3,212)=0 exch2_jHi(3,212)=86 exch2_opposingSend(3,212)=4 exch2_pij(1,3,212)=1 exch2_pij(2,3,212)=0 exch2_pij(3,3,212)=0 exch2_pij(4,3,212)=1 exch2_oi(3,212)=0 exch2_oj(3,212)=0 exch2_neighbourId(4,212)=211 exch2_iLo(4,212)=0 exch2_iHi(4,212)=0 exch2_jLo(4,212)=0 exch2_jHi(4,212)=86 exch2_opposingSend(4,212)=3 exch2_pij(1,4,212)=1 exch2_pij(2,4,212)=0 exch2_pij(3,4,212)=0 exch2_pij(4,4,212)=1 exch2_oi(4,212)=0 exch2_oj(4,212)=0 RETURN END SUBROUTINE W2_E2SETUP_213 C Topology for tile 213 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(213)=85 exch2_tNy(213)=85 exch2_tBasex(213)=170 exch2_tBasey(213)=425 exch2_txGlobalo(213)=2721 exch2_tyGlobalo(213)=426 exch2_isWedge(213)=0 exch2_isNedge(213)=1 exch2_isEedge(213)=0 exch2_isSedge(213)=0 exch2_myFace(213)=6 exch2_mydNx(213)=510 exch2_mydNy(213)=510 exch2_nNeighbours(213)=4 exch2_neighbourId(1,213)=3 exch2_iLo(1,213)=0 exch2_iHi(1,213)=86 exch2_jLo(1,213)=86 exch2_jHi(1,213)=86 exch2_opposingSend(1,213)=2 exch2_pij(1,1,213)=1 exch2_pij(2,1,213)=0 exch2_pij(3,1,213)=0 exch2_pij(4,1,213)=1 exch2_oi(1,213)=0 exch2_oj(1,213)=510 exch2_neighbourId(2,213)=207 exch2_iLo(2,213)=0 exch2_iHi(2,213)=86 exch2_jLo(2,213)=0 exch2_jHi(2,213)=0 exch2_opposingSend(2,213)=1 exch2_pij(1,2,213)=1 exch2_pij(2,2,213)=0 exch2_pij(3,2,213)=0 exch2_pij(4,2,213)=1 exch2_oi(2,213)=0 exch2_oj(2,213)=0 exch2_neighbourId(3,213)=214 exch2_iLo(3,213)=86 exch2_iHi(3,213)=86 exch2_jLo(3,213)=0 exch2_jHi(3,213)=86 exch2_opposingSend(3,213)=4 exch2_pij(1,3,213)=1 exch2_pij(2,3,213)=0 exch2_pij(3,3,213)=0 exch2_pij(4,3,213)=1 exch2_oi(3,213)=0 exch2_oj(3,213)=0 exch2_neighbourId(4,213)=212 exch2_iLo(4,213)=0 exch2_iHi(4,213)=0 exch2_jLo(4,213)=0 exch2_jHi(4,213)=86 exch2_opposingSend(4,213)=3 exch2_pij(1,4,213)=1 exch2_pij(2,4,213)=0 exch2_pij(3,4,213)=0 exch2_pij(4,4,213)=1 exch2_oi(4,213)=0 exch2_oj(4,213)=0 RETURN END SUBROUTINE W2_E2SETUP_214 C Topology for tile 214 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(214)=85 exch2_tNy(214)=85 exch2_tBasex(214)=255 exch2_tBasey(214)=425 exch2_txGlobalo(214)=2806 exch2_tyGlobalo(214)=426 exch2_isWedge(214)=0 exch2_isNedge(214)=1 exch2_isEedge(214)=0 exch2_isSedge(214)=0 exch2_myFace(214)=6 exch2_mydNx(214)=510 exch2_mydNy(214)=510 exch2_nNeighbours(214)=4 exch2_neighbourId(1,214)=4 exch2_iLo(1,214)=0 exch2_iHi(1,214)=86 exch2_jLo(1,214)=86 exch2_jHi(1,214)=86 exch2_opposingSend(1,214)=2 exch2_pij(1,1,214)=1 exch2_pij(2,1,214)=0 exch2_pij(3,1,214)=0 exch2_pij(4,1,214)=1 exch2_oi(1,214)=0 exch2_oj(1,214)=510 exch2_neighbourId(2,214)=208 exch2_iLo(2,214)=0 exch2_iHi(2,214)=86 exch2_jLo(2,214)=0 exch2_jHi(2,214)=0 exch2_opposingSend(2,214)=1 exch2_pij(1,2,214)=1 exch2_pij(2,2,214)=0 exch2_pij(3,2,214)=0 exch2_pij(4,2,214)=1 exch2_oi(2,214)=0 exch2_oj(2,214)=0 exch2_neighbourId(3,214)=215 exch2_iLo(3,214)=86 exch2_iHi(3,214)=86 exch2_jLo(3,214)=0 exch2_jHi(3,214)=86 exch2_opposingSend(3,214)=4 exch2_pij(1,3,214)=1 exch2_pij(2,3,214)=0 exch2_pij(3,3,214)=0 exch2_pij(4,3,214)=1 exch2_oi(3,214)=0 exch2_oj(3,214)=0 exch2_neighbourId(4,214)=213 exch2_iLo(4,214)=0 exch2_iHi(4,214)=0 exch2_jLo(4,214)=0 exch2_jHi(4,214)=86 exch2_opposingSend(4,214)=3 exch2_pij(1,4,214)=1 exch2_pij(2,4,214)=0 exch2_pij(3,4,214)=0 exch2_pij(4,4,214)=1 exch2_oi(4,214)=0 exch2_oj(4,214)=0 RETURN END SUBROUTINE W2_E2SETUP_215 C Topology for tile 215 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(215)=85 exch2_tNy(215)=85 exch2_tBasex(215)=340 exch2_tBasey(215)=425 exch2_txGlobalo(215)=2891 exch2_tyGlobalo(215)=426 exch2_isWedge(215)=0 exch2_isNedge(215)=1 exch2_isEedge(215)=0 exch2_isSedge(215)=0 exch2_myFace(215)=6 exch2_mydNx(215)=510 exch2_mydNy(215)=510 exch2_nNeighbours(215)=4 exch2_neighbourId(1,215)=5 exch2_iLo(1,215)=0 exch2_iHi(1,215)=86 exch2_jLo(1,215)=86 exch2_jHi(1,215)=86 exch2_opposingSend(1,215)=2 exch2_pij(1,1,215)=1 exch2_pij(2,1,215)=0 exch2_pij(3,1,215)=0 exch2_pij(4,1,215)=1 exch2_oi(1,215)=0 exch2_oj(1,215)=510 exch2_neighbourId(2,215)=209 exch2_iLo(2,215)=0 exch2_iHi(2,215)=86 exch2_jLo(2,215)=0 exch2_jHi(2,215)=0 exch2_opposingSend(2,215)=1 exch2_pij(1,2,215)=1 exch2_pij(2,2,215)=0 exch2_pij(3,2,215)=0 exch2_pij(4,2,215)=1 exch2_oi(2,215)=0 exch2_oj(2,215)=0 exch2_neighbourId(3,215)=216 exch2_iLo(3,215)=86 exch2_iHi(3,215)=86 exch2_jLo(3,215)=0 exch2_jHi(3,215)=86 exch2_opposingSend(3,215)=4 exch2_pij(1,3,215)=1 exch2_pij(2,3,215)=0 exch2_pij(3,3,215)=0 exch2_pij(4,3,215)=1 exch2_oi(3,215)=0 exch2_oj(3,215)=0 exch2_neighbourId(4,215)=214 exch2_iLo(4,215)=0 exch2_iHi(4,215)=0 exch2_jLo(4,215)=0 exch2_jHi(4,215)=86 exch2_opposingSend(4,215)=3 exch2_pij(1,4,215)=1 exch2_pij(2,4,215)=0 exch2_pij(3,4,215)=0 exch2_pij(4,4,215)=1 exch2_oi(4,215)=0 exch2_oj(4,215)=0 RETURN END SUBROUTINE W2_E2SETUP_216 C Topology for tile 216 #include "W2_EXCH2_TOPOLOGY.h" exch2_tNx(216)=85 exch2_tNy(216)=85 exch2_tBasex(216)=425 exch2_tBasey(216)=425 exch2_txGlobalo(216)=2976 exch2_tyGlobalo(216)=426 exch2_isWedge(216)=0 exch2_isNedge(216)=1 exch2_isEedge(216)=1 exch2_isSedge(216)=0 exch2_myFace(216)=6 exch2_mydNx(216)=510 exch2_mydNy(216)=510 exch2_nNeighbours(216)=4 exch2_neighbourId(1,216)=6 exch2_iLo(1,216)=0 exch2_iHi(1,216)=86 exch2_jLo(1,216)=86 exch2_jHi(1,216)=86 exch2_opposingSend(1,216)=2 exch2_pij(1,1,216)=1 exch2_pij(2,1,216)=0 exch2_pij(3,1,216)=0 exch2_pij(4,1,216)=1 exch2_oi(1,216)=0 exch2_oj(1,216)=510 exch2_neighbourId(2,216)=210 exch2_iLo(2,216)=0 exch2_iHi(2,216)=86 exch2_jLo(2,216)=0 exch2_jHi(2,216)=0 exch2_opposingSend(2,216)=1 exch2_pij(1,2,216)=1 exch2_pij(2,2,216)=0 exch2_pij(3,2,216)=0 exch2_pij(4,2,216)=1 exch2_oi(2,216)=0 exch2_oj(2,216)=0 exch2_neighbourId(3,216)=37 exch2_iLo(3,216)=86 exch2_iHi(3,216)=86 exch2_jLo(3,216)=0 exch2_jHi(3,216)=86 exch2_opposingSend(3,216)=2 exch2_pij(1,3,216)=0 exch2_pij(2,3,216)=1 exch2_pij(3,3,216)=-1 exch2_pij(4,3,216)=0 exch2_oi(3,216)=510 exch2_oj(3,216)=511 exch2_neighbourId(4,216)=215 exch2_iLo(4,216)=0 exch2_iHi(4,216)=0 exch2_jLo(4,216)=0 exch2_jHi(4,216)=86 exch2_opposingSend(4,216)=3 exch2_pij(1,4,216)=1 exch2_pij(2,4,216)=0 exch2_pij(3,4,216)=0 exch2_pij(4,4,216)=1 exch2_oi(4,216)=0 exch2_oj(4,216)=0 RETURN END