Lines Matching refs:summed
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,