INTEGER exch2_tProc(NTILES)
& exch2_tProc,
exch2_tProc(I) = pRank+1
& ' ( PROC = ',exch2_tProc(exch2_neighbourId(J,myTileId)),')'
sourceProc=exch2_tProc(myTileId)
targetProc=exch2_tProc(targetTile)