do ip = 1,nPx
INTEGER W2_myTileList(nSx), W2_mpi_myTileList(nPx*nPy,nSx)
nt_check = NTILES/(nPx*nSx)
nt_check = nt_check*nPx*nSx
nt_perproc = NTILES/nPx
& .AND. nPx.EQ.1 .AND. nPy.EQ.1
DO pi = 1, nPx
& ((thePy-1)*nSy+theBj-1)*nSx*nPx
IF ( pxW .LT. 1 ) pxW = nPx
IF ( pxE .GT. nPx ) pxE = 1
totalTileCount = nSx*nSy*nPx*nPy
INTEGER bi0(nPx)