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