1
1
"""
2
- MPI.Errhandler
2
+ MPI.ErrorHandler
3
3
4
4
An MPI error handler object. Currently only two are supported:
5
5
@@ -19,57 +19,57 @@ function free(errh::ErrorHandler)
19
19
return nothing
20
20
end
21
21
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)
25
25
end
26
26
27
27
"""
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)
31
31
32
32
Get the current [`ErrorHandler`](@ref) for the relevant MPI object.
33
33
34
34
# See also
35
- - [`set_errorhandler !`](@ref)
35
+ - [`set_errhandler !`](@ref)
36
36
"""
37
- function get_errorhandler (comm:: Comm )
37
+ function get_errhandler (comm:: Comm )
38
38
errh = ErrorHandler (ERRORS_ARE_FATAL. val)
39
39
@mpichk ccall ((:MPI_Comm_get_errhandler , libmpi), Cint, (MPI_Comm, Ptr{MPI_Errhandler}), comm, errh)
40
40
finalizer (free, errh)
41
41
return errh
42
42
end
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)
45
45
@mpichk ccall ((:MPI_Win_get_errhandler , libmpi), Cint, (MPI_Win, Ptr{MPI_Errhandler}), win, errh)
46
46
return errh
47
47
end
48
- function get_errorhandler (file:: File.FileHandle )
48
+ function get_errhandler (file:: File.FileHandle )
49
49
errh = ErrorHandler (ERRORS_ARE_FATAL. val)
50
50
@mpichk ccall ((:MPI_File_get_errhandler , libmpi), Cint, (MPI_File, Ptr{MPI_Errhandler}), file, errh)
51
51
return errh
52
52
end
53
53
54
54
"""
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 )
58
58
59
59
Set the [`ErrorHandler`](@ref) for the relevant MPI object.
60
60
61
61
# See also
62
- - [`get_errorhandler `](@ref)
62
+ - [`get_errhandler `](@ref)
63
63
"""
64
- function set_errorhandler ! (comm:: Comm , errh:: ErrorHandler )
64
+ function set_errhandler ! (comm:: Comm , errh:: ErrorHandler )
65
65
@mpichk ccall ((:MPI_Comm_set_errhandler , libmpi), Cint, (MPI_Comm, MPI_Errhandler), comm, errh)
66
66
return nothing
67
67
end
68
- function set_errorhandler ! (win:: Win , errh:: ErrorHandler )
68
+ function set_errhandler ! (win:: Win , errh:: ErrorHandler )
69
69
@mpichk ccall ((:MPI_Win_set_errhandler , libmpi), Cint, (MPI_Win, MPI_Errhandler), win, errh)
70
70
return nothing
71
71
end
72
- function set_errorhandler ! (file:: File.FileHandle , errh:: ErrorHandler )
72
+ function set_errhandler ! (file:: File.FileHandle , errh:: ErrorHandler )
73
73
@mpichk ccall ((:MPI_File_set_errhandler , libmpi), Cint, (MPI_File, MPI_Errhandler), file, errh)
74
74
return nothing
75
75
end
0 commit comments