theProc = exch2_tProc(tgT) - 1
theTag = (tgT-1)*W2_maxNeighbours + oNb
INTEGER thisTile, nN, tgT, oNb, dir
tgT = exch2_neighbourId(nN, thisTile )
sDir = exch2_neighbourDir(tgN,tgT)
IF ( W2_myTileList(i,j).EQ.tgT ) THEN
INTEGER I,J,sBi,sBj, nN, thisTile, tgT, tgN, dir, sDir