INTEGER itb, jtb, isb, jsb
jtb = exch2_tBasey(targetTile)
sourceIlo=pi(1)*(targetIlo+itb)+pi(2)*(targetJlo+jtb)+oi-isb
sourceJlo=pj(1)*(targetIlo+itb)+pj(2)*(targetJlo+jtb)+oj-jsb
sourceIhi=pi(1)*(targetIhi+itb)+pi(2)*(targetJhi+jtb)+oi-isb
sourceJhi=pj(1)*(targetIhi+itb)+pj(2)*(targetJhi+jtb)+oj-jsb
jtb = exch2_tBasey(tgT)
jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb
INTEGER pi(2), pj(2), oi, oj, ip, itb, jtb, isb, jsb