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