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