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