Fix bug in dump balance

This commit is contained in:
Stan Moore
2022-02-01 10:23:25 -08:00
parent 76c57d54c1
commit e15ca1eeef

View File

@ -975,7 +975,7 @@ void Dump::balance()
// post receive for this proc
if (iproc_prev != me)
if (procrecv != me)
MPI_Irecv(&buf_balance[procstart*size_one],procnrecv*size_one,MPI_DOUBLE,
procrecv,0,world,&request[nswap++]);
@ -1008,7 +1008,7 @@ void Dump::balance()
// 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);
} else {