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
|
! -*- f90 -*-
! Copyright (c) 2006-2014 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.
!
! INTEGER handle pre-defined conversion callback function interface
!
interface
subroutine MPI_CONVERSION_FN_NULL(userbuf, datatype, count, filebuf, &
position, extra_state, ierror)
implicit none
include 'mpif-config.h'
character(len=*), intent(in) :: filebuf
character(len=*), intent(out) :: userbuf
integer, intent(in) :: datatype, count, ierror
integer(kind=MPI_OFFSET_KIND), intent(in) :: position
integer(kind=MPI_ADDRESS_KIND), intent(in) :: extra_state
end subroutine MPI_CONVERSION_FN_NULL
end interface
|
