CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed two unnecessary MPI_Allreduce calls

Browse Source
This commit is contained in:
ulrikey 2001-11-13 16:33:47 +00:00
parent 588ea16e5b
commit 0bba920000
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
IJ_mv/IJVector_parcsr.c
View File

@ -37,13 +37,11 @@ hypre_IJVectorCreatePar(hypre_IJVector *vector, int *IJpartitioning)
}
#endif
int num_procs, my_id, jmin, jmax, global_n, *partitioning, j;
int num_procs, jmin, global_n, *partitioning, j;
MPI_Comm_size(comm, &num_procs);
MPI_Comm_rank(comm, &my_id);
MPI_Allreduce(&IJpartitioning[my_id], &jmin, 1, MPI_INT, MPI_MIN, comm);
MPI_Allreduce(&IJpartitioning[my_id+1], &jmax, 1, MPI_INT, MPI_MAX, comm);
global_n = jmax - jmin;
jmin = IJpartitioning[0];
global_n = IJpartitioning[num_procs] - jmin;
partitioning = hypre_CTAlloc(int, num_procs+1);