diff --git a/ompi/mpi/f90/mpi_wtick_f90.f90 b/ompi/mpi/f90/mpi_wtick_f90.f90
new file mode 100644
index 0000000000..874bec6253
--- /dev/null
+++ b/ompi/mpi/f90/mpi_wtick_f90.f90
@@ -0,0 +1,25 @@
+!
+! Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
+!                         University Research and Technology
+!                         Corporation.  All rights reserved.
+! Copyright (c) 2004-2005 The University of Tennessee and The University
+!                         of Tennessee Research Foundation.  All rights
+!                         reserved.
+! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, 
+!                         University of Stuttgart.  All rights reserved.
+! Copyright (c) 2004-2005 The Regents of the University of California.
+!                         All rights reserved.
+! Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
+! $COPYRIGHT$
+! 
+! Additional copyrights may follow
+! 
+! $HEADER$
+!
+
+function MPI_Wtick()
+  implicit none
+  double precision :: MPI_Wtick, foo
+  call MPI_Wtick_f90(foo)
+  MPI_Wtick = foo
+end function MPI_Wtick
diff --git a/ompi/mpi/f90/mpi_wtime_f90.f90 b/ompi/mpi/f90/mpi_wtime_f90.f90
new file mode 100644
index 0000000000..1f3596a727
--- /dev/null
+++ b/ompi/mpi/f90/mpi_wtime_f90.f90
@@ -0,0 +1,25 @@
+!
+! Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
+!                         University Research and Technology
+!                         Corporation.  All rights reserved.
+! Copyright (c) 2004-2005 The University of Tennessee and The University
+!                         of Tennessee Research Foundation.  All rights
+!                         reserved.
+! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, 
+!                         University of Stuttgart.  All rights reserved.
+! Copyright (c) 2004-2005 The Regents of the University of California.
+!                         All rights reserved.
+! Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
+! $COPYRIGHT$
+! 
+! Additional copyrights may follow
+! 
+! $HEADER$
+!
+
+function MPI_Wtime()
+  implicit none
+  double precision :: MPI_Wtime, foo
+  call MPI_Wtime_f90(foo)
+  MPI_Wtime = foo
+end function MPI_Wtime