!
! Copyright (C) by Argonne National Laboratory
!     See COPYRIGHT in top-level directory
!

function MPI_Wtime_f08( ) result(res)
    use :: mpi_c_interface_nobuf, only : MPIR_Wtime_c
    double precision :: res
    res = MPIR_Wtime_c()
end function MPI_Wtime_f08
