OpenMPI  0.1.1
mpiext_ftmpi_f90.h
1 ! -*- fortran -*-
2 ! Copyright (c) 2010-2012 Oak Ridge National Labs. All rights reserved.
3 ! Copyright (c) 2010-2014 The Trustees of the University of Tennessee.
4 ! All rights reserved.
5 ! $COPYRIGHT$
6 !
7 ! Additional copyrights may follow
8 !
9 ! $HEADER$
10 !
11 
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'
15 
16 !
17 ! Communicators
18 !
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
25 
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
32 
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
39 
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
46 
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
53 
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
60 
61 ! And the deprecated functions
62 
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
69 
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
76 
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
83 
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
90 
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
97 
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
104 
105 !
106 ! Validation: Windows
107 ! Todo
108 !
109 
110 
111 !
112 ! Validation: File Handles
113 ! Todo
114 !
115 
116 
117 !
Definition: evdns.c:158