IF ( targetIlo .LE. targetIhi ) THEN
targetIlo=targetIlo-OLx+1
targetIlo=targetIlo+OLx-1
sourceIlo=pi(1)*targetIlo+pi(2)*targetJlo+oi
sourceJlo=pj(1)*targetIlo+pj(2)*targetJlo+oj
& ' to points i=',targetIlo,
targetIlo =exch2_itlo_c(tN,targetTile)
IF ( targetIlo .EQ. targetIhi .AND. targetIlo .EQ. 0 ) THEN
targetIlo=1-OLx
IF ( targetIlo .EQ. targetIhi .AND. targetIlo .GT. 1 ) THEN
& 'recv to points i=',targetIlo,
INTEGER targetIlo, targetIhi, targetJlo, targetJhi
targetIlo =exch2_itlo_c(N,myTileId)