2 ! Copyright (c) 2004-2005 The Regents of the University of California.
4 ! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
7 ! Additional copyrights may follow
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
21 subroutine mpi_type_null_delete_fn( type, type_keyval, attribute_val_out, &
23 integer :: type, type_keyval, attribute_val_out, extra_state, ierr
24 end subroutine mpi_type_null_delete_fn
26 subroutine mpi_type_null_copy_fn( type, type_keyval, extra_state, &
27 attribute_val_in, attribute_val_out, &
29 integer :: type, type_keyval, extra_state
30 integer :: attribute_val_in, attribute_val_out, ierr
32 end subroutine mpi_type_null_copy_fn
34 subroutine mpi_type_dup_fn( type, type_keyval, extra_state, &
35 attribute_val_in, attribute_val_out, &
37 integer :: type, type_keyval, extra_state
38 integer :: attribute_val_in, attribute_val_out, ierr
40 end subroutine mpi_type_dup_fn
42 subroutine mpi_comm_null_delete_fn(comm, comm_keyval, attribute_val_out, &
44 integer :: comm, comm_keyval, attribute_val_out, extra_state, ierr
45 end subroutine mpi_comm_null_delete_fn
47 subroutine mpi_comm_null_copy_fn( comm, comm_keyval, extra_state, &
48 attribute_val_in, attribute_val_out, &
50 integer :: comm, comm_keyval, extra_state
51 integer :: attribute_val_in, attribute_val_out, ierr
53 end subroutine mpi_comm_null_copy_fn
55 subroutine mpi_comm_dup_fn( comm, comm_keyval, extra_state, &
56 attribute_val_in, attribute_val_out, &
58 integer :: comm, comm_keyval, extra_state
59 integer :: attribute_val_in, attribute_val_out, ierr
61 end subroutine mpi_comm_dup_fn
63 subroutine mpi_null_delete_fn( comm, comm_keyval, attribute_val_out, &
65 integer :: comm, comm_keyval, attribute_val_out, extra_state, ierr
66 end subroutine mpi_null_delete_fn
68 subroutine mpi_null_copy_fn( comm, comm_keyval, extra_state, &
69 attribute_val_in, attribute_val_out, &
71 integer :: comm, comm_keyval, extra_state
72 integer :: attribute_val_in, attribute_val_out, ierr
74 end subroutine mpi_null_copy_fn
76 subroutine mpi_dup_fn( comm, comm_keyval, extra_state, &
77 attribute_val_in, attribute_val_out, &
79 integer :: comm, comm_keyval, extra_state
80 integer :: attribute_val_in, attribute_val_out, ierr
82 end subroutine mpi_dup_fn
84 subroutine mpi_win_null_delete_fn( window, win_keyval, attribute_val_out, &
86 integer :: window, win_keyval, attribute_val_out, extra_state, ierr
87 end subroutine mpi_win_null_delete_fn
89 subroutine mpi_win_null_copy_fn( window, win_keyval, extra_state, &
90 attribute_val_in, attribute_val_out, &
92 integer :: window, win_keyval, extra_state
93 integer :: attribute_val_in, attribute_val_out, ierr
95 end subroutine mpi_win_null_copy_fn
97 subroutine mpi_win_dup_fn( window, win_keyval, extra_state, &
98 attribute_val_in, attribute_val_out, &
100 integer :: window, win_keyval, extra_state
101 integer :: attribute_val_in, attribute_val_out, ierr
103 end subroutine mpi_win_dup_fn