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
|
! -*- fortran -*-
! Copyright (c) 2010-2012 Oak Ridge National Labs. All rights reserved.
! Copyright (c) 2010-2022 The University of Tennessee and the University
! of Tennessee research foundation. All rights
! reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
!
! $HEADER$
!
! Include the parameters for this extension
! Included from config/ompi_ext.m4 into mpif90-ext.f90
! include '../mpiext/ftmpi/mpif-h/mpiext_ftmpi_mpifh.h'
!
! Communicators
!
interface mpix_comm_revoke
subroutine mpix_comm_revoke(comm, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: ierr
end subroutine mpix_comm_revoke
end interface mpix_comm_revoke
interface pmpix_comm_revoke
subroutine pmpix_comm_revoke(comm, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: ierr
end subroutine pmpix_comm_revoke
end interface pmpix_comm_revoke
interface mpix_comm_is_revoked
subroutine mpix_comm_is_revoked(comm, flag, ierr)
integer, intent(IN) :: comm
logical, intent(OUT) :: flag
integer, intent(OUT) :: ierr
end subroutine mpix_comm_is_revoked
end interface mpix_comm_is_revoked
interface pmpix_comm_is_revoked
subroutine pmpix_comm_is_revoked(comm, flag, ierr)
integer, intent(IN) :: comm
logical, intent(OUT) :: flag
integer, intent(OUT) :: ierr
end subroutine pmpix_comm_is_revoked
end interface pmpix_comm_is_revoked
interface mpix_comm_shrink
subroutine mpix_comm_shrink(comm, newcomm, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: newcomm, ierr
end subroutine mpix_comm_shrink
end interface mpix_comm_shrink
interface pmpix_comm_shrink
subroutine pmpix_comm_shrink(comm, newcomm, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: newcomm, ierr
end subroutine pmpix_comm_shrink
end interface pmpix_comm_shrink
interface mpix_comm_get_failed
subroutine mpix_comm_get_failed(comm, failedgrp, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: failedgrp, ierr
end subroutine mpix_comm_get_failed
end interface mpix_comm_get_failed
interface pmpix_comm_get_failed
subroutine pmpix_comm_get_failed(comm, failedgrp, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: failedgrp, ierr
end subroutine pmpix_comm_get_failed
end interface pmpix_comm_get_failed
interface mpix_comm_ack_failed
subroutine mpix_comm_ack_failed(comm, num_to_ack, num_acked, ierr)
integer, intent(IN) :: comm, num_to_ack
integer, intent(OUT) :: num_acked, ierr
end subroutine mpix_comm_ack_failed
end interface mpix_comm_ack_failed
interface pmpix_comm_ack_failed
subroutine pmpix_comm_ack_failed(comm, num_to_ack, num_acked, ierr)
integer, intent(IN) :: comm, num_to_ack
integer, intent(OUT) :: num_acked, ierr
end subroutine pmpix_comm_ack_failed
end interface pmpix_comm_ack_failed
interface mpix_comm_failure_ack
subroutine mpix_comm_failure_ack(comm, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: ierr
end subroutine mpix_comm_failure_ack
end interface mpix_comm_failure_ack
interface pmpix_comm_failure_ack
subroutine pmpix_comm_failure_ack(comm, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: ierr
end subroutine pmpix_comm_failure_ack
end interface pmpix_comm_failure_ack
interface mpix_comm_failure_get_acked
subroutine mpix_comm_failure_get_acked(comm, failedgrp, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: failedgrp, ierr
end subroutine mpix_comm_failure_get_acked
end interface mpix_comm_failure_get_acked
interface pmpix_comm_failure_get_acked
subroutine pmpix_comm_failure_get_acked(comm, failedgrp, ierr)
integer, intent(IN) :: comm
integer, intent(OUT) :: failedgrp, ierr
end subroutine pmpix_comm_failure_get_acked
end interface pmpix_comm_failure_get_acked
interface mpix_comm_agree
subroutine mpix_comm_agree(comm, flag, ierr)
integer, intent(IN) :: comm
integer, intent(INOUT) :: flag
integer, intent(OUT) :: ierr
end subroutine mpix_comm_agree
end interface mpix_comm_agree
interface pmpix_comm_agree
subroutine pmpix_comm_agree(comm, flag, ierr)
integer, intent(IN) :: comm
integer, intent(INOUT) :: flag
integer, intent(OUT) :: ierr
end subroutine pmpix_comm_agree
end interface pmpix_comm_agree
interface mpix_comm_iagree
subroutine mpix_comm_iagree(comm, flag, request, ierr)
integer, intent(IN) :: comm
integer, intent(INOUT) :: flag
integer, intent(OUT) :: request, ierr
end subroutine mpix_comm_iagree
end interface mpix_comm_iagree
interface pmpix_comm_iagree
subroutine pmpix_comm_iagree(comm, flag, request, ierr)
integer, intent(IN) :: comm
integer, intent(INOUT) :: flag
integer, intent(OUT) :: request, ierr
end subroutine pmpix_comm_iagree
end interface pmpix_comm_iagree
!
! Validation: Windows
! Todo
!
!
! Validation: File Handles
! Todo
!
!
|
