Commit cd5410ec authored by Daniel Wortmann's avatar Daniel Wortmann

Modified juDFT_end to ignore errors in MPI_finalize. Fixes #270

parent 0da246d3
......@@ -235,6 +235,7 @@ CONTAINS
IF (l_mpi) THEN
IF(PRESENT(irank)) THEN
CALL MPI_BARRIER(MPI_COMM_WORLD,ierr)
CALL MPI_ERRHANDLER_SET(MPI_COMM_WORLD,MPI_ERRORS_RETURN,ierr)
CALL MPI_FINALIZE(ierr)
ELSE
CALL juDFT_STOP(0)
......@@ -292,6 +293,7 @@ CONTAINS
WRITE(0,*) " Error messages in the following lines can be ignored."
WRITE(0,*) ""
END IF
CALL MPI_ERRHANDLER_SET(MPI_COMM_WORLD,MPI_ERRORS_RETURN,ierr)
CALL MPI_ABORT(MPI_COMM_WORLD,error,ierr)
ENDIF
#endif
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment