George suggested a better way to make WTICK and WTIME -- be consistent

with the other methodology even if there are no choice buffers and no
special constants.  But it keeps the Makefile.am simple and the
methodology consistent.

This commit was SVN r10462.

ompi/mpi/f90/mpi_wtick_f90.f90

@@ -1,25 +0,0 @@
-!
-! 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

ompi/mpi/f90/mpi_wtime_f90.f90

@@ -1,25 +0,0 @@
-!
-! 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

ompi/mpi/f90/scripts/Makefile.am

@@ -98,6 +98,8 @@ noinst_SCRIPTS = \
      mpi_unpack_f90.f90.sh \
      mpi_waitall_f90.f90.sh \
      mpi_waitsome_f90.f90.sh \
-     mpi_win_create_f90.f90.sh
+     mpi_win_create_f90.f90.sh \
+     mpi_wtick_f90.f90.sh \
+     mpi_wtime_f90.f90.sh
 
 EXTRA_DIST = $(noinst_SCRIPTS)

ompi/mpi/f90/scripts/mpi_wtick_f90.f90.sh

@@ -0,0 +1,42 @@
+#! /bin/sh
+
+#
+# Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
+#                         University Research and Technology
+#                         Corporation.  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$
+#
+
+# This flie was not generated by XML scripts; it was written by hand.
+# It may be generated someday, but at this point, it was simpler to
+# just write it by hand.
+
+. "$1/fortran_kinds.sh"
+
+# This entire file is only generated in small or larger modules.  So
+# if we're not at least small, bail now.
+
+check_size small
+if test "$output" = "0"; then
+    exit 0
+fi
+
+# Ok, we should continue.
+
+cat <<EOF
+
+function MPI_Wtick()
+  implicit none
+  double precision :: MPI_Wtick, foo
+  call MPI_Wtick_f90(foo)
+  MPI_Wtick = foo
+end function MPI_Wtick
+
+EOF

ompi/mpi/f90/scripts/mpi_wtime_f90.f90.sh

@@ -0,0 +1,42 @@
+#! /bin/sh
+
+#
+# Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
+#                         University Research and Technology
+#                         Corporation.  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$
+#
+
+# This flie was not generated by XML scripts; it was written by hand.
+# It may be generated someday, but at this point, it was simpler to
+# just write it by hand.
+
+. "$1/fortran_kinds.sh"
+
+# This entire file is only generated in small or larger modules.  So
+# if we're not at least small, bail now.
+
+check_size small
+if test "$output" = "0"; then
+    exit 0
+fi
+
+# Ok, we should continue.
+
+cat <<EOF
+
+function MPI_Wtime()
+  implicit none
+  double precision :: MPI_Wtime, foo
+  call MPI_Wtime_f90(foo)
+  MPI_Wtime = foo
+end function MPI_Wtime
+
+EOF