Fix bug in dump balance
This commit is contained in:
@ -975,7 +975,7 @@ void Dump::balance()
|
|||||||
|
|
||||||
// post receive for this proc
|
// post receive for this proc
|
||||||
|
|
||||||
if (iproc_prev != me)
|
if (procrecv != me)
|
||||||
MPI_Irecv(&buf_balance[procstart*size_one],procnrecv*size_one,MPI_DOUBLE,
|
MPI_Irecv(&buf_balance[procstart*size_one],procnrecv*size_one,MPI_DOUBLE,
|
||||||
procrecv,0,world,&request[nswap++]);
|
procrecv,0,world,&request[nswap++]);
|
||||||
|
|
||||||
@ -1008,7 +1008,7 @@ void Dump::balance()
|
|||||||
|
|
||||||
// send for this proc
|
// send for this proc
|
||||||
|
|
||||||
if (iproc_prev != me) {
|
if (procsend != me) {
|
||||||
MPI_Send(&buf[procstart*size_one],procnsend*size_one,MPI_DOUBLE,procsend,0,world);
|
MPI_Send(&buf[procstart*size_one],procnsend*size_one,MPI_DOUBLE,procsend,0,world);
|
||||||
} else {
|
} else {
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user