ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

No MPI communicaton after MPI_Finalize() and no MPI_Finalize() unless we are initialized.

Browse Source
This commit is contained in:
Axel Kohlmeyer
2020-10-09 12:47:13 -04:00
parent 078f931393
commit 57e0e64ffe
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/library.cpp
View File

@ -337,8 +337,15 @@ more MPI calls may be made.
void lammps_mpi_finalize()
{
MPI_Barrier(MPI_COMM_WORLD);
MPI_Finalize();
int flag;
MPI_Initialized(&flag);
if (flag) {
MPI_Finalized(&flag);
if (!flag) {
MPI_Barrier(MPI_COMM_WORLD);
MPI_Finalize();
}
}
}
/* ---------------------------------------------------------------------- */