INTEGER tBx, tBy, iGjLoc, jGjLoc
jGjLoc = 1
jGjLoc = exch2_mydNx(tN) / xSize
jGjLoc = 0
& + ( tBy + (j-1)*jGjLoc )*global_nTx
map2gl(2) = jGjLoc