INTEGER tBx, tBy, iGjLoc, jGjLoc
iGjLoc = 0
iGjLoc = exch2_mydNx(tN)
irec = 1 + ( tBx + (j-1)*iGjLoc )/sNx
irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx
map2gl(1) = iGjLoc