2 ! Copyright (c) 2010-2012 Oak Ridge National Labs. All rights reserved.
3 ! Copyright (c) 2010-2014 The Trustees of the University of Tennessee.
7 ! Additional copyrights may follow
12 ! Include the parameters
for this extension
13 ! Included from config/ompi_ext.m4 into mpif90-ext.f90
14 ! include
'../mpiext/ftmpi/mpiext_ftmpi_f77.h'
19 interface MPIX_Comm_revoke
20 subroutine mpix_comm_revoke(comm, ierr)
21 integer, intent(IN) :: comm
22 integer, intent(OUT) :: ierr
23 end subroutine mpix_comm_revoke
24 end interface MPIX_Comm_revoke
26 interface MPIX_Comm_shrink
27 subroutine mpix_comm_shrink(comm, newcomm, ierr)
28 integer, intent(IN) :: comm
29 integer, intent(OUT) :: newcomm, ierr
30 end subroutine mpix_comm_shrink
31 end interface MPIX_Comm_shrink
33 interface MPIX_Comm_failure_ack
34 subroutine mpix_comm_failure_ack(comm, ierr)
35 integer, intent(IN) :: comm
36 integer, intent(OUT) :: ierr
37 end subroutine mpix_comm_failure_ack
38 end interface MPIX_Comm_failure_ack
40 interface MPIX_Comm_failure_get_acked
41 subroutine mpix_comm_failure_get_acked(comm, failedgrp, ierr)
42 integer, intent(IN) :: comm
43 logical, intent(OUT) :: failedgrp, ierr
44 end subroutine mpix_comm_failure_get_acked
45 end interface MPIX_Comm_failure_get_acked
47 interface MPIX_Comm_agree
48 subroutine mpix_comm_agree(comm, ierr)
49 integer, intent(IN) :: comm
50 integer, intent(OUT) :: ierr
51 end subroutine mpix_comm_agree
52 end interface MPIX_Comm_agree
54 interface MPIX_Comm_iagree
55 subroutine mpix_comm_iagree(comm, request, ierr)
56 integer, intent(IN) :: comm
57 integer, intent(OUT) ::
request, ierr
58 end subroutine mpix_comm_iagree
59 end interface MPIX_Comm_iagree
61 ! And the deprecated functions
63 interface OMPI_Comm_revoke
64 subroutine ompi_comm_revoke(comm, ierr)
65 integer, intent(IN) :: comm
66 integer, intent(OUT) :: ierr
67 end subroutine ompi_comm_revoke
68 end interface OMPI_Comm_revoke
70 interface OMPI_Comm_shrink
71 subroutine ompi_comm_shrink(comm, newcomm, ierr)
72 integer, intent(IN) :: comm
73 integer, intent(OUT) :: newcomm, ierr
74 end subroutine ompi_comm_shrink
75 end interface OMPI_Comm_shrink
77 interface OMPI_Comm_failure_ack
78 subroutine ompi_comm_failure_ack(comm, ierr)
79 integer, intent(IN) :: comm
80 integer, intent(OUT) :: ierr
81 end subroutine ompi_comm_failure_ack
82 end interface OMPI_Comm_failure_ack
84 interface OMPI_Comm_failure_get_acked
85 subroutine ompi_comm_failure_get_acked(comm, failedgrp, ierr)
86 integer, intent(IN) :: comm
87 logical, intent(OUT) :: failedgrp, ierr
88 end subroutine ompi_comm_failure_get_acked
89 end interface OMPI_Comm_failure_get_acked
91 interface OMPI_Comm_agree
92 subroutine ompi_comm_agree(comm, ierr)
93 integer, intent(IN) :: comm
94 integer, intent(OUT) :: ierr
95 end subroutine ompi_comm_agree
96 end interface OMPI_Comm_agree
98 interface OMPI_Comm_iagree
99 subroutine ompi_comm_iagree(comm, request, ierr)
100 integer, intent(IN) :: comm
101 integer, intent(OUT) ::
request, ierr
102 end subroutine ompi_comm_iagree
103 end interface OMPI_Comm_iagree
106 ! Validation: Windows
112 ! Validation: File Handles