change to use Wei-kings' solution

This commit is contained in:
Dennis Heimbigner 2017-10-25 13:07:17 -06:00
parent ea9d685a7b
commit d9b60fef03

View File

@ -221,12 +221,13 @@ main(int argc, char **argv)
MPE_Log_event(e_close, 0, "end close file");
#endif /* USE_MPE */
MPI_Barrier(MPI_COMM_WORLD);
if (mpi_rank == 0)
remove(file_name);
/* Shut down MPI. */
MPI_Finalize();
/* Delete this large file. */
remove(file_name);
#ifdef DEBUG
if (!mpi_rank)
{