2006-05-18 02:22:29 +04:00
|
|
|
!
|
|
|
|
! 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
|
2006-05-20 06:15:49 +04:00
|
|
|
! mpif-common.h. However, if we don't declare them here, compilers will add
|
2006-05-18 02:22:29 +04:00
|
|
|
! 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.
|
2006-05-18 01:31:04 +04:00
|
|
|
|
|
|
|
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
|