140 |
theProc = tilePidW(bi,bj) |
theProc = tilePidW(bi,bj) |
141 |
theTag = _tileTagSendW(bi,bj) |
theTag = _tileTagSendW(bi,bj) |
142 |
theSize = iB |
theSize = iB |
143 |
theType = MPI_DOUBLE_PRECISION |
theType = _MPI_TYPE_RX |
144 |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
145 |
CALL MPI_Isend(westSendBuf_RX(1,eBl,bi,bj), theSize, theType, |
CALL MPI_Isend(westSendBuf_RX(1,eBl,bi,bj), theSize, theType, |
146 |
& theProc, theTag, MPI_COMM_MODEL, |
& theProc, theTag, MPI_COMM_MODEL, |
186 |
theProc = tilePidE(bi,bj) |
theProc = tilePidE(bi,bj) |
187 |
theTag = _tileTagSendE(bi,bj) |
theTag = _tileTagSendE(bi,bj) |
188 |
theSize = iB |
theSize = iB |
189 |
theType = MPI_DOUBLE_PRECISION |
theType = _MPI_TYPE_RX |
190 |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
191 |
CALL MPI_Isend(eastSendBuf_RX(1,eBl,bi,bj), theSize, theType, |
CALL MPI_Isend(eastSendBuf_RX(1,eBl,bi,bj), theSize, theType, |
192 |
& theProc, theTag, MPI_COMM_MODEL, |
& theProc, theTag, MPI_COMM_MODEL, |
235 |
theProc = tilePidW(bi,bj) |
theProc = tilePidW(bi,bj) |
236 |
theTag = _tileTagSendW(bi,bj) |
theTag = _tileTagSendW(bi,bj) |
237 |
theSize = iB |
theSize = iB |
238 |
theType = MPI_DOUBLE_PRECISION |
theType = _MPI_TYPE_RX |
239 |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
240 |
CALL MPI_Isend(westSendBuf_RX(1,eBl,bi,bj), theSize, theType, |
CALL MPI_Isend(westSendBuf_RX(1,eBl,bi,bj), theSize, theType, |
241 |
& theProc, theTag, MPI_COMM_MODEL, |
& theProc, theTag, MPI_COMM_MODEL, |
283 |
theProc = tilePidE(bi,bj) |
theProc = tilePidE(bi,bj) |
284 |
theTag = _tileTagSendE(bi,bj) |
theTag = _tileTagSendE(bi,bj) |
285 |
theSize = iB |
theSize = iB |
286 |
theType = MPI_DOUBLE_PRECISION |
theType = _MPI_TYPE_RX |
287 |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
288 |
CALL MPI_Isend(eastSendBuf_RX(1,eBl,bi,bj), theSize, theType, |
CALL MPI_Isend(eastSendBuf_RX(1,eBl,bi,bj), theSize, theType, |
289 |
& theProc, theTag, MPI_COMM_MODEL, |
& theProc, theTag, MPI_COMM_MODEL, |