OpenMPI  0.1.1
attr_fn-f90-interfaces.h
1 !
2 ! Copyright (c) 2004-2005 The Regents of the University of California.
3 ! All rights reserved.
4 ! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
5 ! $COPYRIGHT$
6 !
7 ! Additional copyrights may follow
8 !
9 ! $HEADER$
10 !
11 
12 ! Note about these declarations: these are "external" functions in
13 ! mpif-common.h. However, if we don't declare them here, compilers will add
14 ! them to the "mpi" module namespace, and result in linker errors if MPI
15 ! F90 applications try to use them. Because the implementations of
16 ! these functions are not in the MPI module namespace -- they're the F77
17 ! functions.
18 
19 interface
20 
21  subroutine mpi_type_null_delete_fn( type, type_keyval, attribute_val_out, &
22  extra_state, ierr )
23  integer :: type, type_keyval, attribute_val_out, extra_state, ierr
24  end subroutine mpi_type_null_delete_fn
25 
26  subroutine mpi_type_null_copy_fn( type, type_keyval, extra_state, &
27  attribute_val_in, attribute_val_out, &
28  flag, ierr )
29  integer :: type, type_keyval, extra_state
30  integer :: attribute_val_in, attribute_val_out, ierr
31  logical :: flag
32  end subroutine mpi_type_null_copy_fn
33 
34  subroutine mpi_type_dup_fn( type, type_keyval, extra_state, &
35  attribute_val_in, attribute_val_out, &
36  flag, ierr )
37  integer :: type, type_keyval, extra_state
38  integer :: attribute_val_in, attribute_val_out, ierr
39  logical :: flag
40  end subroutine mpi_type_dup_fn
41 
42  subroutine mpi_comm_null_delete_fn(comm, comm_keyval, attribute_val_out, &
43  extra_state, ierr )
44  integer :: comm, comm_keyval, attribute_val_out, extra_state, ierr
45  end subroutine mpi_comm_null_delete_fn
46 
47  subroutine mpi_comm_null_copy_fn( comm, comm_keyval, extra_state, &
48  attribute_val_in, attribute_val_out, &
49  flag, ierr )
50  integer :: comm, comm_keyval, extra_state
51  integer :: attribute_val_in, attribute_val_out, ierr
52  logical :: flag
53  end subroutine mpi_comm_null_copy_fn
54 
55  subroutine mpi_comm_dup_fn( comm, comm_keyval, extra_state, &
56  attribute_val_in, attribute_val_out, &
57  flag, ierr )
58  integer :: comm, comm_keyval, extra_state
59  integer :: attribute_val_in, attribute_val_out, ierr
60  logical :: flag
61  end subroutine mpi_comm_dup_fn
62 
63  subroutine mpi_null_delete_fn( comm, comm_keyval, attribute_val_out, &
64  extra_state, ierr )
65  integer :: comm, comm_keyval, attribute_val_out, extra_state, ierr
66  end subroutine mpi_null_delete_fn
67 
68  subroutine mpi_null_copy_fn( comm, comm_keyval, extra_state, &
69  attribute_val_in, attribute_val_out, &
70  flag, ierr )
71  integer :: comm, comm_keyval, extra_state
72  integer :: attribute_val_in, attribute_val_out, ierr
73  logical :: flag
74  end subroutine mpi_null_copy_fn
75 
76  subroutine mpi_dup_fn( comm, comm_keyval, extra_state, &
77  attribute_val_in, attribute_val_out, &
78  flag, ierr )
79  integer :: comm, comm_keyval, extra_state
80  integer :: attribute_val_in, attribute_val_out, ierr
81  logical :: flag
82  end subroutine mpi_dup_fn
83 
84  subroutine mpi_win_null_delete_fn( window, win_keyval, attribute_val_out, &
85  extra_state, ierr )
86  integer :: window, win_keyval, attribute_val_out, extra_state, ierr
87  end subroutine mpi_win_null_delete_fn
88 
89  subroutine mpi_win_null_copy_fn( window, win_keyval, extra_state, &
90  attribute_val_in, attribute_val_out, &
91  flag, ierr )
92  integer :: window, win_keyval, extra_state
93  integer :: attribute_val_in, attribute_val_out, ierr
94  logical :: flag
95  end subroutine mpi_win_null_copy_fn
96 
97  subroutine mpi_win_dup_fn( window, win_keyval, extra_state, &
98  attribute_val_in, attribute_val_out, &
99  flag, ierr )
100  integer :: window, win_keyval, extra_state
101  integer :: attribute_val_in, attribute_val_out, ierr
102  logical :: flag
103  end subroutine mpi_win_dup_fn
104 
105 end interface