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 RETURN END SUBROUTINE W2_E2SETUP_1 C Topology for tile 1 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(1)=8 exch2_tny(1)=8 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)=32 exch2_mydny(1)=32 exch2_nNeighbours(1)=4 exch2_neighbourId(1,1)=5 exch2_pi(1,1,1)=1 exch2_pi(2,1,1)=0 exch2_pj(1,1,1)=0 exch2_pj(2,1,1)=1 exch2_oi(1,1)=0 exch2_oi_f(1,1)=0 exch2_oj(1,1)=0 exch2_oj_f(1,1)=0 exch2_itlo_c(1,1)=0 exch2_ithi_c(1,1)=9 exch2_jtlo_c(1,1)=0 exch2_jthi_c(1,1)=0 exch2_opposingSend_record(1,1)=2 exch2_neighbourId(2,1)=88 exch2_pi(1,2,1)=1 exch2_pi(2,2,1)=0 exch2_pj(1,2,1)=0 exch2_pj(2,2,1)=1 exch2_oi(2,1)=0 exch2_oi_f(2,1)=0 exch2_oj(2,1)=-32 exch2_oj_f(2,1)=-32 exch2_itlo_c(2,1)=0 exch2_ithi_c(2,1)=9 exch2_jtlo_c(2,1)=9 exch2_jthi_c(2,1)=9 exch2_opposingSend_record(2,1)=1 exch2_neighbourId(3,1)=2 exch2_pi(1,3,1)=1 exch2_pi(2,3,1)=0 exch2_pj(1,3,1)=0 exch2_pj(2,3,1)=1 exch2_oi(3,1)=0 exch2_oi_f(3,1)=0 exch2_oj(3,1)=0 exch2_oj_f(3,1)=0 exch2_itlo_c(3,1)=0 exch2_ithi_c(3,1)=0 exch2_jtlo_c(3,1)=0 exch2_jthi_c(3,1)=9 exch2_opposingSend_record(3,1)=4 exch2_neighbourId(4,1)=75 exch2_pi(1,4,1)=0 exch2_pi(2,4,1)=1 exch2_pj(1,4,1)=-1 exch2_pj(2,4,1)=0 exch2_oi(4,1)=-32 exch2_oi_f(4,1)=-32 exch2_oj(4,1)=33 exch2_oj_f(4,1)=34 exch2_itlo_c(4,1)=0 exch2_ithi_c(4,1)=9 exch2_jtlo_c(4,1)=9 exch2_jthi_c(4,1)=9 exch2_opposingSend_record(4,1)=1 RETURN END SUBROUTINE W2_E2SETUP_2 C Topology for tile 2 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(2)=8 exch2_tny(2)=8 exch2_tbasex(2)=8 exch2_tbasey(2)=0 exch2_txglobalo(2)=9 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)=32 exch2_mydny(2)=32 exch2_nNeighbours(2)=4 exch2_neighbourId(1,2)=6 exch2_pi(1,1,2)=1 exch2_pi(2,1,2)=0 exch2_pj(1,1,2)=0 exch2_pj(2,1,2)=1 exch2_oi(1,2)=0 exch2_oi_f(1,2)=0 exch2_oj(1,2)=0 exch2_oj_f(1,2)=0 exch2_itlo_c(1,2)=0 exch2_ithi_c(1,2)=9 exch2_jtlo_c(1,2)=0 exch2_jthi_c(1,2)=0 exch2_opposingSend_record(1,2)=2 exch2_neighbourId(2,2)=89 exch2_pi(1,2,2)=1 exch2_pi(2,2,2)=0 exch2_pj(1,2,2)=0 exch2_pj(2,2,2)=1 exch2_oi(2,2)=0 exch2_oi_f(2,2)=0 exch2_oj(2,2)=-32 exch2_oj_f(2,2)=-32 exch2_itlo_c(2,2)=0 exch2_ithi_c(2,2)=9 exch2_jtlo_c(2,2)=9 exch2_jthi_c(2,2)=9 exch2_opposingSend_record(2,2)=1 exch2_neighbourId(3,2)=3 exch2_pi(1,3,2)=1 exch2_pi(2,3,2)=0 exch2_pj(1,3,2)=0 exch2_pj(2,3,2)=1 exch2_oi(3,2)=0 exch2_oi_f(3,2)=0 exch2_oj(3,2)=0 exch2_oj_f(3,2)=0 exch2_itlo_c(3,2)=0 exch2_ithi_c(3,2)=0 exch2_jtlo_c(3,2)=0 exch2_jthi_c(3,2)=9 exch2_opposingSend_record(3,2)=4 exch2_neighbourId(4,2)=1 exch2_pi(1,4,2)=1 exch2_pi(2,4,2)=0 exch2_pj(1,4,2)=0 exch2_pj(2,4,2)=1 exch2_oi(4,2)=0 exch2_oi_f(4,2)=0 exch2_oj(4,2)=0 exch2_oj_f(4,2)=0 exch2_itlo_c(4,2)=9 exch2_ithi_c(4,2)=9 exch2_jtlo_c(4,2)=0 exch2_jthi_c(4,2)=9 exch2_opposingSend_record(4,2)=3 RETURN END SUBROUTINE W2_E2SETUP_3 C Topology for tile 3 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(3)=8 exch2_tny(3)=8 exch2_tbasex(3)=16 exch2_tbasey(3)=0 exch2_txglobalo(3)=17 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)=32 exch2_mydny(3)=32 exch2_nNeighbours(3)=4 exch2_neighbourId(1,3)=7 exch2_pi(1,1,3)=1 exch2_pi(2,1,3)=0 exch2_pj(1,1,3)=0 exch2_pj(2,1,3)=1 exch2_oi(1,3)=0 exch2_oi_f(1,3)=0 exch2_oj(1,3)=0 exch2_oj_f(1,3)=0 exch2_itlo_c(1,3)=0 exch2_ithi_c(1,3)=9 exch2_jtlo_c(1,3)=0 exch2_jthi_c(1,3)=0 exch2_opposingSend_record(1,3)=2 exch2_neighbourId(2,3)=90 exch2_pi(1,2,3)=1 exch2_pi(2,2,3)=0 exch2_pj(1,2,3)=0 exch2_pj(2,2,3)=1 exch2_oi(2,3)=0 exch2_oi_f(2,3)=0 exch2_oj(2,3)=-32 exch2_oj_f(2,3)=-32 exch2_itlo_c(2,3)=0 exch2_ithi_c(2,3)=9 exch2_jtlo_c(2,3)=9 exch2_jthi_c(2,3)=9 exch2_opposingSend_record(2,3)=1 exch2_neighbourId(3,3)=4 exch2_pi(1,3,3)=1 exch2_pi(2,3,3)=0 exch2_pj(1,3,3)=0 exch2_pj(2,3,3)=1 exch2_oi(3,3)=0 exch2_oi_f(3,3)=0 exch2_oj(3,3)=0 exch2_oj_f(3,3)=0 exch2_itlo_c(3,3)=0 exch2_ithi_c(3,3)=0 exch2_jtlo_c(3,3)=0 exch2_jthi_c(3,3)=9 exch2_opposingSend_record(3,3)=4 exch2_neighbourId(4,3)=2 exch2_pi(1,4,3)=1 exch2_pi(2,4,3)=0 exch2_pj(1,4,3)=0 exch2_pj(2,4,3)=1 exch2_oi(4,3)=0 exch2_oi_f(4,3)=0 exch2_oj(4,3)=0 exch2_oj_f(4,3)=0 exch2_itlo_c(4,3)=9 exch2_ithi_c(4,3)=9 exch2_jtlo_c(4,3)=0 exch2_jthi_c(4,3)=9 exch2_opposingSend_record(4,3)=3 RETURN END SUBROUTINE W2_E2SETUP_4 C Topology for tile 4 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(4)=8 exch2_tny(4)=8 exch2_tbasex(4)=24 exch2_tbasey(4)=0 exch2_txglobalo(4)=25 exch2_tyglobalo(4)=1 exch2_isWedge(4)=0 exch2_isNedge(4)=0 exch2_isEedge(4)=1 exch2_isSedge(4)=1 exch2_myFace(4)=1 exch2_mydnx(4)=32 exch2_mydny(4)=32 exch2_nNeighbours(4)=4 exch2_neighbourId(1,4)=8 exch2_pi(1,1,4)=1 exch2_pi(2,1,4)=0 exch2_pj(1,1,4)=0 exch2_pj(2,1,4)=1 exch2_oi(1,4)=0 exch2_oi_f(1,4)=0 exch2_oj(1,4)=0 exch2_oj_f(1,4)=0 exch2_itlo_c(1,4)=0 exch2_ithi_c(1,4)=9 exch2_jtlo_c(1,4)=0 exch2_jthi_c(1,4)=0 exch2_opposingSend_record(1,4)=2 exch2_neighbourId(2,4)=91 exch2_pi(1,2,4)=1 exch2_pi(2,2,4)=0 exch2_pj(1,2,4)=0 exch2_pj(2,2,4)=1 exch2_oi(2,4)=0 exch2_oi_f(2,4)=0 exch2_oj(2,4)=-32 exch2_oj_f(2,4)=-32 exch2_itlo_c(2,4)=0 exch2_ithi_c(2,4)=9 exch2_jtlo_c(2,4)=9 exch2_jthi_c(2,4)=9 exch2_opposingSend_record(2,4)=1 exch2_neighbourId(3,4)=17 exch2_pi(1,3,4)=1 exch2_pi(2,3,4)=0 exch2_pj(1,3,4)=0 exch2_pj(2,3,4)=1 exch2_oi(3,4)=32 exch2_oi_f(3,4)=32 exch2_oj(3,4)=0 exch2_oj_f(3,4)=0 exch2_itlo_c(3,4)=0 exch2_ithi_c(3,4)=0 exch2_jtlo_c(3,4)=0 exch2_jthi_c(3,4)=9 exch2_opposingSend_record(3,4)=4 exch2_neighbourId(4,4)=3 exch2_pi(1,4,4)=1 exch2_pi(2,4,4)=0 exch2_pj(1,4,4)=0 exch2_pj(2,4,4)=1 exch2_oi(4,4)=0 exch2_oi_f(4,4)=0 exch2_oj(4,4)=0 exch2_oj_f(4,4)=0 exch2_itlo_c(4,4)=9 exch2_ithi_c(4,4)=9 exch2_jtlo_c(4,4)=0 exch2_jthi_c(4,4)=9 exch2_opposingSend_record(4,4)=3 RETURN END SUBROUTINE W2_E2SETUP_5 C Topology for tile 5 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(5)=8 exch2_tny(5)=8 exch2_tbasex(5)=0 exch2_tbasey(5)=8 exch2_txglobalo(5)=1 exch2_tyglobalo(5)=9 exch2_isWedge(5)=1 exch2_isNedge(5)=0 exch2_isEedge(5)=0 exch2_isSedge(5)=0 exch2_myFace(5)=1 exch2_mydnx(5)=32 exch2_mydny(5)=32 exch2_nNeighbours(5)=3 exch2_neighbourId(1,5)=9 exch2_pi(1,1,5)=1 exch2_pi(2,1,5)=0 exch2_pj(1,1,5)=0 exch2_pj(2,1,5)=1 exch2_oi(1,5)=0 exch2_oi_f(1,5)=0 exch2_oj(1,5)=0 exch2_oj_f(1,5)=0 exch2_itlo_c(1,5)=0 exch2_ithi_c(1,5)=9 exch2_jtlo_c(1,5)=0 exch2_jthi_c(1,5)=0 exch2_opposingSend_record(1,5)=2 exch2_neighbourId(2,5)=1 exch2_pi(1,2,5)=1 exch2_pi(2,2,5)=0 exch2_pj(1,2,5)=0 exch2_pj(2,2,5)=1 exch2_oi(2,5)=0 exch2_oi_f(2,5)=0 exch2_oj(2,5)=0 exch2_oj_f(2,5)=0 exch2_itlo_c(2,5)=1 exch2_ithi_c(2,5)=8 exch2_jtlo_c(2,5)=9 exch2_jthi_c(2,5)=9 exch2_opposingSend_record(2,5)=1 exch2_neighbourId(3,5)=6 exch2_pi(1,3,5)=1 exch2_pi(2,3,5)=0 exch2_pj(1,3,5)=0 exch2_pj(2,3,5)=1 exch2_oi(3,5)=0 exch2_oi_f(3,5)=0 exch2_oj(3,5)=0 exch2_oj_f(3,5)=0 exch2_itlo_c(3,5)=0 exch2_ithi_c(3,5)=0 exch2_jtlo_c(3,5)=0 exch2_jthi_c(3,5)=9 exch2_opposingSend_record(3,5)=4 RETURN END SUBROUTINE W2_E2SETUP_6 C Topology for tile 6 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(6)=8 exch2_tny(6)=8 exch2_tbasex(6)=8 exch2_tbasey(6)=8 exch2_txglobalo(6)=9 exch2_tyglobalo(6)=9 exch2_isWedge(6)=0 exch2_isNedge(6)=0 exch2_isEedge(6)=0 exch2_isSedge(6)=0 exch2_myFace(6)=1 exch2_mydnx(6)=32 exch2_mydny(6)=32 exch2_nNeighbours(6)=4 exch2_neighbourId(1,6)=10 exch2_pi(1,1,6)=1 exch2_pi(2,1,6)=0 exch2_pj(1,1,6)=0 exch2_pj(2,1,6)=1 exch2_oi(1,6)=0 exch2_oi_f(1,6)=0 exch2_oj(1,6)=0 exch2_oj_f(1,6)=0 exch2_itlo_c(1,6)=0 exch2_ithi_c(1,6)=9 exch2_jtlo_c(1,6)=0 exch2_jthi_c(1,6)=0 exch2_opposingSend_record(1,6)=2 exch2_neighbourId(2,6)=2 exch2_pi(1,2,6)=1 exch2_pi(2,2,6)=0 exch2_pj(1,2,6)=0 exch2_pj(2,2,6)=1 exch2_oi(2,6)=0 exch2_oi_f(2,6)=0 exch2_oj(2,6)=0 exch2_oj_f(2,6)=0 exch2_itlo_c(2,6)=1 exch2_ithi_c(2,6)=8 exch2_jtlo_c(2,6)=9 exch2_jthi_c(2,6)=9 exch2_opposingSend_record(2,6)=1 exch2_neighbourId(3,6)=7 exch2_pi(1,3,6)=1 exch2_pi(2,3,6)=0 exch2_pj(1,3,6)=0 exch2_pj(2,3,6)=1 exch2_oi(3,6)=0 exch2_oi_f(3,6)=0 exch2_oj(3,6)=0 exch2_oj_f(3,6)=0 exch2_itlo_c(3,6)=0 exch2_ithi_c(3,6)=0 exch2_jtlo_c(3,6)=0 exch2_jthi_c(3,6)=9 exch2_opposingSend_record(3,6)=4 exch2_neighbourId(4,6)=5 exch2_pi(1,4,6)=1 exch2_pi(2,4,6)=0 exch2_pj(1,4,6)=0 exch2_pj(2,4,6)=1 exch2_oi(4,6)=0 exch2_oi_f(4,6)=0 exch2_oj(4,6)=0 exch2_oj_f(4,6)=0 exch2_itlo_c(4,6)=9 exch2_ithi_c(4,6)=9 exch2_jtlo_c(4,6)=0 exch2_jthi_c(4,6)=9 exch2_opposingSend_record(4,6)=3 RETURN END SUBROUTINE W2_E2SETUP_7 C Topology for tile 7 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(7)=8 exch2_tny(7)=8 exch2_tbasex(7)=16 exch2_tbasey(7)=8 exch2_txglobalo(7)=17 exch2_tyglobalo(7)=9 exch2_isWedge(7)=0 exch2_isNedge(7)=0 exch2_isEedge(7)=0 exch2_isSedge(7)=0 exch2_myFace(7)=1 exch2_mydnx(7)=32 exch2_mydny(7)=32 exch2_nNeighbours(7)=4 exch2_neighbourId(1,7)=11 exch2_pi(1,1,7)=1 exch2_pi(2,1,7)=0 exch2_pj(1,1,7)=0 exch2_pj(2,1,7)=1 exch2_oi(1,7)=0 exch2_oi_f(1,7)=0 exch2_oj(1,7)=0 exch2_oj_f(1,7)=0 exch2_itlo_c(1,7)=0 exch2_ithi_c(1,7)=9 exch2_jtlo_c(1,7)=0 exch2_jthi_c(1,7)=0 exch2_opposingSend_record(1,7)=2 exch2_neighbourId(2,7)=3 exch2_pi(1,2,7)=1 exch2_pi(2,2,7)=0 exch2_pj(1,2,7)=0 exch2_pj(2,2,7)=1 exch2_oi(2,7)=0 exch2_oi_f(2,7)=0 exch2_oj(2,7)=0 exch2_oj_f(2,7)=0 exch2_itlo_c(2,7)=1 exch2_ithi_c(2,7)=8 exch2_jtlo_c(2,7)=9 exch2_jthi_c(2,7)=9 exch2_opposingSend_record(2,7)=1 exch2_neighbourId(3,7)=8 exch2_pi(1,3,7)=1 exch2_pi(2,3,7)=0 exch2_pj(1,3,7)=0 exch2_pj(2,3,7)=1 exch2_oi(3,7)=0 exch2_oi_f(3,7)=0 exch2_oj(3,7)=0 exch2_oj_f(3,7)=0 exch2_itlo_c(3,7)=0 exch2_ithi_c(3,7)=0 exch2_jtlo_c(3,7)=0 exch2_jthi_c(3,7)=9 exch2_opposingSend_record(3,7)=4 exch2_neighbourId(4,7)=6 exch2_pi(1,4,7)=1 exch2_pi(2,4,7)=0 exch2_pj(1,4,7)=0 exch2_pj(2,4,7)=1 exch2_oi(4,7)=0 exch2_oi_f(4,7)=0 exch2_oj(4,7)=0 exch2_oj_f(4,7)=0 exch2_itlo_c(4,7)=9 exch2_ithi_c(4,7)=9 exch2_jtlo_c(4,7)=0 exch2_jthi_c(4,7)=9 exch2_opposingSend_record(4,7)=3 RETURN END SUBROUTINE W2_E2SETUP_8 C Topology for tile 8 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(8)=8 exch2_tny(8)=8 exch2_tbasex(8)=24 exch2_tbasey(8)=8 exch2_txglobalo(8)=25 exch2_tyglobalo(8)=9 exch2_isWedge(8)=0 exch2_isNedge(8)=0 exch2_isEedge(8)=1 exch2_isSedge(8)=0 exch2_myFace(8)=1 exch2_mydnx(8)=32 exch2_mydny(8)=32 exch2_nNeighbours(8)=4 exch2_neighbourId(1,8)=12 exch2_pi(1,1,8)=1 exch2_pi(2,1,8)=0 exch2_pj(1,1,8)=0 exch2_pj(2,1,8)=1 exch2_oi(1,8)=0 exch2_oi_f(1,8)=0 exch2_oj(1,8)=0 exch2_oj_f(1,8)=0 exch2_itlo_c(1,8)=0 exch2_ithi_c(1,8)=9 exch2_jtlo_c(1,8)=0 exch2_jthi_c(1,8)=0 exch2_opposingSend_record(1,8)=2 exch2_neighbourId(2,8)=4 exch2_pi(1,2,8)=1 exch2_pi(2,2,8)=0 exch2_pj(1,2,8)=0 exch2_pj(2,2,8)=1 exch2_oi(2,8)=0 exch2_oi_f(2,8)=0 exch2_oj(2,8)=0 exch2_oj_f(2,8)=0 exch2_itlo_c(2,8)=1 exch2_ithi_c(2,8)=8 exch2_jtlo_c(2,8)=9 exch2_jthi_c(2,8)=9 exch2_opposingSend_record(2,8)=1 exch2_neighbourId(3,8)=21 exch2_pi(1,3,8)=1 exch2_pi(2,3,8)=0 exch2_pj(1,3,8)=0 exch2_pj(2,3,8)=1 exch2_oi(3,8)=32 exch2_oi_f(3,8)=32 exch2_oj(3,8)=0 exch2_oj_f(3,8)=0 exch2_itlo_c(3,8)=0 exch2_ithi_c(3,8)=0 exch2_jtlo_c(3,8)=0 exch2_jthi_c(3,8)=9 exch2_opposingSend_record(3,8)=4 exch2_neighbourId(4,8)=7 exch2_pi(1,4,8)=1 exch2_pi(2,4,8)=0 exch2_pj(1,4,8)=0 exch2_pj(2,4,8)=1 exch2_oi(4,8)=0 exch2_oi_f(4,8)=0 exch2_oj(4,8)=0 exch2_oj_f(4,8)=0 exch2_itlo_c(4,8)=9 exch2_ithi_c(4,8)=9 exch2_jtlo_c(4,8)=0 exch2_jthi_c(4,8)=9 exch2_opposingSend_record(4,8)=3 RETURN END SUBROUTINE W2_E2SETUP_9 C Topology for tile 9 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(9)=8 exch2_tny(9)=8 exch2_tbasex(9)=0 exch2_tbasey(9)=16 exch2_txglobalo(9)=1 exch2_tyglobalo(9)=17 exch2_isWedge(9)=1 exch2_isNedge(9)=0 exch2_isEedge(9)=0 exch2_isSedge(9)=0 exch2_myFace(9)=1 exch2_mydnx(9)=32 exch2_mydny(9)=32 exch2_nNeighbours(9)=4 exch2_neighbourId(1,9)=13 exch2_pi(1,1,9)=1 exch2_pi(2,1,9)=0 exch2_pj(1,1,9)=0 exch2_pj(2,1,9)=1 exch2_oi(1,9)=0 exch2_oi_f(1,9)=0 exch2_oj(1,9)=0 exch2_oj_f(1,9)=0 exch2_itlo_c(1,9)=0 exch2_ithi_c(1,9)=9 exch2_jtlo_c(1,9)=0 exch2_jthi_c(1,9)=0 exch2_opposingSend_record(1,9)=2 exch2_neighbourId(2,9)=5 exch2_pi(1,2,9)=1 exch2_pi(2,2,9)=0 exch2_pj(1,2,9)=0 exch2_pj(2,2,9)=1 exch2_oi(2,9)=0 exch2_oi_f(2,9)=0 exch2_oj(2,9)=0 exch2_oj_f(2,9)=0 exch2_itlo_c(2,9)=1 exch2_ithi_c(2,9)=8 exch2_jtlo_c(2,9)=9 exch2_jthi_c(2,9)=9 exch2_opposingSend_record(2,9)=1 exch2_neighbourId(3,9)=10 exch2_pi(1,3,9)=1 exch2_pi(2,3,9)=0 exch2_pj(1,3,9)=0 exch2_pj(2,3,9)=1 exch2_oi(3,9)=0 exch2_oi_f(3,9)=0 exch2_oj(3,9)=0 exch2_oj_f(3,9)=0 exch2_itlo_c(3,9)=0 exch2_ithi_c(3,9)=0 exch2_jtlo_c(3,9)=0 exch2_jthi_c(3,9)=9 exch2_opposingSend_record(3,9)=4 exch2_neighbourId(4,9)=74 exch2_pi(1,4,9)=0 exch2_pi(2,4,9)=1 exch2_pj(1,4,9)=-1 exch2_pj(2,4,9)=0 exch2_oi(4,9)=-32 exch2_oi_f(4,9)=-32 exch2_oj(4,9)=33 exch2_oj_f(4,9)=34 exch2_itlo_c(4,9)=0 exch2_ithi_c(4,9)=9 exch2_jtlo_c(4,9)=9 exch2_jthi_c(4,9)=9 exch2_opposingSend_record(4,9)=1 RETURN END SUBROUTINE W2_E2SETUP_10 C Topology for tile 10 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(10)=8 exch2_tny(10)=8 exch2_tbasex(10)=8 exch2_tbasey(10)=16 exch2_txglobalo(10)=9 exch2_tyglobalo(10)=17 exch2_isWedge(10)=0 exch2_isNedge(10)=0 exch2_isEedge(10)=0 exch2_isSedge(10)=0 exch2_myFace(10)=1 exch2_mydnx(10)=32 exch2_mydny(10)=32 exch2_nNeighbours(10)=4 exch2_neighbourId(1,10)=14 exch2_pi(1,1,10)=1 exch2_pi(2,1,10)=0 exch2_pj(1,1,10)=0 exch2_pj(2,1,10)=1 exch2_oi(1,10)=0 exch2_oi_f(1,10)=0 exch2_oj(1,10)=0 exch2_oj_f(1,10)=0 exch2_itlo_c(1,10)=0 exch2_ithi_c(1,10)=9 exch2_jtlo_c(1,10)=0 exch2_jthi_c(1,10)=0 exch2_opposingSend_record(1,10)=2 exch2_neighbourId(2,10)=6 exch2_pi(1,2,10)=1 exch2_pi(2,2,10)=0 exch2_pj(1,2,10)=0 exch2_pj(2,2,10)=1 exch2_oi(2,10)=0 exch2_oi_f(2,10)=0 exch2_oj(2,10)=0 exch2_oj_f(2,10)=0 exch2_itlo_c(2,10)=1 exch2_ithi_c(2,10)=8 exch2_jtlo_c(2,10)=9 exch2_jthi_c(2,10)=9 exch2_opposingSend_record(2,10)=1 exch2_neighbourId(3,10)=11 exch2_pi(1,3,10)=1 exch2_pi(2,3,10)=0 exch2_pj(1,3,10)=0 exch2_pj(2,3,10)=1 exch2_oi(3,10)=0 exch2_oi_f(3,10)=0 exch2_oj(3,10)=0 exch2_oj_f(3,10)=0 exch2_itlo_c(3,10)=0 exch2_ithi_c(3,10)=0 exch2_jtlo_c(3,10)=0 exch2_jthi_c(3,10)=9 exch2_opposingSend_record(3,10)=4 exch2_neighbourId(4,10)=9 exch2_pi(1,4,10)=1 exch2_pi(2,4,10)=0 exch2_pj(1,4,10)=0 exch2_pj(2,4,10)=1 exch2_oi(4,10)=0 exch2_oi_f(4,10)=0 exch2_oj(4,10)=0 exch2_oj_f(4,10)=0 exch2_itlo_c(4,10)=9 exch2_ithi_c(4,10)=9 exch2_jtlo_c(4,10)=0 exch2_jthi_c(4,10)=9 exch2_opposingSend_record(4,10)=3 RETURN END SUBROUTINE W2_E2SETUP_11 C Topology for tile 11 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(11)=8 exch2_tny(11)=8 exch2_tbasex(11)=16 exch2_tbasey(11)=16 exch2_txglobalo(11)=17 exch2_tyglobalo(11)=17 exch2_isWedge(11)=0 exch2_isNedge(11)=0 exch2_isEedge(11)=0 exch2_isSedge(11)=0 exch2_myFace(11)=1 exch2_mydnx(11)=32 exch2_mydny(11)=32 exch2_nNeighbours(11)=4 exch2_neighbourId(1,11)=15 exch2_pi(1,1,11)=1 exch2_pi(2,1,11)=0 exch2_pj(1,1,11)=0 exch2_pj(2,1,11)=1 exch2_oi(1,11)=0 exch2_oi_f(1,11)=0 exch2_oj(1,11)=0 exch2_oj_f(1,11)=0 exch2_itlo_c(1,11)=0 exch2_ithi_c(1,11)=9 exch2_jtlo_c(1,11)=0 exch2_jthi_c(1,11)=0 exch2_opposingSend_record(1,11)=2 exch2_neighbourId(2,11)=7 exch2_pi(1,2,11)=1 exch2_pi(2,2,11)=0 exch2_pj(1,2,11)=0 exch2_pj(2,2,11)=1 exch2_oi(2,11)=0 exch2_oi_f(2,11)=0 exch2_oj(2,11)=0 exch2_oj_f(2,11)=0 exch2_itlo_c(2,11)=1 exch2_ithi_c(2,11)=8 exch2_jtlo_c(2,11)=9 exch2_jthi_c(2,11)=9 exch2_opposingSend_record(2,11)=1 exch2_neighbourId(3,11)=12 exch2_pi(1,3,11)=1 exch2_pi(2,3,11)=0 exch2_pj(1,3,11)=0 exch2_pj(2,3,11)=1 exch2_oi(3,11)=0 exch2_oi_f(3,11)=0 exch2_oj(3,11)=0 exch2_oj_f(3,11)=0 exch2_itlo_c(3,11)=0 exch2_ithi_c(3,11)=0 exch2_jtlo_c(3,11)=0 exch2_jthi_c(3,11)=9 exch2_opposingSend_record(3,11)=4 exch2_neighbourId(4,11)=10 exch2_pi(1,4,11)=1 exch2_pi(2,4,11)=0 exch2_pj(1,4,11)=0 exch2_pj(2,4,11)=1 exch2_oi(4,11)=0 exch2_oi_f(4,11)=0 exch2_oj(4,11)=0 exch2_oj_f(4,11)=0 exch2_itlo_c(4,11)=9 exch2_ithi_c(4,11)=9 exch2_jtlo_c(4,11)=0 exch2_jthi_c(4,11)=9 exch2_opposingSend_record(4,11)=3 RETURN END SUBROUTINE W2_E2SETUP_12 C Topology for tile 12 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(12)=8 exch2_tny(12)=8 exch2_tbasex(12)=24 exch2_tbasey(12)=16 exch2_txglobalo(12)=25 exch2_tyglobalo(12)=17 exch2_isWedge(12)=0 exch2_isNedge(12)=0 exch2_isEedge(12)=1 exch2_isSedge(12)=0 exch2_myFace(12)=1 exch2_mydnx(12)=32 exch2_mydny(12)=32 exch2_nNeighbours(12)=4 exch2_neighbourId(1,12)=16 exch2_pi(1,1,12)=1 exch2_pi(2,1,12)=0 exch2_pj(1,1,12)=0 exch2_pj(2,1,12)=1 exch2_oi(1,12)=0 exch2_oi_f(1,12)=0 exch2_oj(1,12)=0 exch2_oj_f(1,12)=0 exch2_itlo_c(1,12)=0 exch2_ithi_c(1,12)=9 exch2_jtlo_c(1,12)=0 exch2_jthi_c(1,12)=0 exch2_opposingSend_record(1,12)=2 exch2_neighbourId(2,12)=8 exch2_pi(1,2,12)=1 exch2_pi(2,2,12)=0 exch2_pj(1,2,12)=0 exch2_pj(2,2,12)=1 exch2_oi(2,12)=0 exch2_oi_f(2,12)=0 exch2_oj(2,12)=0 exch2_oj_f(2,12)=0 exch2_itlo_c(2,12)=1 exch2_ithi_c(2,12)=8 exch2_jtlo_c(2,12)=9 exch2_jthi_c(2,12)=9 exch2_opposingSend_record(2,12)=1 exch2_neighbourId(3,12)=25 exch2_pi(1,3,12)=1 exch2_pi(2,3,12)=0 exch2_pj(1,3,12)=0 exch2_pj(2,3,12)=1 exch2_oi(3,12)=32 exch2_oi_f(3,12)=32 exch2_oj(3,12)=0 exch2_oj_f(3,12)=0 exch2_itlo_c(3,12)=0 exch2_ithi_c(3,12)=0 exch2_jtlo_c(3,12)=0 exch2_jthi_c(3,12)=9 exch2_opposingSend_record(3,12)=4 exch2_neighbourId(4,12)=11 exch2_pi(1,4,12)=1 exch2_pi(2,4,12)=0 exch2_pj(1,4,12)=0 exch2_pj(2,4,12)=1 exch2_oi(4,12)=0 exch2_oi_f(4,12)=0 exch2_oj(4,12)=0 exch2_oj_f(4,12)=0 exch2_itlo_c(4,12)=9 exch2_ithi_c(4,12)=9 exch2_jtlo_c(4,12)=0 exch2_jthi_c(4,12)=9 exch2_opposingSend_record(4,12)=3 RETURN END SUBROUTINE W2_E2SETUP_13 C Topology for tile 13 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(13)=8 exch2_tny(13)=8 exch2_tbasex(13)=0 exch2_tbasey(13)=24 exch2_txglobalo(13)=1 exch2_tyglobalo(13)=25 exch2_isWedge(13)=1 exch2_isNedge(13)=1 exch2_isEedge(13)=0 exch2_isSedge(13)=0 exch2_myFace(13)=1 exch2_mydnx(13)=32 exch2_mydny(13)=32 exch2_nNeighbours(13)=4 exch2_neighbourId(1,13)=42 exch2_pi(1,1,13)=0 exch2_pi(2,1,13)=-1 exch2_pj(1,1,13)=1 exch2_pj(2,1,13)=0 exch2_oi(1,13)=33 exch2_oi_f(1,13)=34 exch2_oj(1,13)=32 exch2_oj_f(1,13)=32 exch2_itlo_c(1,13)=0 exch2_ithi_c(1,13)=0 exch2_jtlo_c(1,13)=0 exch2_jthi_c(1,13)=9 exch2_opposingSend_record(1,13)=4 exch2_neighbourId(2,13)=9 exch2_pi(1,2,13)=1 exch2_pi(2,2,13)=0 exch2_pj(1,2,13)=0 exch2_pj(2,2,13)=1 exch2_oi(2,13)=0 exch2_oi_f(2,13)=0 exch2_oj(2,13)=0 exch2_oj_f(2,13)=0 exch2_itlo_c(2,13)=1 exch2_ithi_c(2,13)=8 exch2_jtlo_c(2,13)=9 exch2_jthi_c(2,13)=9 exch2_opposingSend_record(2,13)=1 exch2_neighbourId(3,13)=14 exch2_pi(1,3,13)=1 exch2_pi(2,3,13)=0 exch2_pj(1,3,13)=0 exch2_pj(2,3,13)=1 exch2_oi(3,13)=0 exch2_oi_f(3,13)=0 exch2_oj(3,13)=0 exch2_oj_f(3,13)=0 exch2_itlo_c(3,13)=0 exch2_ithi_c(3,13)=0 exch2_jtlo_c(3,13)=0 exch2_jthi_c(3,13)=9 exch2_opposingSend_record(3,13)=4 exch2_neighbourId(4,13)=73 exch2_pi(1,4,13)=0 exch2_pi(2,4,13)=1 exch2_pj(1,4,13)=-1 exch2_pj(2,4,13)=0 exch2_oi(4,13)=-32 exch2_oi_f(4,13)=-32 exch2_oj(4,13)=33 exch2_oj_f(4,13)=34 exch2_itlo_c(4,13)=0 exch2_ithi_c(4,13)=9 exch2_jtlo_c(4,13)=9 exch2_jthi_c(4,13)=9 exch2_opposingSend_record(4,13)=1 RETURN END SUBROUTINE W2_E2SETUP_14 C Topology for tile 14 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(14)=8 exch2_tny(14)=8 exch2_tbasex(14)=8 exch2_tbasey(14)=24 exch2_txglobalo(14)=9 exch2_tyglobalo(14)=25 exch2_isWedge(14)=0 exch2_isNedge(14)=1 exch2_isEedge(14)=0 exch2_isSedge(14)=0 exch2_myFace(14)=1 exch2_mydnx(14)=32 exch2_mydny(14)=32 exch2_nNeighbours(14)=4 exch2_neighbourId(1,14)=38 exch2_pi(1,1,14)=0 exch2_pi(2,1,14)=-1 exch2_pj(1,1,14)=1 exch2_pj(2,1,14)=0 exch2_oi(1,14)=33 exch2_oi_f(1,14)=34 exch2_oj(1,14)=32 exch2_oj_f(1,14)=32 exch2_itlo_c(1,14)=0 exch2_ithi_c(1,14)=0 exch2_jtlo_c(1,14)=0 exch2_jthi_c(1,14)=9 exch2_opposingSend_record(1,14)=4 exch2_neighbourId(2,14)=10 exch2_pi(1,2,14)=1 exch2_pi(2,2,14)=0 exch2_pj(1,2,14)=0 exch2_pj(2,2,14)=1 exch2_oi(2,14)=0 exch2_oi_f(2,14)=0 exch2_oj(2,14)=0 exch2_oj_f(2,14)=0 exch2_itlo_c(2,14)=1 exch2_ithi_c(2,14)=8 exch2_jtlo_c(2,14)=9 exch2_jthi_c(2,14)=9 exch2_opposingSend_record(2,14)=1 exch2_neighbourId(3,14)=15 exch2_pi(1,3,14)=1 exch2_pi(2,3,14)=0 exch2_pj(1,3,14)=0 exch2_pj(2,3,14)=1 exch2_oi(3,14)=0 exch2_oi_f(3,14)=0 exch2_oj(3,14)=0 exch2_oj_f(3,14)=0 exch2_itlo_c(3,14)=0 exch2_ithi_c(3,14)=0 exch2_jtlo_c(3,14)=0 exch2_jthi_c(3,14)=9 exch2_opposingSend_record(3,14)=4 exch2_neighbourId(4,14)=13 exch2_pi(1,4,14)=1 exch2_pi(2,4,14)=0 exch2_pj(1,4,14)=0 exch2_pj(2,4,14)=1 exch2_oi(4,14)=0 exch2_oi_f(4,14)=0 exch2_oj(4,14)=0 exch2_oj_f(4,14)=0 exch2_itlo_c(4,14)=9 exch2_ithi_c(4,14)=9 exch2_jtlo_c(4,14)=0 exch2_jthi_c(4,14)=9 exch2_opposingSend_record(4,14)=3 RETURN END SUBROUTINE W2_E2SETUP_15 C Topology for tile 15 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(15)=8 exch2_tny(15)=8 exch2_tbasex(15)=16 exch2_tbasey(15)=24 exch2_txglobalo(15)=17 exch2_tyglobalo(15)=25 exch2_isWedge(15)=0 exch2_isNedge(15)=1 exch2_isEedge(15)=0 exch2_isSedge(15)=0 exch2_myFace(15)=1 exch2_mydnx(15)=32 exch2_mydny(15)=32 exch2_nNeighbours(15)=4 exch2_neighbourId(1,15)=34 exch2_pi(1,1,15)=0 exch2_pi(2,1,15)=-1 exch2_pj(1,1,15)=1 exch2_pj(2,1,15)=0 exch2_oi(1,15)=33 exch2_oi_f(1,15)=34 exch2_oj(1,15)=32 exch2_oj_f(1,15)=32 exch2_itlo_c(1,15)=0 exch2_ithi_c(1,15)=0 exch2_jtlo_c(1,15)=0 exch2_jthi_c(1,15)=9 exch2_opposingSend_record(1,15)=4 exch2_neighbourId(2,15)=11 exch2_pi(1,2,15)=1 exch2_pi(2,2,15)=0 exch2_pj(1,2,15)=0 exch2_pj(2,2,15)=1 exch2_oi(2,15)=0 exch2_oi_f(2,15)=0 exch2_oj(2,15)=0 exch2_oj_f(2,15)=0 exch2_itlo_c(2,15)=1 exch2_ithi_c(2,15)=8 exch2_jtlo_c(2,15)=9 exch2_jthi_c(2,15)=9 exch2_opposingSend_record(2,15)=1 exch2_neighbourId(3,15)=16 exch2_pi(1,3,15)=1 exch2_pi(2,3,15)=0 exch2_pj(1,3,15)=0 exch2_pj(2,3,15)=1 exch2_oi(3,15)=0 exch2_oi_f(3,15)=0 exch2_oj(3,15)=0 exch2_oj_f(3,15)=0 exch2_itlo_c(3,15)=0 exch2_ithi_c(3,15)=0 exch2_jtlo_c(3,15)=0 exch2_jthi_c(3,15)=9 exch2_opposingSend_record(3,15)=4 exch2_neighbourId(4,15)=14 exch2_pi(1,4,15)=1 exch2_pi(2,4,15)=0 exch2_pj(1,4,15)=0 exch2_pj(2,4,15)=1 exch2_oi(4,15)=0 exch2_oi_f(4,15)=0 exch2_oj(4,15)=0 exch2_oj_f(4,15)=0 exch2_itlo_c(4,15)=9 exch2_ithi_c(4,15)=9 exch2_jtlo_c(4,15)=0 exch2_jthi_c(4,15)=9 exch2_opposingSend_record(4,15)=3 RETURN END SUBROUTINE W2_E2SETUP_16 C Topology for tile 16 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(16)=8 exch2_tny(16)=8 exch2_tbasex(16)=24 exch2_tbasey(16)=24 exch2_txglobalo(16)=25 exch2_tyglobalo(16)=25 exch2_isWedge(16)=0 exch2_isNedge(16)=1 exch2_isEedge(16)=1 exch2_isSedge(16)=0 exch2_myFace(16)=1 exch2_mydnx(16)=32 exch2_mydny(16)=32 exch2_nNeighbours(16)=4 exch2_neighbourId(1,16)=32 exch2_pi(1,1,16)=0 exch2_pi(2,1,16)=-1 exch2_pj(1,1,16)=1 exch2_pj(2,1,16)=0 exch2_oi(1,16)=33 exch2_oi_f(1,16)=34 exch2_oj(1,16)=32 exch2_oj_f(1,16)=32 exch2_itlo_c(1,16)=0 exch2_ithi_c(1,16)=0 exch2_jtlo_c(1,16)=0 exch2_jthi_c(1,16)=9 exch2_opposingSend_record(1,16)=3 exch2_neighbourId(2,16)=12 exch2_pi(1,2,16)=1 exch2_pi(2,2,16)=0 exch2_pj(1,2,16)=0 exch2_pj(2,2,16)=1 exch2_oi(2,16)=0 exch2_oi_f(2,16)=0 exch2_oj(2,16)=0 exch2_oj_f(2,16)=0 exch2_itlo_c(2,16)=1 exch2_ithi_c(2,16)=8 exch2_jtlo_c(2,16)=9 exch2_jthi_c(2,16)=9 exch2_opposingSend_record(2,16)=1 exch2_neighbourId(3,16)=29 exch2_pi(1,3,16)=1 exch2_pi(2,3,16)=0 exch2_pj(1,3,16)=0 exch2_pj(2,3,16)=1 exch2_oi(3,16)=32 exch2_oi_f(3,16)=32 exch2_oj(3,16)=0 exch2_oj_f(3,16)=0 exch2_itlo_c(3,16)=0 exch2_ithi_c(3,16)=0 exch2_jtlo_c(3,16)=0 exch2_jthi_c(3,16)=9 exch2_opposingSend_record(3,16)=4 exch2_neighbourId(4,16)=15 exch2_pi(1,4,16)=1 exch2_pi(2,4,16)=0 exch2_pj(1,4,16)=0 exch2_pj(2,4,16)=1 exch2_oi(4,16)=0 exch2_oi_f(4,16)=0 exch2_oj(4,16)=0 exch2_oj_f(4,16)=0 exch2_itlo_c(4,16)=9 exch2_ithi_c(4,16)=9 exch2_jtlo_c(4,16)=0 exch2_jthi_c(4,16)=9 exch2_opposingSend_record(4,16)=3 RETURN END SUBROUTINE W2_E2SETUP_17 C Topology for tile 17 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(17)=8 exch2_tny(17)=8 exch2_tbasex(17)=0 exch2_tbasey(17)=0 exch2_txglobalo(17)=33 exch2_tyglobalo(17)=1 exch2_isWedge(17)=1 exch2_isNedge(17)=0 exch2_isEedge(17)=0 exch2_isSedge(17)=1 exch2_myFace(17)=2 exch2_mydnx(17)=32 exch2_mydny(17)=32 exch2_nNeighbours(17)=4 exch2_neighbourId(1,17)=21 exch2_pi(1,1,17)=1 exch2_pi(2,1,17)=0 exch2_pj(1,1,17)=0 exch2_pj(2,1,17)=1 exch2_oi(1,17)=0 exch2_oi_f(1,17)=0 exch2_oj(1,17)=0 exch2_oj_f(1,17)=0 exch2_itlo_c(1,17)=0 exch2_ithi_c(1,17)=9 exch2_jtlo_c(1,17)=0 exch2_jthi_c(1,17)=0 exch2_opposingSend_record(1,17)=2 exch2_neighbourId(2,17)=91 exch2_pi(1,2,17)=0 exch2_pi(2,2,17)=-1 exch2_pj(1,2,17)=1 exch2_pj(2,2,17)=0 exch2_oi(2,17)=33 exch2_oi_f(2,17)=34 exch2_oj(2,17)=-32 exch2_oj_f(2,17)=-32 exch2_itlo_c(2,17)=9 exch2_ithi_c(2,17)=9 exch2_jtlo_c(2,17)=0 exch2_jthi_c(2,17)=9 exch2_opposingSend_record(2,17)=3 exch2_neighbourId(3,17)=18 exch2_pi(1,3,17)=1 exch2_pi(2,3,17)=0 exch2_pj(1,3,17)=0 exch2_pj(2,3,17)=1 exch2_oi(3,17)=0 exch2_oi_f(3,17)=0 exch2_oj(3,17)=0 exch2_oj_f(3,17)=0 exch2_itlo_c(3,17)=0 exch2_ithi_c(3,17)=0 exch2_jtlo_c(3,17)=0 exch2_jthi_c(3,17)=9 exch2_opposingSend_record(3,17)=4 exch2_neighbourId(4,17)=4 exch2_pi(1,4,17)=1 exch2_pi(2,4,17)=0 exch2_pj(1,4,17)=0 exch2_pj(2,4,17)=1 exch2_oi(4,17)=-32 exch2_oi_f(4,17)=-32 exch2_oj(4,17)=0 exch2_oj_f(4,17)=0 exch2_itlo_c(4,17)=9 exch2_ithi_c(4,17)=9 exch2_jtlo_c(4,17)=0 exch2_jthi_c(4,17)=9 exch2_opposingSend_record(4,17)=3 RETURN END SUBROUTINE W2_E2SETUP_18 C Topology for tile 18 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(18)=8 exch2_tny(18)=8 exch2_tbasex(18)=8 exch2_tbasey(18)=0 exch2_txglobalo(18)=41 exch2_tyglobalo(18)=1 exch2_isWedge(18)=0 exch2_isNedge(18)=0 exch2_isEedge(18)=0 exch2_isSedge(18)=1 exch2_myFace(18)=2 exch2_mydnx(18)=32 exch2_mydny(18)=32 exch2_nNeighbours(18)=4 exch2_neighbourId(1,18)=22 exch2_pi(1,1,18)=1 exch2_pi(2,1,18)=0 exch2_pj(1,1,18)=0 exch2_pj(2,1,18)=1 exch2_oi(1,18)=0 exch2_oi_f(1,18)=0 exch2_oj(1,18)=0 exch2_oj_f(1,18)=0 exch2_itlo_c(1,18)=0 exch2_ithi_c(1,18)=9 exch2_jtlo_c(1,18)=0 exch2_jthi_c(1,18)=0 exch2_opposingSend_record(1,18)=2 exch2_neighbourId(2,18)=87 exch2_pi(1,2,18)=0 exch2_pi(2,2,18)=-1 exch2_pj(1,2,18)=1 exch2_pj(2,2,18)=0 exch2_oi(2,18)=33 exch2_oi_f(2,18)=34 exch2_oj(2,18)=-32 exch2_oj_f(2,18)=-32 exch2_itlo_c(2,18)=9 exch2_ithi_c(2,18)=9 exch2_jtlo_c(2,18)=0 exch2_jthi_c(2,18)=9 exch2_opposingSend_record(2,18)=3 exch2_neighbourId(3,18)=19 exch2_pi(1,3,18)=1 exch2_pi(2,3,18)=0 exch2_pj(1,3,18)=0 exch2_pj(2,3,18)=1 exch2_oi(3,18)=0 exch2_oi_f(3,18)=0 exch2_oj(3,18)=0 exch2_oj_f(3,18)=0 exch2_itlo_c(3,18)=0 exch2_ithi_c(3,18)=0 exch2_jtlo_c(3,18)=0 exch2_jthi_c(3,18)=9 exch2_opposingSend_record(3,18)=4 exch2_neighbourId(4,18)=17 exch2_pi(1,4,18)=1 exch2_pi(2,4,18)=0 exch2_pj(1,4,18)=0 exch2_pj(2,4,18)=1 exch2_oi(4,18)=0 exch2_oi_f(4,18)=0 exch2_oj(4,18)=0 exch2_oj_f(4,18)=0 exch2_itlo_c(4,18)=9 exch2_ithi_c(4,18)=9 exch2_jtlo_c(4,18)=0 exch2_jthi_c(4,18)=9 exch2_opposingSend_record(4,18)=3 RETURN END SUBROUTINE W2_E2SETUP_19 C Topology for tile 19 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(19)=8 exch2_tny(19)=8 exch2_tbasex(19)=16 exch2_tbasey(19)=0 exch2_txglobalo(19)=49 exch2_tyglobalo(19)=1 exch2_isWedge(19)=0 exch2_isNedge(19)=0 exch2_isEedge(19)=0 exch2_isSedge(19)=1 exch2_myFace(19)=2 exch2_mydnx(19)=32 exch2_mydny(19)=32 exch2_nNeighbours(19)=4 exch2_neighbourId(1,19)=23 exch2_pi(1,1,19)=1 exch2_pi(2,1,19)=0 exch2_pj(1,1,19)=0 exch2_pj(2,1,19)=1 exch2_oi(1,19)=0 exch2_oi_f(1,19)=0 exch2_oj(1,19)=0 exch2_oj_f(1,19)=0 exch2_itlo_c(1,19)=0 exch2_ithi_c(1,19)=9 exch2_jtlo_c(1,19)=0 exch2_jthi_c(1,19)=0 exch2_opposingSend_record(1,19)=2 exch2_neighbourId(2,19)=83 exch2_pi(1,2,19)=0 exch2_pi(2,2,19)=-1 exch2_pj(1,2,19)=1 exch2_pj(2,2,19)=0 exch2_oi(2,19)=33 exch2_oi_f(2,19)=34 exch2_oj(2,19)=-32 exch2_oj_f(2,19)=-32 exch2_itlo_c(2,19)=9 exch2_ithi_c(2,19)=9 exch2_jtlo_c(2,19)=0 exch2_jthi_c(2,19)=9 exch2_opposingSend_record(2,19)=3 exch2_neighbourId(3,19)=20 exch2_pi(1,3,19)=1 exch2_pi(2,3,19)=0 exch2_pj(1,3,19)=0 exch2_pj(2,3,19)=1 exch2_oi(3,19)=0 exch2_oi_f(3,19)=0 exch2_oj(3,19)=0 exch2_oj_f(3,19)=0 exch2_itlo_c(3,19)=0 exch2_ithi_c(3,19)=0 exch2_jtlo_c(3,19)=0 exch2_jthi_c(3,19)=9 exch2_opposingSend_record(3,19)=4 exch2_neighbourId(4,19)=18 exch2_pi(1,4,19)=1 exch2_pi(2,4,19)=0 exch2_pj(1,4,19)=0 exch2_pj(2,4,19)=1 exch2_oi(4,19)=0 exch2_oi_f(4,19)=0 exch2_oj(4,19)=0 exch2_oj_f(4,19)=0 exch2_itlo_c(4,19)=9 exch2_ithi_c(4,19)=9 exch2_jtlo_c(4,19)=0 exch2_jthi_c(4,19)=9 exch2_opposingSend_record(4,19)=3 RETURN END SUBROUTINE W2_E2SETUP_20 C Topology for tile 20 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(20)=8 exch2_tny(20)=8 exch2_tbasex(20)=24 exch2_tbasey(20)=0 exch2_txglobalo(20)=57 exch2_tyglobalo(20)=1 exch2_isWedge(20)=0 exch2_isNedge(20)=0 exch2_isEedge(20)=1 exch2_isSedge(20)=1 exch2_myFace(20)=2 exch2_mydnx(20)=32 exch2_mydny(20)=32 exch2_nNeighbours(20)=4 exch2_neighbourId(1,20)=24 exch2_pi(1,1,20)=1 exch2_pi(2,1,20)=0 exch2_pj(1,1,20)=0 exch2_pj(2,1,20)=1 exch2_oi(1,20)=0 exch2_oi_f(1,20)=0 exch2_oj(1,20)=0 exch2_oj_f(1,20)=0 exch2_itlo_c(1,20)=0 exch2_ithi_c(1,20)=9 exch2_jtlo_c(1,20)=0 exch2_jthi_c(1,20)=0 exch2_opposingSend_record(1,20)=2 exch2_neighbourId(2,20)=79 exch2_pi(1,2,20)=0 exch2_pi(2,2,20)=-1 exch2_pj(1,2,20)=1 exch2_pj(2,2,20)=0 exch2_oi(2,20)=33 exch2_oi_f(2,20)=34 exch2_oj(2,20)=-32 exch2_oj_f(2,20)=-32 exch2_itlo_c(2,20)=9 exch2_ithi_c(2,20)=9 exch2_jtlo_c(2,20)=0 exch2_jthi_c(2,20)=9 exch2_opposingSend_record(2,20)=3 exch2_neighbourId(3,20)=48 exch2_pi(1,3,20)=0 exch2_pi(2,3,20)=1 exch2_pj(1,3,20)=-1 exch2_pj(2,3,20)=0 exch2_oi(3,20)=32 exch2_oi_f(3,20)=32 exch2_oj(3,20)=33 exch2_oj_f(3,20)=34 exch2_itlo_c(3,20)=0 exch2_ithi_c(3,20)=9 exch2_jtlo_c(3,20)=0 exch2_jthi_c(3,20)=0 exch2_opposingSend_record(3,20)=2 exch2_neighbourId(4,20)=19 exch2_pi(1,4,20)=1 exch2_pi(2,4,20)=0 exch2_pj(1,4,20)=0 exch2_pj(2,4,20)=1 exch2_oi(4,20)=0 exch2_oi_f(4,20)=0 exch2_oj(4,20)=0 exch2_oj_f(4,20)=0 exch2_itlo_c(4,20)=9 exch2_ithi_c(4,20)=9 exch2_jtlo_c(4,20)=0 exch2_jthi_c(4,20)=9 exch2_opposingSend_record(4,20)=3 RETURN END SUBROUTINE W2_E2SETUP_21 C Topology for tile 21 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(21)=8 exch2_tny(21)=8 exch2_tbasex(21)=0 exch2_tbasey(21)=8 exch2_txglobalo(21)=33 exch2_tyglobalo(21)=9 exch2_isWedge(21)=1 exch2_isNedge(21)=0 exch2_isEedge(21)=0 exch2_isSedge(21)=0 exch2_myFace(21)=2 exch2_mydnx(21)=32 exch2_mydny(21)=32 exch2_nNeighbours(21)=4 exch2_neighbourId(1,21)=25 exch2_pi(1,1,21)=1 exch2_pi(2,1,21)=0 exch2_pj(1,1,21)=0 exch2_pj(2,1,21)=1 exch2_oi(1,21)=0 exch2_oi_f(1,21)=0 exch2_oj(1,21)=0 exch2_oj_f(1,21)=0 exch2_itlo_c(1,21)=0 exch2_ithi_c(1,21)=9 exch2_jtlo_c(1,21)=0 exch2_jthi_c(1,21)=0 exch2_opposingSend_record(1,21)=2 exch2_neighbourId(2,21)=17 exch2_pi(1,2,21)=1 exch2_pi(2,2,21)=0 exch2_pj(1,2,21)=0 exch2_pj(2,2,21)=1 exch2_oi(2,21)=0 exch2_oi_f(2,21)=0 exch2_oj(2,21)=0 exch2_oj_f(2,21)=0 exch2_itlo_c(2,21)=1 exch2_ithi_c(2,21)=8 exch2_jtlo_c(2,21)=9 exch2_jthi_c(2,21)=9 exch2_opposingSend_record(2,21)=1 exch2_neighbourId(3,21)=22 exch2_pi(1,3,21)=1 exch2_pi(2,3,21)=0 exch2_pj(1,3,21)=0 exch2_pj(2,3,21)=1 exch2_oi(3,21)=0 exch2_oi_f(3,21)=0 exch2_oj(3,21)=0 exch2_oj_f(3,21)=0 exch2_itlo_c(3,21)=0 exch2_ithi_c(3,21)=0 exch2_jtlo_c(3,21)=0 exch2_jthi_c(3,21)=9 exch2_opposingSend_record(3,21)=4 exch2_neighbourId(4,21)=8 exch2_pi(1,4,21)=1 exch2_pi(2,4,21)=0 exch2_pj(1,4,21)=0 exch2_pj(2,4,21)=1 exch2_oi(4,21)=-32 exch2_oi_f(4,21)=-32 exch2_oj(4,21)=0 exch2_oj_f(4,21)=0 exch2_itlo_c(4,21)=9 exch2_ithi_c(4,21)=9 exch2_jtlo_c(4,21)=0 exch2_jthi_c(4,21)=9 exch2_opposingSend_record(4,21)=3 RETURN END SUBROUTINE W2_E2SETUP_22 C Topology for tile 22 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(22)=8 exch2_tny(22)=8 exch2_tbasex(22)=8 exch2_tbasey(22)=8 exch2_txglobalo(22)=41 exch2_tyglobalo(22)=9 exch2_isWedge(22)=0 exch2_isNedge(22)=0 exch2_isEedge(22)=0 exch2_isSedge(22)=0 exch2_myFace(22)=2 exch2_mydnx(22)=32 exch2_mydny(22)=32 exch2_nNeighbours(22)=4 exch2_neighbourId(1,22)=26 exch2_pi(1,1,22)=1 exch2_pi(2,1,22)=0 exch2_pj(1,1,22)=0 exch2_pj(2,1,22)=1 exch2_oi(1,22)=0 exch2_oi_f(1,22)=0 exch2_oj(1,22)=0 exch2_oj_f(1,22)=0 exch2_itlo_c(1,22)=0 exch2_ithi_c(1,22)=9 exch2_jtlo_c(1,22)=0 exch2_jthi_c(1,22)=0 exch2_opposingSend_record(1,22)=2 exch2_neighbourId(2,22)=18 exch2_pi(1,2,22)=1 exch2_pi(2,2,22)=0 exch2_pj(1,2,22)=0 exch2_pj(2,2,22)=1 exch2_oi(2,22)=0 exch2_oi_f(2,22)=0 exch2_oj(2,22)=0 exch2_oj_f(2,22)=0 exch2_itlo_c(2,22)=1 exch2_ithi_c(2,22)=8 exch2_jtlo_c(2,22)=9 exch2_jthi_c(2,22)=9 exch2_opposingSend_record(2,22)=1 exch2_neighbourId(3,22)=23 exch2_pi(1,3,22)=1 exch2_pi(2,3,22)=0 exch2_pj(1,3,22)=0 exch2_pj(2,3,22)=1 exch2_oi(3,22)=0 exch2_oi_f(3,22)=0 exch2_oj(3,22)=0 exch2_oj_f(3,22)=0 exch2_itlo_c(3,22)=0 exch2_ithi_c(3,22)=0 exch2_jtlo_c(3,22)=0 exch2_jthi_c(3,22)=9 exch2_opposingSend_record(3,22)=4 exch2_neighbourId(4,22)=21 exch2_pi(1,4,22)=1 exch2_pi(2,4,22)=0 exch2_pj(1,4,22)=0 exch2_pj(2,4,22)=1 exch2_oi(4,22)=0 exch2_oi_f(4,22)=0 exch2_oj(4,22)=0 exch2_oj_f(4,22)=0 exch2_itlo_c(4,22)=9 exch2_ithi_c(4,22)=9 exch2_jtlo_c(4,22)=0 exch2_jthi_c(4,22)=9 exch2_opposingSend_record(4,22)=3 RETURN END SUBROUTINE W2_E2SETUP_23 C Topology for tile 23 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(23)=8 exch2_tny(23)=8 exch2_tbasex(23)=16 exch2_tbasey(23)=8 exch2_txglobalo(23)=49 exch2_tyglobalo(23)=9 exch2_isWedge(23)=0 exch2_isNedge(23)=0 exch2_isEedge(23)=0 exch2_isSedge(23)=0 exch2_myFace(23)=2 exch2_mydnx(23)=32 exch2_mydny(23)=32 exch2_nNeighbours(23)=4 exch2_neighbourId(1,23)=27 exch2_pi(1,1,23)=1 exch2_pi(2,1,23)=0 exch2_pj(1,1,23)=0 exch2_pj(2,1,23)=1 exch2_oi(1,23)=0 exch2_oi_f(1,23)=0 exch2_oj(1,23)=0 exch2_oj_f(1,23)=0 exch2_itlo_c(1,23)=0 exch2_ithi_c(1,23)=9 exch2_jtlo_c(1,23)=0 exch2_jthi_c(1,23)=0 exch2_opposingSend_record(1,23)=1 exch2_neighbourId(2,23)=19 exch2_pi(1,2,23)=1 exch2_pi(2,2,23)=0 exch2_pj(1,2,23)=0 exch2_pj(2,2,23)=1 exch2_oi(2,23)=0 exch2_oi_f(2,23)=0 exch2_oj(2,23)=0 exch2_oj_f(2,23)=0 exch2_itlo_c(2,23)=1 exch2_ithi_c(2,23)=8 exch2_jtlo_c(2,23)=9 exch2_jthi_c(2,23)=9 exch2_opposingSend_record(2,23)=1 exch2_neighbourId(3,23)=24 exch2_pi(1,3,23)=1 exch2_pi(2,3,23)=0 exch2_pj(1,3,23)=0 exch2_pj(2,3,23)=1 exch2_oi(3,23)=0 exch2_oi_f(3,23)=0 exch2_oj(3,23)=0 exch2_oj_f(3,23)=0 exch2_itlo_c(3,23)=0 exch2_ithi_c(3,23)=0 exch2_jtlo_c(3,23)=0 exch2_jthi_c(3,23)=9 exch2_opposingSend_record(3,23)=4 exch2_neighbourId(4,23)=22 exch2_pi(1,4,23)=1 exch2_pi(2,4,23)=0 exch2_pj(1,4,23)=0 exch2_pj(2,4,23)=1 exch2_oi(4,23)=0 exch2_oi_f(4,23)=0 exch2_oj(4,23)=0 exch2_oj_f(4,23)=0 exch2_itlo_c(4,23)=9 exch2_ithi_c(4,23)=9 exch2_jtlo_c(4,23)=0 exch2_jthi_c(4,23)=9 exch2_opposingSend_record(4,23)=3 RETURN END SUBROUTINE W2_E2SETUP_24 C Topology for tile 24 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(24)=8 exch2_tny(24)=8 exch2_tbasex(24)=24 exch2_tbasey(24)=8 exch2_txglobalo(24)=57 exch2_tyglobalo(24)=9 exch2_isWedge(24)=0 exch2_isNedge(24)=0 exch2_isEedge(24)=1 exch2_isSedge(24)=0 exch2_myFace(24)=2 exch2_mydnx(24)=32 exch2_mydny(24)=32 exch2_nNeighbours(24)=4 exch2_neighbourId(1,24)=28 exch2_pi(1,1,24)=1 exch2_pi(2,1,24)=0 exch2_pj(1,1,24)=0 exch2_pj(2,1,24)=1 exch2_oi(1,24)=0 exch2_oi_f(1,24)=0 exch2_oj(1,24)=0 exch2_oj_f(1,24)=0 exch2_itlo_c(1,24)=0 exch2_ithi_c(1,24)=9 exch2_jtlo_c(1,24)=0 exch2_jthi_c(1,24)=0 exch2_opposingSend_record(1,24)=2 exch2_neighbourId(2,24)=20 exch2_pi(1,2,24)=1 exch2_pi(2,2,24)=0 exch2_pj(1,2,24)=0 exch2_pj(2,2,24)=1 exch2_oi(2,24)=0 exch2_oi_f(2,24)=0 exch2_oj(2,24)=0 exch2_oj_f(2,24)=0 exch2_itlo_c(2,24)=1 exch2_ithi_c(2,24)=8 exch2_jtlo_c(2,24)=9 exch2_jthi_c(2,24)=9 exch2_opposingSend_record(2,24)=1 exch2_neighbourId(3,24)=47 exch2_pi(1,3,24)=0 exch2_pi(2,3,24)=1 exch2_pj(1,3,24)=-1 exch2_pj(2,3,24)=0 exch2_oi(3,24)=32 exch2_oi_f(3,24)=32 exch2_oj(3,24)=33 exch2_oj_f(3,24)=34 exch2_itlo_c(3,24)=0 exch2_ithi_c(3,24)=9 exch2_jtlo_c(3,24)=0 exch2_jthi_c(3,24)=0 exch2_opposingSend_record(3,24)=2 exch2_neighbourId(4,24)=23 exch2_pi(1,4,24)=1 exch2_pi(2,4,24)=0 exch2_pj(1,4,24)=0 exch2_pj(2,4,24)=1 exch2_oi(4,24)=0 exch2_oi_f(4,24)=0 exch2_oj(4,24)=0 exch2_oj_f(4,24)=0 exch2_itlo_c(4,24)=9 exch2_ithi_c(4,24)=9 exch2_jtlo_c(4,24)=0 exch2_jthi_c(4,24)=9 exch2_opposingSend_record(4,24)=3 RETURN END SUBROUTINE W2_E2SETUP_25 C Topology for tile 25 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(25)=8 exch2_tny(25)=8 exch2_tbasex(25)=0 exch2_tbasey(25)=16 exch2_txglobalo(25)=33 exch2_tyglobalo(25)=17 exch2_isWedge(25)=1 exch2_isNedge(25)=0 exch2_isEedge(25)=0 exch2_isSedge(25)=0 exch2_myFace(25)=2 exch2_mydnx(25)=32 exch2_mydny(25)=32 exch2_nNeighbours(25)=4 exch2_neighbourId(1,25)=29 exch2_pi(1,1,25)=1 exch2_pi(2,1,25)=0 exch2_pj(1,1,25)=0 exch2_pj(2,1,25)=1 exch2_oi(1,25)=0 exch2_oi_f(1,25)=0 exch2_oj(1,25)=0 exch2_oj_f(1,25)=0 exch2_itlo_c(1,25)=0 exch2_ithi_c(1,25)=9 exch2_jtlo_c(1,25)=0 exch2_jthi_c(1,25)=0 exch2_opposingSend_record(1,25)=2 exch2_neighbourId(2,25)=21 exch2_pi(1,2,25)=1 exch2_pi(2,2,25)=0 exch2_pj(1,2,25)=0 exch2_pj(2,2,25)=1 exch2_oi(2,25)=0 exch2_oi_f(2,25)=0 exch2_oj(2,25)=0 exch2_oj_f(2,25)=0 exch2_itlo_c(2,25)=1 exch2_ithi_c(2,25)=8 exch2_jtlo_c(2,25)=9 exch2_jthi_c(2,25)=9 exch2_opposingSend_record(2,25)=1 exch2_neighbourId(3,25)=26 exch2_pi(1,3,25)=1 exch2_pi(2,3,25)=0 exch2_pj(1,3,25)=0 exch2_pj(2,3,25)=1 exch2_oi(3,25)=0 exch2_oi_f(3,25)=0 exch2_oj(3,25)=0 exch2_oj_f(3,25)=0 exch2_itlo_c(3,25)=0 exch2_ithi_c(3,25)=0 exch2_jtlo_c(3,25)=0 exch2_jthi_c(3,25)=9 exch2_opposingSend_record(3,25)=4 exch2_neighbourId(4,25)=12 exch2_pi(1,4,25)=1 exch2_pi(2,4,25)=0 exch2_pj(1,4,25)=0 exch2_pj(2,4,25)=1 exch2_oi(4,25)=-32 exch2_oi_f(4,25)=-32 exch2_oj(4,25)=0 exch2_oj_f(4,25)=0 exch2_itlo_c(4,25)=9 exch2_ithi_c(4,25)=9 exch2_jtlo_c(4,25)=0 exch2_jthi_c(4,25)=9 exch2_opposingSend_record(4,25)=3 RETURN END SUBROUTINE W2_E2SETUP_26 C Topology for tile 26 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(26)=8 exch2_tny(26)=8 exch2_tbasex(26)=8 exch2_tbasey(26)=16 exch2_txglobalo(26)=41 exch2_tyglobalo(26)=17 exch2_isWedge(26)=0 exch2_isNedge(26)=0 exch2_isEedge(26)=0 exch2_isSedge(26)=0 exch2_myFace(26)=2 exch2_mydnx(26)=32 exch2_mydny(26)=32 exch2_nNeighbours(26)=4 exch2_neighbourId(1,26)=30 exch2_pi(1,1,26)=1 exch2_pi(2,1,26)=0 exch2_pj(1,1,26)=0 exch2_pj(2,1,26)=1 exch2_oi(1,26)=0 exch2_oi_f(1,26)=0 exch2_oj(1,26)=0 exch2_oj_f(1,26)=0 exch2_itlo_c(1,26)=0 exch2_ithi_c(1,26)=9 exch2_jtlo_c(1,26)=0 exch2_jthi_c(1,26)=0 exch2_opposingSend_record(1,26)=1 exch2_neighbourId(2,26)=22 exch2_pi(1,2,26)=1 exch2_pi(2,2,26)=0 exch2_pj(1,2,26)=0 exch2_pj(2,2,26)=1 exch2_oi(2,26)=0 exch2_oi_f(2,26)=0 exch2_oj(2,26)=0 exch2_oj_f(2,26)=0 exch2_itlo_c(2,26)=1 exch2_ithi_c(2,26)=8 exch2_jtlo_c(2,26)=9 exch2_jthi_c(2,26)=9 exch2_opposingSend_record(2,26)=1 exch2_neighbourId(3,26)=27 exch2_pi(1,3,26)=1 exch2_pi(2,3,26)=0 exch2_pj(1,3,26)=0 exch2_pj(2,3,26)=1 exch2_oi(3,26)=0 exch2_oi_f(3,26)=0 exch2_oj(3,26)=0 exch2_oj_f(3,26)=0 exch2_itlo_c(3,26)=0 exch2_ithi_c(3,26)=0 exch2_jtlo_c(3,26)=0 exch2_jthi_c(3,26)=9 exch2_opposingSend_record(3,26)=3 exch2_neighbourId(4,26)=25 exch2_pi(1,4,26)=1 exch2_pi(2,4,26)=0 exch2_pj(1,4,26)=0 exch2_pj(2,4,26)=1 exch2_oi(4,26)=0 exch2_oi_f(4,26)=0 exch2_oj(4,26)=0 exch2_oj_f(4,26)=0 exch2_itlo_c(4,26)=9 exch2_ithi_c(4,26)=9 exch2_jtlo_c(4,26)=0 exch2_jthi_c(4,26)=9 exch2_opposingSend_record(4,26)=3 RETURN END SUBROUTINE W2_E2SETUP_27 C Topology for tile 27 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(27)=8 exch2_tny(27)=8 exch2_tbasex(27)=16 exch2_tbasey(27)=16 exch2_txglobalo(27)=49 exch2_tyglobalo(27)=17 exch2_isWedge(27)=0 exch2_isNedge(27)=0 exch2_isEedge(27)=0 exch2_isSedge(27)=0 exch2_myFace(27)=2 exch2_mydnx(27)=32 exch2_mydny(27)=32 exch2_nNeighbours(27)=3 exch2_neighbourId(1,27)=23 exch2_pi(1,1,27)=1 exch2_pi(2,1,27)=0 exch2_pj(1,1,27)=0 exch2_pj(2,1,27)=1 exch2_oi(1,27)=0 exch2_oi_f(1,27)=0 exch2_oj(1,27)=0 exch2_oj_f(1,27)=0 exch2_itlo_c(1,27)=1 exch2_ithi_c(1,27)=8 exch2_jtlo_c(1,27)=9 exch2_jthi_c(1,27)=9 exch2_opposingSend_record(1,27)=1 exch2_neighbourId(2,27)=28 exch2_pi(1,2,27)=1 exch2_pi(2,2,27)=0 exch2_pj(1,2,27)=0 exch2_pj(2,2,27)=1 exch2_oi(2,27)=0 exch2_oi_f(2,27)=0 exch2_oj(2,27)=0 exch2_oj_f(2,27)=0 exch2_itlo_c(2,27)=0 exch2_ithi_c(2,27)=0 exch2_jtlo_c(2,27)=0 exch2_jthi_c(2,27)=9 exch2_opposingSend_record(2,27)=4 exch2_neighbourId(3,27)=26 exch2_pi(1,3,27)=1 exch2_pi(2,3,27)=0 exch2_pj(1,3,27)=0 exch2_pj(2,3,27)=1 exch2_oi(3,27)=0 exch2_oi_f(3,27)=0 exch2_oj(3,27)=0 exch2_oj_f(3,27)=0 exch2_itlo_c(3,27)=9 exch2_ithi_c(3,27)=9 exch2_jtlo_c(3,27)=0 exch2_jthi_c(3,27)=9 exch2_opposingSend_record(3,27)=3 RETURN END SUBROUTINE W2_E2SETUP_28 C Topology for tile 28 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(28)=8 exch2_tny(28)=8 exch2_tbasex(28)=24 exch2_tbasey(28)=16 exch2_txglobalo(28)=57 exch2_tyglobalo(28)=17 exch2_isWedge(28)=0 exch2_isNedge(28)=0 exch2_isEedge(28)=1 exch2_isSedge(28)=0 exch2_myFace(28)=2 exch2_mydnx(28)=32 exch2_mydny(28)=32 exch2_nNeighbours(28)=4 exch2_neighbourId(1,28)=31 exch2_pi(1,1,28)=1 exch2_pi(2,1,28)=0 exch2_pj(1,1,28)=0 exch2_pj(2,1,28)=1 exch2_oi(1,28)=0 exch2_oi_f(1,28)=0 exch2_oj(1,28)=0 exch2_oj_f(1,28)=0 exch2_itlo_c(1,28)=0 exch2_ithi_c(1,28)=9 exch2_jtlo_c(1,28)=0 exch2_jthi_c(1,28)=0 exch2_opposingSend_record(1,28)=2 exch2_neighbourId(2,28)=24 exch2_pi(1,2,28)=1 exch2_pi(2,2,28)=0 exch2_pj(1,2,28)=0 exch2_pj(2,2,28)=1 exch2_oi(2,28)=0 exch2_oi_f(2,28)=0 exch2_oj(2,28)=0 exch2_oj_f(2,28)=0 exch2_itlo_c(2,28)=1 exch2_ithi_c(2,28)=8 exch2_jtlo_c(2,28)=9 exch2_jthi_c(2,28)=9 exch2_opposingSend_record(2,28)=1 exch2_neighbourId(3,28)=46 exch2_pi(1,3,28)=0 exch2_pi(2,3,28)=1 exch2_pj(1,3,28)=-1 exch2_pj(2,3,28)=0 exch2_oi(3,28)=32 exch2_oi_f(3,28)=32 exch2_oj(3,28)=33 exch2_oj_f(3,28)=34 exch2_itlo_c(3,28)=0 exch2_ithi_c(3,28)=9 exch2_jtlo_c(3,28)=0 exch2_jthi_c(3,28)=0 exch2_opposingSend_record(3,28)=2 exch2_neighbourId(4,28)=27 exch2_pi(1,4,28)=1 exch2_pi(2,4,28)=0 exch2_pj(1,4,28)=0 exch2_pj(2,4,28)=1 exch2_oi(4,28)=0 exch2_oi_f(4,28)=0 exch2_oj(4,28)=0 exch2_oj_f(4,28)=0 exch2_itlo_c(4,28)=9 exch2_ithi_c(4,28)=9 exch2_jtlo_c(4,28)=0 exch2_jthi_c(4,28)=9 exch2_opposingSend_record(4,28)=2 RETURN END SUBROUTINE W2_E2SETUP_29 C Topology for tile 29 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(29)=8 exch2_tny(29)=8 exch2_tbasex(29)=0 exch2_tbasey(29)=24 exch2_txglobalo(29)=33 exch2_tyglobalo(29)=25 exch2_isWedge(29)=1 exch2_isNedge(29)=1 exch2_isEedge(29)=0 exch2_isSedge(29)=0 exch2_myFace(29)=2 exch2_mydnx(29)=32 exch2_mydny(29)=32 exch2_nNeighbours(29)=4 exch2_neighbourId(1,29)=32 exch2_pi(1,1,29)=1 exch2_pi(2,1,29)=0 exch2_pj(1,1,29)=0 exch2_pj(2,1,29)=1 exch2_oi(1,29)=0 exch2_oi_f(1,29)=0 exch2_oj(1,29)=32 exch2_oj_f(1,29)=32 exch2_itlo_c(1,29)=0 exch2_ithi_c(1,29)=9 exch2_jtlo_c(1,29)=0 exch2_jthi_c(1,29)=0 exch2_opposingSend_record(1,29)=2 exch2_neighbourId(2,29)=25 exch2_pi(1,2,29)=1 exch2_pi(2,2,29)=0 exch2_pj(1,2,29)=0 exch2_pj(2,2,29)=1 exch2_oi(2,29)=0 exch2_oi_f(2,29)=0 exch2_oj(2,29)=0 exch2_oj_f(2,29)=0 exch2_itlo_c(2,29)=1 exch2_ithi_c(2,29)=8 exch2_jtlo_c(2,29)=9 exch2_jthi_c(2,29)=9 exch2_opposingSend_record(2,29)=1 exch2_neighbourId(3,29)=30 exch2_pi(1,3,29)=1 exch2_pi(2,3,29)=0 exch2_pj(1,3,29)=0 exch2_pj(2,3,29)=1 exch2_oi(3,29)=0 exch2_oi_f(3,29)=0 exch2_oj(3,29)=0 exch2_oj_f(3,29)=0 exch2_itlo_c(3,29)=0 exch2_ithi_c(3,29)=0 exch2_jtlo_c(3,29)=0 exch2_jthi_c(3,29)=9 exch2_opposingSend_record(3,29)=2 exch2_neighbourId(4,29)=16 exch2_pi(1,4,29)=1 exch2_pi(2,4,29)=0 exch2_pj(1,4,29)=0 exch2_pj(2,4,29)=1 exch2_oi(4,29)=-32 exch2_oi_f(4,29)=-32 exch2_oj(4,29)=0 exch2_oj_f(4,29)=0 exch2_itlo_c(4,29)=9 exch2_ithi_c(4,29)=9 exch2_jtlo_c(4,29)=0 exch2_jthi_c(4,29)=9 exch2_opposingSend_record(4,29)=3 RETURN END SUBROUTINE W2_E2SETUP_30 C Topology for tile 30 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(30)=8 exch2_tny(30)=8 exch2_tbasex(30)=8 exch2_tbasey(30)=24 exch2_txglobalo(30)=41 exch2_tyglobalo(30)=25 exch2_isWedge(30)=0 exch2_isNedge(30)=1 exch2_isEedge(30)=0 exch2_isSedge(30)=0 exch2_myFace(30)=2 exch2_mydnx(30)=32 exch2_mydny(30)=32 exch2_nNeighbours(30)=2 exch2_neighbourId(1,30)=26 exch2_pi(1,1,30)=1 exch2_pi(2,1,30)=0 exch2_pj(1,1,30)=0 exch2_pj(2,1,30)=1 exch2_oi(1,30)=0 exch2_oi_f(1,30)=0 exch2_oj(1,30)=0 exch2_oj_f(1,30)=0 exch2_itlo_c(1,30)=1 exch2_ithi_c(1,30)=8 exch2_jtlo_c(1,30)=9 exch2_jthi_c(1,30)=9 exch2_opposingSend_record(1,30)=1 exch2_neighbourId(2,30)=29 exch2_pi(1,2,30)=1 exch2_pi(2,2,30)=0 exch2_pj(1,2,30)=0 exch2_pj(2,2,30)=1 exch2_oi(2,30)=0 exch2_oi_f(2,30)=0 exch2_oj(2,30)=0 exch2_oj_f(2,30)=0 exch2_itlo_c(2,30)=9 exch2_ithi_c(2,30)=9 exch2_jtlo_c(2,30)=0 exch2_jthi_c(2,30)=9 exch2_opposingSend_record(2,30)=3 RETURN END SUBROUTINE W2_E2SETUP_31 C Topology for tile 31 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(31)=8 exch2_tny(31)=8 exch2_tbasex(31)=24 exch2_tbasey(31)=24 exch2_txglobalo(31)=57 exch2_tyglobalo(31)=25 exch2_isWedge(31)=0 exch2_isNedge(31)=1 exch2_isEedge(31)=1 exch2_isSedge(31)=0 exch2_myFace(31)=2 exch2_mydnx(31)=32 exch2_mydny(31)=32 exch2_nNeighbours(31)=3 exch2_neighbourId(1,31)=33 exch2_pi(1,1,31)=1 exch2_pi(2,1,31)=0 exch2_pj(1,1,31)=0 exch2_pj(2,1,31)=1 exch2_oi(1,31)=0 exch2_oi_f(1,31)=0 exch2_oj(1,31)=32 exch2_oj_f(1,31)=32 exch2_itlo_c(1,31)=0 exch2_ithi_c(1,31)=9 exch2_jtlo_c(1,31)=0 exch2_jthi_c(1,31)=0 exch2_opposingSend_record(1,31)=2 exch2_neighbourId(2,31)=28 exch2_pi(1,2,31)=1 exch2_pi(2,2,31)=0 exch2_pj(1,2,31)=0 exch2_pj(2,2,31)=1 exch2_oi(2,31)=0 exch2_oi_f(2,31)=0 exch2_oj(2,31)=0 exch2_oj_f(2,31)=0 exch2_itlo_c(2,31)=1 exch2_ithi_c(2,31)=8 exch2_jtlo_c(2,31)=9 exch2_jthi_c(2,31)=9 exch2_opposingSend_record(2,31)=1 exch2_neighbourId(3,31)=45 exch2_pi(1,3,31)=0 exch2_pi(2,3,31)=1 exch2_pj(1,3,31)=-1 exch2_pj(2,3,31)=0 exch2_oi(3,31)=32 exch2_oi_f(3,31)=32 exch2_oj(3,31)=33 exch2_oj_f(3,31)=34 exch2_itlo_c(3,31)=0 exch2_ithi_c(3,31)=9 exch2_jtlo_c(3,31)=0 exch2_jthi_c(3,31)=0 exch2_opposingSend_record(3,31)=2 RETURN END SUBROUTINE W2_E2SETUP_32 C Topology for tile 32 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(32)=8 exch2_tny(32)=8 exch2_tbasex(32)=0 exch2_tbasey(32)=0 exch2_txglobalo(32)=65 exch2_tyglobalo(32)=1 exch2_isWedge(32)=1 exch2_isNedge(32)=0 exch2_isEedge(32)=0 exch2_isSedge(32)=1 exch2_myFace(32)=3 exch2_mydnx(32)=32 exch2_mydny(32)=32 exch2_nNeighbours(32)=3 exch2_neighbourId(1,32)=34 exch2_pi(1,1,32)=1 exch2_pi(2,1,32)=0 exch2_pj(1,1,32)=0 exch2_pj(2,1,32)=1 exch2_oi(1,32)=0 exch2_oi_f(1,32)=0 exch2_oj(1,32)=0 exch2_oj_f(1,32)=0 exch2_itlo_c(1,32)=0 exch2_ithi_c(1,32)=9 exch2_jtlo_c(1,32)=0 exch2_jthi_c(1,32)=0 exch2_opposingSend_record(1,32)=2 exch2_neighbourId(2,32)=29 exch2_pi(1,2,32)=1 exch2_pi(2,2,32)=0 exch2_pj(1,2,32)=0 exch2_pj(2,2,32)=1 exch2_oi(2,32)=0 exch2_oi_f(2,32)=0 exch2_oj(2,32)=-32 exch2_oj_f(2,32)=-32 exch2_itlo_c(2,32)=0 exch2_ithi_c(2,32)=9 exch2_jtlo_c(2,32)=9 exch2_jthi_c(2,32)=9 exch2_opposingSend_record(2,32)=1 exch2_neighbourId(3,32)=16 exch2_pi(1,3,32)=0 exch2_pi(2,3,32)=1 exch2_pj(1,3,32)=-1 exch2_pj(2,3,32)=0 exch2_oi(3,32)=-32 exch2_oi_f(3,32)=-32 exch2_oj(3,32)=33 exch2_oj_f(3,32)=34 exch2_itlo_c(3,32)=0 exch2_ithi_c(3,32)=9 exch2_jtlo_c(3,32)=9 exch2_jthi_c(3,32)=9 exch2_opposingSend_record(3,32)=1 RETURN END SUBROUTINE W2_E2SETUP_33 C Topology for tile 33 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(33)=8 exch2_tny(33)=8 exch2_tbasex(33)=24 exch2_tbasey(33)=0 exch2_txglobalo(33)=89 exch2_tyglobalo(33)=1 exch2_isWedge(33)=0 exch2_isNedge(33)=0 exch2_isEedge(33)=1 exch2_isSedge(33)=1 exch2_myFace(33)=3 exch2_mydnx(33)=32 exch2_mydny(33)=32 exch2_nNeighbours(33)=3 exch2_neighbourId(1,33)=37 exch2_pi(1,1,33)=1 exch2_pi(2,1,33)=0 exch2_pj(1,1,33)=0 exch2_pj(2,1,33)=1 exch2_oi(1,33)=0 exch2_oi_f(1,33)=0 exch2_oj(1,33)=0 exch2_oj_f(1,33)=0 exch2_itlo_c(1,33)=0 exch2_ithi_c(1,33)=9 exch2_jtlo_c(1,33)=0 exch2_jthi_c(1,33)=0 exch2_opposingSend_record(1,33)=2 exch2_neighbourId(2,33)=31 exch2_pi(1,2,33)=1 exch2_pi(2,2,33)=0 exch2_pj(1,2,33)=0 exch2_pj(2,2,33)=1 exch2_oi(2,33)=0 exch2_oi_f(2,33)=0 exch2_oj(2,33)=-32 exch2_oj_f(2,33)=-32 exch2_itlo_c(2,33)=0 exch2_ithi_c(2,33)=9 exch2_jtlo_c(2,33)=9 exch2_jthi_c(2,33)=9 exch2_opposingSend_record(2,33)=1 exch2_neighbourId(3,33)=45 exch2_pi(1,3,33)=1 exch2_pi(2,3,33)=0 exch2_pj(1,3,33)=0 exch2_pj(2,3,33)=1 exch2_oi(3,33)=32 exch2_oi_f(3,33)=32 exch2_oj(3,33)=0 exch2_oj_f(3,33)=0 exch2_itlo_c(3,33)=0 exch2_ithi_c(3,33)=0 exch2_jtlo_c(3,33)=0 exch2_jthi_c(3,33)=9 exch2_opposingSend_record(3,33)=4 RETURN END SUBROUTINE W2_E2SETUP_34 C Topology for tile 34 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(34)=8 exch2_tny(34)=8 exch2_tbasex(34)=0 exch2_tbasey(34)=8 exch2_txglobalo(34)=65 exch2_tyglobalo(34)=9 exch2_isWedge(34)=1 exch2_isNedge(34)=0 exch2_isEedge(34)=0 exch2_isSedge(34)=0 exch2_myFace(34)=3 exch2_mydnx(34)=32 exch2_mydny(34)=32 exch2_nNeighbours(34)=4 exch2_neighbourId(1,34)=38 exch2_pi(1,1,34)=1 exch2_pi(2,1,34)=0 exch2_pj(1,1,34)=0 exch2_pj(2,1,34)=1 exch2_oi(1,34)=0 exch2_oi_f(1,34)=0 exch2_oj(1,34)=0 exch2_oj_f(1,34)=0 exch2_itlo_c(1,34)=0 exch2_ithi_c(1,34)=9 exch2_jtlo_c(1,34)=0 exch2_jthi_c(1,34)=0 exch2_opposingSend_record(1,34)=2 exch2_neighbourId(2,34)=32 exch2_pi(1,2,34)=1 exch2_pi(2,2,34)=0 exch2_pj(1,2,34)=0 exch2_pj(2,2,34)=1 exch2_oi(2,34)=0 exch2_oi_f(2,34)=0 exch2_oj(2,34)=0 exch2_oj_f(2,34)=0 exch2_itlo_c(2,34)=1 exch2_ithi_c(2,34)=8 exch2_jtlo_c(2,34)=9 exch2_jthi_c(2,34)=9 exch2_opposingSend_record(2,34)=1 exch2_neighbourId(3,34)=35 exch2_pi(1,3,34)=1 exch2_pi(2,3,34)=0 exch2_pj(1,3,34)=0 exch2_pj(2,3,34)=1 exch2_oi(3,34)=0 exch2_oi_f(3,34)=0 exch2_oj(3,34)=0 exch2_oj_f(3,34)=0 exch2_itlo_c(3,34)=0 exch2_ithi_c(3,34)=0 exch2_jtlo_c(3,34)=0 exch2_jthi_c(3,34)=9 exch2_opposingSend_record(3,34)=3 exch2_neighbourId(4,34)=15 exch2_pi(1,4,34)=0 exch2_pi(2,4,34)=1 exch2_pj(1,4,34)=-1 exch2_pj(2,4,34)=0 exch2_oi(4,34)=-32 exch2_oi_f(4,34)=-32 exch2_oj(4,34)=33 exch2_oj_f(4,34)=34 exch2_itlo_c(4,34)=0 exch2_ithi_c(4,34)=9 exch2_jtlo_c(4,34)=9 exch2_jthi_c(4,34)=9 exch2_opposingSend_record(4,34)=1 RETURN END SUBROUTINE W2_E2SETUP_35 C Topology for tile 35 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(35)=8 exch2_tny(35)=8 exch2_tbasex(35)=8 exch2_tbasey(35)=8 exch2_txglobalo(35)=73 exch2_tyglobalo(35)=9 exch2_isWedge(35)=0 exch2_isNedge(35)=0 exch2_isEedge(35)=0 exch2_isSedge(35)=0 exch2_myFace(35)=3 exch2_mydnx(35)=32 exch2_mydny(35)=32 exch2_nNeighbours(35)=3 exch2_neighbourId(1,35)=39 exch2_pi(1,1,35)=1 exch2_pi(2,1,35)=0 exch2_pj(1,1,35)=0 exch2_pj(2,1,35)=1 exch2_oi(1,35)=0 exch2_oi_f(1,35)=0 exch2_oj(1,35)=0 exch2_oj_f(1,35)=0 exch2_itlo_c(1,35)=0 exch2_ithi_c(1,35)=9 exch2_jtlo_c(1,35)=0 exch2_jthi_c(1,35)=0 exch2_opposingSend_record(1,35)=2 exch2_neighbourId(2,35)=36 exch2_pi(1,2,35)=1 exch2_pi(2,2,35)=0 exch2_pj(1,2,35)=0 exch2_pj(2,2,35)=1 exch2_oi(2,35)=0 exch2_oi_f(2,35)=0 exch2_oj(2,35)=0 exch2_oj_f(2,35)=0 exch2_itlo_c(2,35)=0 exch2_ithi_c(2,35)=0 exch2_jtlo_c(2,35)=0 exch2_jthi_c(2,35)=9 exch2_opposingSend_record(2,35)=3 exch2_neighbourId(3,35)=34 exch2_pi(1,3,35)=1 exch2_pi(2,3,35)=0 exch2_pj(1,3,35)=0 exch2_pj(2,3,35)=1 exch2_oi(3,35)=0 exch2_oi_f(3,35)=0 exch2_oj(3,35)=0 exch2_oj_f(3,35)=0 exch2_itlo_c(3,35)=9 exch2_ithi_c(3,35)=9 exch2_jtlo_c(3,35)=0 exch2_jthi_c(3,35)=9 exch2_opposingSend_record(3,35)=3 RETURN END SUBROUTINE W2_E2SETUP_36 C Topology for tile 36 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(36)=8 exch2_tny(36)=8 exch2_tbasex(36)=16 exch2_tbasey(36)=8 exch2_txglobalo(36)=81 exch2_tyglobalo(36)=9 exch2_isWedge(36)=0 exch2_isNedge(36)=0 exch2_isEedge(36)=0 exch2_isSedge(36)=0 exch2_myFace(36)=3 exch2_mydnx(36)=32 exch2_mydny(36)=32 exch2_nNeighbours(36)=3 exch2_neighbourId(1,36)=40 exch2_pi(1,1,36)=1 exch2_pi(2,1,36)=0 exch2_pj(1,1,36)=0 exch2_pj(2,1,36)=1 exch2_oi(1,36)=0 exch2_oi_f(1,36)=0 exch2_oj(1,36)=0 exch2_oj_f(1,36)=0 exch2_itlo_c(1,36)=0 exch2_ithi_c(1,36)=9 exch2_jtlo_c(1,36)=0 exch2_jthi_c(1,36)=0 exch2_opposingSend_record(1,36)=1 exch2_neighbourId(2,36)=37 exch2_pi(1,2,36)=1 exch2_pi(2,2,36)=0 exch2_pj(1,2,36)=0 exch2_pj(2,2,36)=1 exch2_oi(2,36)=0 exch2_oi_f(2,36)=0 exch2_oj(2,36)=0 exch2_oj_f(2,36)=0 exch2_itlo_c(2,36)=0 exch2_ithi_c(2,36)=0 exch2_jtlo_c(2,36)=0 exch2_jthi_c(2,36)=9 exch2_opposingSend_record(2,36)=4 exch2_neighbourId(3,36)=35 exch2_pi(1,3,36)=1 exch2_pi(2,3,36)=0 exch2_pj(1,3,36)=0 exch2_pj(2,3,36)=1 exch2_oi(3,36)=0 exch2_oi_f(3,36)=0 exch2_oj(3,36)=0 exch2_oj_f(3,36)=0 exch2_itlo_c(3,36)=9 exch2_ithi_c(3,36)=9 exch2_jtlo_c(3,36)=0 exch2_jthi_c(3,36)=9 exch2_opposingSend_record(3,36)=2 RETURN END SUBROUTINE W2_E2SETUP_37 C Topology for tile 37 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(37)=8 exch2_tny(37)=8 exch2_tbasex(37)=24 exch2_tbasey(37)=8 exch2_txglobalo(37)=89 exch2_tyglobalo(37)=9 exch2_isWedge(37)=0 exch2_isNedge(37)=0 exch2_isEedge(37)=1 exch2_isSedge(37)=0 exch2_myFace(37)=3 exch2_mydnx(37)=32 exch2_mydny(37)=32 exch2_nNeighbours(37)=4 exch2_neighbourId(1,37)=41 exch2_pi(1,1,37)=1 exch2_pi(2,1,37)=0 exch2_pj(1,1,37)=0 exch2_pj(2,1,37)=1 exch2_oi(1,37)=0 exch2_oi_f(1,37)=0 exch2_oj(1,37)=0 exch2_oj_f(1,37)=0 exch2_itlo_c(1,37)=0 exch2_ithi_c(1,37)=9 exch2_jtlo_c(1,37)=0 exch2_jthi_c(1,37)=0 exch2_opposingSend_record(1,37)=2 exch2_neighbourId(2,37)=33 exch2_pi(1,2,37)=1 exch2_pi(2,2,37)=0 exch2_pj(1,2,37)=0 exch2_pj(2,2,37)=1 exch2_oi(2,37)=0 exch2_oi_f(2,37)=0 exch2_oj(2,37)=0 exch2_oj_f(2,37)=0 exch2_itlo_c(2,37)=1 exch2_ithi_c(2,37)=8 exch2_jtlo_c(2,37)=9 exch2_jthi_c(2,37)=9 exch2_opposingSend_record(2,37)=1 exch2_neighbourId(3,37)=49 exch2_pi(1,3,37)=1 exch2_pi(2,3,37)=0 exch2_pj(1,3,37)=0 exch2_pj(2,3,37)=1 exch2_oi(3,37)=32 exch2_oi_f(3,37)=32 exch2_oj(3,37)=0 exch2_oj_f(3,37)=0 exch2_itlo_c(3,37)=0 exch2_ithi_c(3,37)=0 exch2_jtlo_c(3,37)=0 exch2_jthi_c(3,37)=9 exch2_opposingSend_record(3,37)=4 exch2_neighbourId(4,37)=36 exch2_pi(1,4,37)=1 exch2_pi(2,4,37)=0 exch2_pj(1,4,37)=0 exch2_pj(2,4,37)=1 exch2_oi(4,37)=0 exch2_oi_f(4,37)=0 exch2_oj(4,37)=0 exch2_oj_f(4,37)=0 exch2_itlo_c(4,37)=9 exch2_ithi_c(4,37)=9 exch2_jtlo_c(4,37)=0 exch2_jthi_c(4,37)=9 exch2_opposingSend_record(4,37)=2 RETURN END SUBROUTINE W2_E2SETUP_38 C Topology for tile 38 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(38)=8 exch2_tny(38)=8 exch2_tbasex(38)=0 exch2_tbasey(38)=16 exch2_txglobalo(38)=65 exch2_tyglobalo(38)=17 exch2_isWedge(38)=1 exch2_isNedge(38)=0 exch2_isEedge(38)=0 exch2_isSedge(38)=0 exch2_myFace(38)=3 exch2_mydnx(38)=32 exch2_mydny(38)=32 exch2_nNeighbours(38)=4 exch2_neighbourId(1,38)=42 exch2_pi(1,1,38)=1 exch2_pi(2,1,38)=0 exch2_pj(1,1,38)=0 exch2_pj(2,1,38)=1 exch2_oi(1,38)=0 exch2_oi_f(1,38)=0 exch2_oj(1,38)=0 exch2_oj_f(1,38)=0 exch2_itlo_c(1,38)=0 exch2_ithi_c(1,38)=9 exch2_jtlo_c(1,38)=0 exch2_jthi_c(1,38)=0 exch2_opposingSend_record(1,38)=2 exch2_neighbourId(2,38)=34 exch2_pi(1,2,38)=1 exch2_pi(2,2,38)=0 exch2_pj(1,2,38)=0 exch2_pj(2,2,38)=1 exch2_oi(2,38)=0 exch2_oi_f(2,38)=0 exch2_oj(2,38)=0 exch2_oj_f(2,38)=0 exch2_itlo_c(2,38)=1 exch2_ithi_c(2,38)=8 exch2_jtlo_c(2,38)=9 exch2_jthi_c(2,38)=9 exch2_opposingSend_record(2,38)=1 exch2_neighbourId(3,38)=39 exch2_pi(1,3,38)=1 exch2_pi(2,3,38)=0 exch2_pj(1,3,38)=0 exch2_pj(2,3,38)=1 exch2_oi(3,38)=0 exch2_oi_f(3,38)=0 exch2_oj(3,38)=0 exch2_oj_f(3,38)=0 exch2_itlo_c(3,38)=0 exch2_ithi_c(3,38)=0 exch2_jtlo_c(3,38)=0 exch2_jthi_c(3,38)=9 exch2_opposingSend_record(3,38)=4 exch2_neighbourId(4,38)=14 exch2_pi(1,4,38)=0 exch2_pi(2,4,38)=1 exch2_pj(1,4,38)=-1 exch2_pj(2,4,38)=0 exch2_oi(4,38)=-32 exch2_oi_f(4,38)=-32 exch2_oj(4,38)=33 exch2_oj_f(4,38)=34 exch2_itlo_c(4,38)=0 exch2_ithi_c(4,38)=9 exch2_jtlo_c(4,38)=9 exch2_jthi_c(4,38)=9 exch2_opposingSend_record(4,38)=1 RETURN END SUBROUTINE W2_E2SETUP_39 C Topology for tile 39 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(39)=8 exch2_tny(39)=8 exch2_tbasex(39)=8 exch2_tbasey(39)=16 exch2_txglobalo(39)=73 exch2_tyglobalo(39)=17 exch2_isWedge(39)=0 exch2_isNedge(39)=0 exch2_isEedge(39)=0 exch2_isSedge(39)=0 exch2_myFace(39)=3 exch2_mydnx(39)=32 exch2_mydny(39)=32 exch2_nNeighbours(39)=4 exch2_neighbourId(1,39)=43 exch2_pi(1,1,39)=1 exch2_pi(2,1,39)=0 exch2_pj(1,1,39)=0 exch2_pj(2,1,39)=1 exch2_oi(1,39)=0 exch2_oi_f(1,39)=0 exch2_oj(1,39)=0 exch2_oj_f(1,39)=0 exch2_itlo_c(1,39)=0 exch2_ithi_c(1,39)=9 exch2_jtlo_c(1,39)=0 exch2_jthi_c(1,39)=0 exch2_opposingSend_record(1,39)=2 exch2_neighbourId(2,39)=35 exch2_pi(1,2,39)=1 exch2_pi(2,2,39)=0 exch2_pj(1,2,39)=0 exch2_pj(2,2,39)=1 exch2_oi(2,39)=0 exch2_oi_f(2,39)=0 exch2_oj(2,39)=0 exch2_oj_f(2,39)=0 exch2_itlo_c(2,39)=1 exch2_ithi_c(2,39)=8 exch2_jtlo_c(2,39)=9 exch2_jthi_c(2,39)=9 exch2_opposingSend_record(2,39)=1 exch2_neighbourId(3,39)=40 exch2_pi(1,3,39)=1 exch2_pi(2,3,39)=0 exch2_pj(1,3,39)=0 exch2_pj(2,3,39)=1 exch2_oi(3,39)=0 exch2_oi_f(3,39)=0 exch2_oj(3,39)=0 exch2_oj_f(3,39)=0 exch2_itlo_c(3,39)=0 exch2_ithi_c(3,39)=0 exch2_jtlo_c(3,39)=0 exch2_jthi_c(3,39)=9 exch2_opposingSend_record(3,39)=3 exch2_neighbourId(4,39)=38 exch2_pi(1,4,39)=1 exch2_pi(2,4,39)=0 exch2_pj(1,4,39)=0 exch2_pj(2,4,39)=1 exch2_oi(4,39)=0 exch2_oi_f(4,39)=0 exch2_oj(4,39)=0 exch2_oj_f(4,39)=0 exch2_itlo_c(4,39)=9 exch2_ithi_c(4,39)=9 exch2_jtlo_c(4,39)=0 exch2_jthi_c(4,39)=9 exch2_opposingSend_record(4,39)=3 RETURN END SUBROUTINE W2_E2SETUP_40 C Topology for tile 40 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(40)=8 exch2_tny(40)=8 exch2_tbasex(40)=16 exch2_tbasey(40)=16 exch2_txglobalo(40)=81 exch2_tyglobalo(40)=17 exch2_isWedge(40)=0 exch2_isNedge(40)=0 exch2_isEedge(40)=0 exch2_isSedge(40)=0 exch2_myFace(40)=3 exch2_mydnx(40)=32 exch2_mydny(40)=32 exch2_nNeighbours(40)=3 exch2_neighbourId(1,40)=36 exch2_pi(1,1,40)=1 exch2_pi(2,1,40)=0 exch2_pj(1,1,40)=0 exch2_pj(2,1,40)=1 exch2_oi(1,40)=0 exch2_oi_f(1,40)=0 exch2_oj(1,40)=0 exch2_oj_f(1,40)=0 exch2_itlo_c(1,40)=1 exch2_ithi_c(1,40)=8 exch2_jtlo_c(1,40)=9 exch2_jthi_c(1,40)=9 exch2_opposingSend_record(1,40)=1 exch2_neighbourId(2,40)=41 exch2_pi(1,2,40)=1 exch2_pi(2,2,40)=0 exch2_pj(1,2,40)=0 exch2_pj(2,2,40)=1 exch2_oi(2,40)=0 exch2_oi_f(2,40)=0 exch2_oj(2,40)=0 exch2_oj_f(2,40)=0 exch2_itlo_c(2,40)=0 exch2_ithi_c(2,40)=0 exch2_jtlo_c(2,40)=0 exch2_jthi_c(2,40)=9 exch2_opposingSend_record(2,40)=4 exch2_neighbourId(3,40)=39 exch2_pi(1,3,40)=1 exch2_pi(2,3,40)=0 exch2_pj(1,3,40)=0 exch2_pj(2,3,40)=1 exch2_oi(3,40)=0 exch2_oi_f(3,40)=0 exch2_oj(3,40)=0 exch2_oj_f(3,40)=0 exch2_itlo_c(3,40)=9 exch2_ithi_c(3,40)=9 exch2_jtlo_c(3,40)=0 exch2_jthi_c(3,40)=9 exch2_opposingSend_record(3,40)=3 RETURN END SUBROUTINE W2_E2SETUP_41 C Topology for tile 41 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(41)=8 exch2_tny(41)=8 exch2_tbasex(41)=24 exch2_tbasey(41)=16 exch2_txglobalo(41)=89 exch2_tyglobalo(41)=17 exch2_isWedge(41)=0 exch2_isNedge(41)=0 exch2_isEedge(41)=1 exch2_isSedge(41)=0 exch2_myFace(41)=3 exch2_mydnx(41)=32 exch2_mydny(41)=32 exch2_nNeighbours(41)=4 exch2_neighbourId(1,41)=44 exch2_pi(1,1,41)=1 exch2_pi(2,1,41)=0 exch2_pj(1,1,41)=0 exch2_pj(2,1,41)=1 exch2_oi(1,41)=0 exch2_oi_f(1,41)=0 exch2_oj(1,41)=0 exch2_oj_f(1,41)=0 exch2_itlo_c(1,41)=0 exch2_ithi_c(1,41)=9 exch2_jtlo_c(1,41)=0 exch2_jthi_c(1,41)=0 exch2_opposingSend_record(1,41)=2 exch2_neighbourId(2,41)=37 exch2_pi(1,2,41)=1 exch2_pi(2,2,41)=0 exch2_pj(1,2,41)=0 exch2_pj(2,2,41)=1 exch2_oi(2,41)=0 exch2_oi_f(2,41)=0 exch2_oj(2,41)=0 exch2_oj_f(2,41)=0 exch2_itlo_c(2,41)=1 exch2_ithi_c(2,41)=8 exch2_jtlo_c(2,41)=9 exch2_jthi_c(2,41)=9 exch2_opposingSend_record(2,41)=1 exch2_neighbourId(3,41)=53 exch2_pi(1,3,41)=1 exch2_pi(2,3,41)=0 exch2_pj(1,3,41)=0 exch2_pj(2,3,41)=1 exch2_oi(3,41)=32 exch2_oi_f(3,41)=32 exch2_oj(3,41)=0 exch2_oj_f(3,41)=0 exch2_itlo_c(3,41)=0 exch2_ithi_c(3,41)=0 exch2_jtlo_c(3,41)=0 exch2_jthi_c(3,41)=9 exch2_opposingSend_record(3,41)=4 exch2_neighbourId(4,41)=40 exch2_pi(1,4,41)=1 exch2_pi(2,4,41)=0 exch2_pj(1,4,41)=0 exch2_pj(2,4,41)=1 exch2_oi(4,41)=0 exch2_oi_f(4,41)=0 exch2_oj(4,41)=0 exch2_oj_f(4,41)=0 exch2_itlo_c(4,41)=9 exch2_ithi_c(4,41)=9 exch2_jtlo_c(4,41)=0 exch2_jthi_c(4,41)=9 exch2_opposingSend_record(4,41)=2 RETURN END SUBROUTINE W2_E2SETUP_42 C Topology for tile 42 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(42)=8 exch2_tny(42)=8 exch2_tbasex(42)=0 exch2_tbasey(42)=24 exch2_txglobalo(42)=65 exch2_tyglobalo(42)=25 exch2_isWedge(42)=1 exch2_isNedge(42)=1 exch2_isEedge(42)=0 exch2_isSedge(42)=0 exch2_myFace(42)=3 exch2_mydnx(42)=32 exch2_mydny(42)=32 exch2_nNeighbours(42)=4 exch2_neighbourId(1,42)=73 exch2_pi(1,1,42)=0 exch2_pi(2,1,42)=-1 exch2_pj(1,1,42)=1 exch2_pj(2,1,42)=0 exch2_oi(1,42)=33 exch2_oi_f(1,42)=34 exch2_oj(1,42)=32 exch2_oj_f(1,42)=32 exch2_itlo_c(1,42)=0 exch2_ithi_c(1,42)=0 exch2_jtlo_c(1,42)=0 exch2_jthi_c(1,42)=9 exch2_opposingSend_record(1,42)=4 exch2_neighbourId(2,42)=38 exch2_pi(1,2,42)=1 exch2_pi(2,2,42)=0 exch2_pj(1,2,42)=0 exch2_pj(2,2,42)=1 exch2_oi(2,42)=0 exch2_oi_f(2,42)=0 exch2_oj(2,42)=0 exch2_oj_f(2,42)=0 exch2_itlo_c(2,42)=1 exch2_ithi_c(2,42)=8 exch2_jtlo_c(2,42)=9 exch2_jthi_c(2,42)=9 exch2_opposingSend_record(2,42)=1 exch2_neighbourId(3,42)=43 exch2_pi(1,3,42)=1 exch2_pi(2,3,42)=0 exch2_pj(1,3,42)=0 exch2_pj(2,3,42)=1 exch2_oi(3,42)=0 exch2_oi_f(3,42)=0 exch2_oj(3,42)=0 exch2_oj_f(3,42)=0 exch2_itlo_c(3,42)=0 exch2_ithi_c(3,42)=0 exch2_jtlo_c(3,42)=0 exch2_jthi_c(3,42)=9 exch2_opposingSend_record(3,42)=3 exch2_neighbourId(4,42)=13 exch2_pi(1,4,42)=0 exch2_pi(2,4,42)=1 exch2_pj(1,4,42)=-1 exch2_pj(2,4,42)=0 exch2_oi(4,42)=-32 exch2_oi_f(4,42)=-32 exch2_oj(4,42)=33 exch2_oj_f(4,42)=34 exch2_itlo_c(4,42)=0 exch2_ithi_c(4,42)=9 exch2_jtlo_c(4,42)=9 exch2_jthi_c(4,42)=9 exch2_opposingSend_record(4,42)=1 RETURN END SUBROUTINE W2_E2SETUP_43 C Topology for tile 43 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(43)=8 exch2_tny(43)=8 exch2_tbasex(43)=8 exch2_tbasey(43)=24 exch2_txglobalo(43)=73 exch2_tyglobalo(43)=25 exch2_isWedge(43)=0 exch2_isNedge(43)=1 exch2_isEedge(43)=0 exch2_isSedge(43)=0 exch2_myFace(43)=3 exch2_mydnx(43)=32 exch2_mydny(43)=32 exch2_nNeighbours(43)=3 exch2_neighbourId(1,43)=69 exch2_pi(1,1,43)=0 exch2_pi(2,1,43)=-1 exch2_pj(1,1,43)=1 exch2_pj(2,1,43)=0 exch2_oi(1,43)=33 exch2_oi_f(1,43)=34 exch2_oj(1,43)=32 exch2_oj_f(1,43)=32 exch2_itlo_c(1,43)=0 exch2_ithi_c(1,43)=0 exch2_jtlo_c(1,43)=0 exch2_jthi_c(1,43)=9 exch2_opposingSend_record(1,43)=4 exch2_neighbourId(2,43)=39 exch2_pi(1,2,43)=1 exch2_pi(2,2,43)=0 exch2_pj(1,2,43)=0 exch2_pj(2,2,43)=1 exch2_oi(2,43)=0 exch2_oi_f(2,43)=0 exch2_oj(2,43)=0 exch2_oj_f(2,43)=0 exch2_itlo_c(2,43)=1 exch2_ithi_c(2,43)=8 exch2_jtlo_c(2,43)=9 exch2_jthi_c(2,43)=9 exch2_opposingSend_record(2,43)=1 exch2_neighbourId(3,43)=42 exch2_pi(1,3,43)=1 exch2_pi(2,3,43)=0 exch2_pj(1,3,43)=0 exch2_pj(2,3,43)=1 exch2_oi(3,43)=0 exch2_oi_f(3,43)=0 exch2_oj(3,43)=0 exch2_oj_f(3,43)=0 exch2_itlo_c(3,43)=9 exch2_ithi_c(3,43)=9 exch2_jtlo_c(3,43)=0 exch2_jthi_c(3,43)=9 exch2_opposingSend_record(3,43)=3 RETURN END SUBROUTINE W2_E2SETUP_44 C Topology for tile 44 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(44)=8 exch2_tny(44)=8 exch2_tbasex(44)=24 exch2_tbasey(44)=24 exch2_txglobalo(44)=89 exch2_tyglobalo(44)=25 exch2_isWedge(44)=0 exch2_isNedge(44)=1 exch2_isEedge(44)=1 exch2_isSedge(44)=0 exch2_myFace(44)=3 exch2_mydnx(44)=32 exch2_mydny(44)=32 exch2_nNeighbours(44)=3 exch2_neighbourId(1,44)=61 exch2_pi(1,1,44)=0 exch2_pi(2,1,44)=-1 exch2_pj(1,1,44)=1 exch2_pj(2,1,44)=0 exch2_oi(1,44)=33 exch2_oi_f(1,44)=34 exch2_oj(1,44)=32 exch2_oj_f(1,44)=32 exch2_itlo_c(1,44)=0 exch2_ithi_c(1,44)=0 exch2_jtlo_c(1,44)=0 exch2_jthi_c(1,44)=9 exch2_opposingSend_record(1,44)=4 exch2_neighbourId(2,44)=41 exch2_pi(1,2,44)=1 exch2_pi(2,2,44)=0 exch2_pj(1,2,44)=0 exch2_pj(2,2,44)=1 exch2_oi(2,44)=0 exch2_oi_f(2,44)=0 exch2_oj(2,44)=0 exch2_oj_f(2,44)=0 exch2_itlo_c(2,44)=1 exch2_ithi_c(2,44)=8 exch2_jtlo_c(2,44)=9 exch2_jthi_c(2,44)=9 exch2_opposingSend_record(2,44)=1 exch2_neighbourId(3,44)=57 exch2_pi(1,3,44)=1 exch2_pi(2,3,44)=0 exch2_pj(1,3,44)=0 exch2_pj(2,3,44)=1 exch2_oi(3,44)=32 exch2_oi_f(3,44)=32 exch2_oj(3,44)=0 exch2_oj_f(3,44)=0 exch2_itlo_c(3,44)=0 exch2_ithi_c(3,44)=0 exch2_jtlo_c(3,44)=0 exch2_jthi_c(3,44)=9 exch2_opposingSend_record(3,44)=4 RETURN END SUBROUTINE W2_E2SETUP_45 C Topology for tile 45 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(45)=8 exch2_tny(45)=8 exch2_tbasex(45)=0 exch2_tbasey(45)=0 exch2_txglobalo(45)=97 exch2_tyglobalo(45)=1 exch2_isWedge(45)=1 exch2_isNedge(45)=0 exch2_isEedge(45)=0 exch2_isSedge(45)=1 exch2_myFace(45)=4 exch2_mydnx(45)=32 exch2_mydny(45)=32 exch2_nNeighbours(45)=4 exch2_neighbourId(1,45)=49 exch2_pi(1,1,45)=1 exch2_pi(2,1,45)=0 exch2_pj(1,1,45)=0 exch2_pj(2,1,45)=1 exch2_oi(1,45)=0 exch2_oi_f(1,45)=0 exch2_oj(1,45)=0 exch2_oj_f(1,45)=0 exch2_itlo_c(1,45)=0 exch2_ithi_c(1,45)=9 exch2_jtlo_c(1,45)=0 exch2_jthi_c(1,45)=0 exch2_opposingSend_record(1,45)=2 exch2_neighbourId(2,45)=31 exch2_pi(1,2,45)=0 exch2_pi(2,2,45)=-1 exch2_pj(1,2,45)=1 exch2_pj(2,2,45)=0 exch2_oi(2,45)=33 exch2_oi_f(2,45)=34 exch2_oj(2,45)=-32 exch2_oj_f(2,45)=-32 exch2_itlo_c(2,45)=9 exch2_ithi_c(2,45)=9 exch2_jtlo_c(2,45)=0 exch2_jthi_c(2,45)=9 exch2_opposingSend_record(2,45)=3 exch2_neighbourId(3,45)=46 exch2_pi(1,3,45)=1 exch2_pi(2,3,45)=0 exch2_pj(1,3,45)=0 exch2_pj(2,3,45)=1 exch2_oi(3,45)=0 exch2_oi_f(3,45)=0 exch2_oj(3,45)=0 exch2_oj_f(3,45)=0 exch2_itlo_c(3,45)=0 exch2_ithi_c(3,45)=0 exch2_jtlo_c(3,45)=0 exch2_jthi_c(3,45)=9 exch2_opposingSend_record(3,45)=4 exch2_neighbourId(4,45)=33 exch2_pi(1,4,45)=1 exch2_pi(2,4,45)=0 exch2_pj(1,4,45)=0 exch2_pj(2,4,45)=1 exch2_oi(4,45)=-32 exch2_oi_f(4,45)=-32 exch2_oj(4,45)=0 exch2_oj_f(4,45)=0 exch2_itlo_c(4,45)=9 exch2_ithi_c(4,45)=9 exch2_jtlo_c(4,45)=0 exch2_jthi_c(4,45)=9 exch2_opposingSend_record(4,45)=3 RETURN END SUBROUTINE W2_E2SETUP_46 C Topology for tile 46 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(46)=8 exch2_tny(46)=8 exch2_tbasex(46)=8 exch2_tbasey(46)=0 exch2_txglobalo(46)=105 exch2_tyglobalo(46)=1 exch2_isWedge(46)=0 exch2_isNedge(46)=0 exch2_isEedge(46)=0 exch2_isSedge(46)=1 exch2_myFace(46)=4 exch2_mydnx(46)=32 exch2_mydny(46)=32 exch2_nNeighbours(46)=4 exch2_neighbourId(1,46)=50 exch2_pi(1,1,46)=1 exch2_pi(2,1,46)=0 exch2_pj(1,1,46)=0 exch2_pj(2,1,46)=1 exch2_oi(1,46)=0 exch2_oi_f(1,46)=0 exch2_oj(1,46)=0 exch2_oj_f(1,46)=0 exch2_itlo_c(1,46)=0 exch2_ithi_c(1,46)=9 exch2_jtlo_c(1,46)=0 exch2_jthi_c(1,46)=0 exch2_opposingSend_record(1,46)=2 exch2_neighbourId(2,46)=28 exch2_pi(1,2,46)=0 exch2_pi(2,2,46)=-1 exch2_pj(1,2,46)=1 exch2_pj(2,2,46)=0 exch2_oi(2,46)=33 exch2_oi_f(2,46)=34 exch2_oj(2,46)=-32 exch2_oj_f(2,46)=-32 exch2_itlo_c(2,46)=9 exch2_ithi_c(2,46)=9 exch2_jtlo_c(2,46)=0 exch2_jthi_c(2,46)=9 exch2_opposingSend_record(2,46)=3 exch2_neighbourId(3,46)=47 exch2_pi(1,3,46)=1 exch2_pi(2,3,46)=0 exch2_pj(1,3,46)=0 exch2_pj(2,3,46)=1 exch2_oi(3,46)=0 exch2_oi_f(3,46)=0 exch2_oj(3,46)=0 exch2_oj_f(3,46)=0 exch2_itlo_c(3,46)=0 exch2_ithi_c(3,46)=0 exch2_jtlo_c(3,46)=0 exch2_jthi_c(3,46)=9 exch2_opposingSend_record(3,46)=4 exch2_neighbourId(4,46)=45 exch2_pi(1,4,46)=1 exch2_pi(2,4,46)=0 exch2_pj(1,4,46)=0 exch2_pj(2,4,46)=1 exch2_oi(4,46)=0 exch2_oi_f(4,46)=0 exch2_oj(4,46)=0 exch2_oj_f(4,46)=0 exch2_itlo_c(4,46)=9 exch2_ithi_c(4,46)=9 exch2_jtlo_c(4,46)=0 exch2_jthi_c(4,46)=9 exch2_opposingSend_record(4,46)=3 RETURN END SUBROUTINE W2_E2SETUP_47 C Topology for tile 47 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(47)=8 exch2_tny(47)=8 exch2_tbasex(47)=16 exch2_tbasey(47)=0 exch2_txglobalo(47)=113 exch2_tyglobalo(47)=1 exch2_isWedge(47)=0 exch2_isNedge(47)=0 exch2_isEedge(47)=0 exch2_isSedge(47)=1 exch2_myFace(47)=4 exch2_mydnx(47)=32 exch2_mydny(47)=32 exch2_nNeighbours(47)=4 exch2_neighbourId(1,47)=51 exch2_pi(1,1,47)=1 exch2_pi(2,1,47)=0 exch2_pj(1,1,47)=0 exch2_pj(2,1,47)=1 exch2_oi(1,47)=0 exch2_oi_f(1,47)=0 exch2_oj(1,47)=0 exch2_oj_f(1,47)=0 exch2_itlo_c(1,47)=0 exch2_ithi_c(1,47)=9 exch2_jtlo_c(1,47)=0 exch2_jthi_c(1,47)=0 exch2_opposingSend_record(1,47)=2 exch2_neighbourId(2,47)=24 exch2_pi(1,2,47)=0 exch2_pi(2,2,47)=-1 exch2_pj(1,2,47)=1 exch2_pj(2,2,47)=0 exch2_oi(2,47)=33 exch2_oi_f(2,47)=34 exch2_oj(2,47)=-32 exch2_oj_f(2,47)=-32 exch2_itlo_c(2,47)=9 exch2_ithi_c(2,47)=9 exch2_jtlo_c(2,47)=0 exch2_jthi_c(2,47)=9 exch2_opposingSend_record(2,47)=3 exch2_neighbourId(3,47)=48 exch2_pi(1,3,47)=1 exch2_pi(2,3,47)=0 exch2_pj(1,3,47)=0 exch2_pj(2,3,47)=1 exch2_oi(3,47)=0 exch2_oi_f(3,47)=0 exch2_oj(3,47)=0 exch2_oj_f(3,47)=0 exch2_itlo_c(3,47)=0 exch2_ithi_c(3,47)=0 exch2_jtlo_c(3,47)=0 exch2_jthi_c(3,47)=9 exch2_opposingSend_record(3,47)=4 exch2_neighbourId(4,47)=46 exch2_pi(1,4,47)=1 exch2_pi(2,4,47)=0 exch2_pj(1,4,47)=0 exch2_pj(2,4,47)=1 exch2_oi(4,47)=0 exch2_oi_f(4,47)=0 exch2_oj(4,47)=0 exch2_oj_f(4,47)=0 exch2_itlo_c(4,47)=9 exch2_ithi_c(4,47)=9 exch2_jtlo_c(4,47)=0 exch2_jthi_c(4,47)=9 exch2_opposingSend_record(4,47)=3 RETURN END SUBROUTINE W2_E2SETUP_48 C Topology for tile 48 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(48)=8 exch2_tny(48)=8 exch2_tbasex(48)=24 exch2_tbasey(48)=0 exch2_txglobalo(48)=121 exch2_tyglobalo(48)=1 exch2_isWedge(48)=0 exch2_isNedge(48)=0 exch2_isEedge(48)=1 exch2_isSedge(48)=1 exch2_myFace(48)=4 exch2_mydnx(48)=32 exch2_mydny(48)=32 exch2_nNeighbours(48)=4 exch2_neighbourId(1,48)=52 exch2_pi(1,1,48)=1 exch2_pi(2,1,48)=0 exch2_pj(1,1,48)=0 exch2_pj(2,1,48)=1 exch2_oi(1,48)=0 exch2_oi_f(1,48)=0 exch2_oj(1,48)=0 exch2_oj_f(1,48)=0 exch2_itlo_c(1,48)=0 exch2_ithi_c(1,48)=9 exch2_jtlo_c(1,48)=0 exch2_jthi_c(1,48)=0 exch2_opposingSend_record(1,48)=2 exch2_neighbourId(2,48)=20 exch2_pi(1,2,48)=0 exch2_pi(2,2,48)=-1 exch2_pj(1,2,48)=1 exch2_pj(2,2,48)=0 exch2_oi(2,48)=33 exch2_oi_f(2,48)=34 exch2_oj(2,48)=-32 exch2_oj_f(2,48)=-32 exch2_itlo_c(2,48)=9 exch2_ithi_c(2,48)=9 exch2_jtlo_c(2,48)=0 exch2_jthi_c(2,48)=9 exch2_opposingSend_record(2,48)=3 exch2_neighbourId(3,48)=79 exch2_pi(1,3,48)=0 exch2_pi(2,3,48)=1 exch2_pj(1,3,48)=-1 exch2_pj(2,3,48)=0 exch2_oi(3,48)=32 exch2_oi_f(3,48)=32 exch2_oj(3,48)=33 exch2_oj_f(3,48)=34 exch2_itlo_c(3,48)=0 exch2_ithi_c(3,48)=9 exch2_jtlo_c(3,48)=0 exch2_jthi_c(3,48)=0 exch2_opposingSend_record(3,48)=2 exch2_neighbourId(4,48)=47 exch2_pi(1,4,48)=1 exch2_pi(2,4,48)=0 exch2_pj(1,4,48)=0 exch2_pj(2,4,48)=1 exch2_oi(4,48)=0 exch2_oi_f(4,48)=0 exch2_oj(4,48)=0 exch2_oj_f(4,48)=0 exch2_itlo_c(4,48)=9 exch2_ithi_c(4,48)=9 exch2_jtlo_c(4,48)=0 exch2_jthi_c(4,48)=9 exch2_opposingSend_record(4,48)=3 RETURN END SUBROUTINE W2_E2SETUP_49 C Topology for tile 49 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(49)=8 exch2_tny(49)=8 exch2_tbasex(49)=0 exch2_tbasey(49)=8 exch2_txglobalo(49)=97 exch2_tyglobalo(49)=9 exch2_isWedge(49)=1 exch2_isNedge(49)=0 exch2_isEedge(49)=0 exch2_isSedge(49)=0 exch2_myFace(49)=4 exch2_mydnx(49)=32 exch2_mydny(49)=32 exch2_nNeighbours(49)=4 exch2_neighbourId(1,49)=53 exch2_pi(1,1,49)=1 exch2_pi(2,1,49)=0 exch2_pj(1,1,49)=0 exch2_pj(2,1,49)=1 exch2_oi(1,49)=0 exch2_oi_f(1,49)=0 exch2_oj(1,49)=0 exch2_oj_f(1,49)=0 exch2_itlo_c(1,49)=0 exch2_ithi_c(1,49)=9 exch2_jtlo_c(1,49)=0 exch2_jthi_c(1,49)=0 exch2_opposingSend_record(1,49)=2 exch2_neighbourId(2,49)=45 exch2_pi(1,2,49)=1 exch2_pi(2,2,49)=0 exch2_pj(1,2,49)=0 exch2_pj(2,2,49)=1 exch2_oi(2,49)=0 exch2_oi_f(2,49)=0 exch2_oj(2,49)=0 exch2_oj_f(2,49)=0 exch2_itlo_c(2,49)=1 exch2_ithi_c(2,49)=8 exch2_jtlo_c(2,49)=9 exch2_jthi_c(2,49)=9 exch2_opposingSend_record(2,49)=1 exch2_neighbourId(3,49)=50 exch2_pi(1,3,49)=1 exch2_pi(2,3,49)=0 exch2_pj(1,3,49)=0 exch2_pj(2,3,49)=1 exch2_oi(3,49)=0 exch2_oi_f(3,49)=0 exch2_oj(3,49)=0 exch2_oj_f(3,49)=0 exch2_itlo_c(3,49)=0 exch2_ithi_c(3,49)=0 exch2_jtlo_c(3,49)=0 exch2_jthi_c(3,49)=9 exch2_opposingSend_record(3,49)=4 exch2_neighbourId(4,49)=37 exch2_pi(1,4,49)=1 exch2_pi(2,4,49)=0 exch2_pj(1,4,49)=0 exch2_pj(2,4,49)=1 exch2_oi(4,49)=-32 exch2_oi_f(4,49)=-32 exch2_oj(4,49)=0 exch2_oj_f(4,49)=0 exch2_itlo_c(4,49)=9 exch2_ithi_c(4,49)=9 exch2_jtlo_c(4,49)=0 exch2_jthi_c(4,49)=9 exch2_opposingSend_record(4,49)=3 RETURN END SUBROUTINE W2_E2SETUP_50 C Topology for tile 50 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(50)=8 exch2_tny(50)=8 exch2_tbasex(50)=8 exch2_tbasey(50)=8 exch2_txglobalo(50)=105 exch2_tyglobalo(50)=9 exch2_isWedge(50)=0 exch2_isNedge(50)=0 exch2_isEedge(50)=0 exch2_isSedge(50)=0 exch2_myFace(50)=4 exch2_mydnx(50)=32 exch2_mydny(50)=32 exch2_nNeighbours(50)=4 exch2_neighbourId(1,50)=54 exch2_pi(1,1,50)=1 exch2_pi(2,1,50)=0 exch2_pj(1,1,50)=0 exch2_pj(2,1,50)=1 exch2_oi(1,50)=0 exch2_oi_f(1,50)=0 exch2_oj(1,50)=0 exch2_oj_f(1,50)=0 exch2_itlo_c(1,50)=0 exch2_ithi_c(1,50)=9 exch2_jtlo_c(1,50)=0 exch2_jthi_c(1,50)=0 exch2_opposingSend_record(1,50)=2 exch2_neighbourId(2,50)=46 exch2_pi(1,2,50)=1 exch2_pi(2,2,50)=0 exch2_pj(1,2,50)=0 exch2_pj(2,2,50)=1 exch2_oi(2,50)=0 exch2_oi_f(2,50)=0 exch2_oj(2,50)=0 exch2_oj_f(2,50)=0 exch2_itlo_c(2,50)=1 exch2_ithi_c(2,50)=8 exch2_jtlo_c(2,50)=9 exch2_jthi_c(2,50)=9 exch2_opposingSend_record(2,50)=1 exch2_neighbourId(3,50)=51 exch2_pi(1,3,50)=1 exch2_pi(2,3,50)=0 exch2_pj(1,3,50)=0 exch2_pj(2,3,50)=1 exch2_oi(3,50)=0 exch2_oi_f(3,50)=0 exch2_oj(3,50)=0 exch2_oj_f(3,50)=0 exch2_itlo_c(3,50)=0 exch2_ithi_c(3,50)=0 exch2_jtlo_c(3,50)=0 exch2_jthi_c(3,50)=9 exch2_opposingSend_record(3,50)=4 exch2_neighbourId(4,50)=49 exch2_pi(1,4,50)=1 exch2_pi(2,4,50)=0 exch2_pj(1,4,50)=0 exch2_pj(2,4,50)=1 exch2_oi(4,50)=0 exch2_oi_f(4,50)=0 exch2_oj(4,50)=0 exch2_oj_f(4,50)=0 exch2_itlo_c(4,50)=9 exch2_ithi_c(4,50)=9 exch2_jtlo_c(4,50)=0 exch2_jthi_c(4,50)=9 exch2_opposingSend_record(4,50)=3 RETURN END SUBROUTINE W2_E2SETUP_51 C Topology for tile 51 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(51)=8 exch2_tny(51)=8 exch2_tbasex(51)=16 exch2_tbasey(51)=8 exch2_txglobalo(51)=113 exch2_tyglobalo(51)=9 exch2_isWedge(51)=0 exch2_isNedge(51)=0 exch2_isEedge(51)=0 exch2_isSedge(51)=0 exch2_myFace(51)=4 exch2_mydnx(51)=32 exch2_mydny(51)=32 exch2_nNeighbours(51)=4 exch2_neighbourId(1,51)=55 exch2_pi(1,1,51)=1 exch2_pi(2,1,51)=0 exch2_pj(1,1,51)=0 exch2_pj(2,1,51)=1 exch2_oi(1,51)=0 exch2_oi_f(1,51)=0 exch2_oj(1,51)=0 exch2_oj_f(1,51)=0 exch2_itlo_c(1,51)=0 exch2_ithi_c(1,51)=9 exch2_jtlo_c(1,51)=0 exch2_jthi_c(1,51)=0 exch2_opposingSend_record(1,51)=2 exch2_neighbourId(2,51)=47 exch2_pi(1,2,51)=1 exch2_pi(2,2,51)=0 exch2_pj(1,2,51)=0 exch2_pj(2,2,51)=1 exch2_oi(2,51)=0 exch2_oi_f(2,51)=0 exch2_oj(2,51)=0 exch2_oj_f(2,51)=0 exch2_itlo_c(2,51)=1 exch2_ithi_c(2,51)=8 exch2_jtlo_c(2,51)=9 exch2_jthi_c(2,51)=9 exch2_opposingSend_record(2,51)=1 exch2_neighbourId(3,51)=52 exch2_pi(1,3,51)=1 exch2_pi(2,3,51)=0 exch2_pj(1,3,51)=0 exch2_pj(2,3,51)=1 exch2_oi(3,51)=0 exch2_oi_f(3,51)=0 exch2_oj(3,51)=0 exch2_oj_f(3,51)=0 exch2_itlo_c(3,51)=0 exch2_ithi_c(3,51)=0 exch2_jtlo_c(3,51)=0 exch2_jthi_c(3,51)=9 exch2_opposingSend_record(3,51)=4 exch2_neighbourId(4,51)=50 exch2_pi(1,4,51)=1 exch2_pi(2,4,51)=0 exch2_pj(1,4,51)=0 exch2_pj(2,4,51)=1 exch2_oi(4,51)=0 exch2_oi_f(4,51)=0 exch2_oj(4,51)=0 exch2_oj_f(4,51)=0 exch2_itlo_c(4,51)=9 exch2_ithi_c(4,51)=9 exch2_jtlo_c(4,51)=0 exch2_jthi_c(4,51)=9 exch2_opposingSend_record(4,51)=3 RETURN END SUBROUTINE W2_E2SETUP_52 C Topology for tile 52 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(52)=8 exch2_tny(52)=8 exch2_tbasex(52)=24 exch2_tbasey(52)=8 exch2_txglobalo(52)=121 exch2_tyglobalo(52)=9 exch2_isWedge(52)=0 exch2_isNedge(52)=0 exch2_isEedge(52)=1 exch2_isSedge(52)=0 exch2_myFace(52)=4 exch2_mydnx(52)=32 exch2_mydny(52)=32 exch2_nNeighbours(52)=4 exch2_neighbourId(1,52)=56 exch2_pi(1,1,52)=1 exch2_pi(2,1,52)=0 exch2_pj(1,1,52)=0 exch2_pj(2,1,52)=1 exch2_oi(1,52)=0 exch2_oi_f(1,52)=0 exch2_oj(1,52)=0 exch2_oj_f(1,52)=0 exch2_itlo_c(1,52)=0 exch2_ithi_c(1,52)=9 exch2_jtlo_c(1,52)=0 exch2_jthi_c(1,52)=0 exch2_opposingSend_record(1,52)=2 exch2_neighbourId(2,52)=48 exch2_pi(1,2,52)=1 exch2_pi(2,2,52)=0 exch2_pj(1,2,52)=0 exch2_pj(2,2,52)=1 exch2_oi(2,52)=0 exch2_oi_f(2,52)=0 exch2_oj(2,52)=0 exch2_oj_f(2,52)=0 exch2_itlo_c(2,52)=1 exch2_ithi_c(2,52)=8 exch2_jtlo_c(2,52)=9 exch2_jthi_c(2,52)=9 exch2_opposingSend_record(2,52)=1 exch2_neighbourId(3,52)=78 exch2_pi(1,3,52)=0 exch2_pi(2,3,52)=1 exch2_pj(1,3,52)=-1 exch2_pj(2,3,52)=0 exch2_oi(3,52)=32 exch2_oi_f(3,52)=32 exch2_oj(3,52)=33 exch2_oj_f(3,52)=34 exch2_itlo_c(3,52)=0 exch2_ithi_c(3,52)=9 exch2_jtlo_c(3,52)=0 exch2_jthi_c(3,52)=0 exch2_opposingSend_record(3,52)=2 exch2_neighbourId(4,52)=51 exch2_pi(1,4,52)=1 exch2_pi(2,4,52)=0 exch2_pj(1,4,52)=0 exch2_pj(2,4,52)=1 exch2_oi(4,52)=0 exch2_oi_f(4,52)=0 exch2_oj(4,52)=0 exch2_oj_f(4,52)=0 exch2_itlo_c(4,52)=9 exch2_ithi_c(4,52)=9 exch2_jtlo_c(4,52)=0 exch2_jthi_c(4,52)=9 exch2_opposingSend_record(4,52)=3 RETURN END SUBROUTINE W2_E2SETUP_53 C Topology for tile 53 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(53)=8 exch2_tny(53)=8 exch2_tbasex(53)=0 exch2_tbasey(53)=16 exch2_txglobalo(53)=97 exch2_tyglobalo(53)=17 exch2_isWedge(53)=1 exch2_isNedge(53)=0 exch2_isEedge(53)=0 exch2_isSedge(53)=0 exch2_myFace(53)=4 exch2_mydnx(53)=32 exch2_mydny(53)=32 exch2_nNeighbours(53)=4 exch2_neighbourId(1,53)=57 exch2_pi(1,1,53)=1 exch2_pi(2,1,53)=0 exch2_pj(1,1,53)=0 exch2_pj(2,1,53)=1 exch2_oi(1,53)=0 exch2_oi_f(1,53)=0 exch2_oj(1,53)=0 exch2_oj_f(1,53)=0 exch2_itlo_c(1,53)=0 exch2_ithi_c(1,53)=9 exch2_jtlo_c(1,53)=0 exch2_jthi_c(1,53)=0 exch2_opposingSend_record(1,53)=2 exch2_neighbourId(2,53)=49 exch2_pi(1,2,53)=1 exch2_pi(2,2,53)=0 exch2_pj(1,2,53)=0 exch2_pj(2,2,53)=1 exch2_oi(2,53)=0 exch2_oi_f(2,53)=0 exch2_oj(2,53)=0 exch2_oj_f(2,53)=0 exch2_itlo_c(2,53)=1 exch2_ithi_c(2,53)=8 exch2_jtlo_c(2,53)=9 exch2_jthi_c(2,53)=9 exch2_opposingSend_record(2,53)=1 exch2_neighbourId(3,53)=54 exch2_pi(1,3,53)=1 exch2_pi(2,3,53)=0 exch2_pj(1,3,53)=0 exch2_pj(2,3,53)=1 exch2_oi(3,53)=0 exch2_oi_f(3,53)=0 exch2_oj(3,53)=0 exch2_oj_f(3,53)=0 exch2_itlo_c(3,53)=0 exch2_ithi_c(3,53)=0 exch2_jtlo_c(3,53)=0 exch2_jthi_c(3,53)=9 exch2_opposingSend_record(3,53)=4 exch2_neighbourId(4,53)=41 exch2_pi(1,4,53)=1 exch2_pi(2,4,53)=0 exch2_pj(1,4,53)=0 exch2_pj(2,4,53)=1 exch2_oi(4,53)=-32 exch2_oi_f(4,53)=-32 exch2_oj(4,53)=0 exch2_oj_f(4,53)=0 exch2_itlo_c(4,53)=9 exch2_ithi_c(4,53)=9 exch2_jtlo_c(4,53)=0 exch2_jthi_c(4,53)=9 exch2_opposingSend_record(4,53)=3 RETURN END SUBROUTINE W2_E2SETUP_54 C Topology for tile 54 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(54)=8 exch2_tny(54)=8 exch2_tbasex(54)=8 exch2_tbasey(54)=16 exch2_txglobalo(54)=105 exch2_tyglobalo(54)=17 exch2_isWedge(54)=0 exch2_isNedge(54)=0 exch2_isEedge(54)=0 exch2_isSedge(54)=0 exch2_myFace(54)=4 exch2_mydnx(54)=32 exch2_mydny(54)=32 exch2_nNeighbours(54)=4 exch2_neighbourId(1,54)=58 exch2_pi(1,1,54)=1 exch2_pi(2,1,54)=0 exch2_pj(1,1,54)=0 exch2_pj(2,1,54)=1 exch2_oi(1,54)=0 exch2_oi_f(1,54)=0 exch2_oj(1,54)=0 exch2_oj_f(1,54)=0 exch2_itlo_c(1,54)=0 exch2_ithi_c(1,54)=9 exch2_jtlo_c(1,54)=0 exch2_jthi_c(1,54)=0 exch2_opposingSend_record(1,54)=2 exch2_neighbourId(2,54)=50 exch2_pi(1,2,54)=1 exch2_pi(2,2,54)=0 exch2_pj(1,2,54)=0 exch2_pj(2,2,54)=1 exch2_oi(2,54)=0 exch2_oi_f(2,54)=0 exch2_oj(2,54)=0 exch2_oj_f(2,54)=0 exch2_itlo_c(2,54)=1 exch2_ithi_c(2,54)=8 exch2_jtlo_c(2,54)=9 exch2_jthi_c(2,54)=9 exch2_opposingSend_record(2,54)=1 exch2_neighbourId(3,54)=55 exch2_pi(1,3,54)=1 exch2_pi(2,3,54)=0 exch2_pj(1,3,54)=0 exch2_pj(2,3,54)=1 exch2_oi(3,54)=0 exch2_oi_f(3,54)=0 exch2_oj(3,54)=0 exch2_oj_f(3,54)=0 exch2_itlo_c(3,54)=0 exch2_ithi_c(3,54)=0 exch2_jtlo_c(3,54)=0 exch2_jthi_c(3,54)=9 exch2_opposingSend_record(3,54)=4 exch2_neighbourId(4,54)=53 exch2_pi(1,4,54)=1 exch2_pi(2,4,54)=0 exch2_pj(1,4,54)=0 exch2_pj(2,4,54)=1 exch2_oi(4,54)=0 exch2_oi_f(4,54)=0 exch2_oj(4,54)=0 exch2_oj_f(4,54)=0 exch2_itlo_c(4,54)=9 exch2_ithi_c(4,54)=9 exch2_jtlo_c(4,54)=0 exch2_jthi_c(4,54)=9 exch2_opposingSend_record(4,54)=3 RETURN END SUBROUTINE W2_E2SETUP_55 C Topology for tile 55 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(55)=8 exch2_tny(55)=8 exch2_tbasex(55)=16 exch2_tbasey(55)=16 exch2_txglobalo(55)=113 exch2_tyglobalo(55)=17 exch2_isWedge(55)=0 exch2_isNedge(55)=0 exch2_isEedge(55)=0 exch2_isSedge(55)=0 exch2_myFace(55)=4 exch2_mydnx(55)=32 exch2_mydny(55)=32 exch2_nNeighbours(55)=4 exch2_neighbourId(1,55)=59 exch2_pi(1,1,55)=1 exch2_pi(2,1,55)=0 exch2_pj(1,1,55)=0 exch2_pj(2,1,55)=1 exch2_oi(1,55)=0 exch2_oi_f(1,55)=0 exch2_oj(1,55)=0 exch2_oj_f(1,55)=0 exch2_itlo_c(1,55)=0 exch2_ithi_c(1,55)=9 exch2_jtlo_c(1,55)=0 exch2_jthi_c(1,55)=0 exch2_opposingSend_record(1,55)=2 exch2_neighbourId(2,55)=51 exch2_pi(1,2,55)=1 exch2_pi(2,2,55)=0 exch2_pj(1,2,55)=0 exch2_pj(2,2,55)=1 exch2_oi(2,55)=0 exch2_oi_f(2,55)=0 exch2_oj(2,55)=0 exch2_oj_f(2,55)=0 exch2_itlo_c(2,55)=1 exch2_ithi_c(2,55)=8 exch2_jtlo_c(2,55)=9 exch2_jthi_c(2,55)=9 exch2_opposingSend_record(2,55)=1 exch2_neighbourId(3,55)=56 exch2_pi(1,3,55)=1 exch2_pi(2,3,55)=0 exch2_pj(1,3,55)=0 exch2_pj(2,3,55)=1 exch2_oi(3,55)=0 exch2_oi_f(3,55)=0 exch2_oj(3,55)=0 exch2_oj_f(3,55)=0 exch2_itlo_c(3,55)=0 exch2_ithi_c(3,55)=0 exch2_jtlo_c(3,55)=0 exch2_jthi_c(3,55)=9 exch2_opposingSend_record(3,55)=4 exch2_neighbourId(4,55)=54 exch2_pi(1,4,55)=1 exch2_pi(2,4,55)=0 exch2_pj(1,4,55)=0 exch2_pj(2,4,55)=1 exch2_oi(4,55)=0 exch2_oi_f(4,55)=0 exch2_oj(4,55)=0 exch2_oj_f(4,55)=0 exch2_itlo_c(4,55)=9 exch2_ithi_c(4,55)=9 exch2_jtlo_c(4,55)=0 exch2_jthi_c(4,55)=9 exch2_opposingSend_record(4,55)=3 RETURN END SUBROUTINE W2_E2SETUP_56 C Topology for tile 56 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(56)=8 exch2_tny(56)=8 exch2_tbasex(56)=24 exch2_tbasey(56)=16 exch2_txglobalo(56)=121 exch2_tyglobalo(56)=17 exch2_isWedge(56)=0 exch2_isNedge(56)=0 exch2_isEedge(56)=1 exch2_isSedge(56)=0 exch2_myFace(56)=4 exch2_mydnx(56)=32 exch2_mydny(56)=32 exch2_nNeighbours(56)=4 exch2_neighbourId(1,56)=60 exch2_pi(1,1,56)=1 exch2_pi(2,1,56)=0 exch2_pj(1,1,56)=0 exch2_pj(2,1,56)=1 exch2_oi(1,56)=0 exch2_oi_f(1,56)=0 exch2_oj(1,56)=0 exch2_oj_f(1,56)=0 exch2_itlo_c(1,56)=0 exch2_ithi_c(1,56)=9 exch2_jtlo_c(1,56)=0 exch2_jthi_c(1,56)=0 exch2_opposingSend_record(1,56)=2 exch2_neighbourId(2,56)=52 exch2_pi(1,2,56)=1 exch2_pi(2,2,56)=0 exch2_pj(1,2,56)=0 exch2_pj(2,2,56)=1 exch2_oi(2,56)=0 exch2_oi_f(2,56)=0 exch2_oj(2,56)=0 exch2_oj_f(2,56)=0 exch2_itlo_c(2,56)=1 exch2_ithi_c(2,56)=8 exch2_jtlo_c(2,56)=9 exch2_jthi_c(2,56)=9 exch2_opposingSend_record(2,56)=1 exch2_neighbourId(3,56)=77 exch2_pi(1,3,56)=0 exch2_pi(2,3,56)=1 exch2_pj(1,3,56)=-1 exch2_pj(2,3,56)=0 exch2_oi(3,56)=32 exch2_oi_f(3,56)=32 exch2_oj(3,56)=33 exch2_oj_f(3,56)=34 exch2_itlo_c(3,56)=0 exch2_ithi_c(3,56)=9 exch2_jtlo_c(3,56)=0 exch2_jthi_c(3,56)=0 exch2_opposingSend_record(3,56)=2 exch2_neighbourId(4,56)=55 exch2_pi(1,4,56)=1 exch2_pi(2,4,56)=0 exch2_pj(1,4,56)=0 exch2_pj(2,4,56)=1 exch2_oi(4,56)=0 exch2_oi_f(4,56)=0 exch2_oj(4,56)=0 exch2_oj_f(4,56)=0 exch2_itlo_c(4,56)=9 exch2_ithi_c(4,56)=9 exch2_jtlo_c(4,56)=0 exch2_jthi_c(4,56)=9 exch2_opposingSend_record(4,56)=3 RETURN END SUBROUTINE W2_E2SETUP_57 C Topology for tile 57 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(57)=8 exch2_tny(57)=8 exch2_tbasex(57)=0 exch2_tbasey(57)=24 exch2_txglobalo(57)=97 exch2_tyglobalo(57)=25 exch2_isWedge(57)=1 exch2_isNedge(57)=1 exch2_isEedge(57)=0 exch2_isSedge(57)=0 exch2_myFace(57)=4 exch2_mydnx(57)=32 exch2_mydny(57)=32 exch2_nNeighbours(57)=4 exch2_neighbourId(1,57)=61 exch2_pi(1,1,57)=1 exch2_pi(2,1,57)=0 exch2_pj(1,1,57)=0 exch2_pj(2,1,57)=1 exch2_oi(1,57)=0 exch2_oi_f(1,57)=0 exch2_oj(1,57)=32 exch2_oj_f(1,57)=32 exch2_itlo_c(1,57)=0 exch2_ithi_c(1,57)=9 exch2_jtlo_c(1,57)=0 exch2_jthi_c(1,57)=0 exch2_opposingSend_record(1,57)=2 exch2_neighbourId(2,57)=53 exch2_pi(1,2,57)=1 exch2_pi(2,2,57)=0 exch2_pj(1,2,57)=0 exch2_pj(2,2,57)=1 exch2_oi(2,57)=0 exch2_oi_f(2,57)=0 exch2_oj(2,57)=0 exch2_oj_f(2,57)=0 exch2_itlo_c(2,57)=1 exch2_ithi_c(2,57)=8 exch2_jtlo_c(2,57)=9 exch2_jthi_c(2,57)=9 exch2_opposingSend_record(2,57)=1 exch2_neighbourId(3,57)=58 exch2_pi(1,3,57)=1 exch2_pi(2,3,57)=0 exch2_pj(1,3,57)=0 exch2_pj(2,3,57)=1 exch2_oi(3,57)=0 exch2_oi_f(3,57)=0 exch2_oj(3,57)=0 exch2_oj_f(3,57)=0 exch2_itlo_c(3,57)=0 exch2_ithi_c(3,57)=0 exch2_jtlo_c(3,57)=0 exch2_jthi_c(3,57)=9 exch2_opposingSend_record(3,57)=4 exch2_neighbourId(4,57)=44 exch2_pi(1,4,57)=1 exch2_pi(2,4,57)=0 exch2_pj(1,4,57)=0 exch2_pj(2,4,57)=1 exch2_oi(4,57)=-32 exch2_oi_f(4,57)=-32 exch2_oj(4,57)=0 exch2_oj_f(4,57)=0 exch2_itlo_c(4,57)=9 exch2_ithi_c(4,57)=9 exch2_jtlo_c(4,57)=0 exch2_jthi_c(4,57)=9 exch2_opposingSend_record(4,57)=3 RETURN END SUBROUTINE W2_E2SETUP_58 C Topology for tile 58 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(58)=8 exch2_tny(58)=8 exch2_tbasex(58)=8 exch2_tbasey(58)=24 exch2_txglobalo(58)=105 exch2_tyglobalo(58)=25 exch2_isWedge(58)=0 exch2_isNedge(58)=1 exch2_isEedge(58)=0 exch2_isSedge(58)=0 exch2_myFace(58)=4 exch2_mydnx(58)=32 exch2_mydny(58)=32 exch2_nNeighbours(58)=4 exch2_neighbourId(1,58)=62 exch2_pi(1,1,58)=1 exch2_pi(2,1,58)=0 exch2_pj(1,1,58)=0 exch2_pj(2,1,58)=1 exch2_oi(1,58)=0 exch2_oi_f(1,58)=0 exch2_oj(1,58)=32 exch2_oj_f(1,58)=32 exch2_itlo_c(1,58)=0 exch2_ithi_c(1,58)=9 exch2_jtlo_c(1,58)=0 exch2_jthi_c(1,58)=0 exch2_opposingSend_record(1,58)=2 exch2_neighbourId(2,58)=54 exch2_pi(1,2,58)=1 exch2_pi(2,2,58)=0 exch2_pj(1,2,58)=0 exch2_pj(2,2,58)=1 exch2_oi(2,58)=0 exch2_oi_f(2,58)=0 exch2_oj(2,58)=0 exch2_oj_f(2,58)=0 exch2_itlo_c(2,58)=1 exch2_ithi_c(2,58)=8 exch2_jtlo_c(2,58)=9 exch2_jthi_c(2,58)=9 exch2_opposingSend_record(2,58)=1 exch2_neighbourId(3,58)=59 exch2_pi(1,3,58)=1 exch2_pi(2,3,58)=0 exch2_pj(1,3,58)=0 exch2_pj(2,3,58)=1 exch2_oi(3,58)=0 exch2_oi_f(3,58)=0 exch2_oj(3,58)=0 exch2_oj_f(3,58)=0 exch2_itlo_c(3,58)=0 exch2_ithi_c(3,58)=0 exch2_jtlo_c(3,58)=0 exch2_jthi_c(3,58)=9 exch2_opposingSend_record(3,58)=4 exch2_neighbourId(4,58)=57 exch2_pi(1,4,58)=1 exch2_pi(2,4,58)=0 exch2_pj(1,4,58)=0 exch2_pj(2,4,58)=1 exch2_oi(4,58)=0 exch2_oi_f(4,58)=0 exch2_oj(4,58)=0 exch2_oj_f(4,58)=0 exch2_itlo_c(4,58)=9 exch2_ithi_c(4,58)=9 exch2_jtlo_c(4,58)=0 exch2_jthi_c(4,58)=9 exch2_opposingSend_record(4,58)=3 RETURN END SUBROUTINE W2_E2SETUP_59 C Topology for tile 59 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(59)=8 exch2_tny(59)=8 exch2_tbasex(59)=16 exch2_tbasey(59)=24 exch2_txglobalo(59)=113 exch2_tyglobalo(59)=25 exch2_isWedge(59)=0 exch2_isNedge(59)=1 exch2_isEedge(59)=0 exch2_isSedge(59)=0 exch2_myFace(59)=4 exch2_mydnx(59)=32 exch2_mydny(59)=32 exch2_nNeighbours(59)=4 exch2_neighbourId(1,59)=63 exch2_pi(1,1,59)=1 exch2_pi(2,1,59)=0 exch2_pj(1,1,59)=0 exch2_pj(2,1,59)=1 exch2_oi(1,59)=0 exch2_oi_f(1,59)=0 exch2_oj(1,59)=32 exch2_oj_f(1,59)=32 exch2_itlo_c(1,59)=0 exch2_ithi_c(1,59)=9 exch2_jtlo_c(1,59)=0 exch2_jthi_c(1,59)=0 exch2_opposingSend_record(1,59)=2 exch2_neighbourId(2,59)=55 exch2_pi(1,2,59)=1 exch2_pi(2,2,59)=0 exch2_pj(1,2,59)=0 exch2_pj(2,2,59)=1 exch2_oi(2,59)=0 exch2_oi_f(2,59)=0 exch2_oj(2,59)=0 exch2_oj_f(2,59)=0 exch2_itlo_c(2,59)=1 exch2_ithi_c(2,59)=8 exch2_jtlo_c(2,59)=9 exch2_jthi_c(2,59)=9 exch2_opposingSend_record(2,59)=1 exch2_neighbourId(3,59)=60 exch2_pi(1,3,59)=1 exch2_pi(2,3,59)=0 exch2_pj(1,3,59)=0 exch2_pj(2,3,59)=1 exch2_oi(3,59)=0 exch2_oi_f(3,59)=0 exch2_oj(3,59)=0 exch2_oj_f(3,59)=0 exch2_itlo_c(3,59)=0 exch2_ithi_c(3,59)=0 exch2_jtlo_c(3,59)=0 exch2_jthi_c(3,59)=9 exch2_opposingSend_record(3,59)=4 exch2_neighbourId(4,59)=58 exch2_pi(1,4,59)=1 exch2_pi(2,4,59)=0 exch2_pj(1,4,59)=0 exch2_pj(2,4,59)=1 exch2_oi(4,59)=0 exch2_oi_f(4,59)=0 exch2_oj(4,59)=0 exch2_oj_f(4,59)=0 exch2_itlo_c(4,59)=9 exch2_ithi_c(4,59)=9 exch2_jtlo_c(4,59)=0 exch2_jthi_c(4,59)=9 exch2_opposingSend_record(4,59)=3 RETURN END SUBROUTINE W2_E2SETUP_60 C Topology for tile 60 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(60)=8 exch2_tny(60)=8 exch2_tbasex(60)=24 exch2_tbasey(60)=24 exch2_txglobalo(60)=121 exch2_tyglobalo(60)=25 exch2_isWedge(60)=0 exch2_isNedge(60)=1 exch2_isEedge(60)=1 exch2_isSedge(60)=0 exch2_myFace(60)=4 exch2_mydnx(60)=32 exch2_mydny(60)=32 exch2_nNeighbours(60)=4 exch2_neighbourId(1,60)=64 exch2_pi(1,1,60)=1 exch2_pi(2,1,60)=0 exch2_pj(1,1,60)=0 exch2_pj(2,1,60)=1 exch2_oi(1,60)=0 exch2_oi_f(1,60)=0 exch2_oj(1,60)=32 exch2_oj_f(1,60)=32 exch2_itlo_c(1,60)=0 exch2_ithi_c(1,60)=9 exch2_jtlo_c(1,60)=0 exch2_jthi_c(1,60)=0 exch2_opposingSend_record(1,60)=2 exch2_neighbourId(2,60)=56 exch2_pi(1,2,60)=1 exch2_pi(2,2,60)=0 exch2_pj(1,2,60)=0 exch2_pj(2,2,60)=1 exch2_oi(2,60)=0 exch2_oi_f(2,60)=0 exch2_oj(2,60)=0 exch2_oj_f(2,60)=0 exch2_itlo_c(2,60)=1 exch2_ithi_c(2,60)=8 exch2_jtlo_c(2,60)=9 exch2_jthi_c(2,60)=9 exch2_opposingSend_record(2,60)=1 exch2_neighbourId(3,60)=76 exch2_pi(1,3,60)=0 exch2_pi(2,3,60)=1 exch2_pj(1,3,60)=-1 exch2_pj(2,3,60)=0 exch2_oi(3,60)=32 exch2_oi_f(3,60)=32 exch2_oj(3,60)=33 exch2_oj_f(3,60)=34 exch2_itlo_c(3,60)=0 exch2_ithi_c(3,60)=9 exch2_jtlo_c(3,60)=0 exch2_jthi_c(3,60)=0 exch2_opposingSend_record(3,60)=2 exch2_neighbourId(4,60)=59 exch2_pi(1,4,60)=1 exch2_pi(2,4,60)=0 exch2_pj(1,4,60)=0 exch2_pj(2,4,60)=1 exch2_oi(4,60)=0 exch2_oi_f(4,60)=0 exch2_oj(4,60)=0 exch2_oj_f(4,60)=0 exch2_itlo_c(4,60)=9 exch2_ithi_c(4,60)=9 exch2_jtlo_c(4,60)=0 exch2_jthi_c(4,60)=9 exch2_opposingSend_record(4,60)=3 RETURN END SUBROUTINE W2_E2SETUP_61 C Topology for tile 61 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(61)=8 exch2_tny(61)=8 exch2_tbasex(61)=0 exch2_tbasey(61)=0 exch2_txglobalo(61)=129 exch2_tyglobalo(61)=1 exch2_isWedge(61)=1 exch2_isNedge(61)=0 exch2_isEedge(61)=0 exch2_isSedge(61)=1 exch2_myFace(61)=5 exch2_mydnx(61)=32 exch2_mydny(61)=32 exch2_nNeighbours(61)=4 exch2_neighbourId(1,61)=65 exch2_pi(1,1,61)=1 exch2_pi(2,1,61)=0 exch2_pj(1,1,61)=0 exch2_pj(2,1,61)=1 exch2_oi(1,61)=0 exch2_oi_f(1,61)=0 exch2_oj(1,61)=0 exch2_oj_f(1,61)=0 exch2_itlo_c(1,61)=0 exch2_ithi_c(1,61)=9 exch2_jtlo_c(1,61)=0 exch2_jthi_c(1,61)=0 exch2_opposingSend_record(1,61)=2 exch2_neighbourId(2,61)=57 exch2_pi(1,2,61)=1 exch2_pi(2,2,61)=0 exch2_pj(1,2,61)=0 exch2_pj(2,2,61)=1 exch2_oi(2,61)=0 exch2_oi_f(2,61)=0 exch2_oj(2,61)=-32 exch2_oj_f(2,61)=-32 exch2_itlo_c(2,61)=0 exch2_ithi_c(2,61)=9 exch2_jtlo_c(2,61)=9 exch2_jthi_c(2,61)=9 exch2_opposingSend_record(2,61)=1 exch2_neighbourId(3,61)=62 exch2_pi(1,3,61)=1 exch2_pi(2,3,61)=0 exch2_pj(1,3,61)=0 exch2_pj(2,3,61)=1 exch2_oi(3,61)=0 exch2_oi_f(3,61)=0 exch2_oj(3,61)=0 exch2_oj_f(3,61)=0 exch2_itlo_c(3,61)=0 exch2_ithi_c(3,61)=0 exch2_jtlo_c(3,61)=0 exch2_jthi_c(3,61)=9 exch2_opposingSend_record(3,61)=4 exch2_neighbourId(4,61)=44 exch2_pi(1,4,61)=0 exch2_pi(2,4,61)=1 exch2_pj(1,4,61)=-1 exch2_pj(2,4,61)=0 exch2_oi(4,61)=-32 exch2_oi_f(4,61)=-32 exch2_oj(4,61)=33 exch2_oj_f(4,61)=34 exch2_itlo_c(4,61)=0 exch2_ithi_c(4,61)=9 exch2_jtlo_c(4,61)=9 exch2_jthi_c(4,61)=9 exch2_opposingSend_record(4,61)=1 RETURN END SUBROUTINE W2_E2SETUP_62 C Topology for tile 62 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(62)=8 exch2_tny(62)=8 exch2_tbasex(62)=8 exch2_tbasey(62)=0 exch2_txglobalo(62)=137 exch2_tyglobalo(62)=1 exch2_isWedge(62)=0 exch2_isNedge(62)=0 exch2_isEedge(62)=0 exch2_isSedge(62)=1 exch2_myFace(62)=5 exch2_mydnx(62)=32 exch2_mydny(62)=32 exch2_nNeighbours(62)=4 exch2_neighbourId(1,62)=66 exch2_pi(1,1,62)=1 exch2_pi(2,1,62)=0 exch2_pj(1,1,62)=0 exch2_pj(2,1,62)=1 exch2_oi(1,62)=0 exch2_oi_f(1,62)=0 exch2_oj(1,62)=0 exch2_oj_f(1,62)=0 exch2_itlo_c(1,62)=0 exch2_ithi_c(1,62)=9 exch2_jtlo_c(1,62)=0 exch2_jthi_c(1,62)=0 exch2_opposingSend_record(1,62)=2 exch2_neighbourId(2,62)=58 exch2_pi(1,2,62)=1 exch2_pi(2,2,62)=0 exch2_pj(1,2,62)=0 exch2_pj(2,2,62)=1 exch2_oi(2,62)=0 exch2_oi_f(2,62)=0 exch2_oj(2,62)=-32 exch2_oj_f(2,62)=-32 exch2_itlo_c(2,62)=0 exch2_ithi_c(2,62)=9 exch2_jtlo_c(2,62)=9 exch2_jthi_c(2,62)=9 exch2_opposingSend_record(2,62)=1 exch2_neighbourId(3,62)=63 exch2_pi(1,3,62)=1 exch2_pi(2,3,62)=0 exch2_pj(1,3,62)=0 exch2_pj(2,3,62)=1 exch2_oi(3,62)=0 exch2_oi_f(3,62)=0 exch2_oj(3,62)=0 exch2_oj_f(3,62)=0 exch2_itlo_c(3,62)=0 exch2_ithi_c(3,62)=0 exch2_jtlo_c(3,62)=0 exch2_jthi_c(3,62)=9 exch2_opposingSend_record(3,62)=4 exch2_neighbourId(4,62)=61 exch2_pi(1,4,62)=1 exch2_pi(2,4,62)=0 exch2_pj(1,4,62)=0 exch2_pj(2,4,62)=1 exch2_oi(4,62)=0 exch2_oi_f(4,62)=0 exch2_oj(4,62)=0 exch2_oj_f(4,62)=0 exch2_itlo_c(4,62)=9 exch2_ithi_c(4,62)=9 exch2_jtlo_c(4,62)=0 exch2_jthi_c(4,62)=9 exch2_opposingSend_record(4,62)=3 RETURN END SUBROUTINE W2_E2SETUP_63 C Topology for tile 63 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(63)=8 exch2_tny(63)=8 exch2_tbasex(63)=16 exch2_tbasey(63)=0 exch2_txglobalo(63)=145 exch2_tyglobalo(63)=1 exch2_isWedge(63)=0 exch2_isNedge(63)=0 exch2_isEedge(63)=0 exch2_isSedge(63)=1 exch2_myFace(63)=5 exch2_mydnx(63)=32 exch2_mydny(63)=32 exch2_nNeighbours(63)=4 exch2_neighbourId(1,63)=67 exch2_pi(1,1,63)=1 exch2_pi(2,1,63)=0 exch2_pj(1,1,63)=0 exch2_pj(2,1,63)=1 exch2_oi(1,63)=0 exch2_oi_f(1,63)=0 exch2_oj(1,63)=0 exch2_oj_f(1,63)=0 exch2_itlo_c(1,63)=0 exch2_ithi_c(1,63)=9 exch2_jtlo_c(1,63)=0 exch2_jthi_c(1,63)=0 exch2_opposingSend_record(1,63)=2 exch2_neighbourId(2,63)=59 exch2_pi(1,2,63)=1 exch2_pi(2,2,63)=0 exch2_pj(1,2,63)=0 exch2_pj(2,2,63)=1 exch2_oi(2,63)=0 exch2_oi_f(2,63)=0 exch2_oj(2,63)=-32 exch2_oj_f(2,63)=-32 exch2_itlo_c(2,63)=0 exch2_ithi_c(2,63)=9 exch2_jtlo_c(2,63)=9 exch2_jthi_c(2,63)=9 exch2_opposingSend_record(2,63)=1 exch2_neighbourId(3,63)=64 exch2_pi(1,3,63)=1 exch2_pi(2,3,63)=0 exch2_pj(1,3,63)=0 exch2_pj(2,3,63)=1 exch2_oi(3,63)=0 exch2_oi_f(3,63)=0 exch2_oj(3,63)=0 exch2_oj_f(3,63)=0 exch2_itlo_c(3,63)=0 exch2_ithi_c(3,63)=0 exch2_jtlo_c(3,63)=0 exch2_jthi_c(3,63)=9 exch2_opposingSend_record(3,63)=4 exch2_neighbourId(4,63)=62 exch2_pi(1,4,63)=1 exch2_pi(2,4,63)=0 exch2_pj(1,4,63)=0 exch2_pj(2,4,63)=1 exch2_oi(4,63)=0 exch2_oi_f(4,63)=0 exch2_oj(4,63)=0 exch2_oj_f(4,63)=0 exch2_itlo_c(4,63)=9 exch2_ithi_c(4,63)=9 exch2_jtlo_c(4,63)=0 exch2_jthi_c(4,63)=9 exch2_opposingSend_record(4,63)=3 RETURN END SUBROUTINE W2_E2SETUP_64 C Topology for tile 64 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(64)=8 exch2_tny(64)=8 exch2_tbasex(64)=24 exch2_tbasey(64)=0 exch2_txglobalo(64)=153 exch2_tyglobalo(64)=1 exch2_isWedge(64)=0 exch2_isNedge(64)=0 exch2_isEedge(64)=1 exch2_isSedge(64)=1 exch2_myFace(64)=5 exch2_mydnx(64)=32 exch2_mydny(64)=32 exch2_nNeighbours(64)=4 exch2_neighbourId(1,64)=68 exch2_pi(1,1,64)=1 exch2_pi(2,1,64)=0 exch2_pj(1,1,64)=0 exch2_pj(2,1,64)=1 exch2_oi(1,64)=0 exch2_oi_f(1,64)=0 exch2_oj(1,64)=0 exch2_oj_f(1,64)=0 exch2_itlo_c(1,64)=0 exch2_ithi_c(1,64)=9 exch2_jtlo_c(1,64)=0 exch2_jthi_c(1,64)=0 exch2_opposingSend_record(1,64)=2 exch2_neighbourId(2,64)=60 exch2_pi(1,2,64)=1 exch2_pi(2,2,64)=0 exch2_pj(1,2,64)=0 exch2_pj(2,2,64)=1 exch2_oi(2,64)=0 exch2_oi_f(2,64)=0 exch2_oj(2,64)=-32 exch2_oj_f(2,64)=-32 exch2_itlo_c(2,64)=0 exch2_ithi_c(2,64)=9 exch2_jtlo_c(2,64)=9 exch2_jthi_c(2,64)=9 exch2_opposingSend_record(2,64)=1 exch2_neighbourId(3,64)=76 exch2_pi(1,3,64)=1 exch2_pi(2,3,64)=0 exch2_pj(1,3,64)=0 exch2_pj(2,3,64)=1 exch2_oi(3,64)=32 exch2_oi_f(3,64)=32 exch2_oj(3,64)=0 exch2_oj_f(3,64)=0 exch2_itlo_c(3,64)=0 exch2_ithi_c(3,64)=0 exch2_jtlo_c(3,64)=0 exch2_jthi_c(3,64)=9 exch2_opposingSend_record(3,64)=4 exch2_neighbourId(4,64)=63 exch2_pi(1,4,64)=1 exch2_pi(2,4,64)=0 exch2_pj(1,4,64)=0 exch2_pj(2,4,64)=1 exch2_oi(4,64)=0 exch2_oi_f(4,64)=0 exch2_oj(4,64)=0 exch2_oj_f(4,64)=0 exch2_itlo_c(4,64)=9 exch2_ithi_c(4,64)=9 exch2_jtlo_c(4,64)=0 exch2_jthi_c(4,64)=9 exch2_opposingSend_record(4,64)=3 RETURN END SUBROUTINE W2_E2SETUP_65 C Topology for tile 65 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(65)=8 exch2_tny(65)=8 exch2_tbasex(65)=0 exch2_tbasey(65)=8 exch2_txglobalo(65)=129 exch2_tyglobalo(65)=9 exch2_isWedge(65)=1 exch2_isNedge(65)=0 exch2_isEedge(65)=0 exch2_isSedge(65)=0 exch2_myFace(65)=5 exch2_mydnx(65)=32 exch2_mydny(65)=32 exch2_nNeighbours(65)=3 exch2_neighbourId(1,65)=69 exch2_pi(1,1,65)=1 exch2_pi(2,1,65)=0 exch2_pj(1,1,65)=0 exch2_pj(2,1,65)=1 exch2_oi(1,65)=0 exch2_oi_f(1,65)=0 exch2_oj(1,65)=0 exch2_oj_f(1,65)=0 exch2_itlo_c(1,65)=0 exch2_ithi_c(1,65)=9 exch2_jtlo_c(1,65)=0 exch2_jthi_c(1,65)=0 exch2_opposingSend_record(1,65)=2 exch2_neighbourId(2,65)=61 exch2_pi(1,2,65)=1 exch2_pi(2,2,65)=0 exch2_pj(1,2,65)=0 exch2_pj(2,2,65)=1 exch2_oi(2,65)=0 exch2_oi_f(2,65)=0 exch2_oj(2,65)=0 exch2_oj_f(2,65)=0 exch2_itlo_c(2,65)=1 exch2_ithi_c(2,65)=8 exch2_jtlo_c(2,65)=9 exch2_jthi_c(2,65)=9 exch2_opposingSend_record(2,65)=1 exch2_neighbourId(3,65)=66 exch2_pi(1,3,65)=1 exch2_pi(2,3,65)=0 exch2_pj(1,3,65)=0 exch2_pj(2,3,65)=1 exch2_oi(3,65)=0 exch2_oi_f(3,65)=0 exch2_oj(3,65)=0 exch2_oj_f(3,65)=0 exch2_itlo_c(3,65)=0 exch2_ithi_c(3,65)=0 exch2_jtlo_c(3,65)=0 exch2_jthi_c(3,65)=9 exch2_opposingSend_record(3,65)=4 RETURN END SUBROUTINE W2_E2SETUP_66 C Topology for tile 66 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(66)=8 exch2_tny(66)=8 exch2_tbasex(66)=8 exch2_tbasey(66)=8 exch2_txglobalo(66)=137 exch2_tyglobalo(66)=9 exch2_isWedge(66)=0 exch2_isNedge(66)=0 exch2_isEedge(66)=0 exch2_isSedge(66)=0 exch2_myFace(66)=5 exch2_mydnx(66)=32 exch2_mydny(66)=32 exch2_nNeighbours(66)=4 exch2_neighbourId(1,66)=70 exch2_pi(1,1,66)=1 exch2_pi(2,1,66)=0 exch2_pj(1,1,66)=0 exch2_pj(2,1,66)=1 exch2_oi(1,66)=0 exch2_oi_f(1,66)=0 exch2_oj(1,66)=0 exch2_oj_f(1,66)=0 exch2_itlo_c(1,66)=0 exch2_ithi_c(1,66)=9 exch2_jtlo_c(1,66)=0 exch2_jthi_c(1,66)=0 exch2_opposingSend_record(1,66)=2 exch2_neighbourId(2,66)=62 exch2_pi(1,2,66)=1 exch2_pi(2,2,66)=0 exch2_pj(1,2,66)=0 exch2_pj(2,2,66)=1 exch2_oi(2,66)=0 exch2_oi_f(2,66)=0 exch2_oj(2,66)=0 exch2_oj_f(2,66)=0 exch2_itlo_c(2,66)=1 exch2_ithi_c(2,66)=8 exch2_jtlo_c(2,66)=9 exch2_jthi_c(2,66)=9 exch2_opposingSend_record(2,66)=1 exch2_neighbourId(3,66)=67 exch2_pi(1,3,66)=1 exch2_pi(2,3,66)=0 exch2_pj(1,3,66)=0 exch2_pj(2,3,66)=1 exch2_oi(3,66)=0 exch2_oi_f(3,66)=0 exch2_oj(3,66)=0 exch2_oj_f(3,66)=0 exch2_itlo_c(3,66)=0 exch2_ithi_c(3,66)=0 exch2_jtlo_c(3,66)=0 exch2_jthi_c(3,66)=9 exch2_opposingSend_record(3,66)=4 exch2_neighbourId(4,66)=65 exch2_pi(1,4,66)=1 exch2_pi(2,4,66)=0 exch2_pj(1,4,66)=0 exch2_pj(2,4,66)=1 exch2_oi(4,66)=0 exch2_oi_f(4,66)=0 exch2_oj(4,66)=0 exch2_oj_f(4,66)=0 exch2_itlo_c(4,66)=9 exch2_ithi_c(4,66)=9 exch2_jtlo_c(4,66)=0 exch2_jthi_c(4,66)=9 exch2_opposingSend_record(4,66)=3 RETURN END SUBROUTINE W2_E2SETUP_67 C Topology for tile 67 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(67)=8 exch2_tny(67)=8 exch2_tbasex(67)=16 exch2_tbasey(67)=8 exch2_txglobalo(67)=145 exch2_tyglobalo(67)=9 exch2_isWedge(67)=0 exch2_isNedge(67)=0 exch2_isEedge(67)=0 exch2_isSedge(67)=0 exch2_myFace(67)=5 exch2_mydnx(67)=32 exch2_mydny(67)=32 exch2_nNeighbours(67)=4 exch2_neighbourId(1,67)=71 exch2_pi(1,1,67)=1 exch2_pi(2,1,67)=0 exch2_pj(1,1,67)=0 exch2_pj(2,1,67)=1 exch2_oi(1,67)=0 exch2_oi_f(1,67)=0 exch2_oj(1,67)=0 exch2_oj_f(1,67)=0 exch2_itlo_c(1,67)=0 exch2_ithi_c(1,67)=9 exch2_jtlo_c(1,67)=0 exch2_jthi_c(1,67)=0 exch2_opposingSend_record(1,67)=1 exch2_neighbourId(2,67)=63 exch2_pi(1,2,67)=1 exch2_pi(2,2,67)=0 exch2_pj(1,2,67)=0 exch2_pj(2,2,67)=1 exch2_oi(2,67)=0 exch2_oi_f(2,67)=0 exch2_oj(2,67)=0 exch2_oj_f(2,67)=0 exch2_itlo_c(2,67)=1 exch2_ithi_c(2,67)=8 exch2_jtlo_c(2,67)=9 exch2_jthi_c(2,67)=9 exch2_opposingSend_record(2,67)=1 exch2_neighbourId(3,67)=68 exch2_pi(1,3,67)=1 exch2_pi(2,3,67)=0 exch2_pj(1,3,67)=0 exch2_pj(2,3,67)=1 exch2_oi(3,67)=0 exch2_oi_f(3,67)=0 exch2_oj(3,67)=0 exch2_oj_f(3,67)=0 exch2_itlo_c(3,67)=0 exch2_ithi_c(3,67)=0 exch2_jtlo_c(3,67)=0 exch2_jthi_c(3,67)=9 exch2_opposingSend_record(3,67)=4 exch2_neighbourId(4,67)=66 exch2_pi(1,4,67)=1 exch2_pi(2,4,67)=0 exch2_pj(1,4,67)=0 exch2_pj(2,4,67)=1 exch2_oi(4,67)=0 exch2_oi_f(4,67)=0 exch2_oj(4,67)=0 exch2_oj_f(4,67)=0 exch2_itlo_c(4,67)=9 exch2_ithi_c(4,67)=9 exch2_jtlo_c(4,67)=0 exch2_jthi_c(4,67)=9 exch2_opposingSend_record(4,67)=3 RETURN END SUBROUTINE W2_E2SETUP_68 C Topology for tile 68 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(68)=8 exch2_tny(68)=8 exch2_tbasex(68)=24 exch2_tbasey(68)=8 exch2_txglobalo(68)=153 exch2_tyglobalo(68)=9 exch2_isWedge(68)=0 exch2_isNedge(68)=0 exch2_isEedge(68)=1 exch2_isSedge(68)=0 exch2_myFace(68)=5 exch2_mydnx(68)=32 exch2_mydny(68)=32 exch2_nNeighbours(68)=4 exch2_neighbourId(1,68)=72 exch2_pi(1,1,68)=1 exch2_pi(2,1,68)=0 exch2_pj(1,1,68)=0 exch2_pj(2,1,68)=1 exch2_oi(1,68)=0 exch2_oi_f(1,68)=0 exch2_oj(1,68)=0 exch2_oj_f(1,68)=0 exch2_itlo_c(1,68)=0 exch2_ithi_c(1,68)=9 exch2_jtlo_c(1,68)=0 exch2_jthi_c(1,68)=0 exch2_opposingSend_record(1,68)=2 exch2_neighbourId(2,68)=64 exch2_pi(1,2,68)=1 exch2_pi(2,2,68)=0 exch2_pj(1,2,68)=0 exch2_pj(2,2,68)=1 exch2_oi(2,68)=0 exch2_oi_f(2,68)=0 exch2_oj(2,68)=0 exch2_oj_f(2,68)=0 exch2_itlo_c(2,68)=1 exch2_ithi_c(2,68)=8 exch2_jtlo_c(2,68)=9 exch2_jthi_c(2,68)=9 exch2_opposingSend_record(2,68)=1 exch2_neighbourId(3,68)=80 exch2_pi(1,3,68)=1 exch2_pi(2,3,68)=0 exch2_pj(1,3,68)=0 exch2_pj(2,3,68)=1 exch2_oi(3,68)=32 exch2_oi_f(3,68)=32 exch2_oj(3,68)=0 exch2_oj_f(3,68)=0 exch2_itlo_c(3,68)=0 exch2_ithi_c(3,68)=0 exch2_jtlo_c(3,68)=0 exch2_jthi_c(3,68)=9 exch2_opposingSend_record(3,68)=4 exch2_neighbourId(4,68)=67 exch2_pi(1,4,68)=1 exch2_pi(2,4,68)=0 exch2_pj(1,4,68)=0 exch2_pj(2,4,68)=1 exch2_oi(4,68)=0 exch2_oi_f(4,68)=0 exch2_oj(4,68)=0 exch2_oj_f(4,68)=0 exch2_itlo_c(4,68)=9 exch2_ithi_c(4,68)=9 exch2_jtlo_c(4,68)=0 exch2_jthi_c(4,68)=9 exch2_opposingSend_record(4,68)=3 RETURN END SUBROUTINE W2_E2SETUP_69 C Topology for tile 69 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(69)=8 exch2_tny(69)=8 exch2_tbasex(69)=0 exch2_tbasey(69)=16 exch2_txglobalo(69)=129 exch2_tyglobalo(69)=17 exch2_isWedge(69)=1 exch2_isNedge(69)=0 exch2_isEedge(69)=0 exch2_isSedge(69)=0 exch2_myFace(69)=5 exch2_mydnx(69)=32 exch2_mydny(69)=32 exch2_nNeighbours(69)=4 exch2_neighbourId(1,69)=73 exch2_pi(1,1,69)=1 exch2_pi(2,1,69)=0 exch2_pj(1,1,69)=0 exch2_pj(2,1,69)=1 exch2_oi(1,69)=0 exch2_oi_f(1,69)=0 exch2_oj(1,69)=0 exch2_oj_f(1,69)=0 exch2_itlo_c(1,69)=0 exch2_ithi_c(1,69)=9 exch2_jtlo_c(1,69)=0 exch2_jthi_c(1,69)=0 exch2_opposingSend_record(1,69)=2 exch2_neighbourId(2,69)=65 exch2_pi(1,2,69)=1 exch2_pi(2,2,69)=0 exch2_pj(1,2,69)=0 exch2_pj(2,2,69)=1 exch2_oi(2,69)=0 exch2_oi_f(2,69)=0 exch2_oj(2,69)=0 exch2_oj_f(2,69)=0 exch2_itlo_c(2,69)=1 exch2_ithi_c(2,69)=8 exch2_jtlo_c(2,69)=9 exch2_jthi_c(2,69)=9 exch2_opposingSend_record(2,69)=1 exch2_neighbourId(3,69)=70 exch2_pi(1,3,69)=1 exch2_pi(2,3,69)=0 exch2_pj(1,3,69)=0 exch2_pj(2,3,69)=1 exch2_oi(3,69)=0 exch2_oi_f(3,69)=0 exch2_oj(3,69)=0 exch2_oj_f(3,69)=0 exch2_itlo_c(3,69)=0 exch2_ithi_c(3,69)=0 exch2_jtlo_c(3,69)=0 exch2_jthi_c(3,69)=9 exch2_opposingSend_record(3,69)=4 exch2_neighbourId(4,69)=43 exch2_pi(1,4,69)=0 exch2_pi(2,4,69)=1 exch2_pj(1,4,69)=-1 exch2_pj(2,4,69)=0 exch2_oi(4,69)=-32 exch2_oi_f(4,69)=-32 exch2_oj(4,69)=33 exch2_oj_f(4,69)=34 exch2_itlo_c(4,69)=0 exch2_ithi_c(4,69)=9 exch2_jtlo_c(4,69)=9 exch2_jthi_c(4,69)=9 exch2_opposingSend_record(4,69)=1 RETURN END SUBROUTINE W2_E2SETUP_70 C Topology for tile 70 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(70)=8 exch2_tny(70)=8 exch2_tbasex(70)=8 exch2_tbasey(70)=16 exch2_txglobalo(70)=137 exch2_tyglobalo(70)=17 exch2_isWedge(70)=0 exch2_isNedge(70)=0 exch2_isEedge(70)=0 exch2_isSedge(70)=0 exch2_myFace(70)=5 exch2_mydnx(70)=32 exch2_mydny(70)=32 exch2_nNeighbours(70)=4 exch2_neighbourId(1,70)=74 exch2_pi(1,1,70)=1 exch2_pi(2,1,70)=0 exch2_pj(1,1,70)=0 exch2_pj(2,1,70)=1 exch2_oi(1,70)=0 exch2_oi_f(1,70)=0 exch2_oj(1,70)=0 exch2_oj_f(1,70)=0 exch2_itlo_c(1,70)=0 exch2_ithi_c(1,70)=9 exch2_jtlo_c(1,70)=0 exch2_jthi_c(1,70)=0 exch2_opposingSend_record(1,70)=2 exch2_neighbourId(2,70)=66 exch2_pi(1,2,70)=1 exch2_pi(2,2,70)=0 exch2_pj(1,2,70)=0 exch2_pj(2,2,70)=1 exch2_oi(2,70)=0 exch2_oi_f(2,70)=0 exch2_oj(2,70)=0 exch2_oj_f(2,70)=0 exch2_itlo_c(2,70)=1 exch2_ithi_c(2,70)=8 exch2_jtlo_c(2,70)=9 exch2_jthi_c(2,70)=9 exch2_opposingSend_record(2,70)=1 exch2_neighbourId(3,70)=71 exch2_pi(1,3,70)=1 exch2_pi(2,3,70)=0 exch2_pj(1,3,70)=0 exch2_pj(2,3,70)=1 exch2_oi(3,70)=0 exch2_oi_f(3,70)=0 exch2_oj(3,70)=0 exch2_oj_f(3,70)=0 exch2_itlo_c(3,70)=0 exch2_ithi_c(3,70)=0 exch2_jtlo_c(3,70)=0 exch2_jthi_c(3,70)=9 exch2_opposingSend_record(3,70)=3 exch2_neighbourId(4,70)=69 exch2_pi(1,4,70)=1 exch2_pi(2,4,70)=0 exch2_pj(1,4,70)=0 exch2_pj(2,4,70)=1 exch2_oi(4,70)=0 exch2_oi_f(4,70)=0 exch2_oj(4,70)=0 exch2_oj_f(4,70)=0 exch2_itlo_c(4,70)=9 exch2_ithi_c(4,70)=9 exch2_jtlo_c(4,70)=0 exch2_jthi_c(4,70)=9 exch2_opposingSend_record(4,70)=3 RETURN END SUBROUTINE W2_E2SETUP_71 C Topology for tile 71 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(71)=8 exch2_tny(71)=8 exch2_tbasex(71)=16 exch2_tbasey(71)=16 exch2_txglobalo(71)=145 exch2_tyglobalo(71)=17 exch2_isWedge(71)=0 exch2_isNedge(71)=0 exch2_isEedge(71)=0 exch2_isSedge(71)=0 exch2_myFace(71)=5 exch2_mydnx(71)=32 exch2_mydny(71)=32 exch2_nNeighbours(71)=3 exch2_neighbourId(1,71)=67 exch2_pi(1,1,71)=1 exch2_pi(2,1,71)=0 exch2_pj(1,1,71)=0 exch2_pj(2,1,71)=1 exch2_oi(1,71)=0 exch2_oi_f(1,71)=0 exch2_oj(1,71)=0 exch2_oj_f(1,71)=0 exch2_itlo_c(1,71)=1 exch2_ithi_c(1,71)=8 exch2_jtlo_c(1,71)=9 exch2_jthi_c(1,71)=9 exch2_opposingSend_record(1,71)=1 exch2_neighbourId(2,71)=72 exch2_pi(1,2,71)=1 exch2_pi(2,2,71)=0 exch2_pj(1,2,71)=0 exch2_pj(2,2,71)=1 exch2_oi(2,71)=0 exch2_oi_f(2,71)=0 exch2_oj(2,71)=0 exch2_oj_f(2,71)=0 exch2_itlo_c(2,71)=0 exch2_ithi_c(2,71)=0 exch2_jtlo_c(2,71)=0 exch2_jthi_c(2,71)=9 exch2_opposingSend_record(2,71)=4 exch2_neighbourId(3,71)=70 exch2_pi(1,3,71)=1 exch2_pi(2,3,71)=0 exch2_pj(1,3,71)=0 exch2_pj(2,3,71)=1 exch2_oi(3,71)=0 exch2_oi_f(3,71)=0 exch2_oj(3,71)=0 exch2_oj_f(3,71)=0 exch2_itlo_c(3,71)=9 exch2_ithi_c(3,71)=9 exch2_jtlo_c(3,71)=0 exch2_jthi_c(3,71)=9 exch2_opposingSend_record(3,71)=3 RETURN END SUBROUTINE W2_E2SETUP_72 C Topology for tile 72 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(72)=8 exch2_tny(72)=8 exch2_tbasex(72)=24 exch2_tbasey(72)=16 exch2_txglobalo(72)=153 exch2_tyglobalo(72)=17 exch2_isWedge(72)=0 exch2_isNedge(72)=0 exch2_isEedge(72)=1 exch2_isSedge(72)=0 exch2_myFace(72)=5 exch2_mydnx(72)=32 exch2_mydny(72)=32 exch2_nNeighbours(72)=4 exch2_neighbourId(1,72)=75 exch2_pi(1,1,72)=1 exch2_pi(2,1,72)=0 exch2_pj(1,1,72)=0 exch2_pj(2,1,72)=1 exch2_oi(1,72)=0 exch2_oi_f(1,72)=0 exch2_oj(1,72)=0 exch2_oj_f(1,72)=0 exch2_itlo_c(1,72)=0 exch2_ithi_c(1,72)=9 exch2_jtlo_c(1,72)=0 exch2_jthi_c(1,72)=0 exch2_opposingSend_record(1,72)=2 exch2_neighbourId(2,72)=68 exch2_pi(1,2,72)=1 exch2_pi(2,2,72)=0 exch2_pj(1,2,72)=0 exch2_pj(2,2,72)=1 exch2_oi(2,72)=0 exch2_oi_f(2,72)=0 exch2_oj(2,72)=0 exch2_oj_f(2,72)=0 exch2_itlo_c(2,72)=1 exch2_ithi_c(2,72)=8 exch2_jtlo_c(2,72)=9 exch2_jthi_c(2,72)=9 exch2_opposingSend_record(2,72)=1 exch2_neighbourId(3,72)=84 exch2_pi(1,3,72)=1 exch2_pi(2,3,72)=0 exch2_pj(1,3,72)=0 exch2_pj(2,3,72)=1 exch2_oi(3,72)=32 exch2_oi_f(3,72)=32 exch2_oj(3,72)=0 exch2_oj_f(3,72)=0 exch2_itlo_c(3,72)=0 exch2_ithi_c(3,72)=0 exch2_jtlo_c(3,72)=0 exch2_jthi_c(3,72)=9 exch2_opposingSend_record(3,72)=4 exch2_neighbourId(4,72)=71 exch2_pi(1,4,72)=1 exch2_pi(2,4,72)=0 exch2_pj(1,4,72)=0 exch2_pj(2,4,72)=1 exch2_oi(4,72)=0 exch2_oi_f(4,72)=0 exch2_oj(4,72)=0 exch2_oj_f(4,72)=0 exch2_itlo_c(4,72)=9 exch2_ithi_c(4,72)=9 exch2_jtlo_c(4,72)=0 exch2_jthi_c(4,72)=9 exch2_opposingSend_record(4,72)=2 RETURN END SUBROUTINE W2_E2SETUP_73 C Topology for tile 73 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(73)=8 exch2_tny(73)=8 exch2_tbasex(73)=0 exch2_tbasey(73)=24 exch2_txglobalo(73)=129 exch2_tyglobalo(73)=25 exch2_isWedge(73)=1 exch2_isNedge(73)=1 exch2_isEedge(73)=0 exch2_isSedge(73)=0 exch2_myFace(73)=5 exch2_mydnx(73)=32 exch2_mydny(73)=32 exch2_nNeighbours(73)=4 exch2_neighbourId(1,73)=13 exch2_pi(1,1,73)=0 exch2_pi(2,1,73)=-1 exch2_pj(1,1,73)=1 exch2_pj(2,1,73)=0 exch2_oi(1,73)=33 exch2_oi_f(1,73)=34 exch2_oj(1,73)=32 exch2_oj_f(1,73)=32 exch2_itlo_c(1,73)=0 exch2_ithi_c(1,73)=0 exch2_jtlo_c(1,73)=0 exch2_jthi_c(1,73)=9 exch2_opposingSend_record(1,73)=4 exch2_neighbourId(2,73)=69 exch2_pi(1,2,73)=1 exch2_pi(2,2,73)=0 exch2_pj(1,2,73)=0 exch2_pj(2,2,73)=1 exch2_oi(2,73)=0 exch2_oi_f(2,73)=0 exch2_oj(2,73)=0 exch2_oj_f(2,73)=0 exch2_itlo_c(2,73)=1 exch2_ithi_c(2,73)=8 exch2_jtlo_c(2,73)=9 exch2_jthi_c(2,73)=9 exch2_opposingSend_record(2,73)=1 exch2_neighbourId(3,73)=74 exch2_pi(1,3,73)=1 exch2_pi(2,3,73)=0 exch2_pj(1,3,73)=0 exch2_pj(2,3,73)=1 exch2_oi(3,73)=0 exch2_oi_f(3,73)=0 exch2_oj(3,73)=0 exch2_oj_f(3,73)=0 exch2_itlo_c(3,73)=0 exch2_ithi_c(3,73)=0 exch2_jtlo_c(3,73)=0 exch2_jthi_c(3,73)=9 exch2_opposingSend_record(3,73)=3 exch2_neighbourId(4,73)=42 exch2_pi(1,4,73)=0 exch2_pi(2,4,73)=1 exch2_pj(1,4,73)=-1 exch2_pj(2,4,73)=0 exch2_oi(4,73)=-32 exch2_oi_f(4,73)=-32 exch2_oj(4,73)=33 exch2_oj_f(4,73)=34 exch2_itlo_c(4,73)=0 exch2_ithi_c(4,73)=9 exch2_jtlo_c(4,73)=9 exch2_jthi_c(4,73)=9 exch2_opposingSend_record(4,73)=1 RETURN END SUBROUTINE W2_E2SETUP_74 C Topology for tile 74 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(74)=8 exch2_tny(74)=8 exch2_tbasex(74)=8 exch2_tbasey(74)=24 exch2_txglobalo(74)=137 exch2_tyglobalo(74)=25 exch2_isWedge(74)=0 exch2_isNedge(74)=1 exch2_isEedge(74)=0 exch2_isSedge(74)=0 exch2_myFace(74)=5 exch2_mydnx(74)=32 exch2_mydny(74)=32 exch2_nNeighbours(74)=3 exch2_neighbourId(1,74)=9 exch2_pi(1,1,74)=0 exch2_pi(2,1,74)=-1 exch2_pj(1,1,74)=1 exch2_pj(2,1,74)=0 exch2_oi(1,74)=33 exch2_oi_f(1,74)=34 exch2_oj(1,74)=32 exch2_oj_f(1,74)=32 exch2_itlo_c(1,74)=0 exch2_ithi_c(1,74)=0 exch2_jtlo_c(1,74)=0 exch2_jthi_c(1,74)=9 exch2_opposingSend_record(1,74)=4 exch2_neighbourId(2,74)=70 exch2_pi(1,2,74)=1 exch2_pi(2,2,74)=0 exch2_pj(1,2,74)=0 exch2_pj(2,2,74)=1 exch2_oi(2,74)=0 exch2_oi_f(2,74)=0 exch2_oj(2,74)=0 exch2_oj_f(2,74)=0 exch2_itlo_c(2,74)=1 exch2_ithi_c(2,74)=8 exch2_jtlo_c(2,74)=9 exch2_jthi_c(2,74)=9 exch2_opposingSend_record(2,74)=1 exch2_neighbourId(3,74)=73 exch2_pi(1,3,74)=1 exch2_pi(2,3,74)=0 exch2_pj(1,3,74)=0 exch2_pj(2,3,74)=1 exch2_oi(3,74)=0 exch2_oi_f(3,74)=0 exch2_oj(3,74)=0 exch2_oj_f(3,74)=0 exch2_itlo_c(3,74)=9 exch2_ithi_c(3,74)=9 exch2_jtlo_c(3,74)=0 exch2_jthi_c(3,74)=9 exch2_opposingSend_record(3,74)=3 RETURN END SUBROUTINE W2_E2SETUP_75 C Topology for tile 75 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(75)=8 exch2_tny(75)=8 exch2_tbasex(75)=24 exch2_tbasey(75)=24 exch2_txglobalo(75)=153 exch2_tyglobalo(75)=25 exch2_isWedge(75)=0 exch2_isNedge(75)=1 exch2_isEedge(75)=1 exch2_isSedge(75)=0 exch2_myFace(75)=5 exch2_mydnx(75)=32 exch2_mydny(75)=32 exch2_nNeighbours(75)=3 exch2_neighbourId(1,75)=1 exch2_pi(1,1,75)=0 exch2_pi(2,1,75)=-1 exch2_pj(1,1,75)=1 exch2_pj(2,1,75)=0 exch2_oi(1,75)=33 exch2_oi_f(1,75)=34 exch2_oj(1,75)=32 exch2_oj_f(1,75)=32 exch2_itlo_c(1,75)=0 exch2_ithi_c(1,75)=0 exch2_jtlo_c(1,75)=0 exch2_jthi_c(1,75)=9 exch2_opposingSend_record(1,75)=4 exch2_neighbourId(2,75)=72 exch2_pi(1,2,75)=1 exch2_pi(2,2,75)=0 exch2_pj(1,2,75)=0 exch2_pj(2,2,75)=1 exch2_oi(2,75)=0 exch2_oi_f(2,75)=0 exch2_oj(2,75)=0 exch2_oj_f(2,75)=0 exch2_itlo_c(2,75)=1 exch2_ithi_c(2,75)=8 exch2_jtlo_c(2,75)=9 exch2_jthi_c(2,75)=9 exch2_opposingSend_record(2,75)=1 exch2_neighbourId(3,75)=88 exch2_pi(1,3,75)=1 exch2_pi(2,3,75)=0 exch2_pj(1,3,75)=0 exch2_pj(2,3,75)=1 exch2_oi(3,75)=32 exch2_oi_f(3,75)=32 exch2_oj(3,75)=0 exch2_oj_f(3,75)=0 exch2_itlo_c(3,75)=0 exch2_ithi_c(3,75)=0 exch2_jtlo_c(3,75)=0 exch2_jthi_c(3,75)=9 exch2_opposingSend_record(3,75)=4 RETURN END SUBROUTINE W2_E2SETUP_76 C Topology for tile 76 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(76)=8 exch2_tny(76)=8 exch2_tbasex(76)=0 exch2_tbasey(76)=0 exch2_txglobalo(76)=161 exch2_tyglobalo(76)=1 exch2_isWedge(76)=1 exch2_isNedge(76)=0 exch2_isEedge(76)=0 exch2_isSedge(76)=1 exch2_myFace(76)=6 exch2_mydnx(76)=32 exch2_mydny(76)=32 exch2_nNeighbours(76)=4 exch2_neighbourId(1,76)=80 exch2_pi(1,1,76)=1 exch2_pi(2,1,76)=0 exch2_pj(1,1,76)=0 exch2_pj(2,1,76)=1 exch2_oi(1,76)=0 exch2_oi_f(1,76)=0 exch2_oj(1,76)=0 exch2_oj_f(1,76)=0 exch2_itlo_c(1,76)=0 exch2_ithi_c(1,76)=9 exch2_jtlo_c(1,76)=0 exch2_jthi_c(1,76)=0 exch2_opposingSend_record(1,76)=2 exch2_neighbourId(2,76)=60 exch2_pi(1,2,76)=0 exch2_pi(2,2,76)=-1 exch2_pj(1,2,76)=1 exch2_pj(2,2,76)=0 exch2_oi(2,76)=33 exch2_oi_f(2,76)=34 exch2_oj(2,76)=-32 exch2_oj_f(2,76)=-32 exch2_itlo_c(2,76)=9 exch2_ithi_c(2,76)=9 exch2_jtlo_c(2,76)=0 exch2_jthi_c(2,76)=9 exch2_opposingSend_record(2,76)=3 exch2_neighbourId(3,76)=77 exch2_pi(1,3,76)=1 exch2_pi(2,3,76)=0 exch2_pj(1,3,76)=0 exch2_pj(2,3,76)=1 exch2_oi(3,76)=0 exch2_oi_f(3,76)=0 exch2_oj(3,76)=0 exch2_oj_f(3,76)=0 exch2_itlo_c(3,76)=0 exch2_ithi_c(3,76)=0 exch2_jtlo_c(3,76)=0 exch2_jthi_c(3,76)=9 exch2_opposingSend_record(3,76)=4 exch2_neighbourId(4,76)=64 exch2_pi(1,4,76)=1 exch2_pi(2,4,76)=0 exch2_pj(1,4,76)=0 exch2_pj(2,4,76)=1 exch2_oi(4,76)=-32 exch2_oi_f(4,76)=-32 exch2_oj(4,76)=0 exch2_oj_f(4,76)=0 exch2_itlo_c(4,76)=9 exch2_ithi_c(4,76)=9 exch2_jtlo_c(4,76)=0 exch2_jthi_c(4,76)=9 exch2_opposingSend_record(4,76)=3 RETURN END SUBROUTINE W2_E2SETUP_77 C Topology for tile 77 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(77)=8 exch2_tny(77)=8 exch2_tbasex(77)=8 exch2_tbasey(77)=0 exch2_txglobalo(77)=169 exch2_tyglobalo(77)=1 exch2_isWedge(77)=0 exch2_isNedge(77)=0 exch2_isEedge(77)=0 exch2_isSedge(77)=1 exch2_myFace(77)=6 exch2_mydnx(77)=32 exch2_mydny(77)=32 exch2_nNeighbours(77)=4 exch2_neighbourId(1,77)=81 exch2_pi(1,1,77)=1 exch2_pi(2,1,77)=0 exch2_pj(1,1,77)=0 exch2_pj(2,1,77)=1 exch2_oi(1,77)=0 exch2_oi_f(1,77)=0 exch2_oj(1,77)=0 exch2_oj_f(1,77)=0 exch2_itlo_c(1,77)=0 exch2_ithi_c(1,77)=9 exch2_jtlo_c(1,77)=0 exch2_jthi_c(1,77)=0 exch2_opposingSend_record(1,77)=2 exch2_neighbourId(2,77)=56 exch2_pi(1,2,77)=0 exch2_pi(2,2,77)=-1 exch2_pj(1,2,77)=1 exch2_pj(2,2,77)=0 exch2_oi(2,77)=33 exch2_oi_f(2,77)=34 exch2_oj(2,77)=-32 exch2_oj_f(2,77)=-32 exch2_itlo_c(2,77)=9 exch2_ithi_c(2,77)=9 exch2_jtlo_c(2,77)=0 exch2_jthi_c(2,77)=9 exch2_opposingSend_record(2,77)=3 exch2_neighbourId(3,77)=78 exch2_pi(1,3,77)=1 exch2_pi(2,3,77)=0 exch2_pj(1,3,77)=0 exch2_pj(2,3,77)=1 exch2_oi(3,77)=0 exch2_oi_f(3,77)=0 exch2_oj(3,77)=0 exch2_oj_f(3,77)=0 exch2_itlo_c(3,77)=0 exch2_ithi_c(3,77)=0 exch2_jtlo_c(3,77)=0 exch2_jthi_c(3,77)=9 exch2_opposingSend_record(3,77)=4 exch2_neighbourId(4,77)=76 exch2_pi(1,4,77)=1 exch2_pi(2,4,77)=0 exch2_pj(1,4,77)=0 exch2_pj(2,4,77)=1 exch2_oi(4,77)=0 exch2_oi_f(4,77)=0 exch2_oj(4,77)=0 exch2_oj_f(4,77)=0 exch2_itlo_c(4,77)=9 exch2_ithi_c(4,77)=9 exch2_jtlo_c(4,77)=0 exch2_jthi_c(4,77)=9 exch2_opposingSend_record(4,77)=3 RETURN END SUBROUTINE W2_E2SETUP_78 C Topology for tile 78 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(78)=8 exch2_tny(78)=8 exch2_tbasex(78)=16 exch2_tbasey(78)=0 exch2_txglobalo(78)=177 exch2_tyglobalo(78)=1 exch2_isWedge(78)=0 exch2_isNedge(78)=0 exch2_isEedge(78)=0 exch2_isSedge(78)=1 exch2_myFace(78)=6 exch2_mydnx(78)=32 exch2_mydny(78)=32 exch2_nNeighbours(78)=4 exch2_neighbourId(1,78)=82 exch2_pi(1,1,78)=1 exch2_pi(2,1,78)=0 exch2_pj(1,1,78)=0 exch2_pj(2,1,78)=1 exch2_oi(1,78)=0 exch2_oi_f(1,78)=0 exch2_oj(1,78)=0 exch2_oj_f(1,78)=0 exch2_itlo_c(1,78)=0 exch2_ithi_c(1,78)=9 exch2_jtlo_c(1,78)=0 exch2_jthi_c(1,78)=0 exch2_opposingSend_record(1,78)=2 exch2_neighbourId(2,78)=52 exch2_pi(1,2,78)=0 exch2_pi(2,2,78)=-1 exch2_pj(1,2,78)=1 exch2_pj(2,2,78)=0 exch2_oi(2,78)=33 exch2_oi_f(2,78)=34 exch2_oj(2,78)=-32 exch2_oj_f(2,78)=-32 exch2_itlo_c(2,78)=9 exch2_ithi_c(2,78)=9 exch2_jtlo_c(2,78)=0 exch2_jthi_c(2,78)=9 exch2_opposingSend_record(2,78)=3 exch2_neighbourId(3,78)=79 exch2_pi(1,3,78)=1 exch2_pi(2,3,78)=0 exch2_pj(1,3,78)=0 exch2_pj(2,3,78)=1 exch2_oi(3,78)=0 exch2_oi_f(3,78)=0 exch2_oj(3,78)=0 exch2_oj_f(3,78)=0 exch2_itlo_c(3,78)=0 exch2_ithi_c(3,78)=0 exch2_jtlo_c(3,78)=0 exch2_jthi_c(3,78)=9 exch2_opposingSend_record(3,78)=4 exch2_neighbourId(4,78)=77 exch2_pi(1,4,78)=1 exch2_pi(2,4,78)=0 exch2_pj(1,4,78)=0 exch2_pj(2,4,78)=1 exch2_oi(4,78)=0 exch2_oi_f(4,78)=0 exch2_oj(4,78)=0 exch2_oj_f(4,78)=0 exch2_itlo_c(4,78)=9 exch2_ithi_c(4,78)=9 exch2_jtlo_c(4,78)=0 exch2_jthi_c(4,78)=9 exch2_opposingSend_record(4,78)=3 RETURN END SUBROUTINE W2_E2SETUP_79 C Topology for tile 79 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(79)=8 exch2_tny(79)=8 exch2_tbasex(79)=24 exch2_tbasey(79)=0 exch2_txglobalo(79)=185 exch2_tyglobalo(79)=1 exch2_isWedge(79)=0 exch2_isNedge(79)=0 exch2_isEedge(79)=1 exch2_isSedge(79)=1 exch2_myFace(79)=6 exch2_mydnx(79)=32 exch2_mydny(79)=32 exch2_nNeighbours(79)=4 exch2_neighbourId(1,79)=83 exch2_pi(1,1,79)=1 exch2_pi(2,1,79)=0 exch2_pj(1,1,79)=0 exch2_pj(2,1,79)=1 exch2_oi(1,79)=0 exch2_oi_f(1,79)=0 exch2_oj(1,79)=0 exch2_oj_f(1,79)=0 exch2_itlo_c(1,79)=0 exch2_ithi_c(1,79)=9 exch2_jtlo_c(1,79)=0 exch2_jthi_c(1,79)=0 exch2_opposingSend_record(1,79)=2 exch2_neighbourId(2,79)=48 exch2_pi(1,2,79)=0 exch2_pi(2,2,79)=-1 exch2_pj(1,2,79)=1 exch2_pj(2,2,79)=0 exch2_oi(2,79)=33 exch2_oi_f(2,79)=34 exch2_oj(2,79)=-32 exch2_oj_f(2,79)=-32 exch2_itlo_c(2,79)=9 exch2_ithi_c(2,79)=9 exch2_jtlo_c(2,79)=0 exch2_jthi_c(2,79)=9 exch2_opposingSend_record(2,79)=3 exch2_neighbourId(3,79)=20 exch2_pi(1,3,79)=0 exch2_pi(2,3,79)=1 exch2_pj(1,3,79)=-1 exch2_pj(2,3,79)=0 exch2_oi(3,79)=32 exch2_oi_f(3,79)=32 exch2_oj(3,79)=33 exch2_oj_f(3,79)=34 exch2_itlo_c(3,79)=0 exch2_ithi_c(3,79)=9 exch2_jtlo_c(3,79)=0 exch2_jthi_c(3,79)=0 exch2_opposingSend_record(3,79)=2 exch2_neighbourId(4,79)=78 exch2_pi(1,4,79)=1 exch2_pi(2,4,79)=0 exch2_pj(1,4,79)=0 exch2_pj(2,4,79)=1 exch2_oi(4,79)=0 exch2_oi_f(4,79)=0 exch2_oj(4,79)=0 exch2_oj_f(4,79)=0 exch2_itlo_c(4,79)=9 exch2_ithi_c(4,79)=9 exch2_jtlo_c(4,79)=0 exch2_jthi_c(4,79)=9 exch2_opposingSend_record(4,79)=3 RETURN END SUBROUTINE W2_E2SETUP_80 C Topology for tile 80 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(80)=8 exch2_tny(80)=8 exch2_tbasex(80)=0 exch2_tbasey(80)=8 exch2_txglobalo(80)=161 exch2_tyglobalo(80)=9 exch2_isWedge(80)=1 exch2_isNedge(80)=0 exch2_isEedge(80)=0 exch2_isSedge(80)=0 exch2_myFace(80)=6 exch2_mydnx(80)=32 exch2_mydny(80)=32 exch2_nNeighbours(80)=4 exch2_neighbourId(1,80)=84 exch2_pi(1,1,80)=1 exch2_pi(2,1,80)=0 exch2_pj(1,1,80)=0 exch2_pj(2,1,80)=1 exch2_oi(1,80)=0 exch2_oi_f(1,80)=0 exch2_oj(1,80)=0 exch2_oj_f(1,80)=0 exch2_itlo_c(1,80)=0 exch2_ithi_c(1,80)=9 exch2_jtlo_c(1,80)=0 exch2_jthi_c(1,80)=0 exch2_opposingSend_record(1,80)=2 exch2_neighbourId(2,80)=76 exch2_pi(1,2,80)=1 exch2_pi(2,2,80)=0 exch2_pj(1,2,80)=0 exch2_pj(2,2,80)=1 exch2_oi(2,80)=0 exch2_oi_f(2,80)=0 exch2_oj(2,80)=0 exch2_oj_f(2,80)=0 exch2_itlo_c(2,80)=1 exch2_ithi_c(2,80)=8 exch2_jtlo_c(2,80)=9 exch2_jthi_c(2,80)=9 exch2_opposingSend_record(2,80)=1 exch2_neighbourId(3,80)=81 exch2_pi(1,3,80)=1 exch2_pi(2,3,80)=0 exch2_pj(1,3,80)=0 exch2_pj(2,3,80)=1 exch2_oi(3,80)=0 exch2_oi_f(3,80)=0 exch2_oj(3,80)=0 exch2_oj_f(3,80)=0 exch2_itlo_c(3,80)=0 exch2_ithi_c(3,80)=0 exch2_jtlo_c(3,80)=0 exch2_jthi_c(3,80)=9 exch2_opposingSend_record(3,80)=4 exch2_neighbourId(4,80)=68 exch2_pi(1,4,80)=1 exch2_pi(2,4,80)=0 exch2_pj(1,4,80)=0 exch2_pj(2,4,80)=1 exch2_oi(4,80)=-32 exch2_oi_f(4,80)=-32 exch2_oj(4,80)=0 exch2_oj_f(4,80)=0 exch2_itlo_c(4,80)=9 exch2_ithi_c(4,80)=9 exch2_jtlo_c(4,80)=0 exch2_jthi_c(4,80)=9 exch2_opposingSend_record(4,80)=3 RETURN END SUBROUTINE W2_E2SETUP_81 C Topology for tile 81 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(81)=8 exch2_tny(81)=8 exch2_tbasex(81)=8 exch2_tbasey(81)=8 exch2_txglobalo(81)=169 exch2_tyglobalo(81)=9 exch2_isWedge(81)=0 exch2_isNedge(81)=0 exch2_isEedge(81)=0 exch2_isSedge(81)=0 exch2_myFace(81)=6 exch2_mydnx(81)=32 exch2_mydny(81)=32 exch2_nNeighbours(81)=4 exch2_neighbourId(1,81)=85 exch2_pi(1,1,81)=1 exch2_pi(2,1,81)=0 exch2_pj(1,1,81)=0 exch2_pj(2,1,81)=1 exch2_oi(1,81)=0 exch2_oi_f(1,81)=0 exch2_oj(1,81)=0 exch2_oj_f(1,81)=0 exch2_itlo_c(1,81)=0 exch2_ithi_c(1,81)=9 exch2_jtlo_c(1,81)=0 exch2_jthi_c(1,81)=0 exch2_opposingSend_record(1,81)=2 exch2_neighbourId(2,81)=77 exch2_pi(1,2,81)=1 exch2_pi(2,2,81)=0 exch2_pj(1,2,81)=0 exch2_pj(2,2,81)=1 exch2_oi(2,81)=0 exch2_oi_f(2,81)=0 exch2_oj(2,81)=0 exch2_oj_f(2,81)=0 exch2_itlo_c(2,81)=1 exch2_ithi_c(2,81)=8 exch2_jtlo_c(2,81)=9 exch2_jthi_c(2,81)=9 exch2_opposingSend_record(2,81)=1 exch2_neighbourId(3,81)=82 exch2_pi(1,3,81)=1 exch2_pi(2,3,81)=0 exch2_pj(1,3,81)=0 exch2_pj(2,3,81)=1 exch2_oi(3,81)=0 exch2_oi_f(3,81)=0 exch2_oj(3,81)=0 exch2_oj_f(3,81)=0 exch2_itlo_c(3,81)=0 exch2_ithi_c(3,81)=0 exch2_jtlo_c(3,81)=0 exch2_jthi_c(3,81)=9 exch2_opposingSend_record(3,81)=4 exch2_neighbourId(4,81)=80 exch2_pi(1,4,81)=1 exch2_pi(2,4,81)=0 exch2_pj(1,4,81)=0 exch2_pj(2,4,81)=1 exch2_oi(4,81)=0 exch2_oi_f(4,81)=0 exch2_oj(4,81)=0 exch2_oj_f(4,81)=0 exch2_itlo_c(4,81)=9 exch2_ithi_c(4,81)=9 exch2_jtlo_c(4,81)=0 exch2_jthi_c(4,81)=9 exch2_opposingSend_record(4,81)=3 RETURN END SUBROUTINE W2_E2SETUP_82 C Topology for tile 82 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(82)=8 exch2_tny(82)=8 exch2_tbasex(82)=16 exch2_tbasey(82)=8 exch2_txglobalo(82)=177 exch2_tyglobalo(82)=9 exch2_isWedge(82)=0 exch2_isNedge(82)=0 exch2_isEedge(82)=0 exch2_isSedge(82)=0 exch2_myFace(82)=6 exch2_mydnx(82)=32 exch2_mydny(82)=32 exch2_nNeighbours(82)=4 exch2_neighbourId(1,82)=86 exch2_pi(1,1,82)=1 exch2_pi(2,1,82)=0 exch2_pj(1,1,82)=0 exch2_pj(2,1,82)=1 exch2_oi(1,82)=0 exch2_oi_f(1,82)=0 exch2_oj(1,82)=0 exch2_oj_f(1,82)=0 exch2_itlo_c(1,82)=0 exch2_ithi_c(1,82)=9 exch2_jtlo_c(1,82)=0 exch2_jthi_c(1,82)=0 exch2_opposingSend_record(1,82)=2 exch2_neighbourId(2,82)=78 exch2_pi(1,2,82)=1 exch2_pi(2,2,82)=0 exch2_pj(1,2,82)=0 exch2_pj(2,2,82)=1 exch2_oi(2,82)=0 exch2_oi_f(2,82)=0 exch2_oj(2,82)=0 exch2_oj_f(2,82)=0 exch2_itlo_c(2,82)=1 exch2_ithi_c(2,82)=8 exch2_jtlo_c(2,82)=9 exch2_jthi_c(2,82)=9 exch2_opposingSend_record(2,82)=1 exch2_neighbourId(3,82)=83 exch2_pi(1,3,82)=1 exch2_pi(2,3,82)=0 exch2_pj(1,3,82)=0 exch2_pj(2,3,82)=1 exch2_oi(3,82)=0 exch2_oi_f(3,82)=0 exch2_oj(3,82)=0 exch2_oj_f(3,82)=0 exch2_itlo_c(3,82)=0 exch2_ithi_c(3,82)=0 exch2_jtlo_c(3,82)=0 exch2_jthi_c(3,82)=9 exch2_opposingSend_record(3,82)=4 exch2_neighbourId(4,82)=81 exch2_pi(1,4,82)=1 exch2_pi(2,4,82)=0 exch2_pj(1,4,82)=0 exch2_pj(2,4,82)=1 exch2_oi(4,82)=0 exch2_oi_f(4,82)=0 exch2_oj(4,82)=0 exch2_oj_f(4,82)=0 exch2_itlo_c(4,82)=9 exch2_ithi_c(4,82)=9 exch2_jtlo_c(4,82)=0 exch2_jthi_c(4,82)=9 exch2_opposingSend_record(4,82)=3 RETURN END SUBROUTINE W2_E2SETUP_83 C Topology for tile 83 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(83)=8 exch2_tny(83)=8 exch2_tbasex(83)=24 exch2_tbasey(83)=8 exch2_txglobalo(83)=185 exch2_tyglobalo(83)=9 exch2_isWedge(83)=0 exch2_isNedge(83)=0 exch2_isEedge(83)=1 exch2_isSedge(83)=0 exch2_myFace(83)=6 exch2_mydnx(83)=32 exch2_mydny(83)=32 exch2_nNeighbours(83)=4 exch2_neighbourId(1,83)=87 exch2_pi(1,1,83)=1 exch2_pi(2,1,83)=0 exch2_pj(1,1,83)=0 exch2_pj(2,1,83)=1 exch2_oi(1,83)=0 exch2_oi_f(1,83)=0 exch2_oj(1,83)=0 exch2_oj_f(1,83)=0 exch2_itlo_c(1,83)=0 exch2_ithi_c(1,83)=9 exch2_jtlo_c(1,83)=0 exch2_jthi_c(1,83)=0 exch2_opposingSend_record(1,83)=2 exch2_neighbourId(2,83)=79 exch2_pi(1,2,83)=1 exch2_pi(2,2,83)=0 exch2_pj(1,2,83)=0 exch2_pj(2,2,83)=1 exch2_oi(2,83)=0 exch2_oi_f(2,83)=0 exch2_oj(2,83)=0 exch2_oj_f(2,83)=0 exch2_itlo_c(2,83)=1 exch2_ithi_c(2,83)=8 exch2_jtlo_c(2,83)=9 exch2_jthi_c(2,83)=9 exch2_opposingSend_record(2,83)=1 exch2_neighbourId(3,83)=19 exch2_pi(1,3,83)=0 exch2_pi(2,3,83)=1 exch2_pj(1,3,83)=-1 exch2_pj(2,3,83)=0 exch2_oi(3,83)=32 exch2_oi_f(3,83)=32 exch2_oj(3,83)=33 exch2_oj_f(3,83)=34 exch2_itlo_c(3,83)=0 exch2_ithi_c(3,83)=9 exch2_jtlo_c(3,83)=0 exch2_jthi_c(3,83)=0 exch2_opposingSend_record(3,83)=2 exch2_neighbourId(4,83)=82 exch2_pi(1,4,83)=1 exch2_pi(2,4,83)=0 exch2_pj(1,4,83)=0 exch2_pj(2,4,83)=1 exch2_oi(4,83)=0 exch2_oi_f(4,83)=0 exch2_oj(4,83)=0 exch2_oj_f(4,83)=0 exch2_itlo_c(4,83)=9 exch2_ithi_c(4,83)=9 exch2_jtlo_c(4,83)=0 exch2_jthi_c(4,83)=9 exch2_opposingSend_record(4,83)=3 RETURN END SUBROUTINE W2_E2SETUP_84 C Topology for tile 84 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(84)=8 exch2_tny(84)=8 exch2_tbasex(84)=0 exch2_tbasey(84)=16 exch2_txglobalo(84)=161 exch2_tyglobalo(84)=17 exch2_isWedge(84)=1 exch2_isNedge(84)=0 exch2_isEedge(84)=0 exch2_isSedge(84)=0 exch2_myFace(84)=6 exch2_mydnx(84)=32 exch2_mydny(84)=32 exch2_nNeighbours(84)=4 exch2_neighbourId(1,84)=88 exch2_pi(1,1,84)=1 exch2_pi(2,1,84)=0 exch2_pj(1,1,84)=0 exch2_pj(2,1,84)=1 exch2_oi(1,84)=0 exch2_oi_f(1,84)=0 exch2_oj(1,84)=0 exch2_oj_f(1,84)=0 exch2_itlo_c(1,84)=0 exch2_ithi_c(1,84)=9 exch2_jtlo_c(1,84)=0 exch2_jthi_c(1,84)=0 exch2_opposingSend_record(1,84)=2 exch2_neighbourId(2,84)=80 exch2_pi(1,2,84)=1 exch2_pi(2,2,84)=0 exch2_pj(1,2,84)=0 exch2_pj(2,2,84)=1 exch2_oi(2,84)=0 exch2_oi_f(2,84)=0 exch2_oj(2,84)=0 exch2_oj_f(2,84)=0 exch2_itlo_c(2,84)=1 exch2_ithi_c(2,84)=8 exch2_jtlo_c(2,84)=9 exch2_jthi_c(2,84)=9 exch2_opposingSend_record(2,84)=1 exch2_neighbourId(3,84)=85 exch2_pi(1,3,84)=1 exch2_pi(2,3,84)=0 exch2_pj(1,3,84)=0 exch2_pj(2,3,84)=1 exch2_oi(3,84)=0 exch2_oi_f(3,84)=0 exch2_oj(3,84)=0 exch2_oj_f(3,84)=0 exch2_itlo_c(3,84)=0 exch2_ithi_c(3,84)=0 exch2_jtlo_c(3,84)=0 exch2_jthi_c(3,84)=9 exch2_opposingSend_record(3,84)=4 exch2_neighbourId(4,84)=72 exch2_pi(1,4,84)=1 exch2_pi(2,4,84)=0 exch2_pj(1,4,84)=0 exch2_pj(2,4,84)=1 exch2_oi(4,84)=-32 exch2_oi_f(4,84)=-32 exch2_oj(4,84)=0 exch2_oj_f(4,84)=0 exch2_itlo_c(4,84)=9 exch2_ithi_c(4,84)=9 exch2_jtlo_c(4,84)=0 exch2_jthi_c(4,84)=9 exch2_opposingSend_record(4,84)=3 RETURN END SUBROUTINE W2_E2SETUP_85 C Topology for tile 85 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(85)=8 exch2_tny(85)=8 exch2_tbasex(85)=8 exch2_tbasey(85)=16 exch2_txglobalo(85)=169 exch2_tyglobalo(85)=17 exch2_isWedge(85)=0 exch2_isNedge(85)=0 exch2_isEedge(85)=0 exch2_isSedge(85)=0 exch2_myFace(85)=6 exch2_mydnx(85)=32 exch2_mydny(85)=32 exch2_nNeighbours(85)=4 exch2_neighbourId(1,85)=89 exch2_pi(1,1,85)=1 exch2_pi(2,1,85)=0 exch2_pj(1,1,85)=0 exch2_pj(2,1,85)=1 exch2_oi(1,85)=0 exch2_oi_f(1,85)=0 exch2_oj(1,85)=0 exch2_oj_f(1,85)=0 exch2_itlo_c(1,85)=0 exch2_ithi_c(1,85)=9 exch2_jtlo_c(1,85)=0 exch2_jthi_c(1,85)=0 exch2_opposingSend_record(1,85)=2 exch2_neighbourId(2,85)=81 exch2_pi(1,2,85)=1 exch2_pi(2,2,85)=0 exch2_pj(1,2,85)=0 exch2_pj(2,2,85)=1 exch2_oi(2,85)=0 exch2_oi_f(2,85)=0 exch2_oj(2,85)=0 exch2_oj_f(2,85)=0 exch2_itlo_c(2,85)=1 exch2_ithi_c(2,85)=8 exch2_jtlo_c(2,85)=9 exch2_jthi_c(2,85)=9 exch2_opposingSend_record(2,85)=1 exch2_neighbourId(3,85)=86 exch2_pi(1,3,85)=1 exch2_pi(2,3,85)=0 exch2_pj(1,3,85)=0 exch2_pj(2,3,85)=1 exch2_oi(3,85)=0 exch2_oi_f(3,85)=0 exch2_oj(3,85)=0 exch2_oj_f(3,85)=0 exch2_itlo_c(3,85)=0 exch2_ithi_c(3,85)=0 exch2_jtlo_c(3,85)=0 exch2_jthi_c(3,85)=9 exch2_opposingSend_record(3,85)=4 exch2_neighbourId(4,85)=84 exch2_pi(1,4,85)=1 exch2_pi(2,4,85)=0 exch2_pj(1,4,85)=0 exch2_pj(2,4,85)=1 exch2_oi(4,85)=0 exch2_oi_f(4,85)=0 exch2_oj(4,85)=0 exch2_oj_f(4,85)=0 exch2_itlo_c(4,85)=9 exch2_ithi_c(4,85)=9 exch2_jtlo_c(4,85)=0 exch2_jthi_c(4,85)=9 exch2_opposingSend_record(4,85)=3 RETURN END SUBROUTINE W2_E2SETUP_86 C Topology for tile 86 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(86)=8 exch2_tny(86)=8 exch2_tbasex(86)=16 exch2_tbasey(86)=16 exch2_txglobalo(86)=177 exch2_tyglobalo(86)=17 exch2_isWedge(86)=0 exch2_isNedge(86)=0 exch2_isEedge(86)=0 exch2_isSedge(86)=0 exch2_myFace(86)=6 exch2_mydnx(86)=32 exch2_mydny(86)=32 exch2_nNeighbours(86)=4 exch2_neighbourId(1,86)=90 exch2_pi(1,1,86)=1 exch2_pi(2,1,86)=0 exch2_pj(1,1,86)=0 exch2_pj(2,1,86)=1 exch2_oi(1,86)=0 exch2_oi_f(1,86)=0 exch2_oj(1,86)=0 exch2_oj_f(1,86)=0 exch2_itlo_c(1,86)=0 exch2_ithi_c(1,86)=9 exch2_jtlo_c(1,86)=0 exch2_jthi_c(1,86)=0 exch2_opposingSend_record(1,86)=2 exch2_neighbourId(2,86)=82 exch2_pi(1,2,86)=1 exch2_pi(2,2,86)=0 exch2_pj(1,2,86)=0 exch2_pj(2,2,86)=1 exch2_oi(2,86)=0 exch2_oi_f(2,86)=0 exch2_oj(2,86)=0 exch2_oj_f(2,86)=0 exch2_itlo_c(2,86)=1 exch2_ithi_c(2,86)=8 exch2_jtlo_c(2,86)=9 exch2_jthi_c(2,86)=9 exch2_opposingSend_record(2,86)=1 exch2_neighbourId(3,86)=87 exch2_pi(1,3,86)=1 exch2_pi(2,3,86)=0 exch2_pj(1,3,86)=0 exch2_pj(2,3,86)=1 exch2_oi(3,86)=0 exch2_oi_f(3,86)=0 exch2_oj(3,86)=0 exch2_oj_f(3,86)=0 exch2_itlo_c(3,86)=0 exch2_ithi_c(3,86)=0 exch2_jtlo_c(3,86)=0 exch2_jthi_c(3,86)=9 exch2_opposingSend_record(3,86)=4 exch2_neighbourId(4,86)=85 exch2_pi(1,4,86)=1 exch2_pi(2,4,86)=0 exch2_pj(1,4,86)=0 exch2_pj(2,4,86)=1 exch2_oi(4,86)=0 exch2_oi_f(4,86)=0 exch2_oj(4,86)=0 exch2_oj_f(4,86)=0 exch2_itlo_c(4,86)=9 exch2_ithi_c(4,86)=9 exch2_jtlo_c(4,86)=0 exch2_jthi_c(4,86)=9 exch2_opposingSend_record(4,86)=3 RETURN END SUBROUTINE W2_E2SETUP_87 C Topology for tile 87 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(87)=8 exch2_tny(87)=8 exch2_tbasex(87)=24 exch2_tbasey(87)=16 exch2_txglobalo(87)=185 exch2_tyglobalo(87)=17 exch2_isWedge(87)=0 exch2_isNedge(87)=0 exch2_isEedge(87)=1 exch2_isSedge(87)=0 exch2_myFace(87)=6 exch2_mydnx(87)=32 exch2_mydny(87)=32 exch2_nNeighbours(87)=4 exch2_neighbourId(1,87)=91 exch2_pi(1,1,87)=1 exch2_pi(2,1,87)=0 exch2_pj(1,1,87)=0 exch2_pj(2,1,87)=1 exch2_oi(1,87)=0 exch2_oi_f(1,87)=0 exch2_oj(1,87)=0 exch2_oj_f(1,87)=0 exch2_itlo_c(1,87)=0 exch2_ithi_c(1,87)=9 exch2_jtlo_c(1,87)=0 exch2_jthi_c(1,87)=0 exch2_opposingSend_record(1,87)=2 exch2_neighbourId(2,87)=83 exch2_pi(1,2,87)=1 exch2_pi(2,2,87)=0 exch2_pj(1,2,87)=0 exch2_pj(2,2,87)=1 exch2_oi(2,87)=0 exch2_oi_f(2,87)=0 exch2_oj(2,87)=0 exch2_oj_f(2,87)=0 exch2_itlo_c(2,87)=1 exch2_ithi_c(2,87)=8 exch2_jtlo_c(2,87)=9 exch2_jthi_c(2,87)=9 exch2_opposingSend_record(2,87)=1 exch2_neighbourId(3,87)=18 exch2_pi(1,3,87)=0 exch2_pi(2,3,87)=1 exch2_pj(1,3,87)=-1 exch2_pj(2,3,87)=0 exch2_oi(3,87)=32 exch2_oi_f(3,87)=32 exch2_oj(3,87)=33 exch2_oj_f(3,87)=34 exch2_itlo_c(3,87)=0 exch2_ithi_c(3,87)=9 exch2_jtlo_c(3,87)=0 exch2_jthi_c(3,87)=0 exch2_opposingSend_record(3,87)=2 exch2_neighbourId(4,87)=86 exch2_pi(1,4,87)=1 exch2_pi(2,4,87)=0 exch2_pj(1,4,87)=0 exch2_pj(2,4,87)=1 exch2_oi(4,87)=0 exch2_oi_f(4,87)=0 exch2_oj(4,87)=0 exch2_oj_f(4,87)=0 exch2_itlo_c(4,87)=9 exch2_ithi_c(4,87)=9 exch2_jtlo_c(4,87)=0 exch2_jthi_c(4,87)=9 exch2_opposingSend_record(4,87)=3 RETURN END SUBROUTINE W2_E2SETUP_88 C Topology for tile 88 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(88)=8 exch2_tny(88)=8 exch2_tbasex(88)=0 exch2_tbasey(88)=24 exch2_txglobalo(88)=161 exch2_tyglobalo(88)=25 exch2_isWedge(88)=1 exch2_isNedge(88)=1 exch2_isEedge(88)=0 exch2_isSedge(88)=0 exch2_myFace(88)=6 exch2_mydnx(88)=32 exch2_mydny(88)=32 exch2_nNeighbours(88)=4 exch2_neighbourId(1,88)=1 exch2_pi(1,1,88)=1 exch2_pi(2,1,88)=0 exch2_pj(1,1,88)=0 exch2_pj(2,1,88)=1 exch2_oi(1,88)=0 exch2_oi_f(1,88)=0 exch2_oj(1,88)=32 exch2_oj_f(1,88)=32 exch2_itlo_c(1,88)=0 exch2_ithi_c(1,88)=9 exch2_jtlo_c(1,88)=0 exch2_jthi_c(1,88)=0 exch2_opposingSend_record(1,88)=2 exch2_neighbourId(2,88)=84 exch2_pi(1,2,88)=1 exch2_pi(2,2,88)=0 exch2_pj(1,2,88)=0 exch2_pj(2,2,88)=1 exch2_oi(2,88)=0 exch2_oi_f(2,88)=0 exch2_oj(2,88)=0 exch2_oj_f(2,88)=0 exch2_itlo_c(2,88)=1 exch2_ithi_c(2,88)=8 exch2_jtlo_c(2,88)=9 exch2_jthi_c(2,88)=9 exch2_opposingSend_record(2,88)=1 exch2_neighbourId(3,88)=89 exch2_pi(1,3,88)=1 exch2_pi(2,3,88)=0 exch2_pj(1,3,88)=0 exch2_pj(2,3,88)=1 exch2_oi(3,88)=0 exch2_oi_f(3,88)=0 exch2_oj(3,88)=0 exch2_oj_f(3,88)=0 exch2_itlo_c(3,88)=0 exch2_ithi_c(3,88)=0 exch2_jtlo_c(3,88)=0 exch2_jthi_c(3,88)=9 exch2_opposingSend_record(3,88)=4 exch2_neighbourId(4,88)=75 exch2_pi(1,4,88)=1 exch2_pi(2,4,88)=0 exch2_pj(1,4,88)=0 exch2_pj(2,4,88)=1 exch2_oi(4,88)=-32 exch2_oi_f(4,88)=-32 exch2_oj(4,88)=0 exch2_oj_f(4,88)=0 exch2_itlo_c(4,88)=9 exch2_ithi_c(4,88)=9 exch2_jtlo_c(4,88)=0 exch2_jthi_c(4,88)=9 exch2_opposingSend_record(4,88)=3 RETURN END SUBROUTINE W2_E2SETUP_89 C Topology for tile 89 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(89)=8 exch2_tny(89)=8 exch2_tbasex(89)=8 exch2_tbasey(89)=24 exch2_txglobalo(89)=169 exch2_tyglobalo(89)=25 exch2_isWedge(89)=0 exch2_isNedge(89)=1 exch2_isEedge(89)=0 exch2_isSedge(89)=0 exch2_myFace(89)=6 exch2_mydnx(89)=32 exch2_mydny(89)=32 exch2_nNeighbours(89)=4 exch2_neighbourId(1,89)=2 exch2_pi(1,1,89)=1 exch2_pi(2,1,89)=0 exch2_pj(1,1,89)=0 exch2_pj(2,1,89)=1 exch2_oi(1,89)=0 exch2_oi_f(1,89)=0 exch2_oj(1,89)=32 exch2_oj_f(1,89)=32 exch2_itlo_c(1,89)=0 exch2_ithi_c(1,89)=9 exch2_jtlo_c(1,89)=0 exch2_jthi_c(1,89)=0 exch2_opposingSend_record(1,89)=2 exch2_neighbourId(2,89)=85 exch2_pi(1,2,89)=1 exch2_pi(2,2,89)=0 exch2_pj(1,2,89)=0 exch2_pj(2,2,89)=1 exch2_oi(2,89)=0 exch2_oi_f(2,89)=0 exch2_oj(2,89)=0 exch2_oj_f(2,89)=0 exch2_itlo_c(2,89)=1 exch2_ithi_c(2,89)=8 exch2_jtlo_c(2,89)=9 exch2_jthi_c(2,89)=9 exch2_opposingSend_record(2,89)=1 exch2_neighbourId(3,89)=90 exch2_pi(1,3,89)=1 exch2_pi(2,3,89)=0 exch2_pj(1,3,89)=0 exch2_pj(2,3,89)=1 exch2_oi(3,89)=0 exch2_oi_f(3,89)=0 exch2_oj(3,89)=0 exch2_oj_f(3,89)=0 exch2_itlo_c(3,89)=0 exch2_ithi_c(3,89)=0 exch2_jtlo_c(3,89)=0 exch2_jthi_c(3,89)=9 exch2_opposingSend_record(3,89)=4 exch2_neighbourId(4,89)=88 exch2_pi(1,4,89)=1 exch2_pi(2,4,89)=0 exch2_pj(1,4,89)=0 exch2_pj(2,4,89)=1 exch2_oi(4,89)=0 exch2_oi_f(4,89)=0 exch2_oj(4,89)=0 exch2_oj_f(4,89)=0 exch2_itlo_c(4,89)=9 exch2_ithi_c(4,89)=9 exch2_jtlo_c(4,89)=0 exch2_jthi_c(4,89)=9 exch2_opposingSend_record(4,89)=3 RETURN END SUBROUTINE W2_E2SETUP_90 C Topology for tile 90 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(90)=8 exch2_tny(90)=8 exch2_tbasex(90)=16 exch2_tbasey(90)=24 exch2_txglobalo(90)=177 exch2_tyglobalo(90)=25 exch2_isWedge(90)=0 exch2_isNedge(90)=1 exch2_isEedge(90)=0 exch2_isSedge(90)=0 exch2_myFace(90)=6 exch2_mydnx(90)=32 exch2_mydny(90)=32 exch2_nNeighbours(90)=4 exch2_neighbourId(1,90)=3 exch2_pi(1,1,90)=1 exch2_pi(2,1,90)=0 exch2_pj(1,1,90)=0 exch2_pj(2,1,90)=1 exch2_oi(1,90)=0 exch2_oi_f(1,90)=0 exch2_oj(1,90)=32 exch2_oj_f(1,90)=32 exch2_itlo_c(1,90)=0 exch2_ithi_c(1,90)=9 exch2_jtlo_c(1,90)=0 exch2_jthi_c(1,90)=0 exch2_opposingSend_record(1,90)=2 exch2_neighbourId(2,90)=86 exch2_pi(1,2,90)=1 exch2_pi(2,2,90)=0 exch2_pj(1,2,90)=0 exch2_pj(2,2,90)=1 exch2_oi(2,90)=0 exch2_oi_f(2,90)=0 exch2_oj(2,90)=0 exch2_oj_f(2,90)=0 exch2_itlo_c(2,90)=1 exch2_ithi_c(2,90)=8 exch2_jtlo_c(2,90)=9 exch2_jthi_c(2,90)=9 exch2_opposingSend_record(2,90)=1 exch2_neighbourId(3,90)=91 exch2_pi(1,3,90)=1 exch2_pi(2,3,90)=0 exch2_pj(1,3,90)=0 exch2_pj(2,3,90)=1 exch2_oi(3,90)=0 exch2_oi_f(3,90)=0 exch2_oj(3,90)=0 exch2_oj_f(3,90)=0 exch2_itlo_c(3,90)=0 exch2_ithi_c(3,90)=0 exch2_jtlo_c(3,90)=0 exch2_jthi_c(3,90)=9 exch2_opposingSend_record(3,90)=4 exch2_neighbourId(4,90)=89 exch2_pi(1,4,90)=1 exch2_pi(2,4,90)=0 exch2_pj(1,4,90)=0 exch2_pj(2,4,90)=1 exch2_oi(4,90)=0 exch2_oi_f(4,90)=0 exch2_oj(4,90)=0 exch2_oj_f(4,90)=0 exch2_itlo_c(4,90)=9 exch2_ithi_c(4,90)=9 exch2_jtlo_c(4,90)=0 exch2_jthi_c(4,90)=9 exch2_opposingSend_record(4,90)=3 RETURN END SUBROUTINE W2_E2SETUP_91 C Topology for tile 91 #include "W2_EXCH2_TOPOLOGY.h" exch2_tnx(91)=8 exch2_tny(91)=8 exch2_tbasex(91)=24 exch2_tbasey(91)=24 exch2_txglobalo(91)=185 exch2_tyglobalo(91)=25 exch2_isWedge(91)=0 exch2_isNedge(91)=1 exch2_isEedge(91)=1 exch2_isSedge(91)=0 exch2_myFace(91)=6 exch2_mydnx(91)=32 exch2_mydny(91)=32 exch2_nNeighbours(91)=4 exch2_neighbourId(1,91)=4 exch2_pi(1,1,91)=1 exch2_pi(2,1,91)=0 exch2_pj(1,1,91)=0 exch2_pj(2,1,91)=1 exch2_oi(1,91)=0 exch2_oi_f(1,91)=0 exch2_oj(1,91)=32 exch2_oj_f(1,91)=32 exch2_itlo_c(1,91)=0 exch2_ithi_c(1,91)=9 exch2_jtlo_c(1,91)=0 exch2_jthi_c(1,91)=0 exch2_opposingSend_record(1,91)=2 exch2_neighbourId(2,91)=87 exch2_pi(1,2,91)=1 exch2_pi(2,2,91)=0 exch2_pj(1,2,91)=0 exch2_pj(2,2,91)=1 exch2_oi(2,91)=0 exch2_oi_f(2,91)=0 exch2_oj(2,91)=0 exch2_oj_f(2,91)=0 exch2_itlo_c(2,91)=1 exch2_ithi_c(2,91)=8 exch2_jtlo_c(2,91)=9 exch2_jthi_c(2,91)=9 exch2_opposingSend_record(2,91)=1 exch2_neighbourId(3,91)=17 exch2_pi(1,3,91)=0 exch2_pi(2,3,91)=1 exch2_pj(1,3,91)=-1 exch2_pj(2,3,91)=0 exch2_oi(3,91)=32 exch2_oi_f(3,91)=32 exch2_oj(3,91)=33 exch2_oj_f(3,91)=34 exch2_itlo_c(3,91)=0 exch2_ithi_c(3,91)=9 exch2_jtlo_c(3,91)=0 exch2_jthi_c(3,91)=0 exch2_opposingSend_record(3,91)=2 exch2_neighbourId(4,91)=90 exch2_pi(1,4,91)=1 exch2_pi(2,4,91)=0 exch2_pj(1,4,91)=0 exch2_pj(2,4,91)=1 exch2_oi(4,91)=0 exch2_oi_f(4,91)=0 exch2_oj(4,91)=0 exch2_oj_f(4,91)=0 exch2_itlo_c(4,91)=9 exch2_ithi_c(4,91)=9 exch2_jtlo_c(4,91)=0 exch2_jthi_c(4,91)=9 exch2_opposingSend_record(4,91)=3 RETURN END