COMMON /GlobalLo/ mpi_myXGlobalLo, mpi_myYGlobalLo
INTEGER mpi_myXGlobalLo(nPx*nPy)
iG=mpi_myXGlobalLo(npe)-1+(bi-1)*sNx+i
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i
mpi_myXGlobalLo(npe+1) = itemp
mpi_myXGlobalLo(1)=1