OpenMPI 0.1.1

- Main Page
- Related Pages
- Modules
- Data Structures
- Files

- File List
- Globals

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 !
request
Definition: evdns.c:158