5219241d13
- via the OMPI_BUILD_MPI_PROFILING macro, avoid the need to have two distinct source files for MPI_* and PMPI_* bindings. - move the PMPI bindings into ompi/mpi/fortran/use-mpi-f08/profile. - remove an useless dependency to mpi-f08.lo - share most of mod/[p]mpi-f08-interfaces.F90 code in a single mod/mpi-f08-interfaces.h Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
47 строки
1.5 KiB
Fortran
47 строки
1.5 KiB
Fortran
! -*- f90 -*-
|
|
!
|
|
! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved
|
|
! Copyright (c) 2009-2015 Los Alamos National Security, LLC.
|
|
! All rights reserved.
|
|
! Copyright (c) 2012 The University of Tennessee and The University
|
|
! of Tennessee Research Foundation. All rights
|
|
! reserved.
|
|
! Copyright (c) 2012 Inria. All rights reserved.
|
|
! Copyright (c) 2015-2020 Research Organization for Information Science
|
|
! and Technology (RIST). All rights reserved.
|
|
! Copyright (c) 2017-2018 FUJITSU LIMITED. All rights reserved.
|
|
! $COPYRIGHT$
|
|
!
|
|
! This file provides the interface specifications for the MPI Fortran
|
|
! API bindings. It effectively maps between public names ("MPI_Init")
|
|
! and the name for tools ("MPI_Init_f08") and the back-end implementation
|
|
! name (e.g., "MPI_Init_f08").
|
|
|
|
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
|
|
|
module mpi_f08_interfaces
|
|
|
|
#include "mpi-f08-interfaces.h"
|
|
|
|
! MPI_Wtick is not a wrapper function
|
|
!
|
|
interface MPI_Wtick
|
|
function MPI_Wtick_f08( ) BIND(C,name="MPI_Wtick")
|
|
use, intrinsic :: ISO_C_BINDING
|
|
implicit none
|
|
DOUBLE PRECISION :: MPI_Wtick_f08
|
|
end function MPI_Wtick_f08
|
|
end interface MPI_Wtick
|
|
|
|
! MPI_Wtime is not a wrapper function
|
|
!
|
|
interface MPI_Wtime
|
|
function MPI_Wtime_f08( ) BIND(C,name="MPI_Wtime")
|
|
use, intrinsic :: ISO_C_BINDING
|
|
implicit none
|
|
DOUBLE PRECISION :: MPI_Wtime_f08
|
|
end function MPI_Wtime_f08
|
|
end interface MPI_Wtime
|
|
|
|
end module mpi_f08_interfaces
|