sumMyPr = 0.
sumMyPr = sumMyPr + shareBufGSR8(bi,bj)
sumAllP = sumMyPr
CALL MPI_ALLREDUCE(sumMyPr,sumAllP,1,MPI_DOUBLE_PRECISION,
Real*8 sumMyPr