& tileCommModeW, tileCommModeE,
INTEGER tileCommModeW ( nSx, nSy )
tileCommModeW(bi,bj) = COMM_NONE
tileCommModeW(bi,bj) = COMM_PUT
tileCommModeW(bi,bj) = COMM_MSG
& ', Comm = ',commName(tileCommModeW(I,J))