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

Fix issue with Kokkos::finalize and library interface

Browse Source
This commit is contained in:
Stan Moore
2020-11-06 12:01:45 -07:00
parent 584943fc92
commit 5526cc2c53
6 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/error.cpp
View File

@ -75,7 +75,7 @@ void Error::universe_all(const std::string &file, int line, const std::string &s
throw LAMMPSException(mesg);
#else
if (lmp->kokkos) Kokkos::finalize();
if (Kokkos::is_initialized()) Kokkos::finalize();
MPI_Finalize();
exit(1);
#endif
@ -161,7 +161,7 @@ void Error::all(const std::string &file, int line, const std::string &str)
if (logfile) fclose(logfile);
if (universe->nworlds > 1) MPI_Abort(universe->uworld,1);
if (lmp->kokkos) Kokkos::finalize();
if (Kokkos::is_initialized()) Kokkos::finalize();
MPI_Finalize();
exit(1);
#endif
@ -200,6 +200,7 @@ void Error::one(const std::string &file, int line, const std::string &str)
#else
if (screen) fflush(screen);
if (logfile) fflush(logfile);
if (Kokkos::is_initialized()) Kokkos::finalize();
MPI_Abort(world,1);
exit(1); // to trick "smart" compilers into believing this does not return
#endif
@ -246,7 +247,7 @@ void Error::done(int status)
if (screen && screen != stdout) fclose(screen);
if (logfile) fclose(logfile);
if (lmp->kokkos) Kokkos::finalize();
if (Kokkos::is_initialized()) Kokkos::finalize();
MPI_Finalize();
exit(status);
}