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