sumAll = 0. _d 0
sumAll = sumAll + xy_buffer_r8(ij)
CALL MPI_SEND (sumAll, 1, MPI_DOUBLE_PRECISION,
CALL MPI_RECV (sumAll, 1, MPI_DOUBLE_PRECISION,
phiGSR8(1,0) = sumAll
Real*8 sumAll