101 |
CRG DO N=1,nN |
CRG DO N=1,nN |
102 |
DO N=nN,1,-1 |
DO N=nN,1,-1 |
103 |
farTile=exch2_neighbourId(N,thisTile) |
farTile=exch2_neighbourId(N,thisTile) |
104 |
oN=exch2_opposingSend_Record(N,thisTile) |
tIlo =exch2_iLo(N,thisTile) |
105 |
tIlo =exch2_itlo_c(oN,farTile) |
tIhi =exch2_iHi(N,thisTile) |
106 |
tIhi =exch2_ithi_c(oN,farTile) |
tJlo =exch2_jLo(N,thisTile) |
107 |
tJlo =exch2_jtlo_c(oN,farTile) |
tJhi =exch2_jHi(N,thisTile) |
|
tJhi =exch2_jthi_c(oN,farTile) |
|
108 |
CALL EXCH2_GET_RECV_BOUNDS( |
CALL EXCH2_GET_RECV_BOUNDS( |
109 |
I fieldCode, exchWidthX, |
I fieldCode, exchWidthX, |
110 |
O tiStride, tjStride, |
O tiStride, tjStride, |
159 |
nN=exch2_nNeighbours(thisTile) |
nN=exch2_nNeighbours(thisTile) |
160 |
DO N=1,nN |
DO N=1,nN |
161 |
farTile=exch2_neighbourId(N,thisTile) |
farTile=exch2_neighbourId(N,thisTile) |
162 |
tIlo =exch2_itlo_c(N,thisTile) |
oN=exch2_opposingSend(N,thisTile) |
163 |
tIhi =exch2_ithi_c(N,thisTile) |
tIlo =exch2_iLo(oN,farTile) |
164 |
tJlo =exch2_jtlo_c(N,thisTile) |
tIhi =exch2_iHi(oN,farTile) |
165 |
tJhi =exch2_jthi_c(N,thisTile) |
tJlo =exch2_jLo(oN,farTile) |
166 |
|
tJhi =exch2_jHi(oN,farTile) |
167 |
CALL EXCH2_GET_SEND_BOUNDS( |
CALL EXCH2_GET_SEND_BOUNDS( |
168 |
I fieldCode, exchWidthX, |
I fieldCode, exchWidthX, |
169 |
O tiStride, tjStride, |
O tiStride, tjStride, |