fortran: remove 2 unused files
As noted in the comments of these files, they aren't used. Instead, the Fortran interfaces for WTICK/WTIME just BIND(C) invoke the back-end C functions (yay BIND(C)!). Hence, there's no need to keep these old wrapper files around any more. cmr=v1.8.3 This commit was SVN r32751.
Этот коммит содержится в:
родитель
8db1f89dd1
Коммит
0f29f222f2
@ -1,12 +0,0 @@
|
||||
! This wrapper for MPI_Wtick is not actually used in this version.
|
||||
! See mpi-f08-interfaces.F90 where the C implementation is called
|
||||
! directly.
|
||||
!
|
||||
function MPI_Wtick_f08()
|
||||
use :: mpi_f08, only : ompi_wtick_f
|
||||
implicit none
|
||||
DOUBLE PRECISION :: MPI_Wtick_f08
|
||||
|
||||
MPI_Wtick_f08 = ompi_wtick_f()
|
||||
|
||||
end function MPI_Wtick_f08
|
@ -1,12 +0,0 @@
|
||||
! This wrapper for MPI_Wtime is not actually used in this version.
|
||||
! See mpi-f08-interfaces.F90 where the C implementation is called
|
||||
! directly.
|
||||
!
|
||||
function MPI_Wtime_f08()
|
||||
use :: mpi_f08, only : ompi_wtime_f
|
||||
implicit none
|
||||
DOUBLE PRECISION :: MPI_Wtime_f08
|
||||
|
||||
MPI_Wtime_f08 = ompi_wtime_f()
|
||||
|
||||
end function MPI_Wtime_f08
|
Загрузка…
x
Ссылка в новой задаче
Block a user