np1 = 1
biG = (mpi_myXGlobalLo(np1)-1)/sNx+bi
bjG = (mpi_myYGlobalLo(np1)-1)/sNy+bj
np1 = npe + 1
INTEGER biG, bjG, npe, np1