SUBROUTINE W2_E2SETUP
C Tile toplogy settings data structures
#include "W2_EXCH2_TOPOLOGY.h"
C Tile settings table
CALL W2_E2SETUP_1
CALL W2_E2SETUP_2
CALL W2_E2SETUP_3
CALL W2_E2SETUP_4
CALL W2_E2SETUP_5
CALL W2_E2SETUP_6
CALL W2_E2SETUP_7
CALL W2_E2SETUP_8
CALL W2_E2SETUP_9
CALL W2_E2SETUP_10
CALL W2_E2SETUP_11
CALL W2_E2SETUP_12
CALL W2_E2SETUP_13
CALL W2_E2SETUP_14
CALL W2_E2SETUP_15
CALL W2_E2SETUP_16
CALL W2_E2SETUP_17
CALL W2_E2SETUP_18
CALL W2_E2SETUP_19
CALL W2_E2SETUP_20
CALL W2_E2SETUP_21
CALL W2_E2SETUP_22
CALL W2_E2SETUP_23
CALL W2_E2SETUP_24
CALL W2_E2SETUP_25
CALL W2_E2SETUP_26
CALL W2_E2SETUP_27
CALL W2_E2SETUP_28
CALL W2_E2SETUP_29
CALL W2_E2SETUP_30
CALL W2_E2SETUP_31
CALL W2_E2SETUP_32
CALL W2_E2SETUP_33
CALL W2_E2SETUP_34
CALL W2_E2SETUP_35
CALL W2_E2SETUP_36
CALL W2_E2SETUP_37
CALL W2_E2SETUP_38
CALL W2_E2SETUP_39
CALL W2_E2SETUP_40
CALL W2_E2SETUP_41
CALL W2_E2SETUP_42
CALL W2_E2SETUP_43
CALL W2_E2SETUP_44
CALL W2_E2SETUP_45
CALL W2_E2SETUP_46
CALL W2_E2SETUP_47
CALL W2_E2SETUP_48
CALL W2_E2SETUP_49
CALL W2_E2SETUP_50
CALL W2_E2SETUP_51
CALL W2_E2SETUP_52
CALL W2_E2SETUP_53
CALL W2_E2SETUP_54
CALL W2_E2SETUP_55
CALL W2_E2SETUP_56
CALL W2_E2SETUP_57
CALL W2_E2SETUP_58
CALL W2_E2SETUP_59
CALL W2_E2SETUP_60
CALL W2_E2SETUP_61
CALL W2_E2SETUP_62
CALL W2_E2SETUP_63
CALL W2_E2SETUP_64
CALL W2_E2SETUP_65
CALL W2_E2SETUP_66
CALL W2_E2SETUP_67
CALL W2_E2SETUP_68
CALL W2_E2SETUP_69
CALL W2_E2SETUP_70
CALL W2_E2SETUP_71
CALL W2_E2SETUP_72
CALL W2_E2SETUP_73
CALL W2_E2SETUP_74
CALL W2_E2SETUP_75
CALL W2_E2SETUP_76
CALL W2_E2SETUP_77
CALL W2_E2SETUP_78
CALL W2_E2SETUP_79
CALL W2_E2SETUP_80
CALL W2_E2SETUP_81
CALL W2_E2SETUP_82
CALL W2_E2SETUP_83
CALL W2_E2SETUP_84
CALL W2_E2SETUP_85
CALL W2_E2SETUP_86
CALL W2_E2SETUP_87
CALL W2_E2SETUP_88
CALL W2_E2SETUP_89
CALL W2_E2SETUP_90
CALL W2_E2SETUP_91
CALL W2_E2SETUP_92
CALL W2_E2SETUP_93
CALL W2_E2SETUP_94
CALL W2_E2SETUP_95
CALL W2_E2SETUP_96
CALL W2_E2SETUP_97
CALL W2_E2SETUP_98
CALL W2_E2SETUP_99
CALL W2_E2SETUP_100
CALL W2_E2SETUP_101
CALL W2_E2SETUP_102
CALL W2_E2SETUP_103
CALL W2_E2SETUP_104
CALL W2_E2SETUP_105
CALL W2_E2SETUP_106
CALL W2_E2SETUP_107
CALL W2_E2SETUP_108
CALL W2_E2SETUP_109
CALL W2_E2SETUP_110
CALL W2_E2SETUP_111
CALL W2_E2SETUP_112
CALL W2_E2SETUP_113
CALL W2_E2SETUP_114
CALL W2_E2SETUP_115
CALL W2_E2SETUP_116
CALL W2_E2SETUP_117
CALL W2_E2SETUP_118
CALL W2_E2SETUP_119
CALL W2_E2SETUP_120
CALL W2_E2SETUP_121
CALL W2_E2SETUP_122
CALL W2_E2SETUP_123
CALL W2_E2SETUP_124
CALL W2_E2SETUP_125
CALL W2_E2SETUP_126
CALL W2_E2SETUP_127
CALL W2_E2SETUP_128
CALL W2_E2SETUP_129
CALL W2_E2SETUP_130
CALL W2_E2SETUP_131
CALL W2_E2SETUP_132
CALL W2_E2SETUP_133
CALL W2_E2SETUP_134
CALL W2_E2SETUP_135
CALL W2_E2SETUP_136
CALL W2_E2SETUP_137
CALL W2_E2SETUP_138
CALL W2_E2SETUP_139
CALL W2_E2SETUP_140
CALL W2_E2SETUP_141
CALL W2_E2SETUP_142
CALL W2_E2SETUP_143
CALL W2_E2SETUP_144
CALL W2_E2SETUP_145
CALL W2_E2SETUP_146
CALL W2_E2SETUP_147
CALL W2_E2SETUP_148
CALL W2_E2SETUP_149
CALL W2_E2SETUP_150
CALL W2_E2SETUP_151
CALL W2_E2SETUP_152
CALL W2_E2SETUP_153
CALL W2_E2SETUP_154
CALL W2_E2SETUP_155
CALL W2_E2SETUP_156
CALL W2_E2SETUP_157
CALL W2_E2SETUP_158
CALL W2_E2SETUP_159
CALL W2_E2SETUP_160
CALL W2_E2SETUP_161
CALL W2_E2SETUP_162
CALL W2_E2SETUP_163
CALL W2_E2SETUP_164
CALL W2_E2SETUP_165
CALL W2_E2SETUP_166
CALL W2_E2SETUP_167
CALL W2_E2SETUP_168
CALL W2_E2SETUP_169
CALL W2_E2SETUP_170
CALL W2_E2SETUP_171
CALL W2_E2SETUP_172
CALL W2_E2SETUP_173
CALL W2_E2SETUP_174
CALL W2_E2SETUP_175
CALL W2_E2SETUP_176
RETURN
END
SUBROUTINE W2_E2SETUP_1
C Topology for tile 1
#include "W2_EXCH2_TOPOLOGY.h"
exch2_tnx(1)=8
exch2_tny(1)=4
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)=173
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)=5
exch2_jthi_c(2,1)=5
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)=5
exch2_opposingSend_record(3,1)=4
exch2_neighbourId(4,1)=144
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)=4
exch2_ithi_c(4,1)=9
exch2_jtlo_c(4,1)=5
exch2_jthi_c(4,1)=5
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)=4
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)=174
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)=5
exch2_jthi_c(2,2)=5
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)=5
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)=5
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)=4
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)=175
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)=5
exch2_jthi_c(2,3)=5
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)=5
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)=5
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)=4
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)=176
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)=5
exch2_jthi_c(2,4)=5
exch2_opposingSend_record(2,4)=1
exch2_neighbourId(3,4)=31
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)=5
exch2_opposingSend_record(3,4)=5
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)=5
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)=4
exch2_tbasex(5)=0
exch2_tbasey(5)=4
exch2_txglobalo(5)=1
exch2_tyglobalo(5)=5
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)=4
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)=5
exch2_jthi_c(2,5)=5
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)=5
exch2_opposingSend_record(3,5)=4
exch2_neighbourId(4,5)=144
exch2_pi(1,4,5)=0
exch2_pi(2,4,5)=1
exch2_pj(1,4,5)=-1
exch2_pj(2,4,5)=0
exch2_oi(4,5)=-32
exch2_oi_f(4,5)=-32
exch2_oj(4,5)=33
exch2_oj_f(4,5)=34
exch2_itlo_c(4,5)=0
exch2_ithi_c(4,5)=5
exch2_jtlo_c(4,5)=5
exch2_jthi_c(4,5)=5
exch2_opposingSend_record(4,5)=2
RETURN
END
SUBROUTINE W2_E2SETUP_6
C Topology for tile 6
#include "W2_EXCH2_TOPOLOGY.h"
exch2_tnx(6)=8
exch2_tny(6)=4
exch2_tbasex(6)=8
exch2_tbasey(6)=4
exch2_txglobalo(6)=9
exch2_tyglobalo(6)=5
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)=5
exch2_jthi_c(2,6)=5
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)=5
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)=5
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)=4
exch2_tbasex(7)=16
exch2_tbasey(7)=4
exch2_txglobalo(7)=17
exch2_tyglobalo(7)=5
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)=5
exch2_jthi_c(2,7)=5
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)=5
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)=5
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)=4
exch2_tbasex(8)=24
exch2_tbasey(8)=4
exch2_txglobalo(8)=25
exch2_tyglobalo(8)=5
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)=5
exch2_jthi_c(2,8)=5
exch2_opposingSend_record(2,8)=1
exch2_neighbourId(3,8)=35
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)=5
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)=5
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)=4
exch2_tbasex(9)=0
exch2_tbasey(9)=8
exch2_txglobalo(9)=1
exch2_tyglobalo(9)=9
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)=3
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)=5
exch2_jthi_c(2,9)=5
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)=5
exch2_opposingSend_record(3,9)=4
RETURN
END
SUBROUTINE W2_E2SETUP_10
C Topology for tile 10
#include "W2_EXCH2_TOPOLOGY.h"
exch2_tnx(10)=8
exch2_tny(10)=4
exch2_tbasex(10)=8
exch2_tbasey(10)=8
exch2_txglobalo(10)=9
exch2_tyglobalo(10)=9
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)=5
exch2_jthi_c(2,10)=5
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)=5
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)=5
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)=4
exch2_tbasex(11)=16
exch2_tbasey(11)=8
exch2_txglobalo(11)=17
exch2_tyglobalo(11)=9
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)=5
exch2_jthi_c(2,11)=5
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)=5
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)=5
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)=4
exch2_tbasex(12)=24
exch2_tbasey(12)=8
exch2_txglobalo(12)=25
exch2_tyglobalo(12)=9
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)=1
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)=5
exch2_jthi_c(2,12)=5
exch2_opposingSend_record(2,12)=1
exch2_neighbourId(3,12)=38
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)=5
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)=5
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)=4
exch2_tbasex(13)=0
exch2_tbasey(13)=12
exch2_txglobalo(13)=1
exch2_tyglobalo(13)=13
exch2_isWedge(13)=1
exch2_isNedge(13)=0
exch2_isEedge(13)=0
exch2_isSedge(13)=0
exch2_myFace(13)=1
exch2_mydnx(13)=32
exch2_mydny(13)=32
exch2_nNeighbours(13)=3
exch2_neighbourId(1,13)=17
exch2_pi(1,1,13)=1
exch2_pi(2,1,13)=0
exch2_pj(1,1,13)=0
exch2_pj(2,1,13)=1
exch2_oi(1,13)=0
exch2_oi_f(1,13)=0
exch2_oj(1,13)=0
exch2_oj_f(1,13)=0
exch2_itlo_c(1,13)=0
exch2_ithi_c(1,13)=9
exch2_