INTEGER itb, jtb, isb, jsb
itb = exch2_tBasex(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
itb = exch2_tBasex(tgT)
itc=array(imax*(ip-1)+3,bi,bj,dir)+itb
INTEGER pi(2), pj(2), oi, oj, ip, itb, jtb, isb, jsb