202 |
C WRITE(*,*) ' eBl = ', ebl |
C WRITE(*,*) ' eBl = ', ebl |
203 |
C STOP ' S/R EXCH_RECV_GET_X: spinCount .GT. _EXCH_SPIN_LIMIT' |
C STOP ' S/R EXCH_RECV_GET_X: spinCount .GT. _EXCH_SPIN_LIMIT' |
204 |
C ENDIF |
C ENDIF |
205 |
IF ( westRecvAck(eBl,bi,bj) .EQ. 0. ) GOTO 10 |
IF ( westRecvAck(eBl,bi,bj) .EQ. 0 ) GOTO 10 |
206 |
IF ( eastRecvAck(eBl,bi,bj) .EQ. 0. ) GOTO 10 |
IF ( eastRecvAck(eBl,bi,bj) .EQ. 0 ) GOTO 10 |
207 |
C Clear outstanding requests |
C Clear outstanding requests |
208 |
westRecvAck(eBl,bi,bj) = 0. |
westRecvAck(eBl,bi,bj) = 0 |
209 |
eastRecvAck(eBl,bi,bj) = 0. |
eastRecvAck(eBl,bi,bj) = 0 |
210 |
|
|
211 |
IF ( exchNReqsX(1,bi,bj) .GT. 0 ) THEN |
IF ( exchNReqsX(1,bi,bj) .GT. 0 ) THEN |
212 |
#ifdef ALLOW_USE_MPI |
#ifdef ALLOW_USE_MPI |