104       subroutine sumgat (u, n, summed)  argument
113       summed = sum(u)
117          sumvec = summed
125          call MPI_ALLREDUCE (sumvec, summed, irecvcount, 
145       subroutine sumgatN (u, n, summed, nnp)  argument
156       summed = sum(u) + 1.e-20
160          sumvec = summed
169          call MPI_ALLREDUCE (sumvec, summed, irecvcount, 
189       subroutine sumgatInt (u, n, summed )  argument
195       integer u(n), summed, sumvec  local
200       summed = sum(u)
204          sumvec = summed
212          call MPI_ALLREDUCE (sumvec, summed, irecvcount,