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
|
!
! Copyright (c) 2004-2005 The Regents of the University of California.
! All rights reserved.
! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
!
! $HEADER$
!
! Note about these declarations: these are "external" functions in
! mpif-common.h. However, if we don't declare them here, compilers will add
! them to the "mpi" module namespace, and result in linker errors if MPI
! F90 applications try to use them. Because the implementations of
! these functions are not in the MPI module namespace -- they're the F77
! functions.
interface
subroutine mpi_type_null_delete_fn( type, type_keyval, attribute_val_out, &
extra_state, ierr )
integer :: type, type_keyval, attribute_val_out, extra_state, ierr
end subroutine mpi_type_null_delete_fn
subroutine mpi_type_null_copy_fn( type, type_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
integer :: type, type_keyval, extra_state
integer :: attribute_val_in, attribute_val_out, ierr
logical :: flag
end subroutine mpi_type_null_copy_fn
subroutine mpi_type_dup_fn( type, type_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
integer :: type, type_keyval, extra_state
integer :: attribute_val_in, attribute_val_out, ierr
logical :: flag
end subroutine mpi_type_dup_fn
subroutine mpi_comm_null_delete_fn(comm, comm_keyval, attribute_val_out, &
extra_state, ierr )
integer :: comm, comm_keyval, attribute_val_out, extra_state, ierr
end subroutine mpi_comm_null_delete_fn
subroutine mpi_comm_null_copy_fn( comm, comm_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
integer :: comm, comm_keyval, extra_state
integer :: attribute_val_in, attribute_val_out, ierr
logical :: flag
end subroutine mpi_comm_null_copy_fn
subroutine mpi_comm_dup_fn( comm, comm_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
integer :: comm, comm_keyval, extra_state
integer :: attribute_val_in, attribute_val_out, ierr
logical :: flag
end subroutine mpi_comm_dup_fn
subroutine mpi_null_delete_fn( comm, comm_keyval, attribute_val_out, &
extra_state, ierr )
integer :: comm, comm_keyval, attribute_val_out, extra_state, ierr
end subroutine mpi_null_delete_fn
subroutine mpi_null_copy_fn( comm, comm_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
integer :: comm, comm_keyval, extra_state
integer :: attribute_val_in, attribute_val_out, ierr
logical :: flag
end subroutine mpi_null_copy_fn
subroutine mpi_dup_fn( comm, comm_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
integer :: comm, comm_keyval, extra_state
integer :: attribute_val_in, attribute_val_out, ierr
logical :: flag
end subroutine mpi_dup_fn
subroutine mpi_win_null_delete_fn( window, win_keyval, attribute_val_out, &
extra_state, ierr )
integer :: window, win_keyval, attribute_val_out, extra_state, ierr
end subroutine mpi_win_null_delete_fn
subroutine mpi_win_null_copy_fn( window, win_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
integer :: window, win_keyval, extra_state
integer :: attribute_val_in, attribute_val_out, ierr
logical :: flag
end subroutine mpi_win_null_copy_fn
subroutine mpi_win_dup_fn( window, win_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
integer :: window, win_keyval, extra_state
integer :: attribute_val_in, attribute_val_out, ierr
logical :: flag
end subroutine mpi_win_dup_fn
end interface
|
