IF ( eastCommMode .EQ. COMM_MSG ) THEN
eastCommMode = _tileCommModeE(bi,bj)
INTEGER eastCommMode
ELSEIF ( eastCommMode .EQ. COMM_PUT ) THEN
ELSEIF ( eastCommMode .NE. COMM_NONE ) THEN
IF ( eastCommMode .EQ. COMM_PUT ) westRecvAck(1,biE,bjE) = 1
IF ( eastCommMode .EQ. COMM_GET ) westRecvAck(1,biE,bjE) = 1