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