110 |
#endif |
#endif |
111 |
theProc = tilePidS(bi,bj) |
theProc = tilePidS(bi,bj) |
112 |
theTag = _tileTagRecvS(bi,bj) |
theTag = _tileTagRecvS(bi,bj) |
113 |
theType = MPI_DOUBLE_PRECISION |
theType = _MPI_TYPE_RX |
114 |
theSize = sNx*exchWidthY*myNz |
theSize = sNx*exchWidthY*myNz |
115 |
IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS ) |
IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS ) |
116 |
& theSize = (sNx+2*exchWidthX)*exchWidthY*myNz |
& theSize = (sNx+2*exchWidthX)*exchWidthY*myNz |
129 |
#endif |
#endif |
130 |
theProc = tilePidN(bi,bj) |
theProc = tilePidN(bi,bj) |
131 |
theTag = _tileTagRecvN(bi,bj) |
theTag = _tileTagRecvN(bi,bj) |
132 |
theType = MPI_DOUBLE_PRECISION |
theType = _MPI_TYPE_RX |
133 |
theSize = sNx*exchWidthY*myNz |
theSize = sNx*exchWidthY*myNz |
134 |
IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS ) |
IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS ) |
135 |
& theSize = (sNx+2*exchWidthX)*exchWidthY*myNz |
& theSize = (sNx+2*exchWidthX)*exchWidthY*myNz |