1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
|
! -*- f90 -*-
!
! Copyright (c) 2018-2022 The University of Tennessee and the University
! of Tennessee Research Foundation. All rights
! reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
!
! $HEADER$
!
!
! $COPYRIGHT$
interface mpix_comm_revoke
subroutine mpix_comm_revoke_f08(comm,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine mpix_comm_revoke_f08
end interface mpix_comm_revoke
interface pmpix_comm_revoke
subroutine pmpix_comm_revoke_f08(comm,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine pmpix_comm_revoke_f08
end interface pmpix_comm_revoke
interface mpix_comm_is_revoked
subroutine mpix_comm_is_revoked_f08(comm,flag,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, INTENT(OUT) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine mpix_comm_is_revoked_f08
end interface mpix_comm_is_revoked
interface pmpix_comm_is_revoked
subroutine pmpix_comm_is_revoked_f08(comm,flag,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, INTENT(OUT) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine pmpix_comm_is_revoked_f08
end interface pmpix_comm_is_revoked
interface mpix_comm_failure_ack
subroutine mpix_comm_failure_ack_f08(comm,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine mpix_comm_failure_ack_f08
end interface mpix_comm_failure_ack
interface pmpix_comm_failure_ack
subroutine pmpix_comm_failure_ack_f08(comm,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine pmpix_comm_failure_ack_f08
end interface pmpix_comm_failure_ack
interface mpix_comm_failure_get_acked
subroutine mpix_comm_failure_get_acked_f08(comm,failedgrp,ierror)
use :: mpi_f08_types, only : MPI_Comm, MPI_Group
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
TYPE(MPI_Group), INTENT(OUT) :: failedgrp
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine mpix_comm_failure_get_acked_f08
end interface mpix_comm_failure_get_acked
interface pmpix_comm_failure_get_acked
subroutine pmpix_comm_failure_get_acked_f08(comm,failedgrp,ierror)
use :: mpi_f08_types, only : MPI_Comm, MPI_Group
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
TYPE(MPI_Group), INTENT(OUT) :: failedgrp
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine pmpix_comm_failure_get_acked_f08
end interface pmpix_comm_failure_get_acked
interface mpix_comm_get_failed
subroutine mpix_comm_get_failed_f08(comm,failedgrp,ierror)
use :: mpi_f08_types, only : MPI_Comm, MPI_Group
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
TYPE(MPI_Group), INTENT(OUT) :: failedgrp
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine mpix_comm_get_failed_f08
end interface mpix_comm_get_failed
interface pmpix_comm_get_failed
subroutine pmpix_comm_get_failed_f08(comm,failedgrp,ierror)
use :: mpi_f08_types, only : MPI_Comm, MPI_Group
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
TYPE(MPI_Group), INTENT(OUT) :: failedgrp
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine pmpix_comm_get_failed_f08
end interface pmpix_comm_get_failed
interface mpix_comm_agree
subroutine mpix_comm_agree_f08(comm,flag,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, INTENT(INOUT) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine mpix_comm_agree_f08
end interface mpix_comm_agree
interface mpix_comm_ack_failed
subroutine mpix_comm_ack_failed_f08(comm,num_to_ack,num_acked,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, INTENT(IN) :: num_to_ack
INTEGER, INTENT(OUT) :: num_acked
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine mpix_comm_ack_failed_f08
end interface mpix_comm_ack_failed
interface pmpix_comm_ack_failed
subroutine pmpix_comm_ack_failed_f08(comm,num_to_ack,num_acked,ierror)
use :: mpi_f08_types, only : MPI_Comm, MPI_Group
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, INTENT(IN) :: num_to_ack
INTEGER, INTENT(OUT) :: num_acked
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine pmpix_comm_ack_failed_f08
end interface pmpix_comm_ack_failed
interface pmpix_comm_agree
subroutine pmpix_comm_agree_f08(comm,flag,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, INTENT(INOUT) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine pmpix_comm_agree_f08
end interface pmpix_comm_agree
interface mpix_comm_iagree
subroutine mpix_comm_iagree_f08(comm,flag,request,ierror)
use :: mpi_f08_types, only : MPI_Comm, MPI_Request
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, INTENT(INOUT), ASYNCHRONOUS :: flag ! should use OMPI_ASYNCHRONOUS
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine mpix_comm_iagree_f08
end interface mpix_comm_iagree
interface pmpix_comm_iagree
subroutine pmpix_comm_iagree_f08(comm,flag,request,ierror)
use :: mpi_f08_types, only : MPI_Comm, MPI_Request
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
INTEGER, INTENT(INOUT), ASYNCHRONOUS :: flag ! should use OMPI_ASYNCHRONOUS
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine pmpix_comm_iagree_f08
end interface pmpix_comm_iagree
interface mpix_comm_shrink
subroutine mpix_comm_shrink_f08(comm,newcomm,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
TYPE(MPI_Comm), INTENT(OUT) :: newcomm
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine mpix_comm_shrink_f08
end interface mpix_comm_shrink
interface pmpix_comm_shrink
subroutine pmpix_comm_shrink_f08(comm,newcomm,ierror)
use :: mpi_f08_types, only : MPI_Comm
implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm
TYPE(MPI_Comm), INTENT(OUT) :: newcomm
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine pmpix_comm_shrink_f08
end interface pmpix_comm_shrink
|
