fix incorrect use of MPI_Gather()

This commit is contained in:
Axel Kohlmeyer
2020-12-17 09:20:38 -05:00
parent 181b18beeb
commit e3c3106795
2 changed files with 2 additions and 2 deletions

View File

@ -314,7 +314,7 @@ void FixTempCSLD::write_restart(FILE *fp)
}
double state[103];
random->get_state(state);
MPI_Gather(state,103,MPI_DOUBLE,list+2,103*comm->nprocs,MPI_DOUBLE,0,world);
MPI_Gather(state,103,MPI_DOUBLE,list+2,103,MPI_DOUBLE,0,world);
if (comm->me == 0) {
int size = nsize * sizeof(double);