1 ! -*- f90 -*- 2 ! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. 3 ! $COPYRIGHT$ 4 ! 5 ! Additional copyrights may follow 6 ! 7 ! $HEADER$ 8 ! 9 10 ! Note about these declarations: these are "external" functions in 11 ! mpif-common.h. However, if we don't declare them here, compilers will add 12 ! them to the "mpi" module namespace, and result in linker errors if MPI 13 ! F90 applications try to use them. because the implementations of 14 ! these functions are not in the MPI module namespace -- they're the F77 15 ! functions. 16 17 ! 18 ! INTEGER handle pre-defined conversion callback function interface 19 ! 20 21 interface 22 23 subroutine MPI_CONVERSION_FN_NULL(userbuf, datatype, count, filebuf, & 24 position, extra_state, ierror) 25 implicit none 26 include 'mpif-config.h' 27 character(len=*), intent(in) :: filebuf 28 character(len=*), intent(out) :: userbuf 29 integer, intent(in) :: datatype, count, ierror 30 integer(kind=MPI_OFFSET_KIND), intent(in) :: position 31 integer(kind=MPI_ADDRESS_KIND), intent(in) :: extra_state 32 end subroutine MPI_CONVERSION_FN_NULL 33 34 end interface