IF ( targetIlo .LE. targetIhi ) THEN
targetIhi=targetIhi+OLx-1
targetIhi=targetIhi-OLx+1
sourceIhi=pi(1)*targetIhi+pi(2)*targetJhi+oi
sourceJhi=pj(1)*targetIhi+pj(2)*targetJhi+oj
& ':',targetIhi,
targetIhi =exch2_ithi_c(tN,targetTile)
IF ( targetIlo .EQ. targetIhi .AND. targetIlo .EQ. 0 ) THEN
targetIhi=0
IF ( targetIlo .EQ. targetIhi .AND. targetIlo .GT. 1 ) THEN
INTEGER targetIlo, targetIhi, targetJlo, targetJhi
targetIhi =exch2_ithi_c(N,myTileId)