westCommMode = _tileCommModeW(bi,bj)
INTEGER westCommMode
IF ( westCommMode .EQ. COMM_MSG ) THEN
ELSEIF ( westCommMode .EQ. COMM_PUT ) THEN
ELSEIF ( westCommMode .NE. COMM_NONE ) THEN
IF ( westCommMode .EQ. COMM_PUT ) eastRecvAck(1,biW,bjW) = 1
IF ( westCommMode .EQ. COMM_GET ) eastRecvAck(1,biW,bjW) = 1