Lines Matching refs:aa
23 R_TYPE, intent(inout) :: aa
33 aac = aa
34 call MPI_Allreduce(aac, aa, 1, R_MPITYPE, MPI_SUM, comm, mpi_err)
43 R_TYPE, intent(inout) :: aa(:)
55 dim1 = ubound(aa, dim = 1)
58 ASSERT(ubound(aa, dim = 1) >= dim1)
63 call MPI_Allreduce(MPI_IN_PLACE, aa, dim1, R_MPITYPE, MPI_SUM, comm, mpi_err)
67 aac(1:dim1) = aa(1:dim1)
68 call MPI_Allreduce(aac, aa, dim1, R_MPITYPE, MPI_SUM, comm, mpi_err)
81 R_TYPE, intent(inout) :: aa(:, :)
96 dim_ = ubound(aa)
99 ASSERT(all(ubound(aa) >= dim_))
106 if(ubound(aa, dim = 1) == dim_(1)) then
111 call MPI_Allreduce(MPI_IN_PLACE, aa(1, 1), product(dim_), R_MPITYPE, MPI_SUM, comm, mpi_err)
115 aac(1:dim_(1), 1:dim_(2)) = aa(1:dim_(1), 1:dim_(2))
116 call MPI_Allreduce(aac(1, 1), aa(1, 1), product(dim_), R_MPITYPE, MPI_SUM, comm, mpi_err)
124 aac(1:dim_(1), 1:dim_(2)) = aa(1:dim_(1), 1:dim_(2))
126 aa(1:dim_(1), 1:dim_(2)) = aac(1:dim_(1), 1:dim_(2))
133 aac(1:dim_(1), 1) = aa(1:dim_(1), ii)
134 call MPI_Allreduce(aac(1, 1), aa(1, ii), dim_(1), R_MPITYPE, MPI_SUM, comm, mpi_err)
147 R_TYPE, intent(inout) :: aa(:, :, :)
162 dim_ = ubound(aa)
165 ASSERT(all(ubound(aa) >= dim_))
172 if(ubound(aa, dim = 1) == dim_(1)) then
177 … call MPI_Allreduce(MPI_IN_PLACE, aa(1, 1, 1), product(dim_), R_MPITYPE, MPI_SUM, comm, mpi_err)
181 aac(1:dim_(1), 1:dim_(2), 1:dim_(3)) = aa(1:dim_(1), 1:dim_(2), 1:dim_(3))
182 … call MPI_Allreduce(aac(1, 1, 1), aa(1, 1, 1), product(dim_), R_MPITYPE, MPI_SUM, comm, mpi_err)
191 aac(1:dim_(1), 1:dim_(2), 1:dim_(3)) = aa(1:dim_(1), 1:dim_(2), 1:dim_(3))
193 aa(1:dim_(1), 1:dim_(2), 1:dim_(3)) = aac(1:dim_(1), 1:dim_(2), 1:dim_(3))
201 aac(1:dim_(1), 1, 1) = aa(1:dim_(1), ii, jj)
202 … call MPI_Allreduce(aac(1, 1, 1), aa(1, ii, jj), dim_(1), R_MPITYPE, MPI_SUM, comm, mpi_err)
217 R_TYPE, intent(inout) :: aa(:, :, :, :)
226 dim_ = ubound(aa)
230 … call MPI_Allreduce(MPI_IN_PLACE, aa(1, 1, 1, 1), product(dim_), R_MPITYPE, MPI_SUM, comm, mpi_err)
234 aac(1:dim_(1), 1:dim_(2), 1:dim_(3), 1:dim_(4)) = aa(1:dim_(1), 1:dim_(2), 1:dim_(3), 1:dim_(4))
235 …call MPI_Allreduce(aac(1, 1, 1, 1), aa(1, 1, 1, 1), product(dim_), R_MPITYPE, MPI_SUM, comm, mpi_e…
247 R_TYPE, intent(inout) :: aa(:, :, :, :, :)
256 dim_ = ubound(aa)
260 …call MPI_Allreduce(MPI_IN_PLACE, aa(1, 1, 1, 1, 1), product(dim_), R_MPITYPE, MPI_SUM, comm, mpi_e…
265 aa(1:dim_(1), 1:dim_(2), 1:dim_(3), 1:dim_(4), 1:dim_(5))
266 call MPI_Allreduce(aac(1, 1, 1, 1, 1), aa(1, 1, 1, 1, 1), product(dim_), &