11"""
2- MPI.Errhandler
2+ MPI.ErrorHandler
33
44An MPI error handler object. Currently only two are supported:
55
@@ -19,57 +19,57 @@ function free(errh::ErrorHandler)
1919 return nothing
2020end
2121
22- function set_default_error_handler_return ()
23- set_errorhandler ! (COMM_SELF, ERRORS_RETURN)
24- set_errorhandler ! (COMM_WORLD, ERRORS_RETURN)
22+ function set_default_errhandler_return ()
23+ set_errhandler ! (COMM_SELF, ERRORS_RETURN)
24+ set_errhandler ! (COMM_WORLD, ERRORS_RETURN)
2525end
2626
2727"""
28- MPI.get_errorhandler (comm::MPI.Comm)
29- MPI.get_errorhandler (win::MPI.Win)
30- MPI.get_errorhandler (file::MPI.File.FileHandle)
28+ MPI.get_errhandler (comm::MPI.Comm)
29+ MPI.get_errhandler (win::MPI.Win)
30+ MPI.get_errhandler (file::MPI.File.FileHandle)
3131
3232Get the current [`ErrorHandler`](@ref) for the relevant MPI object.
3333
3434# See also
35- - [`set_errorhandler !`](@ref)
35+ - [`set_errhandler !`](@ref)
3636"""
37- function get_errorhandler (comm:: Comm )
37+ function get_errhandler (comm:: Comm )
3838 errh = ErrorHandler (ERRORS_ARE_FATAL. val)
3939 @mpichk ccall ((:MPI_Comm_get_errhandler , libmpi), Cint, (MPI_Comm, Ptr{MPI_Errhandler}), comm, errh)
4040 finalizer (free, errh)
4141 return errh
4242end
43- function get_errorhandler (win:: Win )
44- errh = ErrorHandler (ERRORS_ARE_FATAL. val)
43+ function get_errhandler (win:: Win )
44+ errh = v (ERRORS_ARE_FATAL. val)
4545 @mpichk ccall ((:MPI_Win_get_errhandler , libmpi), Cint, (MPI_Win, Ptr{MPI_Errhandler}), win, errh)
4646 return errh
4747end
48- function get_errorhandler (file:: File.FileHandle )
48+ function get_errhandler (file:: File.FileHandle )
4949 errh = ErrorHandler (ERRORS_ARE_FATAL. val)
5050 @mpichk ccall ((:MPI_File_get_errhandler , libmpi), Cint, (MPI_File, Ptr{MPI_Errhandler}), file, errh)
5151 return errh
5252end
5353
5454"""
55- MPI.set_errorhandler !(comm::MPI.Comm, errh::ErrorHandler )
56- MPI.set_errorhandler !(win::MPI.Win, errh::ErrorHandler )
57- MPI.set_errorhandler !(file::MPI.File.FileHandle, errh::ErrorHandler )
55+ MPI.set_errhandler !(comm::MPI.Comm, errh::Errhandler )
56+ MPI.set_errhandler !(win::MPI.Win, errh::Errhandler )
57+ MPI.set_errhandler !(file::MPI.File.FileHandle, errh::Errhandler )
5858
5959Set the [`ErrorHandler`](@ref) for the relevant MPI object.
6060
6161# See also
62- - [`get_errorhandler `](@ref)
62+ - [`get_errhandler `](@ref)
6363"""
64- function set_errorhandler ! (comm:: Comm , errh:: ErrorHandler )
64+ function set_errhandler ! (comm:: Comm , errh:: ErrorHandler )
6565 @mpichk ccall ((:MPI_Comm_set_errhandler , libmpi), Cint, (MPI_Comm, MPI_Errhandler), comm, errh)
6666 return nothing
6767end
68- function set_errorhandler ! (win:: Win , errh:: ErrorHandler )
68+ function set_errhandler ! (win:: Win , errh:: ErrorHandler )
6969 @mpichk ccall ((:MPI_Win_set_errhandler , libmpi), Cint, (MPI_Win, MPI_Errhandler), win, errh)
7070 return nothing
7171end
72- function set_errorhandler ! (file:: File.FileHandle , errh:: ErrorHandler )
72+ function set_errhandler ! (file:: File.FileHandle , errh:: ErrorHandler )
7373 @mpichk ccall ((:MPI_File_set_errhandler , libmpi), Cint, (MPI_File, MPI_Errhandler), file, errh)
7474 return nothing
7575end
0 commit comments