& ' in tile ',targetTile,' (pr=',targetProc,')'
targetTile=exch2_neighbourId(N,myTileId)
targetProc=W2_tileProc(targetTile)
& ' from tile',targetTile,' (pr=',targetProc,')'
INTEGER targetTile, targetProc, sourceProc
I targetTile, tN,
itb = exch2_tBasex(targetTile)
jtb = exch2_tBasey(targetTile)