OpenMPI 0.1.1

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

- File List
- Globals

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